Sonderkonditionen erstellen
Beispiel
Erstellen einer neuen
Sonderkondition mit Sonderkonditionszusatz.
# Variable für das Abspeichern der Sonderzusatz-Id
«X(Soko.NormalSuperNo=)»
# individueller oder vordefinierter Sonderzusatz
# 1 = vordefinierter / 2 = individuell
«X(Soko.NormalAddType=2)»
#
# ----------------------------------------------------------------------
# KUNDE x ARTIKEL
# «X(Soko.ArtBoType =1)»
# «X(Soko.ArtBoId =ROMAN X)» Artikelnummer
# «X(Soko.CustBoType =1)»
# «X(Soko.CustBoId =28532)» Adressnummer
# ----------------------------------------------------------------------
# KUNDE x ARTIKELGRUPPE
# «X(Soko.ArtBoType =11)»
# «X(Soko.ArtBoId =20)» Artikelgruppe
# «X(Soko.CustBoType =1)»
# «X(Soko.CustBoId =28532)» Adressnummer
# ----------------------------------------------------------------------
# KUNDE x SONDERKLASSE
# «X(Soko.ArtBoType =21)»
# «X(Soko.ArtBoId =1)» Sonderklasse
# «X(Soko.CustBoType =1)»
# «X(Soko.CustBoId =28532)» Adressnummer
# ----------------------------------------------------------------------
# ALLE KUNDEN x ARTIKEL
# «X(Soko.ArtBoType =1)»
# «X(Soko.ArtBoId =ROMAN X)» Artikelnummer
# «X(Soko.CustBoType =0)»
# «X(Soko.CustBoId =0)» Alle Kundne
# ----------------------------------------------------------------------
# ALLE KUNDEN x ALLE ARTIKEL
# «X(Soko.CustBoType =0)»
# «X(Soko.CustBoId =0)» Adressnummer
# «X(Soko.ArtBoType =0)»
# «X(Soko.ArtBoId =0)» Artikelnummer
# ----------------------------------------------------------------------
# ABSATZKREIS x ARTIKEL
# «X(Soko.CustBoType =11)»
# «X(Soko.CustBoId =1)» Absatzkreis
# «X(Soko.ArtBoType =1)»
# «X(Soko.ArtBoId =ROMAN X)» Artikelnummer
#
# ----------------------------------------------------------------------
# Erstellen der Sonderkondition
# ----------------------------------------------------------------------
«XSER(createSoko:SaveBo)»
«XSER(createSoko:addArg=CustArtCond)»
«XSER(createSoko:addArg=)»
«XSER(createSoko:addArg=e)»
«XSER(createSoko:addArg=)»
«XSER(createSoko:addArg=2)»
«XSER(createSoko:addArg=)»
«XSER(createSoko:addArg=)»
«XSER(createSoko:addArg=)»
«XSER(createSoko:addArg=)»
«XSER(createSoko:addArg=*)»
# ----------------------------------------------------------------------
# Wertzuweisungen
«XSER(createSoko:addArg=CustArtCond.CustBoType=@«X(Soko.CustBoType)»)»
«XSER(createSoko:addArg=CustArtCond.CustBoId=@«X(Soko.CustBoId)»)»
«XSER(createSoko:addArg=CustArtCond.ArtBoType=@«X(Soko.ArtBoType)»)»
«XSER(createSoko:addArg=CustArtCond.ArtBoId=@«X(Soko.ArtBoId)»)»
«XSER(createSoko:addArg=CustArtCond.NormalAddTypeCd=@«X(Soko.NormalAddType)»)»
# ----------------------------------------------------------------------
«nXSER(createSoko:execute>createSokoRes)\A»
# ----------------------------------------------------------------------
# Speichern der erzeugten Sonderzusatz Id:
«X(Soko.NormalSuperNo=«XRES(createSokoRes:CustArtCond.NormalAddSuperNo)»)»
#
# ----------------------------------------------------------------------
# Verbinden der Sonderkondition mit erzeugtem Sonderzusatz
# ----------------------------------------------------------------------
«XSER(setSokoAdd:SaveBo)»
«XSER(setSokoAdd:addArg=SalCondAdd)»
«XSER(setSokoAdd:addArg=)»
«XSER(setSokoAdd:addArg=e)»
«XSER(setSokoAdd:addArg=)»
«XSER(setSokoAdd:addArg=2)»
«XSER(setSokoAdd:addArg=)»
«XSER(setSokoAdd:addArg=)»
«XSER(setSokoAdd:addArg=)»
«XSER(setSokoAdd:addArg=)»
«XSER(setSokoAdd:addArg=*)»
# ----------------------------------------------------------------------
# Wertzuweisungen
# DIESE ZUWEISUNG IST ZWINGEND!!!
«XSER(setSokoAdd:addArg=SalCondAdd.SuperNo=@«X(Soko.NormalSuperNo)»)»
# Zusätzliche Wertzuweisungen wie z.B. Kundensortiment.
«XSER(setSokoAdd:addArg=SalCondAdd.CustAssort=@1)»
# ----------------------------------------------------------------------
«nXSER(setSokoAdd:execute>SokoAddRes)\A»
