edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-06 16:31:56 +01:00
parent e2c05a5ea3
commit d4dfcd1744
46 changed files with 3412 additions and 678 deletions
Download Patch File Download Diff File Expand all files Collapse all files

450
UID/usrctlProcedures.vb
View File

@@ -14,6 +14,7 @@ Imports System.Net
Imports System.Text
Imports System.Xml.Serialization
Imports System.Xml
Imports System.Data.OleDb
'Imports Microsoft.Office.Interop
@@ -345,7 +346,7 @@ Public Class usrctlProcedures
Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Bold)
' Draw the text
gfx.DrawString("Hello, World!", font, XBrushes.Black, _
gfx.DrawString("Hello, World!", font, XBrushes.Black,
New XRect(0, 0, page.Width.Point, page.Height.Point), XStringFormats.Center)
' Save the document...
@@ -699,8 +700,8 @@ Public Class usrctlProcedures
WordDoc = WordApp.Documents.Open("C:\Users\DEVELOPER1\Desktop\test\Erstattungsschreiben DE.doc")
WordDoc.MailMerge.MainDocumentType = Word.WdMailMergeMainDocType.wdFormLetters
WordDoc.MailMerge.OpenDataSource(Name:="", _
Connection:="DSN=dbConn_DEVELOPER;DATABASE=VERAG;uid=sa;pwd=BmWr501956;", _
WordDoc.MailMerge.OpenDataSource(Name:="",
Connection:="DSN=dbConn_DEVELOPER;DATABASE=VERAG;uid=sa;pwd=BmWr501956;",
SQLStatement:="SELECT * FROM vwUstRueckerstattung ", SubType:=Microsoft.Office.Interop.Word.WdMergeSubType.wdMergeSubTypeWord2000)
'Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=VERAG;uid=sa;Password=BmWr501956;
@@ -939,7 +940,7 @@ Public Class usrctlProcedures
' Copy the part of the original bitmap that we want
' into the bitmap.
Dim gr As Graphics = Graphics.FromImage(bm2)
gr.DrawImage(bm, 0, 0, New Rectangle(dx, dy, wid, hgt), _
gr.DrawImage(bm, 0, 0, New Rectangle(dx, dy, wid, hgt),
GraphicsUnit.Pixel)
Return bm2
End Function
@@ -1098,7 +1099,7 @@ Public Class usrctlProcedures
'' str(0) = (Convert.ToBase64String(System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample.pdf")))
' str(1) = (Convert.ToBase64String(System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample2.pdf")))
' Dim strt As New ArrayOfString()
' Dim xml_serializer As New XmlSerializer(GetType(List(Of Files)))
@@ -1181,7 +1182,7 @@ Public Class usrctlProcedures
'CHANGE HERE use the real path of the pdf physical path here.
'bline = System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample.pdf")
str = (Convert.ToBase64String(System.IO.File.ReadAllBytes("C:\Users\DEVELOPER1\Desktop\sample.pdf")))
xml = "<?xml version=""1.0"" encoding=""utf-8""?> " &
" <soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " &
" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" " &
@@ -1195,7 +1196,7 @@ Public Class usrctlProcedures
' string_writer.Close()
MsgBox(xml)
Dim data As String = Xml
Dim data As String = xml
Dim url As String = "http://localhost:64588/wsGetBrgData.asmx"
Dim responsestring As String = ""
@@ -1204,7 +1205,7 @@ Public Class usrctlProcedures
Dim proxyaddress As String
Dim myProxy As New WebProxy()
Dim encoding As New ASCIIEncoding
Dim buffer() As Byte = Encoding.GetBytes(Xml)
Dim buffer() As Byte = encoding.GetBytes(xml)
Dim response As String
myReq.AllowWriteStreamBuffering = False
@@ -1265,7 +1266,7 @@ Public Class usrctlProcedures
Dim cn As New SqlConnection()
cn.ConnectionString = My.Resources.connStringFMZOLL
cn.Open()
Using cmd As New SqlCommand(sql, cn)
Using cmd As New SqlCommand(sql, cn)
cmd.Parameters.AddWithValue("@kdnr", s.Trim)
Try
cmd.ExecuteNonQuery()
@@ -1337,7 +1338,7 @@ Public Class usrctlProcedures
'exec atlas.dbo.kundenstamm @ndl = 'SUB';
Private Function GetTimeInterval(ByVal nSeks As Long) As String
Private Function GetTimeInterval(ByVal nSeks As Long) As String
Dim h As Long, m As Long
Dim sInterv As String
@@ -1377,9 +1378,9 @@ Public Class usrctlProcedures
Public Sub SpeichernVermerk(NEWAVISOID As Integer, ByVal r As DataRow)
Dim hAuswahl As String
hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung)"
Dim sql = hAuswahl
hAuswahl = "INSERT INTO Vermerke " &
"(AvisoID,VermerkArt,SendungID, Datum, Mitarbeiter, Hinweis_Vermerk, VermerkeCode,MitarbeiterId,Beschreibung) VALUES (@AvisoID,@VermerkArt, @SendungID, @Datum, @Mitarbeiter, @Hinweis_Vermerk, @VermerkeCode,@MitarbeiterId,@Beschreibung)"
Dim sql = hAuswahl
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand(sql, conn)
@@ -1406,13 +1407,13 @@ Public Class usrctlProcedures
Public Function SpeichernAviso(ByVal r As DataRow) As Integer
Dim hAuswahl As String
Dim id As Integer = -1
'Neuanlage
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA); SELECT CAST(scope_identity() AS int);"
'Neuanlage
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA); SELECT CAST(scope_identity() AS int);"
Dim sql = hAuswahl
Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionAVISO
Using cmd As New SqlCommand(sql, conn)
@@ -1542,10 +1543,10 @@ Public Class usrctlProcedures
End Try
End Function
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTESTSYSTEMATLAS.Checked
@@ -1568,7 +1569,7 @@ Public Class usrctlProcedures
KD_AKTO.SAVE()
End If
If r("15 - Konto") IsNot DBNull.Value Then
Dim KD_AKTO As New VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten(r("Kundennummer"), 15)
KD_AKTO.kdAkto_hauptzollamt = getHZA(r("15 - Konto"))
@@ -1651,14 +1652,14 @@ Public Class usrctlProcedures
Dim cnt = 1
'dim listAVISO = New List(Of cAviso)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim Excel1 As New Microsoft.Office.Interop.Excel.Application
' Dim txt As String
Try
' MsgBox("C:\Users\DEVELOPER1\Desktop\HUGOtest.xlsx")
Excel1.Workbooks.Open("C:\Users\DEVELOPER1\Desktop\HUGO Nicht importiert - Korrigierte KZ2.xlsx")
'Excel1.Visible = True ....wers braucht ?
' For i = 2 To 5
' MsgBox("A" & i & ":K" & i & "")
Dim cells = Excel1.Range("A2:K6")
@@ -1683,9 +1684,9 @@ Public Class usrctlProcedures
Finally
Excel1.Application.Quit()
End Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
@@ -1779,7 +1780,7 @@ Public Class usrctlProcedures
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(r("Kundennummer"))
If True Then
@@ -1916,7 +1917,7 @@ Public Class usrctlProcedures
Next
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
MsgBox(Now.ToString("ddd"))
MsgBox(Now.ToString("ddd", New System.Globalization.CultureInfo("de-DE")).ToUpper)
@@ -2099,7 +2100,7 @@ Public Class usrctlProcedures
If KD.Besonderheiten <> getTrimedString(currentRow(22), 2000) Then TextBox12.Text &= kdnr & vbNewLine
End If
If cnt Mod 10 = 0 Then
If cnt Mod 10 = 0 Then
Application.DoEvents()
Label10.Text = (cnt + 1)
@@ -2108,8 +2109,8 @@ Public Class usrctlProcedures
Else
'MsgBox(currentRow(2))
End If
End If
End If
End If
'For Each currentField In currentRow
cnt += 1
@@ -2133,6 +2134,355 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.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 = 0
'dim listAVISO = New List(Of cAviso)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim kdnr_tmp = ""
Try
Dim fd As New OpenFileDialog
If fd.ShowDialog = DialogResult.OK Then
If fd.FileName.ToUpper.EndsWith(".MDB") Then
'Dim Datenbank As OleDbConnection
'Dim DaHeadertest As OleDbDataAdapter
'Dim DsHeadertest As DataSet
'Datenbank = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fd.FileName)
'DaHeadertest = New OleDbDataAdapter("show tables", Datenbank)
'DsHeadertest = New DataSet
'DaHeadertest.Fill(DsHeadertest)
'For Each dr As System.Data.DataRow In DsHeadertest.Tables("KundenKartei").Rows
' MessageBox.Show(dr(1))
'Next
'Exit Sub
Dim Datenbank As OleDbConnection
Dim DaHeadertest As OleDbDataAdapter
Dim DsHeadertest As DataSet
' MsgBox("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
' Datenbank = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
Datenbank = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & fd.FileName)
' cGlobal.ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & pfadDatei
'DaHeadertest = New OleDbDataAdapter("show tables", Datenbank)
'DsHeadertest = New DataSet
'DaHeadertest.Fill(DsHeadertest)
'For Each dr As System.Data.DataRow In DsHeadertest.Tables("Kunden Kartei").Rows
' MessageBox.Show(dr(1))
'Next
Dim query = "SELECT * FROM KundenKartei"
Dim Table_ = "KundenKartei"
Dim ds As New DataSet
Dim cnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & fd.FileName)
cnn.Open()
Dim cmd As New OleDbCommand(query, cnn)
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, Table_)
cnn.Close()
Dim t1 As DataTable = ds.Tables(Table_)
Dim row As DataRow
Dim Item(2) As String
For Each row In t1.Rows
Dim kdnr As Integer = 2000000
If IsNumeric(row("Debitorennr")) Then
kdnr += CInt(row("Debitorennr"))
Else
kdnr += CInt(row("Kundennummer"))
End If
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
If Not KD.hasEntry Then
' MsgBox(kdnr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
Dim KDE As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
AD.Auswahl = If(CBool(row("gelöscht")), "I", "A")
AD.Ordnungsbegriff = row("Kundencode").ToString.ToUpper
AD.Name_1 = getTrimedStringACCES(row("Name"), 40)
AD.Name_2 = isleernothing(getTrimedStringACCES(row("Gesellschaft"), 40))
If AD.Name_1 = "" Then AD.Name_1 = AD.Ordnungsbegriff
AD.Straße = isleernothing(getTrimedStringACCES(row("Straße"), 40))
AD.Ort = isleernothing(getTrimedStringACCES(row("Ort"), 40))
AD.PLZ = isleernothing(getTrimedStringACCES(row("PLZ"), 7))
AD.LandKz = isleernothing(getTrimedStringACCES(row("Land"), 3))
AD.Telefon = isleernothing(getTrimedStringACCES(row("Telefonnr"), 20))
AD.Mobiltelefon = isleernothing(getTrimedStringACCES(row("Mobil"), 20))
AD.Telefax = isleernothing(getTrimedStringACCES(row("Faxnr"), 20))
AD.E_Mail = isleernothing(getTrimedStringACCES(row("Email1"), 40).ToString.Replace("mailto:", "").Replace("#", ""))
AD.E_Mail2 = isleernothing(getTrimedStringACCES(row("Email2"), 40).ToString.Replace("mailto:", "").Replace("#", ""))
' AD. = row("Internet1")
AD.Ansprechpartner = isleernothing(getTrimedStringACCES(row("Ansprechpartner"), 40))
KD.Währungscode = "EUR" 'getTrimedStringACCES(row("Standard FakturenWährung"), 3)
KD.Zahlungsziel = getTrimedStringACCES(row("Zahlungsziel"), 3)
' Offerte ??
Dim Allg = ""
If getTrimedStringACCES(row("ÖVZ"), 9999) <> "" Then Allg &= "Offert ÖVZ: " & getTrimedStringACCESEUR(row("ÖVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("ÖVZ_Fiskal"), 9999) <> "" Then Allg &= "Offert ÖVZ_Fiskal: " & getTrimedStringACCESEUR(row("ÖVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("DVZ"), 9999) <> "" Then Allg &= "Offert DVZ: " & getTrimedStringACCESEUR(row("DVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("DVZ_Fiskal"), 9999) <> "" Then Allg &= "Offert DVZ_Fiskal: " & getTrimedStringACCESEUR(row("DVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("T1"), 9999) <> "" Then Allg &= "Offert T1: " & getTrimedStringACCESEUR(row("T1"), 99999) & vbNewLine
If getTrimedStringACCES(row("AE"), 9999) <> "" Then Allg &= "Offert AE: " & getTrimedStringACCESEUR(row("AE"), 99999) & vbNewLine
If getTrimedStringACCES(row("AE_ATR"), 9999) <> "" Then Allg &= "Offert AE_ATR: " & getTrimedStringACCESEUR(row("AE_ATR"), 99999) & vbNewLine
If getTrimedStringACCES(row("eZoll_Zuschlag"), 9999) <> "" Then Allg &= "Offert eZoll_Zuschlag: " & getTrimedStringACCESEUR(row("eZoll_Zuschlag"), 99999) & vbNewLine
If getTrimedStringACCES(row("Atlas_Zuschlag"), 9999) <> "" Then Allg &= "Offert Atlas_Zuschlag: " & getTrimedStringACCESEUR(row("Atlas_Zuschlag"), 99999) & vbNewLine
If getTrimedStringACCES(row("TNR_Zuschlag"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag: " & getTrimedStringACCESEUR(row("TNR_Zuschlag"), 99999) & vbNewLine
If getTrimedStringACCES(row("TNR_Zuschlag_Hinweis"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag_Hinweis: " & getTrimedStringACCESEUR(row("TNR_Zuschlag_Hinweis"), 99999) & vbNewLine
If getTrimedStringACCES(row("TNR_Zuschlag_Hinweis"), 9999) <> "" Then Allg &= "Offert TNR_Zuschlag_Hinweis: " & getTrimedStringACCESEUR(row("TNR_Zuschlag_Hinweis"), 99999) & vbNewLine
If getTrimedStringACCES(row("Porti"), 9999) <> "" Then Allg &= "Offert Porti: " & getTrimedStringACCESEUR(row("Porti"), 99999) & vbNewLine
If getTrimedStringACCES(row("SKR"), 9999) <> "" Then Allg &= "Offert SKR: " & getTrimedStringACCESEUR(row("SKR"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vorlage"), 9999) <> "" Then Allg &= "Offert Vorlage: " & getTrimedStringACCESEUR(row("Vorlage"), 99999) & vbNewLine
If getTrimedStringACCES(row("Bargeldbeistellung"), 9999) <> "" Then Allg &= "Offert Bargeldbeistellung: " & getTrimedStringACCESEUR(row("Bargeldbeistellung"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vorlage"), 9999) <> "" Then Allg &= "Offert Vorlage: " & getTrimedStringACCESEUR(row("Vorlage"), 99999) & vbNewLine
If getTrimedStringACCES(row("Abrechnungssätze_Anmerkungen"), 9999) <> "" Then Allg &= "Abrechnung: " & getTrimedStringACCES(row("Abrechnungssätze_Anmerkungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Abfertigungsort"), 9999) <> "" Then Allg &= "Abfertigungsort: " & getTrimedStringACCES(row("Abfertigungsort"), 99999) & vbNewLine
If getTrimedStringACCES(row("Handelsregisterauszug"), 9999) <> "" Then Allg &= "Handelsregisterauszug: " & getTrimedStringACCES(row("Handelsregisterauszug"), 99999) & vbNewLine
If getTrimedStringACCES(row("Passkopie"), 9999) <> "" Then Allg &= "Passkopie: " & getTrimedStringACCES(row("Passkopie"), 99999) & vbNewLine
If (IsNumeric(getTrimedStringACCES(row("Creditreform_Rating"), 3))) Then KD.Bonität = getTrimedStringACCES(row("Creditreform_Rating"), 3)
If (IsDate(getTrimedStringACCES(row("Creditreform_Abfrage_Datum"), 99999))) Then KD.Bonitätsdatum = getTrimedStringACCES(row("Creditreform_Abfrage_Datum"), 99999)
If getTrimedStringACCES(row("Creditreform_Zahlungsziel"), 9999) <> "" Then Allg &= "Creditreform_Zahlungsziel: " & getTrimedStringACCES(row("Creditreform_Zahlungsziel"), 99999) & vbNewLine
If getTrimedStringACCES(row("Creditreform_Anmerkung"), 9999) <> "" Then Allg &= "Creditreform_Anmerkung: " & getTrimedStringACCES(row("Creditreform_Anmerkung"), 99999) & vbNewLine
If IsNumeric(getTrimedStringACCES(row("Creditreform_Höchstkredit"), 9999)) Then KD.Höchstkredit = CDbl(getTrimedStringACCES(row("Creditreform_Höchstkredit"), 9999))
If getTrimedStringACCES(row("UmsatzsteuerID"), 9999).Replace(" ", "").Length > 4 Then
Dim ustTmp = getTrimedStringACCES(row("UmsatzsteuerID"), 9999).Replace(" ", "")
Dim UST_Land = ustTmp.Substring(0, 2)
Dim UST_NR = ustTmp.Substring(2)
AD.UstIdKz = UST_Land
AD.UstIdNr = UST_NR
End If
If AD.doesOrdnungsbegriffExist Then
AD.Ordnungsbegriff = getTrimedStringACCES(AD.Ordnungsbegriff, 43) & " (UNISPED)"
End If
KD.Zollnummer = isleernothing(getTrimedStringACCES(getTrimedStringACCES(row("ZollNr"), 99).Replace(" ", ""), 7))
KD.EORITIN = isleernothing(getTrimedStringACCES(getTrimedStringACCES(row("EORINr"), 99).Replace(" ", ""), 17))
If getTrimedStringACCES(row("Abgabenkonto"), 9999) <> "" Then Allg &= "Abgabenkonto: " & getTrimedStringACCES(row("Abgabenkonto"), 99999) & vbNewLine
If getTrimedStringACCES(row("Aufschubkonto_EUST"), 9999) <> "" Then Allg &= "Aufschub-EUST: " & getTrimedStringACCES(row("Aufschubkonto_EUST"), 99999) & vbNewLine
If getTrimedStringACCES(row("Aufschubkonto_ZOLL"), 9999) <> "" Then Allg &= "Aufschub-ZOLL: " & getTrimedStringACCES(row("Aufschubkonto_ZOLL"), 99999) & vbNewLine
If CBool(row("Aufschub_BIN")) Then Allg &= "Aufschub-BIN: JA" & vbNewLine
AD.Steuernummer = isleernothing(getTrimedStringACCES(row("Steuernr_AT"), 20))
If getTrimedStringACCES(row("Steuernr_DE"), 9999) <> "" Then Allg &= "Steuernummer-DE: " & getTrimedStringACCES(row("Steuernr_DE"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_ÖVZ"), 9999) <> "" Then Allg &= "Vollmacht_ÖVZ: " & getTrimedStringACCES(row("Vollmacht_ÖVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_ÖVZ_Fiskal"), 9999) <> "" Then Allg &= "Vollmacht_ÖVZ_Fiskal: " & getTrimedStringACCES(row("Vollmacht_ÖVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("Erwerbssteuer"), 9999) <> "" Then Allg &= "Erwerbssteuer: " & getTrimedStringACCES(row("Erwerbssteuer"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_DVZ"), 9999) <> "" Then Allg &= "Vollmacht_DVZ: " & getTrimedStringACCES(row("Vollmacht_DVZ"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_DVZ_Fiskal"), 9999) <> "" Then Allg &= "Vollmacht_DVZ_Fiskal: " & getTrimedStringACCES(row("Vollmacht_DVZ_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_AE"), 9999) <> "" Then Allg &= "Vollmacht_AE: " & getTrimedStringACCES(row("Vollmacht_AE"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmacht_AE_ATR"), 9999) <> "" Then Allg &= "Vollmacht_AE_ATR: " & getTrimedStringACCES(row("Vollmacht_AE_ATR"), 99999) & vbNewLine
If getTrimedStringACCES(row("Vollmachten_Anmerkungen"), 9999) <> "" Then Allg &= "Vollmachten_Anmerkungen: " & getTrimedStringACCES(row("Vollmachten_Anmerkungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Zoll_Anmerkungen"), 9999) <> "" Then Allg &= "Zoll_Anmerkungen: " & getTrimedStringACCES(row("Zoll_Anmerkungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Zoll_Anmerkungen_Fiskal"), 9999) <> "" Then Allg &= "Zoll_Anmerkungen_Fiskal: " & getTrimedStringACCES(row("Zoll_Anmerkungen_Fiskal"), 99999) & vbNewLine
If getTrimedStringACCES(row("Fiskal_Anmerkungen"), 9999) <> "" Then Allg &= "Fiskal_Anmerkungen: " & getTrimedStringACCES(row("Fiskal_Anmerkungen"), 99999) & vbNewLine
KD.Abfertigungsverbot = CBool(row("Arbeitsverbot"))
KD.Abfertigungsverbot_Grund = isleernothing((getTrimedStringACCES(row("Arbeitsverbot_Anmerkung"), 9999) & vbNewLine & getTrimedStringACCES(row("Anmerkungen_einblenden"), 9999)).Trim)
If CBool(row("Mahnsperre")) Then Allg &= "Mahnsperre: JA" & vbNewLine
If CBool(row("Rechnung_per_Email")) Then Allg &= "Rechnung_per_Email: JA" & vbNewLine
' Rechnung_per_Email
If getTrimedStringACCES(row("Fiskal_Email_Monatsauswertung_Versand"), 9999) <> "" Then Allg &= "Fiskal_Email_Monatsauswertung_Versand: " & getTrimedStringACCES(row("Fiskal_Email_Monatsauswertung_Versand"), 99999) & vbNewLine
If getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 9999) <> "" Then Allg &= "Fiskal_Ansprechpartner: " & getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 99999) & vbNewLine
If getTrimedStringACCES(row("eZoll_AdressID"), 9999) <> "" Then Allg &= "eZoll_AdressID: " & getTrimedStringACCES(row("eZoll_AdressID"), 99999) & vbNewLine
If getTrimedStringACCES(row("Geschäftszweig"), 9999) <> "" Then Allg &= "Geschäftszweig: " & getTrimedStringACCES(row("Geschäftszweig"), 99999) & vbNewLine
If CBool(row("Rechnung_per_Email")) Then Allg &= "Rechnung_per_Email: JA" & vbNewLine
' If getTrimedStringACCES(row("Rechnung_per_Email"), 9999) <> "" Then Allg &= "Rechnung_per_Email: " & getTrimedStringACCES(row("Rechnung_per_Email"), 99999) & vbNewLine
If getTrimedStringACCES(row("Email_Rechnungsversand"), 9999) <> "" Then Allg &= "Email_Rechnungsversand: " & getTrimedStringACCES(row("Email_Rechnungsversand"), 99999) & vbNewLine
If getTrimedStringACCES(row("Steuerberater"), 9999) <> "" Then Allg &= "Steuerberater: " & getTrimedStringACCES(row("Steuerberater"), 99999) & vbNewLine
If getTrimedStringACCES(row("Verbundenheit"), 9999) <> "" Then Allg &= "Verbundenheit: " & getTrimedStringACCES(row("Verbundenheit"), 99999) & vbNewLine
If CBool(row("Unternehmerbescheinigung")) Then Allg &= "Unternehmerbescheinigung: JA" & vbNewLine
If getTrimedStringACCES(row("Unternehmerbescheinigung_Anmerkung"), 9999) <> "" Then Allg &= "Unternehmerbescheinigung_Anmerkung: " & getTrimedStringACCES(row("Unternehmerbescheinigung_Anmerkung"), 99999) & vbNewLine
If getTrimedStringACCES(row("Zahlungsbedingungen"), 9999) <> "" Then Allg &= "Zahlungsbedingungen: " & getTrimedStringACCES(row("Zahlungsbedingungen"), 99999) & vbNewLine
If getTrimedStringACCES(row("Lieferbedingungen"), 9999) <> "" Then Allg &= "Lieferbedingungen: " & getTrimedStringACCES(row("Lieferbedingungen"), 99999) & vbNewLine
' If getTrimedStringACCES(row("KDE"), 9999) <> "" Then Allg &= "Anmerkungen_Warnhinweis: " & getTrimedStringACCES(row("Anmerkungen_Warnhinweis"), 99999) & vbNewLine
KDE.Anmerkungen_Warnhinweis = getTrimedStringACCES(row("Anmerkungen_Warnhinweis"), 9999)
If CBool(row("Post1")) Then Allg &= "Post1: JA" & vbNewLine
' AD.Eingegeben_am = CDate(row("erstellt"))
If IsDate(row("zuletzt_geändert")) Then AD.Geändert_am = CDate(row("zuletzt_geändert"))
' KD.Eingegeben_am = CDate(row("erstellt"))
If IsDate(row("zuletzt_geändert")) Then KD.Geändert_am = CDate(row("zuletzt_geändert"))
AD.Sachbearbeiter = If(getTrimedStringACCES(row("User_zuletzt_geändert"), 99999) <> "", getTrimedStringACCES(row("User_zuletzt_geändert"), 99999), getTrimedStringACCES(row("User"), 99999))
KD.Sachbearbeiter = If(getTrimedStringACCES(row("User_zuletzt_geändert"), 99999) <> "", getTrimedStringACCES(row("User_zuletzt_geändert"), 99999), getTrimedStringACCES(row("User"), 99999))
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 = isleernothing(cProgramFunctions.getISO1Land(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 Allg <> "" Then Allg &= vbNewLine & "____________________________________________________________" & vbNewLine
KD.Besonderheiten = isleernothing((Allg & getTrimedStringACCES(row("Sonstiges"), 99999)).Trim)
Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte()
KDKont.kkd_KundenNr = kdnr
KDKont.kkd_kkaId = 10
KDKont.kkd_kkaBez = "Fiskal"
KDKont.kkd_Tel = isleernothing(getTrimedStringACCES(row("Fiskal_Telefon"), 40))
KDKont.kkd_Email = isleernothing(getTrimedStringACCES(row("Fiskal_Email1"), 40) & ";" & getTrimedStringACCES(row("Fiskal_Email2"), 40) & ";" & getTrimedStringACCES(row("Fiskal_Email3"), 40))
' If (KDKont.kkd_Email.replace(";;", "") = "") Then KDKont.kkd_Email = ""
KDKont.kkd_Email = KDKont.kkd_Email.replace(";;", ";")
KDKont.kkd_Email = isleernothing(KDKont.kkd_Email)
KDKont.kkd_Fax = isleernothing(getTrimedStringACCES(row("Fiskal_Faxnr"), 40))
KDKont.kkd_Mobil = isleernothing(getTrimedStringACCES(row("Fiskal_Mobil"), 40))
KDKont.kkd_AnsprechpartnerVorname = isleernothing(getTrimedStringACCES(row("Fiskal_Ansprechpartner"), 40))
If AD.SAVE() AndAlso KD.SAVE() AndAlso KDE.SAVE() Then
VERAG_PROG_ALLGEMEIN.cKundenKontakte.DELETE_ALL_KONTAKTE(kdnr) 'alle Löschen!
KDKont.SAVE()
If getTrimedStringACCES(row("Email3"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("Email3"), 50).ToString.Replace("mailto:", "").Replace("#", ""), "Email3")
If getTrimedStringACCES(row("EmailABD1"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD1"), 30), "ABD01")
If getTrimedStringACCES(row("EmailABD2"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD2"), 30), "ABD02")
If getTrimedStringACCES(row("EmailABD3"), 9999) <> "" Then insertKontakt(kdnr, getTrimedStringACCES(row("EmailABD3"), 30), "ABD03")
TextBox10.Text &= AD.AdressenNr & " " & AD.Ordnungsbegriff & vbNewLine
Else
MsgBox("FEHLER: " & kdnr)
End If
' AD.XXXXXXXXX = getTrimedStringACCES(row("XXXXXXXXXXXXXXXXXX"), 99999)
End If
'Item(0) = row(0)
'Item(1) = row(1)
'Dim NextListItem As New ListViewItem(Item)
'ListView1.Items.Add(NextListItem)
cnt += 1
Label14.Text = cnt
Me.Refresh()
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
Sub insertKontakt(kdnr, kkd_Email, kkd_AnsprechpartnerVorname)
Dim KDKont As New VERAG_PROG_ALLGEMEIN.cKundenKontakte()
KDKont.kkd_KundenNr = kdnr
KDKont.kkd_kkaId = 1
KDKont.kkd_kkaBez = "Allgemein"
KDKont.kkd_Email = kkd_Email
KDKont.kkd_AnsprechpartnerVorname = KDKont.kkd_AnsprechpartnerVorname
KDKont.SAVE()
End Sub
Function getTrimedString(s As String, l As Integer) As String
Try
If s Is Nothing Then Return ""
@@ -2146,6 +2496,42 @@ Public Class usrctlProcedures
End Try
Return ""
End Function
Function getTrimedStringACCES(s As Object, l As Integer) As String
Try
If s Is Nothing Then Return ""
If s Is DBNull.Value Then Return ""
If s.ToString.Length > l Then
Return s.Substring(0, l)
End If
Return s
Catch ex As Exception
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Function getTrimedStringACCESEUR(s As Object, l As Integer) As String
Try
If s Is Nothing Then Return ""
If s Is DBNull.Value Then Return ""
If s.ToString.Length > l Then
Return s.Substring(0, l)
End If
If IsNumeric(s) Then
Return CDbl(s).ToString("C2")
End If
Return s
Catch ex As Exception
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
Dim StartZeit As Date = DateTime.Now
@@ -2364,6 +2750,8 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d)