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

div. Punkte

Browse Source
This commit is contained in:
d.breimaier
2025-10-14 17:38:23 +02:00
parent cd81ff6d90
commit e8ade89a6b
14 changed files with 789 additions and 325 deletions
Download Patch File Download Diff File Expand all files Collapse all files

236
SDL/kunden/frmGoMautBoxen_Bestellung.vb
View File

@@ -1,5 +1,4 @@
Imports System.DirectoryServices.ActiveDirectory
Imports com.sun.tools.corba.se.idl.constExpr

Imports VERAG_PROG_ALLGEMEIN
Public Class frmGoMautBoxen_Bestellung
@@ -9,11 +8,9 @@ Public Class frmGoMautBoxen_Bestellung
Dim adresse As cAdressen
Dim kundeErw As cKundenErweitert
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As New DataTable
Public addnew = False
Public WithEvents s As New cBinding("SDL") 'fürs Binding
Dim changed As Boolean = False
Dim ready As Boolean = False
@@ -42,7 +39,7 @@ Public Class frmGoMautBoxen_Bestellung
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnNew.Click
lblWarning.Text = ""
@@ -57,25 +54,72 @@ Public Class frmGoMautBoxen_Bestellung
Exit Sub
End If
Dim licensePlate As String = txtLicensePlate.Text
btnOK.DialogResult = DialogResult.OK
If Not String.IsNullOrEmpty(licensePlate) Then
For i As Integer = 0 To licensePlate.Length - 1
Dim ch As Char = licensePlate(i)
If Not (Char.IsDigit(ch) OrElse (ch >= "A"c AndAlso ch <= "Z"c) OrElse ch = " "c OrElse ch = "-"c) Then
MessageBox.Show("Ungültiges Zeichen: " & ch, "Eingabeprüfung", MessageBoxButtons.OK, MessageBoxIcon.Information)
btnNew.DialogResult = DialogResult.None
Exit Sub
Exit For
End If
Next
End If
Dim cardNum As String = cbxKK.SelectedValue
If Not String.IsNullOrEmpty(cardNum) Then
Dim mainPart As String = cardNum.Substring(0, cardNum.Length - 1)
Dim checkDigit As Char = cardNum(cardNum.Length - 1)
If checkDigit <> fktMod10(mainPart) Then
MessageBox.Show("CardNum ungültig. Prüfziffernfehler!", "Eingabeprüfung", MessageBoxButtons.OK, MessageBoxIcon.Error)
btnNew.DialogResult = DialogResult.None
Exit Sub
End If
End If
btnNew.DialogResult = DialogResult.OK
txtLicensePlate.Text = txtLicensePlate.Text.ToUpper.Trim
Dim LicenseNat As String = setLand(MyComboBox3._value)
'txtKennzeichen.Text = txtKennzeichen.Text.ToUpper.Trim
'txtNationalitaet.Text = txtNationalitaet.Text.ToUpper
'Label5.ForeColor = Color.Black
'lblErfassung.ForeColor = Color.Black
'If KdSearchBox1.KdNr < 0 Then Label5.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
'If txtKennzeichen.Text = "" Then lblErfassung.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
Dim LandBez As String = cbxLandKz.SelectedItem.ToString
If LandBez <> "" Then
LandBez = LandBez.Replace(cbxLandKz._value, "")
LandBez = LandBez.Replace("-", "")
LandBez = LandBez.Trim()
End If
If Not SQL.doSQL("INSERT INTO VERAG.dbo.tblGOBOXBestellungen (gb_adressNr,gb_transactionTyp,gb_company1,gb_company2,gb_companyStreet,gb_companyStreetNr,gb_companyPostalcode,gb_companyCity,gb_companyCountryISO,gb_companyCountry,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)
VALUES (" & kunde.KundenNr & ",'" & MyComboBox1._value & "','" & txtName.Text & "','" & txtName2.Text & "','" & txtStrasse.Text & "','" & txtStasseNr.Text & "','" & txtPlz.Text & "','" & txtOrt.Text & "','" & setLand(cbxLandKz._value) & "','" & LandBez & "','" & txtTel.Text & "','" & txtFax.Text & "','" & txtAnsprechpartnerAnrede.Text & "','" & txtTitle.Text & "','" & txtAnsprechpartner_VN.Text & "','" & txtAnsprechpartner_NN.Text & "','" & txtEmail.Text & "','','" & txtLicensePlate.Text & "','" & LicenseNat & "','" & txtFahrzeugtyp.Text & "','" & txtAxles.Text & "','" & cardNum & "','" & txtMonat.Text & "','" & txtJahr.Text & "')", "FMZOLL") Then
MsgBox("Fehler beim Anlegen!")
Else
MsgBox("Bestellung wurde angelegt!")
Me.Close()
End If
'If s.updateBinding Then
' Dim SQL As New SQL
' If oldkfz <> txtKennzeichen.Text Then
' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, oldkfz, Nothing, Nothing),
' New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, txtKennzeichen.Text, Nothing, Nothing))
' SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
' SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
' End If
' Me.Close()
'If oldkfz <> txtLicensePlate.Text Then
' ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, oldkfz, Nothing, Nothing),
' ' New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, txtKennzeichen.Text, Nothing, Nothing))
' SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & txtLicensePlate.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
' SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & txtLicensePlate.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
'End If
Me.Close()
'End If
End Sub
@@ -102,6 +146,10 @@ Public Class frmGoMautBoxen_Bestellung
cbxKK.DisplayMember = "KartenNr"
cbxKK.ValueMember = "KartenNr"
cbxKK.changeItem(dv.Item(0).Row.Item(0))
txtMonat.Text = dt.Rows(0).Item("Kartenablaufmonat").ToString
txtJahr.Text = dt.Rows(0).Item("Kartenablaufjahr").ToString
End If
@@ -109,24 +157,8 @@ Public Class frmGoMautBoxen_Bestellung
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
If addnew Then newEntry() 'NEUER EINTRAG!
ready = True
End Sub
Public Sub newEntry()
' s.updateBinding()
Dim row = s.bindingdataTable.NewRow()
row.Item("KundenNr") = kundenNr
row.Item("KfzKennzeichen") = ""
s.bindingdataTable.Rows.Add(row)
s.bindingSource.MoveLast()
'If save Then updateBinding()
lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If kundenNr < 0 Then KdSearchBox1.Enabled = True
End Sub
Sub BindingTableColumnChanged(sender As Object, e As System.Data.DataColumnChangeEventArgs)
If ready Then
@@ -136,11 +168,32 @@ Public Class frmGoMautBoxen_Bestellung
End If
End Sub
Private Function fktMod10(ByVal number As String) As Char
Dim sum As Integer = 0
Dim doubleDigit As Boolean = True
' Durchlaufen von rechts nach links
For i As Integer = number.Length - 1 To 0 Step -1
Dim digit As Integer = CInt(number(i).ToString())
If doubleDigit Then
digit *= 2
If digit > 9 Then digit -= 9
End If
sum += digit
doubleDigit = Not doubleDigit
Next
Dim check As Integer = (10 - (sum Mod 10)) Mod 10
Return check.ToString()(0)
End Function
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click ', Me.FormClosing
If changed Then
Select Case MsgBox("Änderungen speichern", vbYesNoCancel)
Case vbYes : Me.DialogResult = Windows.Forms.DialogResult.None : btnOK.PerformClick()
Case vbYes : Me.DialogResult = Windows.Forms.DialogResult.None : btnNew.PerformClick()
Case vbNo : Me.Close()
Case vbCancel : Me.DialogResult = Windows.Forms.DialogResult.None
End Select
@@ -151,12 +204,13 @@ Public Class frmGoMautBoxen_Bestellung
Private Sub frmLKWDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Return Then
btnOK.PerformClick()
btnNew.PerformClick()
End If
End Sub
Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
'TODO: wieder aktivierten!!!
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAUTBOXEN_bearbeiten", Me) Then
' MsgBox("Keine Berechtigung!")
' Me.Close()
@@ -164,13 +218,21 @@ Public Class frmGoMautBoxen_Bestellung
KdSearchBox1.initKdBox(Me)
MyComboBox1.Items.Add(New MyListItem("N", "N"))
MyComboBox1.changeItem("N")
If kundenNr > 0 Then
Me.KdSearchBox1.KdNr = kundenNr
KdSearchBox1.Enabled = False
End If
cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
If cbxLandKz.Items.Count > 0 Then
MyComboBox2.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
MyComboBox3.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
End If
initKunde()
@@ -188,13 +250,16 @@ Public Class frmGoMautBoxen_Bestellung
If adresse IsNot Nothing Then
txtName.Text = If(adresse.Name_1, "") & If(adresse.Name_2, "")
txtStrasse.Text = If(adresse.Straße, "")
txtName.Text = If(adresse.Name_1, "")
txtName2.Text = If(adresse.Name_2, "")
StrasseNrAufteilen(adresse.Straße, txtStrasse.Text, txtStasseNr.Text)
txtOrt.Text = If(adresse.Ort, "")
txtPlz.Text = If(adresse.PLZ, "")
cbxLandKz.changeItem(If(adresse.LandKz, ""))
txtAnsprechpartnerAnrede.Text = adresse.Anrede
txtAnsprechpartner.Text = adresse.Ansprechpartner
txtAnsprechpartner_VN.Text = adresse.Ansprechpartner
txtFax.Text = adresse.Telefax
txtEmail.Text = adresse.E_Mail
@@ -211,19 +276,60 @@ Public Class frmGoMautBoxen_Bestellung
Dim KD = KdSearchBox1.KdData_KUNDE
Dim KDERW = KdSearchBox1.KdData_KUNDE_ERW
txtName.Text = If(AD.Name_1, "") & If(AD.Name_2, "")
txtStrasse.Text = If(AD.Straße, "")
txtName.Text = If(AD.Name_1, "")
txtName2.Text = If(AD.Name_2, "")
StrasseNrAufteilen(AD.Straße, txtStrasse.Text, txtStasseNr.Text)
txtOrt.Text = If(AD.Ort, "")
txtPlz.Text = If(AD.PLZ, "")
cbxLandKz.changeItem(If(AD.LandKz, ""))
txtAnsprechpartnerAnrede.Text = AD.Anrede
txtAnsprechpartner.Text = AD.Ansprechpartner
txtAnsprechpartner_VN.Text = AD.Ansprechpartner
initdgv()
End If
End If
If cbxLandKz.SelectedValue <> "" Then setLand(cbxLandKz.SelectedValue)
End Sub
Private Function setLand(landkz As String) As String
Dim LandISO2
If landkz.Length = 2 Then
LandISO2 = landkz
ElseIf landkz.Length = 3 Then
LandISO2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(landkz)
ElseIf landkz.Length = 1 Then
LandISO2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(landkz)
End If
Return LandISO2
'MyComboBox3.changeItem(LandISO2) 'License plate Nationality
'MyComboBox2.changeItem(LandISO2) 'CompanyCountryAbbr
End Function
Private Sub checkAndSetKKNr(adressenNr As String)
Dim strCardNum As String
'' Take the last 6 digits of AdressenNr, padded with leading zeros
'strCardNum = "990001" & Right(adressenNr.PadLeft(6, "0"c), 6) & "0001"
'' Append the Mod10 check digit
'strCardNum &= fktMod10(strCardNum)
'' Assign to CardNum TextBox
'txtCardNum.Text = strCardNum
End Sub
@@ -242,15 +348,37 @@ Public Class frmGoMautBoxen_Bestellung
End Sub
Private Sub StrasseNrAufteilen(Strasse_input As String, ByRef companyStreet_output As String, ByRef companyNumber_output As String)
Dim companyStreet As String = "-"
Dim companyNumber As String = ""
For i As Integer = 0 To Strasse_input.Length - 1
If Char.IsDigit(Strasse_input(i)) Then
companyStreet = Strasse_input.Substring(0, i).Trim()
companyNumber = Strasse_input.Substring(i).Trim()
Exit For
End If
Next
If String.IsNullOrWhiteSpace(companyStreet) Then companyStreet = "-"
companyStreet_output = companyStreet
companyNumber_output = companyNumber
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
' frm_GOX_BOX_Bestellung (FMZOLL)
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
' Select Case tbl_GO_BOX_Bestellung.*
'From tbl_GO_BOX_Bestellung
'Where (((tbl_GO_BOX_Bestellung.Bestelldatum) Is Null) And ((tbl_GO_BOX_Bestellung.Bestellnummer) Is Null))
'Order By tbl_GO_BOX_Bestellung.ID;
'Option Compare Database
'Option Explicit On
' Private Sub AdressenNr_AfterUpdate()
@@ -350,9 +478,13 @@ Public Class frmGoMautBoxen_Bestellung
' End Sub
'-------------------------------------------------------BESTELLVORGANG
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
' frm_GO_BOX_Bestellvorgang (FMZOLL)
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
' Option Compare Database
'Option Explicit On
@@ -642,4 +774,8 @@ Public Class frmGoMautBoxen_Bestellung
'2000 Cancel = BerechtigungsprüfungForm(Me)
'2010 If Cancel Then Exit Sub
' End Sub
End Class