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

ustva

Browse Source
This commit is contained in:
d.breimaier
2025-04-24 14:12:48 +02:00
parent 0a9dba5c7a
commit 0fea3813eb
2 changed files with 473 additions and 469 deletions
Download Patch File Download Diff File Expand all files Collapse all files

934
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1335,10 +1335,10 @@ Public Class frmMDM_USTVAntrag
Exit Sub
End If
If cbxWahrung.SelectedValue Is Nothing Then
If cbxWahrung.SelectedItem Is Nothing Then
USTV_ANTRAG.UStVAn_Währungscode = SQL.DLookup("Währungscode", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
Else
USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedValue
USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedItem.Text
End If
If Not (IsDate(txtVon._value) AndAlso IsDate(txtBis._value)) Then
@@ -2742,6 +2742,10 @@ Public Class frmMDM_USTVAntrag
End Sub
Private Sub cbxWahrung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxWahrung.SelectedValueChanged
End Sub
Private Sub calcSumme()
Dim countSumme As Double = 0