neu
This commit is contained in:
34
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
34
UID/Mitarbeiter/frmMitarbDetails.Designer.vb
generated
@@ -161,6 +161,8 @@ Partial Class frmMitarbDetails
|
||||
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
|
||||
Me.cboAdminBer = New System.Windows.Forms.ComboBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label53 = New System.Windows.Forms.Label()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.TabControl2.SuspendLayout()
|
||||
@@ -605,6 +607,8 @@ Partial Class frmMitarbDetails
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.cboTeam)
|
||||
Me.GroupBox2.Controls.Add(Me.Label53)
|
||||
Me.GroupBox2.Controls.Add(Me.cboALIASDomain)
|
||||
Me.GroupBox2.Controls.Add(Me.txtALIASUser)
|
||||
Me.GroupBox2.Controls.Add(Me.Label52)
|
||||
@@ -785,7 +789,7 @@ Partial Class frmMitarbDetails
|
||||
Me.cboPosition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboPosition.FormattingEnabled = True
|
||||
Me.cboPosition.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
|
||||
Me.cboPosition.Location = New System.Drawing.Point(409, 116)
|
||||
Me.cboPosition.Location = New System.Drawing.Point(406, 76)
|
||||
Me.cboPosition.Name = "cboPosition"
|
||||
Me.cboPosition.Size = New System.Drawing.Size(136, 21)
|
||||
Me.cboPosition.TabIndex = 5
|
||||
@@ -794,7 +798,7 @@ Partial Class frmMitarbDetails
|
||||
'
|
||||
Me.Label29.AutoSize = True
|
||||
Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label29.Location = New System.Drawing.Point(406, 100)
|
||||
Me.Label29.Location = New System.Drawing.Point(403, 60)
|
||||
Me.Label29.Name = "Label29"
|
||||
Me.Label29.Size = New System.Drawing.Size(47, 13)
|
||||
Me.Label29.TabIndex = 87
|
||||
@@ -1724,6 +1728,30 @@ Partial Class frmMitarbDetails
|
||||
Me.Label7.TabIndex = 78
|
||||
Me.Label7.Text = "Berechtigung:"
|
||||
'
|
||||
'cboTeam
|
||||
'
|
||||
Me.cboTeam._allowedValuesFreiText = Nothing
|
||||
Me.cboTeam._allowFreiText = False
|
||||
Me.cboTeam._value = ""
|
||||
Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboTeam.FormattingEnabled = True
|
||||
Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
|
||||
Me.cboTeam.Location = New System.Drawing.Point(406, 116)
|
||||
Me.cboTeam.Name = "cboTeam"
|
||||
Me.cboTeam.Size = New System.Drawing.Size(136, 21)
|
||||
Me.cboTeam.TabIndex = 101
|
||||
'
|
||||
'Label53
|
||||
'
|
||||
Me.Label53.AutoSize = True
|
||||
Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label53.Location = New System.Drawing.Point(403, 100)
|
||||
Me.Label53.Name = "Label53"
|
||||
Me.Label53.Size = New System.Drawing.Size(37, 13)
|
||||
Me.Label53.TabIndex = 102
|
||||
Me.Label53.Text = "Team:"
|
||||
'
|
||||
'frmMitarbDetails
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -1904,4 +1932,6 @@ Partial Class frmMitarbDetails
|
||||
Friend WithEvents cboALIASDomain As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents txtALIASUser As TextBox
|
||||
Friend WithEvents Label52 As Label
|
||||
Friend WithEvents cboTeam As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label53 As Label
|
||||
End Class
|
||||
|
||||
@@ -44,6 +44,7 @@
|
||||
cboDP.fillWithSQL("SELECT [dpset_niederlassung] FROM [tblDienstSettings] ORDER BY dpset_niederlassung", False, "ADMIN", True)
|
||||
|
||||
|
||||
|
||||
MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [VERAG].[dbo].[tblFirma]", False, "FMZOLL")
|
||||
MyListBox1.Items.Insert(0, New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
|
||||
|
||||
@@ -210,7 +211,6 @@
|
||||
txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
|
||||
|
||||
|
||||
|
||||
If mitarbeiter.mit_firma = "ALL" Then
|
||||
cboFirma.Text = "ALLE"
|
||||
Else
|
||||
@@ -219,6 +219,9 @@
|
||||
|
||||
cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
|
||||
|
||||
cboTeam.changeItem(If(mitarbeiter.mit_teamId, ""))
|
||||
|
||||
|
||||
cboKasse.changeItem("")
|
||||
If mitarbeiter.mit_FMZollPersID IsNot Nothing Then
|
||||
cboKasse.changeItem(SQL.getValueTxtBySql("SELECT [Standard_RKSV_KasseId] FROM [Personal] WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
|
||||
@@ -443,6 +446,7 @@
|
||||
mitarbeiter.mit_TELOTEC_SB = txtTelotecSB.Text
|
||||
mitarbeiter.mit_AliasAD_Domain = cboALIASDomain._value
|
||||
mitarbeiter.mit_AliasAD_Username = txtALIASUser.Text
|
||||
mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
|
||||
|
||||
|
||||
If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
|
||||
@@ -697,4 +701,11 @@
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
|
||||
cboTeam.Items.Clear()
|
||||
If cboFirma.Text <> "" Then
|
||||
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -1512,8 +1512,8 @@ Public Class cMitarbeiter
|
||||
|
||||
'Änderung
|
||||
Dim sql = "INSERT INTO tblMitarbeiter " &
|
||||
"(mit_username, 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_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username) VALUES " &
|
||||
"(@mit_username,@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_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username)"
|
||||
"(mit_username, 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_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_teamId) VALUES " &
|
||||
"(@mit_username,@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_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_teamId)"
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
@@ -1560,6 +1560,7 @@ Public Class cMitarbeiter
|
||||
cmd.Parameters.AddWithValue("@mit_TELOTEC_SB", If(m.mit_TELOTEC_SB, DBNull.Value))
|
||||
cmd.Parameters.AddWithValue("@mit_AliasAD_Domain", If(m.mit_AliasAD_Domain, DBNull.Value))
|
||||
cmd.Parameters.AddWithValue("@mit_AliasAD_Username", If(m.mit_AliasAD_Username, DBNull.Value))
|
||||
cmd.Parameters.AddWithValue("@mit_teamId", If(m.mit_teamId, DBNull.Value))
|
||||
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
@@ -1577,7 +1578,7 @@ Public Class cMitarbeiter
|
||||
Dim hAuswahl As String = ""
|
||||
|
||||
Dim sql = "UPDATE tblMitarbeiter " &
|
||||
"SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username " &
|
||||
"SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_teamId=@mit_teamId " &
|
||||
" WHERE mit_id=@mit_id "
|
||||
|
||||
|
||||
@@ -1630,6 +1631,7 @@ Public Class cMitarbeiter
|
||||
cmd.Parameters.AddWithValue("@mit_TELOTEC_SB", If(m.mit_TELOTEC_SB, DBNull.Value))
|
||||
cmd.Parameters.AddWithValue("@mit_AliasAD_Domain", If(m.mit_AliasAD_Domain, DBNull.Value))
|
||||
cmd.Parameters.AddWithValue("@mit_AliasAD_Username", If(m.mit_AliasAD_Username, DBNull.Value))
|
||||
cmd.Parameters.AddWithValue("@mit_teamId", If(m.mit_teamId, DBNull.Value))
|
||||
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
|
||||
14
UID/usrctlProcedures.Designer.vb
generated
14
UID/usrctlProcedures.Designer.vb
generated
@@ -103,6 +103,7 @@ Partial Class usrctlProcedures
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button27 = New System.Windows.Forms.Button()
|
||||
Me.Button26 = New System.Windows.Forms.Button()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -831,7 +832,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.Location = New System.Drawing.Point(752, 102)
|
||||
Me.Label14.Location = New System.Drawing.Point(756, 156)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label14.TabIndex = 53
|
||||
@@ -859,6 +860,15 @@ Partial Class usrctlProcedures
|
||||
Me.Button27.Text = "UNISPED MDB Importieren"
|
||||
Me.Button27.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button26
|
||||
'
|
||||
Me.Button26.Location = New System.Drawing.Point(755, 104)
|
||||
Me.Button26.Name = "Button26"
|
||||
Me.Button26.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button26.TabIndex = 54
|
||||
Me.Button26.Text = "UNISPED EXCEL Importieren"
|
||||
Me.Button26.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrctlProcedures
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -904,6 +914,7 @@ Partial Class usrctlProcedures
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.Button18)
|
||||
Me.Controls.Add(Me.TabControl1)
|
||||
Me.Controls.Add(Me.Button26)
|
||||
Me.Name = "usrctlProcedures"
|
||||
Me.Size = New System.Drawing.Size(931, 546)
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
@@ -1000,4 +1011,5 @@ Partial Class usrctlProcedures
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents CheckBox4 As CheckBox
|
||||
Friend WithEvents Button27 As Button
|
||||
Friend WithEvents Button26 As Button
|
||||
End Class
|
||||
|
||||
@@ -123,4 +123,10 @@
|
||||
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -2750,6 +2750,241 @@ Public Class usrctlProcedures
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
|
||||
End Sub
|
||||
|
||||
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
|
||||
|
||||
|
||||
Dim StartZeit As Date = DateTime.Now
|
||||
Dim StopZeit As Date = DateTime.Now
|
||||
Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox4.Checked
|
||||
|
||||
Dim cnt = 1
|
||||
'dim listAVISO = New List(Of cAviso)
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim kdnr_tmp = ""
|
||||
Try
|
||||
|
||||
Dim fd As New OpenFileDialog
|
||||
fd.InitialDirectory = "\\10.4.3.17\VERAG gemeinsam\Excel Kundendaten\"
|
||||
|
||||
If fd.ShowDialog = DialogResult.OK Then
|
||||
If fd.FileName.ToUpper.EndsWith(".XLSX") Then
|
||||
|
||||
|
||||
Dim exclApp As Object 'as Application
|
||||
Dim Datei As Object 'as WorkBook
|
||||
Dim Blatt As Object 'as WorkSheet
|
||||
exclApp = CreateObject("Excel.Application")
|
||||
|
||||
' Dim nWeek As Integer
|
||||
' nWeek = DatePart(DateInterval.WeekOfYear, New Date(2004, 3, 22), _
|
||||
' FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
|
||||
|
||||
' exclApp.Caption = GuiId
|
||||
exclApp.CutCopyMode = False
|
||||
|
||||
|
||||
Datei = exclApp.Workbooks.Open(fd.FileName)
|
||||
Blatt = Datei.Worksheets(1)
|
||||
|
||||
Datei.Activate()
|
||||
|
||||
For index = 2 To Blatt.UsedRange.Rows.Count
|
||||
' MsgBox(Blatt.Range("C" & index).Value)
|
||||
'Dim valueX As String = ""
|
||||
Try
|
||||
'valueX = Blatt.Range("C" & index).Value.ToString
|
||||
'MsgBox(valueX)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim kdnr As Integer = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(2400000, 2499999) '+ 1
|
||||
|
||||
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
|
||||
If True Then 'Not KD.hasEntry Then
|
||||
' MsgBox((Blatt.Range("C" & index).Value.ToString))
|
||||
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
||||
'Dim KDE As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
|
||||
|
||||
|
||||
AD.Auswahl = "A"
|
||||
If Blatt.Range("E" & index).Value Is Nothing Then
|
||||
AD.Ordnungsbegriff = getTrimedString(Blatt.Range("C" & index).Value.ToString, 40)
|
||||
Else
|
||||
AD.Ordnungsbegriff = getTrimedString((Blatt.Range("C" & index).Value.ToString) & "; " & (Blatt.Range("E" & index).Value.ToString), 40)
|
||||
End If
|
||||
|
||||
AD.Name_1 = getTrimedString(Blatt.Range("C" & index).Value.ToString, 40)
|
||||
AD.Name_2 = Nothing
|
||||
|
||||
AD.Straße = Nothing
|
||||
AD.Ort = getTrimedString(Blatt.Range("E" & index).Value.ToString, 40)
|
||||
If AD.Ort = "" Then AD.Ort = "-"
|
||||
|
||||
Dim LandKz = ""
|
||||
Dim PLZ = ""
|
||||
Dim LandPlz = Blatt.Range("D" & index).Value.ToString
|
||||
If LandPlz.Contains("-") Then
|
||||
Dim sp = LandPlz.Split("-")
|
||||
LandKz = sp(0)
|
||||
PLZ = sp(1)
|
||||
'MsgBox(LandKz)
|
||||
If sp.Length > 2 Then PLZ &= sp(2)
|
||||
End If
|
||||
AD.PLZ = sql.isleernothing(getTrimedString(PLZ.Trim, 7))
|
||||
AD.LandKz = sql.isleernothing(getTrimedString(LandKz.Trim, 3))
|
||||
AD.Telefon = Nothing
|
||||
AD.Mobiltelefon = Nothing
|
||||
AD.Telefax = Nothing
|
||||
AD.E_Mail = Nothing
|
||||
AD.E_Mail2 = Nothing
|
||||
' AD. = row("Internet1")
|
||||
AD.Ansprechpartner = Nothing
|
||||
KD.Währungscode = "EUR" 'getTrimedStringACCES(row("Standard FakturenWährung"), 3)
|
||||
KD.Zahlungsziel = Nothing
|
||||
' Offerte ??
|
||||
|
||||
Dim Allg = ""
|
||||
|
||||
|
||||
If Blatt.Range("A" & index).value IsNot Nothing Then Allg &= "FREMDKUNDE: " & Blatt.Range("A" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("B" & index).value IsNot Nothing Then Allg &= "ABFERTIGUNGSART: " & Blatt.Range("B" & index).Value.ToString & vbNewLine & vbNewLine
|
||||
|
||||
'MsgBox((Blatt.Range("H" & index) Is Nothing))
|
||||
'MsgBox((Blatt.Range("H" & index).value Is Nothing))
|
||||
|
||||
If Blatt.Range("G" & index).value IsNot Nothing Then Allg &= "F-Beleg: " & Blatt.Range("G" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("H" & index).value IsNot Nothing Then Allg &= "EUST-Konto: " & Blatt.Range("H" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("I" & index).value IsNot Nothing Then Allg &= "ZOLL-Konto: " & Blatt.Range("I" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("J" & index).value IsNot Nothing Then Allg &= "Zollamt: " & Blatt.Range("J" & index).Value.ToString & vbNewLine
|
||||
|
||||
If Blatt.Range("K" & index).value IsNot Nothing Then
|
||||
If Allg <> "" Then Allg &= vbNewLine & "____________________________________________________________" & vbNewLine
|
||||
Allg &= Blatt.Range("K" & index).Value.ToString & vbNewLine
|
||||
End If
|
||||
If Blatt.Range("L" & index).value IsNot Nothing Then Allg &= Blatt.Range("L" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("M" & index).value IsNot Nothing Then Allg &= Blatt.Range("M" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("N" & index).value IsNot Nothing Then Allg &= Blatt.Range("N" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("O" & index).value IsNot Nothing Then Allg &= Blatt.Range("O" & index).Value.ToString & vbNewLine
|
||||
If Blatt.Range("P" & index).value IsNot Nothing Then Allg &= Blatt.Range("P" & index).Value.ToString & vbNewLine
|
||||
|
||||
|
||||
KD.Besonderheiten = isleernothing(Allg.Trim)
|
||||
|
||||
Dim obtmp = getTrimedStringACCES(AD.Ordnungsbegriff, 43)
|
||||
If AD.doesOrdnungsbegriffExist Then
|
||||
AD.Ordnungsbegriff = obtmp & " (UNISPED)"
|
||||
End If
|
||||
If AD.doesOrdnungsbegriffExist Then
|
||||
AD.Ordnungsbegriff = obtmp & " (UNISPED2)"
|
||||
End If
|
||||
If AD.doesOrdnungsbegriffExist Then
|
||||
AD.Ordnungsbegriff = obtmp & " (UNISPED3)"
|
||||
End If
|
||||
If AD.doesOrdnungsbegriffExist Then
|
||||
AD.Ordnungsbegriff = obtmp & " (UNISPED4)"
|
||||
End If
|
||||
|
||||
|
||||
If Blatt.Range("F" & index).value IsNot Nothing Then
|
||||
If Blatt.Range("F" & index).value.ToString.Length > 17 Then
|
||||
If Blatt.Range("F" & index).value IsNot Nothing Then Allg &= "Zoll-Nr.: " & Blatt.Range("F" & index).Value.ToString & vbNewLine
|
||||
Else
|
||||
KD.EORITIN = Blatt.Range("F" & index).Value.ToString.Replace(" ", "").Replace("/", "").Replace("-", "")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
KD.KundenNrZentrale = KD.KundenNr
|
||||
|
||||
KD.FilialenNr = 5601
|
||||
If KD.Sachbearbeiter = "" Then KD.Sachbearbeiter = "AUTO"
|
||||
KD.Währungscode = "EUR"
|
||||
KD.Eingegeben_am = Now.ToShortDateString
|
||||
|
||||
' AD.Ordnungsbegriff = getTrimedString(AD.Name_1 & "; " & AD.Ort, 50)
|
||||
If AD.Sachbearbeiter = "" Then AD.Sachbearbeiter = "AUTO"
|
||||
AD.Eingegeben_am = Now.ToShortDateString
|
||||
|
||||
AD.LandKz = If(isleernothing(cProgramFunctions.getISO1Land(AD.LandKz)), AD.LandKz)
|
||||
|
||||
AD.Rechnungsdruck = True
|
||||
If KD.EORITIN = "" Then KD.EORITIN = Nothing
|
||||
KD.Vorlageprovision = 0.01
|
||||
KD.Kreditaufwendungen = 0.02
|
||||
KD.Bankspesen = 0
|
||||
KD.SVS = True
|
||||
KD.Bankspesen_Mindestbetrag = 0
|
||||
|
||||
KD.Sammelrechnung = 0
|
||||
KD.Steuerschlüssel = 10
|
||||
KD.Kreditlimit = 2600
|
||||
KD.Überwachungskunde = 0
|
||||
KD.Abfertigungsverbot = 0
|
||||
KD.Rechtsanwalt = 0
|
||||
KD.Euroeinführung = CDate("01.01.2002")
|
||||
KD.UStV_Summe3470BetragEUR = 0
|
||||
KD.UStV_SummeErstattungsbetragEUR = 0
|
||||
KD.UStV_SummeVorschaubetragEUR = 0
|
||||
KD.UStV_SummeVorschaubetragEUR_IDS = 0
|
||||
KD.UStV_SummeVorschaubetragEUR_VERAG = 0
|
||||
KD.UStV_SummeUmsatzsteuerbetragEUR = 0
|
||||
KD.UStV_SummeVZBetragEUR = 0
|
||||
KD.Fiskal_Aktiv = 0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If AD.SAVE() AndAlso KD.SAVE() Then ' AndAlso KDE.SAVE() Then
|
||||
TextBox10.Text &= AD.AdressenNr & " " & AD.Ordnungsbegriff & vbNewLine
|
||||
Else
|
||||
MsgBox("FEHLER: " & index)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Item(0) = row(0)
|
||||
'Item(1) = row(1)
|
||||
'Dim NextListItem As New ListViewItem(Item)
|
||||
'ListView1.Items.Add(NextListItem)
|
||||
Label14.Text = cnt & "/" & Blatt.UsedRange.Rows.Count
|
||||
cnt += 1
|
||||
Me.Refresh()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message & ex.StackTrace)
|
||||
Finally
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
'Private Sub Button26_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Reference in New Issue
Block a user