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

Barverkauf, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-16 17:58:26 +01:00
parent 75c9d6ed49
commit a9bca96996
12 changed files with 358 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
View File

@@ -1,4 +1,6 @@
Public Class usrcntlVerzollungsunterlagen
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlVerzollungsunterlagen
Implements FormualrInterface
Public Event CHANGED(name, value)
@@ -96,14 +98,31 @@
If txtFirma.KdNr_value > 0 Then
If txtFirma.KdData_ADRESSEN IsNot Nothing Then
Dim ADRESSE = txtFirma.KdData_ADRESSEN
' txtFirma.Text = If(ADRESSE.Name_1, ADRESSE.Ordnungsbegriff)
Dim KUNDE_ERW As New cKundenErweitert(txtFirma.KdNr_value)
Dim zusatzAdr As String = ""
If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_AdressZusatz IsNot Nothing AndAlso KUNDE_ERW.kde_AdressZusatz <> "" Then
zusatzAdr = KUNDE_ERW.kde_AdressZusatz & " "
End If
txtFirma2.Text = If(ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
txtAdresse3.Text = If(ADRESSE.LandKz IsNot Nothing, sql.getValueTxtBySql("SELECT isnull([Land],'') FROM [Währungstabelle] WHERE [LandKz]='" & ADRESSE.LandKz & "'", "FMZOLL"), "")
If zusatzAdr <> "" Then
txtAdresse1.MaxLength = 100
txtAdresse1.Text = zusatzAdr
txtAdresse2.Text = If(ADRESSE.Straße, "")
txtAdresse3.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
Else
txtAdresse1.MaxLength = 40
txtAdresse1.Text = If(ADRESSE.Straße, "")
txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
txtAdresse3.Text = If(ADRESSE.LandKz IsNot Nothing, sql.getValueTxtBySql("SELECT isnull([Land],'') FROM [Währungstabelle] WHERE [LandKz]='" & ADRESSE.LandKz & "'", "FMZOLL"), "")
End If
End If
End If
End If
RaiseEvent KDNR_CHANGED(KdNR)
End Sub
initControlsHandler()

2
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -692,7 +692,7 @@ Public Class frmFormulare
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
AddHandler c.LOADED, Sub()
If param IsNot Nothing Then
c.MyComboBox1.changeItem(param(0))
c.MyComboBoxSprache.changeItem(0)
c.btnStandardPreiseLaden.PerformClick()
End If
End Sub