ÿÿCHHVBScriptEngineÿþÿ (General)ÿþÿ(Declarations)ÿþÿ'(Declarations) ÿþÿÿ 'Formula: BUNDLEPREISE 'Description: Digital Data - Zieht passenden Preis für Bundle-Artikel ' ---------------------------------------------------------------------------- ' Diese Zeilenformel VK ermittelt für Bundle-Sub-Artikel die passenden ' Einzelpreise. ' ' Setzt voraus, das in der MESONIC.INI der Schalter Pricecalculation=0 im ' Abschnitt [Macrooption] gesetzt ist. ' ---------------------------------------------------------------------------- ' Copyright (c) 2021 by Digital Data GmbH ' ' Digital Data GmbH " Ludwig-Rinn-Strasse 16 " D-35452 Heuchelheim ' Tel.: 0641/202360 " E-Mail: info-flow(at)digitaldata.works ' ---------------------------------------------------------------------------- ' Creation Date / Author: 01.06.2021 / MP ' Version Date / Editor: 10.08.2021 / MP ' Version Number: 3.0.0.5 Function Formula () On Error Resume Next '########## set variables ########## ArtikelNummer = Value(0,165) MakroBezug = Value(0,868) '########## preparing part ########## 'Reset Error Var Err.Clear ' Die Formel soll auch für Ident-Artikel ausgeführt werden MainProductEntry ' Mengenänderung soll nicht den Preis neu holen Invoicing.PriceFromFormula '########## main part ########## ' Makro-Sub-Artikel-Logik If MakroBezug <> "0000" And CWLStart.GlobalProperty(20) <> ArtikelNummer Then 'Value(26,500) = 2 SQLQuery = "" SQLQuery = SQLQuery & "SELECT dbo.FNDD_GET_MACROSUBARTICLE_PRICE (" SQLQuery = SQLQuery & "yyyy, " SQLQuery = SQLQuery & "'~~~~', " SQLQuery = SQLQuery & "'" & CWLStart.GlobalProperty(20) & "', " SQLQuery = SQLQuery & "'" & ArtikelNummer & "'" SQLQuery = SQLQuery & ") --(NOLOCK)" Set Conn = CWLStart.CurrentCompany.Connection Set result = Conn.Select(SQLQuery) If Err.Number <> 0 Then Msgbox "Fehler : " & vbNewline & Err.Number & " - " & Err.Description, vbExclamation, "Fehler in der ZFV-Formel BUNDLEPREISE" Else BundlePreis = result.value(0) 'msgbox ArtikelNummer & " - " & BundlePreis If BundlePreis <> -999 Then Invoicing.Price = BundlePreis Else ' wenn kein Preis gefunden wurde, kann er auch nicht gesetzt werden Invoicing.Price = 0 End If End If Else ' Behandlung der normalen Artikel VKMakro = Value(21,37) If Len(VKMakro) > 0 Then ' Es gibt ein VK-Makro! wir haben einen Makro-Hauptartikel Value(26,500) = 1 Invoicing.Discount1 = -100 Invoicing.Factor1 = Invoicing.Price CWLStart.GlobalProperty(20) = ArtikelNummer Else ' Ein normaler Artikel, ohne Makro-bezug hat keine Auswirkungen Value(26,500) = 0 CWLStart.GlobalProperty(20) = "" End If End If Invoicing.CalcTotal() 'Value(26,500) = 3 Formula = 1 'successful End Function ÿþÿ'End of (Declarations) rmula = 1 'successful End Function ÿþÿ'End of (Declarations) f End If Formula = 1 'successful End Function ÿþÿ'End of (Declarations)