edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fiskal, Abrechungsmaske, etx.

Browse Source
This commit is contained in:
d.breimaier
2026-08-26 09:50:31 +02:00
parent def18b7dd2
commit a2974c7319
6 changed files with 170 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -52,14 +52,6 @@ Public Class ustCntlUSTV_AntragPosition
InitLeistenderSearchBox()
'Dim filter As String = "UstV_aktiv = 1"
'If Antrag_LandKz <> "" AndAlso cbxAntragsfilter.Checked Then
' filter &= " and left(UstV_Leistender_UstNr,2)='" & Antrag_LandKz & "'"
' sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender]) 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"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})
'Else
' sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender]) 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"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})
'End If
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, atez_api As cATEZ_NCTS_IN)
@@ -95,8 +87,11 @@ Public Class ustCntlUSTV_AntragPosition
sbLeistender._value = UStV_Leitender.UStV_LeistenderId
sbLeistender_VALUE_CHANGED()
Else
sbLeistender._value = -1
sbLeistender._value = ""
End If
sbLeistender._value = ""
Else
sbLeistender._value = ""
End If
@@ -244,7 +239,7 @@ Public Class ustCntlUSTV_AntragPosition
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
If UStV_Leist.UStV_LeistenderId > 0 Then UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId
Else
'save = False
UStV_POS.UStVPo_Leistender = Nothing
End If
UStV_POS.UStVPo_Schnittstelle = cbxAPI.Checked
@@ -314,30 +309,6 @@ Public Class ustCntlUSTV_AntragPosition
End Function
'Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtLeistungsbezeichnung.TextChanged, txtRgDatum.TextChanged, txtRgNr.TextChanged, txtUSTBetrag.TextChanged, txtUmrechnungskurs.TextChanged, txtUSTBetragEUR.TextChanged
' If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_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
' 'values_changed()
' Else
' 'txtChanged = True
' End If
' End If
'End Sub
Sub values_changed()
lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
lblAenderungsdatum.Text = Now.ToString("dd.MM.yyyy HH:mm")
@@ -907,9 +878,7 @@ Public Class ustCntlUSTV_AntragPosition
If String.IsNullOrWhiteSpace(supplierText) Then
If UStV_POS IsNot Nothing AndAlso
(UStV_POS.UStVPo_Leistender <> "" OrElse
UStV_POS.UStVPo_LeistenderId <> 0) Then
If UStV_POS IsNot Nothing AndAlso (UStV_POS.UStVPo_Leistender <> "" OrElse UStV_POS.UStVPo_LeistenderId <> 0) Then
UStV_Leist = Nothing
loadChangedDSToPanel(Nothing, True)