cFakt, Kundenblatt, ustva, etc.
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class ustCntlUSTV_AntragPosition
|
||||
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
|
||||
@@ -23,7 +24,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
Sub reset()
|
||||
txtRgDatum._value = ""
|
||||
txtRgNr._value = ""
|
||||
picSave.Visible = False
|
||||
btnLeistenderSave.Visible = False
|
||||
txtUmrechnungskurs._value = 1
|
||||
txtLeistungsbezeichnung._value = ""
|
||||
txtUmrechnungskurs._value = 1
|
||||
@@ -37,10 +38,10 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
|
||||
|
||||
initSchnittstellenNR()
|
||||
initSchnittstellenNr()
|
||||
|
||||
gridAktiv = False
|
||||
picSave.Visible = False
|
||||
btnLeistenderSave.Visible = False
|
||||
Me.Antrag_LandKz = Antrag_LandKz
|
||||
Me.UStV_POS = UStV_POS
|
||||
Me.kdnr = kdnr
|
||||
@@ -56,11 +57,8 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
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
|
||||
sbLeistender.Text = UStV_Leitender.UStV_Leistender
|
||||
loadChangedDSToPanel(UStV_Leitender, True)
|
||||
|
||||
Dim da_id = -1
|
||||
Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
|
||||
@@ -75,7 +73,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
|
||||
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
|
||||
|
||||
|
||||
sbLeistender.initSearchBox(Me.FindForm, "[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, "UstV_aktiv = 1", "UStV_Leistender", "UStV_Leistender", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender"})
|
||||
|
||||
gridAktiv = True
|
||||
End Sub
|
||||
@@ -114,8 +112,12 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
If txtUmrechnungskurs._value <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
|
||||
If txtUmrechnungskurs.Text <> "" And txtUmrechnungskurs._value <> "" Then
|
||||
If txtUmrechnungskurs.Text <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
|
||||
ElseIf txtUmrechnungskurs._value <> "" Then
|
||||
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
|
||||
End If
|
||||
Else
|
||||
save = False
|
||||
End If
|
||||
@@ -125,6 +127,8 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
|
||||
@@ -165,8 +169,8 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
'End If
|
||||
|
||||
If sender Is cboLeistungsgeber AndAlso cboLeistungsgeber.SelectedItem <> "" Then
|
||||
UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
|
||||
values_changed()
|
||||
'UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
|
||||
'values_changed()
|
||||
|
||||
Else
|
||||
txtChanged = True
|
||||
@@ -178,7 +182,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp
|
||||
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp, sbLeistender.KeyUp
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
@@ -199,22 +203,33 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
' 'values_changed()
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If e.KeyValue = 9 Then
|
||||
|
||||
ElseIf sender Is sbLeistender Then
|
||||
If e.KeyValue = 9 Then
|
||||
e.SuppressKeyPress = True
|
||||
If txtChanged Then
|
||||
If UStV_Leist.hasEntry Then
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
values_changed()
|
||||
txtChanged = False
|
||||
'UStV_POS.SAVE()
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
If e.KeyValue = 9 Then 'SHIFT
|
||||
e.SuppressKeyPress = True
|
||||
If txtChanged Then
|
||||
values_changed()
|
||||
txtChanged = False
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -227,58 +242,115 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
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, "")
|
||||
Private Sub loadChangedDSToPanel(UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, Optional initial As Boolean = False)
|
||||
|
||||
UStV_Leist = UStV_Leitender
|
||||
|
||||
'If newLeistender <> "" Then UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(newLeistender)
|
||||
|
||||
pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
|
||||
txtStrasse.Text = If(UStV_Leist.UstV_Leistender_Strasse, "")
|
||||
txtStrassenNr.Text = If(UStV_Leist.UstV_Leistender_StrasseNr, "")
|
||||
txtPLZ.Text = If(UStV_Leist.UstV_Leistender_PLZ, "")
|
||||
txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
|
||||
txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
|
||||
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
|
||||
|
||||
btnLeistenderSave.Visible = True
|
||||
|
||||
If Not initial Then
|
||||
'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
|
||||
Else
|
||||
|
||||
btnLeistenderSave.Visible = False
|
||||
End If
|
||||
|
||||
'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
|
||||
btnLeistenderSave.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
|
||||
Private Sub picSave_Click(sender As Object, e As EventArgs) Handles btnLeistenderSave.Click
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
|
||||
MsgBox("keine Berechtigung!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If UStV_Leist.UstV_Leistender_Adresse Then
|
||||
If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
|
||||
Exit Sub
|
||||
Dim leistNew = sbLeistender.Text
|
||||
|
||||
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(leistNew)
|
||||
|
||||
If Not UStV_Leist.hasEntry Then
|
||||
If vbYes = MsgBox("Dieser Leistende wurde noch nicht angelegt!" & vbNewLine & UStV_Leist.UStV_Leistender & " anlegen? ", vbYesNo) Then
|
||||
|
||||
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, "")
|
||||
|
||||
If UStV_Leist.SAVE() Then
|
||||
|
||||
btnLeistenderSave.Visible = False
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
values_changed()
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
Dim adresseChanged As Boolean = False
|
||||
|
||||
If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
|
||||
If UStV_Leist.UstV_Leistender_StrasseNr <> If(txtStrassenNr.Text, "") Then adresseChanged = True
|
||||
If UStV_Leist.UstV_Leistender_PLZ <> If(txtPLZ.Text, "") Then adresseChanged = True
|
||||
If UStV_Leist.UstV_Leistender_Stadt <> If(txtOrt.Text, "") Then adresseChanged = True
|
||||
If UStV_Leist.UstV_Leistender_Land <> If(txtLand.Text, "") Then adresseChanged = True
|
||||
If UStV_Leist.UstV_Leistender_UstNr <> If(txtUIDNr.Text, "") Then adresseChanged = True
|
||||
|
||||
|
||||
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.UstV_Leistender_Adresse And adresseChanged Then
|
||||
If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
|
||||
|
||||
btnLeistenderSave.Visible = False
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
values_changed()
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If UStV_Leist.SAVE() Then
|
||||
|
||||
btnLeistenderSave.Visible = False
|
||||
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
||||
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
||||
values_changed()
|
||||
|
||||
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
|
||||
|
||||
@@ -293,7 +365,7 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub initSchnittstellenNR()
|
||||
Private Sub initSchnittstellenNr()
|
||||
|
||||
If cboSchnittstellennr.Items.Count = 0 Then
|
||||
|
||||
@@ -312,5 +384,15 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub sbLeistender_VALUE_CHANGED() Handles sbLeistender.VALUE_CHANGED
|
||||
|
||||
If sbLeistender._value IsNot Nothing AndAlso sbLeistender._value <> "" Then
|
||||
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender._value)
|
||||
loadChangedDSToPanel(UStV_Leist)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user