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