USTV-Anhänge Rechnungen

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,5 +1,7 @@
 Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
+    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim Antrag_LandKz = ""
 
     Public Event EV_PREV()
     Public Event EV_NEXT()
@@ -18,8 +20,9 @@
         txtRgNr._value = ""
     End Sub
 
-    Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen)
+    Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String)
         gridAktiv = False
+        Me.Antrag_LandKz = Antrag_LandKz
         Me.UStV_POS = UStV_POS
         cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
         cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, ""))
@@ -32,6 +35,14 @@
         txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "")
         txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
         txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
+
+        Dim da_id = -1
+        Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
+            Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
+
+        End Select
+        scanSonstiges.INIT_daId(da_id)
+
         gridAktiv = True
     End Sub
 
@@ -85,4 +96,10 @@
         '  If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
         If save() Then RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
     End Sub
+
+
+
+    Private Sub ustCntlUSTV_AntragPosition_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+    End Sub
 End Class