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

cFakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-06 17:03:43 +01:00
parent 655614a6ee
commit cf130e2056
6 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb
View File

@@ -145,6 +145,7 @@ Public Class cDY_Zollanmeldungen_Import
Property Importstatus As Object = Nothing
Property Importdate As Object = Nothing
Property Importfile As Object = Nothing
Property Ursprungsland_ISO2 As Object = Nothing
Public hasEntry = False
@@ -301,6 +302,7 @@ Public Class cDY_Zollanmeldungen_Import
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importstatus", Importstatus))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importdate", Importdate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importfile", Importfile))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprungsland_ISO2", Ursprungsland_ISO2))
Return list
End Function

2
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -219,7 +219,7 @@ Public Class cUIDPruefung
Case "FINANZONLINE"
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" WARUM?
FO.initValues()
Dim counter = 0
Dim errorCounter As Integer = 0

7
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -639,6 +639,13 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
End Function
Shared Function getISO2LandFromLandbezeichnung(LandBez As String)
If LandBez Is Nothing Then Return Nothing
Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.Land='" & LandBez & "' "
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
End Function
Shared Function getISO2LandFromISO1Land(Iso1Land As String)
Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.LandKz='" & Iso1Land & "' "