Kundebeabeit, MDMDatenverarb., Fakt, Syska-Einarbeitung, Offerten, etc.

SDL/kunden/usrCntlOfferte.vb

@@ -484,10 +484,22 @@ Public Class usrCntlOfferte
 
 
             Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
+            Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
             Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
 
             If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub
 
+            Dim SPRACHE As String = "DE"
+
+            If FIRMA_TMP = "VERAG" Then
+                If KUNDE_ERW IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache IsNot Nothing AndAlso KUNDE_ERW.kde_Fakturierung_Sprache <> "" AndAlso KUNDE.FilialenNr = 8001 AndAlso (KUNDE.KundenNrZentrale <> 140000 And KUNDE.KundenNrZentrale <> 150000 And KUNDE.KundenNrZentrale <> 180000) Then
+                    If vbYes = MsgBox("Möchten Sie die Standardofferte in der Fakturierungssprache des Kunden (" & KUNDE_ERW.kde_Fakturierung_Sprache & ") einfügen ", vbYesNo) Then
+                        SPRACHE = KUNDE_ERW.kde_Fakturierung_Sprache
+                    End If
+                End If
+            End If
+
+
             edit = True
             handleEditMode(edit)
             saveCurrentOffert()
@@ -499,7 +511,7 @@ Public Class usrCntlOfferte
                 currentOffert.SAVE()
                 currentOffert.LOAD_POSITIONEN()
                 If currentOffert.POSITIONEN.Count = 0 Then '
-                    currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
+                    currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP, SPRACHE)
                 End If
 
                 dgvOfferteNew.GetOrder()