ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,5 +1,8 @@
-Public Class ustCntlUSTV_AntragPosition
+Imports java.awt.print
+
+Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
+    Public UStV_Leist As VERAG_PROG_ALLGEMEIN.cUStVLeistender = Nothing
     Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
     Dim Antrag_LandKz = ""
     Dim kdnr = ""
@@ -19,10 +22,12 @@
     Sub reset()
         txtRgDatum._value = ""
         txtRgNr._value = ""
+        picSave.Visible = False
     End Sub
 
-    Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String)
+    Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
         gridAktiv = False
+        picSave.Visible = False
         Me.Antrag_LandKz = Antrag_LandKz
         Me.UStV_POS = UStV_POS
         Me.kdnr = kdnr
@@ -38,6 +43,11 @@
         txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
         txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
 
+        If UStV_Leitender IsNot Nothing Then
+            UStV_Leist = UStV_Leitender
+            loadChangedDSToPanel(Not UStV_Leitender.UstV_Leistender_Adresse, UStV_Leitender)
+        End If
+
         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)
@@ -94,6 +104,11 @@
             'If sender Is txtLieferung Then
             '    If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
             'End If
+
+            If sender Is cboLeistungsgeber Then
+                UStV_POS.UStVPo_Leistender = cboLeistungsgeber.Text
+
+            End If
             values_changed()
         End If
     End Sub
@@ -105,5 +120,47 @@
     End Sub
 
 
+    Private Sub loadChangedDSToPanel(enablePanel As Boolean, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
+        pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
+        txtStrasse.Text = If(UStV_Leitender.UstV_Leistender_Strasse, "")
+        txtStrassenNr.Text = If(UStV_Leitender.UstV_Leistender_StrasseNr, "")
+        txtPLZ.Text = If(UStV_Leitender.UstV_Leistender_PLZ, "")
+        txtOrt.Text = If(UStV_Leitender.UstV_Leistender_Stadt, "")
+        txtLand.Text = If(UStV_Leitender.UstV_Leistender_Land, "")
+        txtUIDNr.Text = If(UStV_Leitender.UstV_Leistender_UstNr, "")
 
+        'Listener für Änderungen im Detail-Panel
+        For Each c As Control In pnlAdresse.Controls
+            If TypeOf (c) Is TextBox Then
+                AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
+            End If
+        Next
+    End Sub
+
+
+    Private Sub SomethingChanged(sender As Object, e As EventArgs)
+        picSave.Visible = True
+    End Sub
+
+    Private Sub picSave_Click(sender As Object, e As EventArgs) Handles picSave.Click
+        If UStV_Leist Is Nothing Then Exit Sub
+
+        If UStV_Leist.UstV_Leistender_Adresse Then
+            If Not vbYes = MsgBox("Bei diesem Leistendem ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
+                Exit Sub
+            End If
+        End If
+
+        UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
+        UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
+        UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
+        UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
+        UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
+        UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
+        UStV_Leist.UstV_Leistender_Adresse = True
+        If UStV_Leist.SAVE() Then
+            picSave.Visible = False
+        End If
+
+    End Sub
 End Class