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

OFfertenBeabeiten, Formulare, Fakt.

Browse Source
This commit is contained in:
d.breimaier
2025-08-22 13:10:40 +02:00
parent b92ba0480c
commit 319837c39a
8 changed files with 70 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -876,7 +876,8 @@ Public Class cMDMFunctionsAllgemein
If dsID > 0 Then
'Me.Cursor = Cursors.WaitCursor
Dim path As String
cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 4, path)
Dim onlyAsfinat As Boolean = True
cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 4, path,,,,, onlyAsfinat)
If nummierung > 0 Then

19
VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb
View File

@@ -42,7 +42,7 @@ Public Class cOfferteList
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
If loadPos Then l.LOAD_POSITIONEN()
If loadPos Then l.LOAD_POSITIONEN(-1)
LIST.Add(l)
End While
@@ -92,6 +92,13 @@ Public Class cOfferte
LOAD(KundenNr, OffertenNr, loadPos)
End Sub
Sub New(KundenNr, OffertenNr, FilialeNr, loadPos)
Me.KundenNr = KundenNr
Me.OffertenNr = OffertenNr
Me.FilialenNr = FilialeNr
LOAD(KundenNr, OffertenNr, loadPos)
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
@@ -111,13 +118,14 @@ Public Class cOfferte
Return list
End Function
Public Sub LOAD(KundenNr, OffertenNr, loadPos)
Public Sub LOAD(KundenNr As Integer, OffertenNr As Integer, loadPos As Boolean, Optional FilialenNr As Integer = -1)
Try
POSITIONEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr AND OffertenNr=@OffertenNr ", conn)
Using cmd As New SqlCommand("SELECT * FROM Offerten WHERE KundenNr=@KundenNr AND OffertenNr=@OffertenNr " & IIf(FilialenNr > 0, " AND FilialenNr=@FilialenNr", ""), conn)
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
If FilialenNr > 0 Then cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
'Dim l As New cOfferte
@@ -140,13 +148,14 @@ Public Class cOfferte
End Sub
Public Sub LOAD_POSITIONEN()
Public Sub LOAD_POSITIONEN(Optional FilialenNr As Integer = -1)
Try
POSITIONEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM Offertenpositionen WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr ", conn)
Using cmd As New SqlCommand("SELECT * FROM Offertenpositionen WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr " & IIf(FilialenNr > 0, " AND FilialenNr=@FilialenNr", ""), conn)
cmd.Parameters.AddWithValue("@KundenNr", Me.KundenNr)
cmd.Parameters.AddWithValue("@OffertenNr", Me.OffertenNr)
If FilialenNr > 0 Then cmd.Parameters.AddWithValue("@FilialenNr", FilialenNr)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cOffertPosition