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

Proced

Browse Source
This commit is contained in:
d.breimaier
2025-11-06 16:56:43 +01:00
parent 1a8fea634e
commit cf8a116685
3 changed files with 81 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
UID/usrctlProcedures.vb
View File

@@ -3596,6 +3596,9 @@ Public Class usrctlProcedures
DYIMPORT.Ursprung = isleernothing((currentRow(89)))
If DYIMPORT.Ursprung IsNot Nothing AndAlso DYIMPORT.Ursprung <> "" Then DYIMPORT.Ursprungsland_ISO2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandbezeichnung(DYIMPORT.Ursprung)
DYIMPORT.Präferenzursprungsland = isleernothing((currentRow(90)))
DYIMPORT.Beguenstigung = isleernothing((currentRow(91)))
@@ -4301,6 +4304,72 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
cProgramFunctions.genExcelFromDT_NEW(dt)
Dim dt_fehlendeLaender As DataTable = SQL.loadDgvBySql("select distinct (Ursprung) FROM [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import] where Ursprungsland_ISO2 is null and Ursprung is not null", "AVISO")
If dt_fehlendeLaender.Rows.Count > 0 Then
MsgBox("ACHTUNG!, es befinden sich noch " & dt_fehlendeLaender.Rows.Count & " Länder, zu denen kein Ursprungsland zugewiesen wurde!" & vbNewLine & "Bitte zuweisen/bei Administration nachfragen!")
cProgramFunctions.genExcelFromDT_NEW(dt_fehlendeLaender)
End If
End Sub
Private Sub Button53_Click(sender As Object, e As EventArgs) Handles Button53.Click
Dim Laneder = "select distinct (Ursprung) FROM [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import] where Ursprungsland_ISO2 is null and Ursprung is not null"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtiso2Laneder As DataTable = SQL.loadDgvBySql(Laneder, "AVISO")
If dtiso2Laneder.Rows.Count > 0 Then
For Each r As DataRow In dtiso2Laneder.Rows
Dim landISO2 As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandbezeichnung(r.Item("Ursprung"))
If landISO2 <> "" Then
SQL.doSQL("Update [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import] set Ursprungsland_ISO2 = '" & landISO2 & "' where Ursprung = '" & r.Item("Ursprung") & "'", "AVISO")
Else
Dim ISO2SetCountry As String = ""
Select Case r.Item("Ursprung")
Case "El Salvador" : ISO2SetCountry = "SV"
Case "Europäische Union" : ISO2SetCountry = "EU"
Case "Guatemala" : ISO2SetCountry = "GT"
Case "Iran (Islamische Republik)" : ISO2SetCountry = "IR"
Case "Kambodscha" : ISO2SetCountry = "KH"
Case "Katar" : ISO2SetCountry = "QA"
Case "Macau" : ISO2SetCountry = "MO"
Case "Mali" : ISO2SetCountry = "ML"
Case "Moldau, Republik" : ISO2SetCountry = "MD"
Case "Myanmar" : ISO2SetCountry = "MM"
Case "Nordmazedonien" : ISO2SetCountry = "MK"
Case "Paraguay" : ISO2SetCountry = "PY"
Case "Russische Föderation" : ISO2SetCountry = "RU"
Case "Saudi-Arabien" : ISO2SetCountry = "SA"
Case "Sierra Leone" : ISO2SetCountry = "SL"
Case "Slowakische Republik" : ISO2SetCountry = "SK"
Case "Spanien (ohne XC, XL)" : ISO2SetCountry = "ES"
Case "Südkorea (Republik Korea)" : ISO2SetCountry = "KR"
Case "Tschechien" : ISO2SetCountry = "CZ"
Case "Vereinigte Arabische Emirate" : ISO2SetCountry = "AE"
Case "Vereinigte Staaten" : ISO2SetCountry = "US"
Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
End Select
If ISO2SetCountry <> "" Then
SQL.doSQL("Update [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import] set Ursprungsland_ISO2 = '" & ISO2SetCountry & "' where Ursprung = '" & r.Item("Ursprung") & "'", "AVISO")
End If
End If
Next
MsgBox("alle Länder gesetzt!")
Else
MsgBox("keine fehlenden Länder vorhanden!")
End If
End Sub