div. Änderungen, etc.

SDL/buchhaltung/usrCntlBH.vb

@@ -1276,10 +1276,32 @@ Public Class usrCntlBH
 
             Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL")
             If dtfehlendeOfferten.Rows.Count > 0 Then
-                If Not vbYes = MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel) Then
-                    cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
-                    Exit Sub
-                End If
+
+
+                'nicht mehr fragen, sondern einfach anlegen!
+
+                'If Not vbYes = MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel) Then
+                '    cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True)
+                '    Exit Sub
+                'End If
+
+
+
+
+                For Each R As DataRow In dtfehlendeOfferten.Rows
+                    If Not IsDBNull(R.Item("KundenNr")) AndAlso R.Item("KundenNr") IsNot Nothing AndAlso IsNumeric(R.Item("KundenNr")) Then
+
+                        Dim o As New VERAG_PROG_ALLGEMEIN.cOfferte(R.Item("KundenNr"), 95, False)
+                        o.Art = "Neuanlage"
+                        o.SAVE() 'speichern
+                        o.LOAD_POSITIONEN() 'positionen Laden
+                        If o.POSITIONEN.Count = 0 Then 'wenn keine POS --> neues Offert
+                            o.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, "", "DE") '--> Standartofferten laden
+                        End If
+                    End If
+
+                Next
+
 
             End If
 
@@ -1308,6 +1330,8 @@ Public Class usrCntlBH
 
 
 
+
+
                     Dim verarbOK As Boolean = True
                     Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
                     Dim RK_ID As Integer = -1