neu
This commit is contained in:
@@ -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