Revert "commit"
This commit is contained in:
188
SDL/USTV/ustCntlUSTV_AntragPosition.vb
Normal file
188
SDL/USTV/ustCntlUSTV_AntragPosition.vb
Normal file
@@ -0,0 +1,188 @@
|
||||
|
||||
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
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 = ""
|
||||
|
||||
Public Event EV_PREV()
|
||||
Public Event EV_NEXT()
|
||||
Public Event CHANGED(UStVPo_ID)
|
||||
Dim gridAktiv = False
|
||||
Private Sub btnBildAuf_Click(sender As Object, e As EventArgs) Handles btnBildAuf.Click
|
||||
RaiseEvent EV_PREV()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
RaiseEvent EV_NEXT()
|
||||
End Sub
|
||||
|
||||
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, 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
|
||||
cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
|
||||
cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, ""))
|
||||
txtRgDatum._value = If(UStV_POS.UStVPo_ReDat, "")
|
||||
txtRgNr._value = If(UStV_POS.UStVPo_ReNr, "")
|
||||
lblSachbearbeiter.Text = If(UStV_POS.UStVPo_Sachbearbeiter, "")
|
||||
If UStV_POS.UStVPo_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_POS.UStVPo_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
|
||||
cboLeistungsgeber.Text = If(UStV_POS.UStVPo_Leistender, "")
|
||||
txtLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "")
|
||||
txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "")
|
||||
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)
|
||||
Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
|
||||
|
||||
End Select
|
||||
scanSonstiges.INIT_daId(da_id)
|
||||
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
|
||||
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
|
||||
|
||||
gridAktiv = True
|
||||
End Sub
|
||||
|
||||
Sub getValues(ByRef UStV_POS)
|
||||
If UStV_POS Is Nothing Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen
|
||||
'UStV_POS.
|
||||
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UStV_POS.UStVPo_Zeitstempel = Now
|
||||
|
||||
|
||||
'TO DO!!!!!
|
||||
End Sub
|
||||
|
||||
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
|
||||
If e.KeyValue = Keys.PageDown Then
|
||||
RaiseEvent EV_NEXT()
|
||||
End If
|
||||
If e.KeyValue = Keys.PageUp Then
|
||||
RaiseEvent EV_PREV()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtUmrechnungskurs_TextChanged(sender As Object, e As EventArgs) Handles txtUmrechnungskurs.TextChanged
|
||||
Dim gridAktivTMP = gridAktiv
|
||||
gridAktiv = False
|
||||
txtUSTBetragEUR._value = ""
|
||||
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
|
||||
End If
|
||||
gridAktiv = gridAktivTMP
|
||||
End Sub
|
||||
|
||||
Function save()
|
||||
getValues(UStV_POS)
|
||||
'MsgBox("TEST")
|
||||
Return UStV_POS.SAVE
|
||||
End Function
|
||||
|
||||
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
|
||||
|
||||
If gridAktiv And Me.FindForm IsNot Nothing Then
|
||||
'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 AndAlso cboLeistungsgeber.SelectedItem <> "" Then
|
||||
UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
|
||||
|
||||
End If
|
||||
values_changed()
|
||||
End If
|
||||
End Sub
|
||||
Sub values_changed()
|
||||
lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
lblAenderungsdatum.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
' 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 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, "")
|
||||
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
|
||||
If TypeOf (c) Is MyComboBox Then
|
||||
AddHandler CType(c, MyComboBox).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
|
||||
RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
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
|
||||
Reference in New Issue
Block a user