TimasAPI, Uberstunden, Mailvorlagen, etc,

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,4 +1,5 @@
 Imports java.awt.print
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -26,6 +27,9 @@ Public Class ustCntlUSTV_AntragPosition
     End Sub
 
     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
@@ -91,11 +95,11 @@ Public Class ustCntlUSTV_AntragPosition
 
     Function save()
         getValues(UStV_POS)
-        MsgBox("TEST")
-        Return UStV_POS.save
+        'MsgBox("TEST")
+        Return UStV_POS.SAVE
     End Function
 
-    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsgeber.SelectedIndexChanged,
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged,
             txtLeistungsbezeichnung.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged
 
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
@@ -105,8 +109,8 @@ Public Class ustCntlUSTV_AntragPosition
             '    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
+            If sender Is cboLeistungsgeber AndAlso cboLeistungsgeber.SelectedItem <> "" Then
+                UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
 
             End If
             values_changed()
@@ -122,6 +126,7 @@ Public Class ustCntlUSTV_AntragPosition
 
     Private Sub loadChangedDSToPanel(enablePanel As Boolean, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
         pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
+        'cboLeistungsgeber._value = If(UStV_Leitender.UStV_Leistender, "")
         txtStrasse.Text = If(UStV_Leitender.UstV_Leistender_Strasse, "")
         txtStrassenNr.Text = If(UStV_Leitender.UstV_Leistender_StrasseNr, "")
         txtPLZ.Text = If(UStV_Leitender.UstV_Leistender_PLZ, "")
@@ -134,6 +139,9 @@ Public Class ustCntlUSTV_AntragPosition
             If TypeOf (c) Is TextBox Then
                 AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
             End If
+            If TypeOf (c) Is MyComboBox Then
+                AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
+            End If
         Next
     End Sub
 
@@ -164,4 +172,15 @@ Public Class ustCntlUSTV_AntragPosition
         End If
 
     End Sub
+
+    Private Sub cboLeistungsgeber_Enter(sender As Object, e As EventArgs) Handles cboLeistungsgeber.Enter
+
+    End Sub
+
+    Private Sub cboLeistungsgeber_DropDown(sender As Object, e As EventArgs) Handles cboLeistungsgeber.DropDown
+        cboLeistungsgeber.Items.Clear()
+        cboLeistungsgeber.fillWithSQL("select top 100 UStV_Leistender from tblUStVLeistender Where 1= 1 " & IIf(cboLeistungsgeber.Text <> "", "AND UStV_Leistender like '" & cboLeistungsgeber.Text & "%'", ""), False, "FMZOLL", True)
+        cboLeistungsgeber.changeItem(If(cboLeistungsgeber.Text, ""))
+
+    End Sub
 End Class