diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 64bff29..ccd6b62 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -329,119 +329,120 @@ Public Class cZOLL_IMPORT Public Shared Function EZOLLImport(LRN, art, Optional ByRef SPEDBUCH_TMP = Nothing) As Boolean + Try - Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag - Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch - ' Dim cZOLL_IMPORT As New cZOLL_IMPORT + Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" 'Wichtig für Spedbucheintrag + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch + If True Then + 'Filiale erkennen: + Dim filialeBez = "" + Dim filiale = getFiliale(LRN, filialeBez) + Select Case filiale + Case "5501" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" + Case "4801", "4802" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" ' Return False 'Keine Atoerfassung --> ab 11.02.2025 schon! + Case "5801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" + Case "5601" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" + End Select + Dim abfertigungsnummer = getAbfertigungsnummer(LRN) - If True Then - 'Filiale erkennen: - Dim filialeBez = "" - Dim filiale = getFiliale(LRN, filialeBez) - Select Case filiale - Case "5501" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" - Case "4801", "4802" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" ' Return False 'Keine Atoerfassung --> ab 11.02.2025 schon! - Case "5801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" - Case "5601" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" - End Select - Dim abfertigungsnummer = getAbfertigungsnummer(LRN) + If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then + SPEDBUCH_TMP = SPEDBUCH + If filiale <> "" And abfertigungsnummer <> "" Then - If tryFindAviso(LRN, SPEDBUCH.AvisoID, SPEDBUCH.SendungID) Then - SPEDBUCH_TMP = SPEDBUCH - If filiale <> "" And abfertigungsnummer <> "" Then + If countSpedbuchEntrys(filiale, LRN, art) = 0 Then 'gibts einen SPED mit BezugsNr -> - If countSpedbuchEntrys(filiale, LRN, art) = 0 Then 'gibts einen SPED mit BezugsNr -> + If countSpedbuchEntrys(filiale, abfertigungsnummer, "") = 0 Then 'gibts einen SPED mit Filiale-AbfertiungsNr - If countSpedbuchEntrys(filiale, abfertigungsnummer, "") = 0 Then 'gibts einen SPED mit Filiale-AbfertiungsNr + SPEDBUCH.FilialenNr = filiale + SPEDBUCH.AbfertigungsNr = abfertigungsnummer + SPEDBUCH.NewUNTER_NR() - SPEDBUCH.FilialenNr = filiale - SPEDBUCH.AbfertigungsNr = abfertigungsnummer - SPEDBUCH.NewUNTER_NR() + SPEDBUCH.Abfertigungsanzahl = 1 + SPEDBUCH.Fakturiert = 0 + ' SPEDBUCH.AtlasBezNrEZA = LRN + SPEDBUCH.Zollsystem = "E" + SPEDBUCH.Sachbearbeiter = "AUTO" - SPEDBUCH.Abfertigungsanzahl = 1 - SPEDBUCH.Fakturiert = 0 - ' SPEDBUCH.AtlasBezNrEZA = LRN - SPEDBUCH.Zollsystem = "E" - SPEDBUCH.Sachbearbeiter = "AUTO" - - Dim ZOLL_IMPORT As New cZOLL_IMPORT - Dim notfound = False - Dim posAnzahl = 0 - - Select Case art - Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN - Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN - Case Else : SPEDBUCH.AtlasBezNrEZA = LRN - End Select - - SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True,, SPEDBUCH.AtlasBezNrAES) - - SPEDBUCH_TMP = SPEDBUCH - If notfound Then Return False - ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") - - ' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr) - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp - - If SPEDBUCH.SAVE Then - VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True) - Return True - Else - Return False - End If - - - ElseIf art <> "" Then - - Dim SPEDITIONSBUCH_UPDATE As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(filiale, abfertigungsnummer, 0) - - If SPEDITIONSBUCH_UPDATE.hasEntry Then - - If SPEDITIONSBUCH_UPDATE.Zollsystem = "" Then - SPEDITIONSBUCH_UPDATE.Zollsystem = "E" - End If + Dim ZOLL_IMPORT As New cZOLL_IMPORT + Dim notfound = False + Dim posAnzahl = 0 Select Case art - Case "NCTS" - If SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = "" Then - SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = LRN - - SPEDITIONSBUCH_UPDATE.SAVE() - End If - - Case "AES" - If SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = "" Then - SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = LRN - SPEDITIONSBUCH_UPDATE.SAVE() - End If - - Case "EZA" - If SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = "" Then - SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = LRN - SPEDITIONSBUCH_UPDATE.SAVE() - End If - + Case "NCTS" : SPEDBUCH.AtlasBezNrNCTS = LRN + Case "AES" : SPEDBUCH.AtlasBezNrAES = LRN + Case Else : SPEDBUCH.AtlasBezNrEZA = LRN End Select + + SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, SPEDBUCH.AvisoID, SPEDBUCH.SendungID, "VERA", filialeBez, 1, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True,, SPEDBUCH.AtlasBezNrAES) + + SPEDBUCH_TMP = SPEDBUCH + + If notfound Then + VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", SPEDBUCH.AtlasBezNrEZA, Now.ToString("yyyy.MM.dd HH:mm"), "d.breimaier@verag.ag", "", "", "") + Return False + End If + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp + + If SPEDBUCH.SAVE Then + VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(SPEDBUCH.SendungID, True) + Return True + Else + Return False + End If + + + ElseIf art <> "" Then + + Dim SPEDITIONSBUCH_UPDATE As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(filiale, abfertigungsnummer, 0) + + If SPEDITIONSBUCH_UPDATE.hasEntry Then + + If SPEDITIONSBUCH_UPDATE.Zollsystem = "" Then + SPEDITIONSBUCH_UPDATE.Zollsystem = "E" + End If + + Select Case art + Case "NCTS" + If SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = "" Then + SPEDITIONSBUCH_UPDATE.AtlasBezNrNCTS = LRN + SPEDITIONSBUCH_UPDATE.SAVE() + End If + + Case "AES" + If SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = "" Then + SPEDITIONSBUCH_UPDATE.AtlasBezNrAES = LRN + SPEDITIONSBUCH_UPDATE.SAVE() + End If + + Case "EZA" + If SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = "" Then + SPEDITIONSBUCH_UPDATE.AtlasBezNrEZA = LRN + SPEDITIONSBUCH_UPDATE.SAVE() + End If + + End Select + End If + + End If - End If - - ' MsgBox(SQL.getValueTxtBySql("select count(*) FROM [VERAG].[dbo].[Speditionsbuch] where AbfertigungsNr = 18035380", "FMZOLL")) - End If End If + + Else + + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp + Return False 'Ohne Sendungsverweis kein eintrag... End If - - Else - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp - Return False 'Ohne Sendungsverweis kein eintrag... - End If - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp - Return False + Return False + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, ERROR_OP.MAIL) + End Try End Function Public Shared Function tryFindAviso(LRN, ByRef AvisoID, ByRef SendungID) As Boolean diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 77e2bbf..5ad2bbe 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -1566,8 +1566,8 @@ Public Class cMitarbeiter 'Änderung Dim sql = "INSERT INTO tblMitarbeiter " & - "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice,mit_timasNichtStempeln,mit_emailprivat, mit_timasMehrereFirmen, mit_timasFirmen, mit_Funktion,mit_terminalTimasId, mit_EMailbenachrichtigungen) OUTPUT INSERTED.mit_id VALUES " & - "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice,@mit_timasNichtStempeln, @mit_emailprivat, @mit_timasMehrereFirmen, @mit_timasFirmen,@mit_Funktion,@mit_terminalTimasId, @mit_EMailbenachrichtigungen )" + "(mit_username,mit_abweichenderAnzeigename, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe, mit_CSuser, mit_CSpwd, mit_PersonalNr, mit_telefonnr,mit_ATGRNAccessCode_AT51FP7,mit_ATGRNAccessCode_AT52VA6 , mit_Sprachkentnisse,mit_EZOLL_SB_UNISPED, mit_homeoffice,mit_timasNichtStempeln,mit_emailprivat, mit_timasMehrereFirmen, mit_timasFirmen, mit_Funktion, mit_EMailbenachrichtigungen) OUTPUT INSERTED.mit_id VALUES " & + "(@mit_username,@mit_abweichenderAnzeigename,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe, @mit_CSuser, @mit_CSpwd, @mit_PersonalNr, @mit_telefonnr,@mit_ATGRNAccessCode_AT51FP7 ,@mit_ATGRNAccessCode_AT52VA6, @mit_Sprachkentnisse,@mit_EZOLL_SB_UNISPED, @mit_homeoffice,@mit_timasNichtStempeln, @mit_emailprivat, @mit_timasMehrereFirmen, @mit_timasFirmen,@mit_Funktion, @mit_EMailbenachrichtigungen )" @@ -1653,7 +1653,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_timasMehrereFirmen", m.mit_timasMehrereFirmen) cmd.Parameters.AddWithValue("@mit_timasFirmen", If(m.mit_timasFirmen, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_Funktion", If(m.mit_Funktion, DBNull.Value)) - cmd.Parameters.AddWithValue("@mit_terminalTimasId", If(m.mit_terminalTimasId, DBNull.Value)) + 'cmd.Parameters.AddWithValue("@mit_terminalTimasId", If(m.mit_terminalTimasId, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_EMailbenachrichtigungen", If(m.mit_EMailbenachrichtigungen, DBNull.Value)) Try diff --git a/UID/usrCntlAPI.Designer.vb b/UID/usrCntlAPI.Designer.vb index a54536d..4f906bc 100644 --- a/UID/usrCntlAPI.Designer.vb +++ b/UID/usrCntlAPI.Designer.vb @@ -86,6 +86,8 @@ Partial Class usrCntlAPI Me.Panel3 = New System.Windows.Forms.Panel() Me.Button10 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() + Me.btnExcel = New System.Windows.Forms.Button() + Me.cbxOhneAnhang = New System.Windows.Forms.CheckBox() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -141,6 +143,8 @@ Partial Class usrCntlAPI ' 'SplitContainer1.Panel1 ' + Me.SplitContainer1.Panel1.Controls.Add(Me.cbxOhneAnhang) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnExcel) Me.SplitContainer1.Panel1.Controls.Add(Me.txtSuche) Me.SplitContainer1.Panel1.Controls.Add(Me.Label15) Me.SplitContainer1.Panel1.Controls.Add(Me.cboProgram) @@ -1040,6 +1044,30 @@ Partial Class usrCntlAPI Me.Button11.TabIndex = 4 Me.Button11.UseVisualStyleBackColor = True ' + 'btnExcel + ' + Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnExcel.BackgroundImage = Global.ADMIN.My.Resources.Resources.Excel_2013_logo_155x110 + Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnExcel.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnExcel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnExcel.Location = New System.Drawing.Point(943, 64) + Me.btnExcel.Name = "btnExcel" + Me.btnExcel.Size = New System.Drawing.Size(69, 52) + Me.btnExcel.TabIndex = 59 + Me.btnExcel.UseVisualStyleBackColor = True + ' + 'cbxOhneAnhang + ' + Me.cbxOhneAnhang.AutoSize = True + Me.cbxOhneAnhang.Location = New System.Drawing.Point(742, 123) + Me.cbxOhneAnhang.Name = "cbxOhneAnhang" + Me.cbxOhneAnhang.Size = New System.Drawing.Size(90, 17) + Me.cbxOhneAnhang.TabIndex = 60 + Me.cbxOhneAnhang.Text = "ohne Anhang" + Me.cbxOhneAnhang.UseVisualStyleBackColor = True + ' 'usrCntlAPI ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1128,4 +1156,6 @@ Partial Class usrCntlAPI Friend WithEvents Label14 As Label Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label15 As Label + Friend WithEvents btnExcel As Button + Friend WithEvents cbxOhneAnhang As CheckBox End Class diff --git a/UID/usrCntlAPI.vb b/UID/usrCntlAPI.vb index 083c468..059204c 100644 --- a/UID/usrCntlAPI.vb +++ b/UID/usrCntlAPI.vb @@ -224,6 +224,9 @@ Public Class usrCntlAPI End If End If + + If cbxOhneAnhang.Checked Then sqlstr &= " AND isnull([api_EMailAttCnt],-1) = 0 " + If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr " If cboPartnersystem._value <> "" Then sqlstr &= " AND [api_Partnersystem] = @Partnersystem " @@ -327,4 +330,22 @@ Public Class usrCntlAPI Me.Cursor = Cursors.Default End Sub + Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click + If DataGridView.Rows.Count > 0 Then + Dim dtNew As New DataTable + dtNew = TryCast(DataGridView.DataSource, DataTable) + + If dtNew.Rows.Count > 0 Then + + For Each col As DataColumn In dtNew.Columns + + Dim colName = col.ColumnName.Replace("api_", "") + + If Not col.ColumnName = (colName) Then col.ColumnName = col.ColumnName.Replace("api_", "") + Next + + cProgramFunctions.genExcelFromDT_NEW(dtNew) + End If + End If + End Sub End Class