Spedbucht, Fakt, cbam, bearbeiten, etc.

SDL/USTV/usrCntlUSTV.vb

@@ -1441,11 +1441,14 @@ Public Class usrCntlUSTV
         If MyComboBox1._value <> "" Then whereStr &= " AND dbo.Adressen.LandKz='" & MyComboBox1._value & "' "
 
 
+
+
+
         Dim sqlQery = "SELECT dbo.tblUStVAntrag.UStVAn_ID, dbo.tblUStVAntrag.UStVAn_KuNr, dbo.tblUStVAntrag.UStVAn_ReDatVon, 
                         dbo.tblUStVAntrag.UStVAn_ReDatBis, 
                         dbo.tblUStVAntrag.UStVAn_Ausstellungsdatum, 
-                        dbo.tblUStVAntrag.UStVAn_LandNr, 
-                                                 dbo.tblUStVAntrag.UStVAn_VZDatum, dbo.tblUStVAntrag.UStVAn_VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ, dbo.Adressen.Ordnungsbegriff, dbo.Adressen.LandKz, ISNULL
+                        (SELECT LandKz from  [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = dbo.tblUStVAntrag.UStVAn_LandNr)  as AntragsLand, 
+                        dbo.tblUStVAntrag.UStVAn_VZDatum, dbo.tblUStVAntrag.UStVAn_VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ, dbo.Adressen.Ordnungsbegriff, dbo.Adressen.LandKz, ISNULL
                                                      ((SELECT        SUM(UStVEr_USteuerbetragEUR) AS Expr1
                                                          FROM            dbo.tblUStVErstattung
                                                          WHERE        (UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID)), 0) AS Erstattungsbetrag, CASE WHEN ([UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL
@@ -1466,6 +1469,15 @@ Public Class usrCntlUSTV
         If dtVorauszahlung.Rows.Count = 0 Then
             MsgBox("keine Daten!")
             Exit Sub
+        Else
+            For Each col In dtVorauszahlung.Columns
+
+                Dim colName = col.ColumnName.Replace("UStVAn_", "")
+
+                If Not col.ColumnName.Contains(colName) Then col.ColumnName = col.ColumnName.Replace("UStVAn_", "")
+
+            Next
+
         End If