🚈 🔶 🤷🏻 संस्करण नियंत्रण प्रणाली के समान व्यावसायिक अनुप्रयोगों में पैरामीटर प्रबंधन 🏟️ 🌼 ❣️

विभिन्न अनुप्रयोगों में, कार्य नियमित रूप से किसी निश्चित विषय (या विषयों) के सापेक्ष किसी विशेषता के समय में परिवर्तन के तर्क का समर्थन करने के लिए उठता है। उदाहरण के लिए, यह दुकानों में माल के खुदरा मूल्य या कर्मचारियों के लिए KPI संकेतकों में बदलाव हो सकता है।

इस लेख में, मैं दिखाऊंगा कि इस समस्या को हल करने के लिए डोमेन तर्क और इंटरफेस क्या बनाया जा सकता है। मैं तुरंत एक आरक्षण करूँगा कि यह विशेषता पर उपयोगकर्ता के प्रबंधकीय प्रभाव की चिंता करेगा, न कि ऐतिहासिक परिवर्तन का प्रतिबिंब।

कार्यान्वयन खुले और मुक्त lsFusion मंच के आधार पर प्रस्तुत किया जाएगा, लेकिन किसी अन्य तकनीक का उपयोग करते समय एक समान योजना लागू की जा सकती है।

परिचय

लेख की एक सरल प्रस्तुति और समझ के लिए, हम एक विशेषता के रूप में मूल्य लेते हैं, वस्तु के रूप में उत्पाद, और गोदाम विषय होंगे। इस मामले में, विशेषता निर्धारित करने के लिए न्यूनतम संभव अंतराल की तारीख होगी। इस प्रकार, उपयोगकर्ता यह निर्धारित करने में सक्षम होगा कि किसी उत्पाद और गोदाम के लिए किसी विशेष तिथि की कीमत क्या होगी।

मूल्य परिवर्तन के लिए उपयोगकर्ता इनपुट योजना क्लासिक संस्करण नियंत्रण प्रणालियों में उपयोग के समान होगी। डोमेन लॉजिक के दृष्टिकोण से, कोई भी परिवर्तन, एक एकल प्रतिबद्ध होगा , जिसके आधार पर एक निश्चित तिथि की स्थिति की गणना की जाएगी। कई विषय क्षेत्रों में, ऐसे कमिट को दस्तावेज या लेनदेन कहा जाता है। इस मामले में, इस प्रतिबद्धता से हमारा तात्पर्य तथाकथित मूल्य सूची से होगा। प्रत्येक मूल्य सूची में माल और गोदाम शामिल होंगे जो इसमें शामिल हैं, साथ ही वैधता अवधि भी।

वर्णित योजना के निम्नलिखित फायदे हैं:

एटमॉसिटी । प्रत्येक परिवर्तन को एक अलग दस्तावेज़ के रूप में जारी किया जाता है। इसलिए, इन दस्तावेजों को अस्थायी रूप से बचाया जा सकता है, लेकिन पोस्ट नहीं किया गया है। यदि आप इसे गलत मानते हैं, तो पूरे बदलाव को वापस लेना आसान है।
पारदर्शिता। यह निर्धारित करना आसान है कि किसने परिवर्तन किया और कब, साथ ही दस्तावेज़ पर टिप्पणी करके कारण का संकेत दिया।

संस्करण नियंत्रण प्रणाली से मुख्य अंतर यह है कि स्पष्ट रूप से कमिट एक दूसरे से स्वतंत्र हैं। इस प्रकार, किसी भी समय अपेक्षाकृत कम दर्द रहित सभी को हटाना संभव है। इसके अलावा, प्रत्येक ऐसी प्रतिबद्धता को समाप्त करने के लिए सेट किया जा सकता है जब यह कार्य करना बंद कर देता है, जो निश्चित रूप से संस्करण नियंत्रण प्रणाली में नहीं है।

कार्यान्वयन

हम गोदामों के साथ डोमेन लॉजिक की परिभाषा शुरू करते हैं। चलो गोदामों को गतिशील गहराई के एक समूह के पदानुक्रम में मिलाकर समाधान को थोड़ा जटिल करते हैं। यह किस सिद्धांत से किया जाता है, इसी लेख में वर्णित किया गया है, इसलिए मैं सिर्फ एक कोड दे दूंगा जो समूहों की घोषणा करता है और उन्हें संपादित करने के लिए फॉर्म बनाता है:

गोदाम समूह विज्ञापन

CLASS Group ' ' ;
name '' = DATA ISTRING [ 50 ] (Group);

parent = DATA Group (Group);
nameParent ' ' (Group g) = name(parent(g));

level '' (Group child, Group parent) =
RECURSION 1l IF child IS Group AND parent = child
STEP 2l IF parent = parent($parent) MATERIALIZED ;

FORM group ' '
OBJECTS g = Group PANEL
PROPERTIES (g) name, nameParent

EDIT Group OBJECT g
;

FORM groups ' '
OBJECTS g = Group
PROPERTIES (g) READONLY name, nameParent
PROPERTIES (g) NEWSESSION NEW , EDIT , DELETE

LIST Group OBJECT g
;

NAVIGATOR {
NEW groups;
}

समूह पदानुक्रम उदाहरण

इसके बाद, उन गोदामों की घोषणा करें जिन्हें किसी भी समूह से जोड़ा जा सकता है:

वेयरहाउस घोषणा

CLASS Stock '' ;
name '' = DATA ISTRING [ 50 ] (Stock);

group '' = DATA Group (Stock);
nameGroup '' (Stock st) = name(group(st));

FORM stock ''
OBJECTS s = Stock PANEL
PROPERTIES (s) name, nameGroup

EDIT Stock OBJECT s
;

FORM stocks ''
OBJECTS s = Stock
PROPERTIES (s) READONLY name, nameGroup
PROPERTIES (s) NEWSESSION NEW , EDIT , DELETE

LIST Stock OBJECT s
;

NAVIGATOR {
NEW stocks;
}

वेयरहाउस उदाहरण

और अंत में, माल के तर्क की घोषणा करें:

उत्पाद की घोषणा

CLASS Product '' ;
name '' = DATA ISTRING [ 50 ] (Product);

FORM product ''
OBJECTS p = Product PANEL
PROPERTIES (p) name

EDIT Product OBJECT p
;

FORM products ''
OBJECTS p = Product
PROPERTIES (p) READONLY name
PROPERTIES (p) NEWSESSION NEW , EDIT , DELETE

LIST Product OBJECT p
;

NAVIGATOR {
NEW products;
}

उत्पाद उदाहरण

हम मूल्य सूचियों का तर्क बनाने के लिए सीधे आगे बढ़ते हैं। सबसे पहले, हम मूल्य सूची वर्ग, साथ ही इसकी वैधता अवधि निर्धारित करते हैं:

CLASS PriceList '-' ;
fromDate ' ' = DATA DATE (PriceList);
toDate ' ' = DATA DATE (PriceList);

हम मानते हैं कि यदि कोई दिनांक निर्धारित नहीं की गई है, तो मूल्य सूची अंतहीन है।
हम एक घटना जोड़ते हैं, जो मूल्य सूची बनाते समय, स्वचालित रूप से वर्तमान तिथि को नीचे रख देगी, जिससे यह संचालित होना शुरू हो जाएगा।

WHEN LOCAL SET (PriceList p IS PriceList) DO
fromDate(p) <- currentDate();

LOCAL कीवर्ड का मतलब है कि डेटाबेस में सेव होने पर इवेंट में आग नहीं लगेगी, लेकिन बदलाव होने पर तुरंत।

फिर इसे बनाने वाले को और निर्माण के समय को जोड़ें:

createdTime ' ' = DATA DATETIME (PriceList);
createdUser = DATA User (PriceList);
nameCreatedUser '' (PriceList p) = name(createdUser(p));

अब एक ऐसी घटना बनाएँ जो अपने आप उन्हें भर दे:

WHEN SET (PriceList p IS PriceList) DO {
createdTime(p) <- currentDateTime();
createdUser(p) <- currentUser();
}

पिछले एक के विपरीत, यह घटना केवल तभी चालू होगी जब सेव बटन पर क्लिक किया जाएगा। यानी डेटाबेस में सेव ट्रांजेक्शन के दौरान।

इसके बाद, मूल्य सूची लाइनें बनाएं जिसमें माल और कीमतें निर्धारित की जाएंगी:

CLASS PriceListDetail ' -' ;
priceList = DATA PriceList (PriceListDetail) NONULL DELETE ;

product = DATA Product (PriceListDetail);
nameProduct '' (PriceListDetail d) = name(product(d));

price '' = DATA NUMERIC [ 10 , 2 ] (PriceListDetail);

NONULL विशेषता इंगित करती है कि मूल्य सूची संपत्ति को हमेशा सेट किया जाना चाहिए , और DELETE इंगित करता है कि जब संपत्ति का मूल्य शून्य हो जाता है (उदाहरण के लिए, मूल्य सूची को हटाते समय), संबंधित लाइन स्वचालित रूप से हटा दी जानी चाहिए।

भविष्य के उपयोग के लिए, हम गुण बनाएंगे जो मूल्य सूची लाइनों की वैधता की अवधि निर्धारित करेगा:

fromDate ' ' (PriceListDetail d) = fromDate(priceList(d));
toDate ' ' (PriceListDetail d) = toDate(priceList(d));

अब हम मूल्य सूची को उन गोदामों से बांधेंगे जिनके लिए यह काम करेगा। सबसे पहले, प्राथमिक संपत्ति को जोड़ें, जो सच होगा यदि गोदामों का पूरा समूह मूल्य सूची में शामिल है:

dataIn '' = DATA BOOLEAN (PriceList, Group);

हम चयनित माता-पिता को ध्यान में रखते हुए समूह के "समावेश" की गणना करते हैं (जैसा कि पदानुक्रम के बारे में लेख में वर्णित है):

in ' ()' (PriceList p, Group child) =
GROUP LAST dataIn(p, Group parent) ORDER DESC level(child, parent) WHERE dataIn(p, parent);

प्राथमिक संपत्ति जोड़ें, जिसके साथ आप यह निर्दिष्ट कर सकते हैं कि मूल्य सूची एक विशिष्ट गोदाम पर कार्य करती है:

dataIn '' = DATA BOOLEAN (PriceList, Stock);

हम अंतिम संपत्ति की गणना करते हैं, जो यह निर्धारित करेगा कि मूल्य सूची समूहों को ध्यान में रखते हुए संबंधित गोदाम में कीमतों में बदलाव करती है:

in '' (PriceList p, Stock s) = dataIn(p, s) OR in(p, group(s));

एक संपत्ति बनाएं जो मूल्य सूची के सभी चयनित समूहों और गोदामों के नाम दिखाएगा, मूल्य सूची की सूची देखने के लिए अधिक सुविधाजनक उपयोगकर्ता के लिए:

stocks '' (PriceList p) = CONCAT ' / ' ,
GROUP CONCAT name(Group g) IF dataIn(p, g), ',' ORDER g,
GROUP CONCAT name(Stock s) IF dataIn(p, s), ',' ORDER s
CHARWIDTH 30 ;

डोमेन लॉजिक के विवरण में अंतिम चरण सीधे गोदाम में माल की मौजूदा कीमत की गणना करेगा। ऐसा करने के लिए, एक ऐसी संपत्ति बनाएं, जो वांछित सामान, गोदाम और वैधता अवधि के साथ मूल्य सूची की अंतिम पंक्ति की तारीख का पता लगाती है:

priceListDetail (Product p, Stock s, DATE dt) =
GROUP LAST PriceListDetail d
ORDER fromDate(d), d
WHERE product(d) = p AND in(priceList(d), s) AND
fromDate(d) <= dt AND NOT toDate(d) < dt;

इस संपत्ति की गणना के तर्क में, विभिन्न विविधताएं संभव हैं। आप पंक्तियों को हिट करने के लिए दोनों फ़िल्टर को बदल सकते हैं (उदाहरण के लिए, WHERE में एक शर्त जोड़कर कि मूल्य सूची पोस्ट की गई है) और ऑर्डर। यह ध्यान दिया जाना चाहिए कि ऑब्जेक्ट स्वयं या इसके आंतरिक पहचानकर्ता, दूसरे पैरामीटर द्वारा चयन क्रम में जोड़ा गया है। यह आवश्यक है ताकि मूल्य मूल्य हमेशा एक अनूठे तरीके से निर्धारित हो।

प्राप्त मूल्य सूची लाइन के आधार पर, हम मूल्य मूल्य और उसकी वैधता अवधि निर्धारित करते हैं:

price '' (Product p, Stock s, DATE dt) = price(priceListDetail(p, s, dt));
fromDate ' ' (Product p, Stock s, DATE dt) = fromDate(priceListDetail(p, s, dt));
toDate ' ' (Product p, Stock s, DATE dt) = toDate(priceListDetail(p, s, dt));

उन्हें आगे यूजर इंटरफेस टेबल में उपयोग किया जाएगा।

अगला, हम उपयोगकर्ता इंटरफ़ेस के निर्माण के लिए आगे बढ़ते हैं। सबसे पहले, हम मूल्य सूची के संपादन के लिए एक फॉर्म तैयार करते हैं। एक फॉर्म बनाएँ और वहाँ दस्तावेज़ के "हेडर" को जोड़ें:

FORM priceList '-'
OBJECTS p = PriceList PANEL
PROPERTIES (p) fromDate, toDate

EDIT PriceList OBJECT p
;

फॉर्म में मूल्य सूची लाइन जोड़ें:

EXTEND FORM priceList
OBJECTS d = PriceListDetail
PROPERTIES (d) nameProduct, price
PROPERTIES (d) NEW , DELETE
FILTERS priceList(d) = p
;

अगला, एक पेड़ जोड़ें जिसमें समूह और गोदाम दोनों होंगे:

EXTEND FORM priceList
TREE stocks g = Group PARENT parent, s = Stock
PROPERTIES READONLY name(g), name(s)
PROPERTIES dataIn(p, g), in(p, g)
PROPERTIES dataIn(p, s), in(p, s)
FILTERS group(s) = g
;

समूहों और गोदामों के लिए गुणों को एक ही समय में पेड़ में जोड़ा जाता है। प्लेटफ़ॉर्म, ऑब्जेक्ट के आधार पर, इस या उस प्रॉपर्टी को फॉर्म में जोड़े जाने के क्रम में दिखाएगा।

हम फॉर्म के डिज़ाइन को कस्टमाइज़ करते हैं ताकि सामान और वेयरहाउस अलग-अलग टैब में तैयार हों:

DESIGN priceList {
OBJECTS {
NEW pane {
fill = 1 ;
type = TABBED ;
MOVE BOX (d) { caption = '' ; }
MOVE BOX ( TREE stocks) { caption = '' ; }
}
}
}

संपादन फ़ॉर्म इस तरह दिखाई देगा:

यह मूल्य प्रबंधन के मूल रूप का निर्माण करने के लिए बनी हुई है। इसमें दो टैब शामिल होंगे। पहले वाले को सभी मूल्य सूचियों की एक सूची दिखाई देगी (जो कमिट की सूची के समान है)। दूसरा टैब चयनित तिथि के लिए एक विशिष्ट गोदाम के लिए वर्तमान कीमतों को प्रदर्शित करेगा।

पहले टैब को लागू करने के लिए, त्वरित पूर्वावलोकन के लिए लाइनों के साथ मूल्य सूचियों की एक सूची बनाएं।

FORM managePrices ' '
OBJECTS p = PriceList
PROPERTIES (p) READONLY fromDate, toDate, stocks, createdTime, nameCreatedUser
PROPERTIES (p) NEWSESSION NEW , EDIT , DELETE

OBJECTS d = PriceListDetail
PROPERTIES (d) READONLY nameProduct, price
FILTERS priceList(d) = p
;

दूसरे टैब के लिए, हम पहले उस तारीख को जोड़ते हैं जिस पर कीमतें प्रदर्शित की जाती हैं, गोदाम समूहों का पेड़, साथ ही साथ गोदामों को स्वयं:

EXTEND FORM managePrices
OBJECTS dt = DATE PANEL
PROPERTIES VALUE (dt)

TREE groups g = Group PARENT parent
PROPERTIES READONLY name(g)

OBJECTS s = Stock
PROPERTIES (s) READONLY name, nameGroup
FILTERS level(group(s), g)
;

वेयरहाउस की सूची उन सभी वेयरहाउस को दिखाएगी जो शीर्ष पर चयनित समूह के वंशज हैं।

इसके बाद, उस माल की एक सूची बनाएं, जिसके लिए चयनित तिथि पर गोदाम के लिए वैध मूल्य हैं:

EXTEND FORM managePrices
OBJECTS pr = Product
PROPERTIES READONLY name(pr), price(pr, s, dt), fromDate(pr, s, dt), toDate(pr, s, dt)
FILTERS price(pr, s, dt)
;

मूल्य और वैधता अवधि दोनों ही कॉलम में जोड़े जाते हैं। आप मूल्य सूची संख्या भी जोड़ सकते हैं - फिर यह तालिका संस्करण नियंत्रण प्रणालियों में एनोटेशन के तर्क के समान होगी।

उपयोगकर्ता को यह समझने के लिए कि ऐसी कीमत कहाँ से आई है, हम उपयुक्त सामान और गोदामों के साथ मूल्य सूची लाइनों की सूची को नीचे जोड़ते हैं:

EXTEND FORM managePrices
OBJECTS prd = PriceListDetail
PROPERTIES READONLY BACKGROUND (priceListDetail(pr, s, dt) = prd)
fromDate(prd), toDate(prd), '' = stocks(priceList(prd)), price(prd)
FILTERS product(prd) = pr AND in(priceList(prd), s)
;

बैकग्राउंड विशेषता का उपयोग करते हुए , तालिका में दिखाए गए मूल्य को निर्धारित करने वाली पंक्ति को उजागर करें।

इसके अलावा, उपयोगकर्ता की सुविधा के लिए, हम इस कहानी के तुरंत बाद एक नए सत्र में संबंधित मूल्य सूची के संपादन फॉर्म को खोलने की क्षमता जोड़ देंगे:

edit (PriceListDetail d) + { edit(priceList(d)); }
EXTEND FORM managePrices
PROPERTIES (prd) NEWSESSION EDIT
;

इसे प्राप्त करने के लिए, आपको उस कार्रवाई को निर्दिष्ट करने की आवश्यकता होती है, जब आप अंतर्निहित कार्रवाई को कार्यान्वित करके एक पंक्ति को संपादित करने का प्रयास करेंगे। फिर, डायलॉग कॉल के माध्यम से किसी ऑब्जेक्ट को संपादित करने के लिए एक मानक बटन को मानक तरीके से फ़ॉर्म में जोड़ा जाता है।

और अंत में, हम फॉर्म का अंतिम डिजाइन बनाते हैं:

DESIGN managePrices {
OBJECTS {
NEW pane {
fill = 1 ;
type = TABBED ;
NEW priceLists {
caption = '-' ;
MOVE BOX (p);
MOVE BOX (d);
}
NEW prices {
caption = '' ;
fill = 1 ;
type = SPLITH ;
NEW leftPane {
MOVE BOX (dt);
MOVE BOX ( TREE groups);
MOVE BOX (s);
}
NEW rightPane {
fill = 3 ;
type = SPLITV ;
MOVE BOX (pr) { fill = 3 ; }
MOVE BOX (prd);
}
}
}
}
}

यहां, पान कंटेनर को पहले जोड़ा जाता है, जिसमें दो टैब होते हैं: प्राइसलिस्ट और कीमतें । उनमें से पहला सिर्फ मूल्य सूची और लाइनों की एक सूची जोड़ता है। दूसरे में, दो पैनल बनाए जाते हैं: लेफ्टपेन और राइटपैन । बाएं पैनल में दिनांक और वेयरहाउस होते हैं, और दाएं पैनल में सामान और मूल्य इतिहास होता है।

परिणाम

परिणामी तर्क का उपयोग करने के लिए मुख्य विकल्पों पर विचार करें।

मान लीजिए कि सामानों के विभिन्न समूहों के लिए हमारे पास दो अलग-अलग मूल्य सूची हैं। फिर, चयनित गोदाम के आधार पर, कीमतों के साथ टैब में, संबंधित मूल्य सूचियों के केवल उत्पादों को प्रदर्शित किया जाएगा:

अब एक सीमित वैधता अवधि, गोदामों की एक छीन डाउन सूची और एक नई कीमत के साथ एक नई मूल्य सूची बनाएं। दूसरे टैब पर, यदि हम नई मूल्य सूची की सीमा में एक तारीख का चयन करते हैं, तो हमें उससे एक नई कीमत मिलेगी। जैसे ही वैधता अवधि समाप्त होगी, पुरानी कीमत फिर से मूल मूल्य से वापस आ जाएगी:

एक ही तंत्र का उपयोग करके, आप एक निश्चित तिथि से विशिष्ट कीमतों की कार्रवाई को "रद्द" कर सकते हैं। उदाहरण के लिए, यदि आप किसी मूल्य को निर्दिष्ट किए बिना एक नई कीमत दर्ज करते हैं, तो यह पता चलता है कि मूल्य रीसेट हो जाएगा और माल फिल्टर से गायब हो जाएगा। इस मामले में, दर्ज किए गए दस्तावेज़ को हटाते समय, सब कुछ पुरानी स्थिति में लौट आता है:

वेयरहाउस द्वारा माल की कीमत के साथ परिणामी संपत्ति को आगे विभिन्न घटनाओं या अन्य रूपों में उपयोग किया जा सकता है। उदाहरण के लिए, आप इस मूल्य निर्धारण तर्क के आधार पर स्वचालित मूल्य निर्धारण कर सकते हैं:

WHEN LOCAL CHANGED (sku(UserOrderDetail d)) OR CHANGED (stock(d)) OR CHANGED (dateTime(d)) DO
price(d) <- price(sku(d), stock(d), dateTime(d));

इस तर्क में एक अच्छा बोनस यह है कि जब आप समूह में एक नया गोदाम जोड़ते हैं, तो पहले से बनाई गई मूल्य सूचियों से कीमतें स्वचालित रूप से उस पर लागू होंगी। गोदाम के लिए समूह बदलने पर यही बात होगी।

यदि आप चाहें, तो आप मौजूदा कीमतों के साथ टैब पर मूल्य के साथ कॉलम को संपादन योग्य बना सकते हैं और एक बटन जोड़ सकते हैं जो बदली हुई कीमतों के लिए एक नई प्रतिबद्धता पैदा करेगा।

निष्कर्ष

मंच स्तर पर समाधान में, न तो संदर्भ पुस्तकों, न ही तार के साथ दस्तावेज़, न ही रजिस्टर, और न ही रिपोर्ट और अन्य अनावश्यक सार का उपयोग किया जाता है। सब कुछ विशेष रूप से वर्गों और गुणों की अवधारणाओं पर किया जाता है। ध्यान दें कि यह काफी जटिल तर्क lsFusion पर कोड के लगभग 150 सार्थक लाइनों में लागू किया गया था। इसे अन्य प्लेटफार्मों में उसी सूत्रीकरण में लागू करना (उदाहरण के लिए, 1 सी) अधिक कठिन कार्य है।

ऊपर वर्णित योजना का व्यापक रूप से lsFusion आधारित ERP समाधान में उपयोग किया जाता है। विभिन्न संशोधनों के साथ इसका उपयोग करते हुए, आपूर्तिकर्ताओं की मूल्य सूची, प्रबंधन खुदरा मूल्य, स्टॉक और कई अन्य प्रबंधन मापदंडों का समर्थन किया जाता है।

दस्तावेज़ में कई संस्थाओं को जोड़कर टेम्पलेट को जटिल किया जा सकता है (उदाहरण के लिए, एक आपूर्तिकर्ता को गोदाम में जोड़ा जा सकता है), साथ ही एक बार में एक दस्तावेज़ में कई विशेषताओं को परिभाषित करना। विशेष रूप से, आप इकाई मूल्य प्रकार जोड़ सकते हैं, और दस्तावेज़ पंक्ति में लाइन के टुपल और संबंधित मूल्य प्रकार के लिए मूल्य निर्धारित करें। ऊपर वर्णित तर्क में, आपको बस कुछ गुणों के लिए कुछ अतिरिक्त पैरामीटर जोड़ने की आवश्यकता है।

कोड की कई अतिरिक्त लाइनों की मदद से, सभी परिवर्तन रिकॉर्ड को एक तालिका में विभाजित करना संभव है, जिस पर संबंधित सूचकांक का निर्माण करना है। फिर किसी भी तारीख के लिए किसी भी मूल्य का चयन एक लघुगणकीय समय में किया जाएगा। इस तालिका में कई सौ मिलियन रिकॉर्ड होने पर ऐसा अनुकूलन आवश्यक है।

आप साइट (अनुभाग प्लेटफ़ॉर्म) के संबंधित पृष्ठ पर ऑनलाइन निर्मित उदाहरण आज़मा सकते हैं। यहाँ संपूर्ण स्रोत कोड है जिसे आपको वांछित क्षेत्र में पेस्ट करने की आवश्यकता है:

स्रोत कोड

REQUIRE Authentication, Time;

CLASS Group ' ' ;
name '' = DATA ISTRING [ 50 ] (Group);

parent = DATA Group (Group);
nameParent ' ' (Group g) = name(parent(g));

level '' (Group child, Group parent) =
RECURSION 1l IF child IS Group AND parent = child
STEP 2l IF parent = parent($parent) MATERIALIZED ;

FORM group ' '
OBJECTS g = Group PANEL
PROPERTIES (g) name, nameParent

EDIT Group OBJECT g
;

FORM groups ' '
OBJECTS g = Group
PROPERTIES (g) READONLY name, nameParent
PROPERTIES (g) NEWSESSION NEW , EDIT , DELETE

LIST Group OBJECT g
;

NAVIGATOR {
NEW groups;
}

CLASS Stock '' ;
name '' = DATA ISTRING [ 50 ] (Stock);

group '' = DATA Group (Stock);
nameGroup '' (Stock st) = name(group(st));

FORM stock ''
OBJECTS s = Stock PANEL
PROPERTIES (s) name, nameGroup

EDIT Stock OBJECT s
;

FORM stocks ''
OBJECTS s = Stock
PROPERTIES (s) READONLY name, nameGroup
PROPERTIES (s) NEWSESSION NEW , EDIT , DELETE

LIST Stock OBJECT s
;

NAVIGATOR {
NEW stocks;
}

CLASS Product '' ;
name '' = DATA ISTRING [ 50 ] (Product);

FORM product ''
OBJECTS p = Product PANEL
PROPERTIES (p) name

EDIT Product OBJECT p
;

FORM products ''
OBJECTS p = Product
PROPERTIES (p) READONLY name
PROPERTIES (p) NEWSESSION NEW , EDIT , DELETE

LIST Product OBJECT p
;

NAVIGATOR {
NEW products;
}

CLASS PriceList '-' ;
fromDate ' ' = DATA DATE (PriceList);
toDate ' ' = DATA DATE (PriceList);

createdTime ' ' = DATA DATETIME (PriceList);
createdUser = DATA User (PriceList);
nameCreatedUser '' (PriceList p) = name(createdUser(p));

WHEN LOCAL SET (PriceList p IS PriceList) DO
fromDate(p) <- currentDate();

WHEN SET (PriceList p IS PriceList) DO {
createdTime(p) <- currentDateTime();
createdUser(p) <- currentUser();
}

CLASS PriceListDetail ' -' ;
priceList = DATA PriceList (PriceListDetail) NONULL DELETE ;

product = DATA Product (PriceListDetail);
nameProduct '' (PriceListDetail d) = name(product(d));

price '' = DATA NUMERIC [ 10 , 2 ] (PriceListDetail);

fromDate ' ' (PriceListDetail d) = fromDate(priceList(d));
toDate ' ' (PriceListDetail d) = toDate(priceList(d));

dataIn '' = DATA BOOLEAN (PriceList, Group);

in ' ()' (PriceList p, Group child) =
GROUP LAST dataIn(p, Group parent) ORDER DESC level(child, parent) WHERE dataIn(p, parent);

dataIn '' = DATA BOOLEAN (PriceList, Stock);
in '' (PriceList p, Stock s) = dataIn(p, s) OR in(p, group(s));

stocks '' (PriceList p) = CONCAT ' / ' ,
GROUP CONCAT name(Group g) IF dataIn(p, g), ',' ORDER g,
GROUP CONCAT name(Stock s) IF dataIn(p, s), ',' ORDER s
CHARWIDTH 30 ;

priceListDetail (Product p, Stock s, DATE dt) =
GROUP LAST PriceListDetail d
ORDER fromDate(d), d
WHERE product(d) = p AND in(priceList(d), s) AND
fromDate(d) <= dt AND NOT toDate(d) < dt;

price '' (Product p, Stock s, DATE dt) = price(priceListDetail(p, s, dt));
fromDate ' ' (Product p, Stock s, DATE dt) = fromDate(priceListDetail(p, s, dt));
toDate ' ' (Product p, Stock s, DATE dt) = toDate(priceListDetail(p, s, dt));

FORM priceList '-'
OBJECTS p = PriceList PANEL
PROPERTIES (p) fromDate, toDate

EDIT PriceList OBJECT p
;

EXTEND FORM priceList
OBJECTS d = PriceListDetail
PROPERTIES (d) nameProduct, price
PROPERTIES (d) NEW , DELETE
FILTERS priceList(d) = p
;

EXTEND FORM priceList
TREE stocks g = Group PARENT parent, s = Stock
PROPERTIES READONLY name(g), name(s)
PROPERTIES dataIn(p, g), in(p, g)
PROPERTIES dataIn(p, s), in(p, s)
FILTERS group(s) = g
;

DESIGN priceList {
OBJECTS {
NEW pane {
fill = 1 ;
type = TABBED ;
MOVE BOX (d) { caption = '' ; }
MOVE BOX ( TREE stocks) { caption = '' ; }
}
}
}

FORM managePrices ' '
OBJECTS p = PriceList
PROPERTIES (p) READONLY fromDate, toDate, stocks, createdTime, nameCreatedUser
PROPERTIES (p) NEWSESSION NEW , EDIT , DELETE

OBJECTS d = PriceListDetail
PROPERTIES (d) READONLY nameProduct, price
FILTERS priceList(d) = p
;

EXTEND FORM managePrices
OBJECTS dt = DATE PANEL
PROPERTIES VALUE (dt)

TREE groups g = Group PARENT parent
PROPERTIES READONLY name(g)

OBJECTS s = Stock
PROPERTIES (s) READONLY name, nameGroup
FILTERS level(group(s), g)
;

EXTEND FORM managePrices
OBJECTS pr = Product
PROPERTIES READONLY name(pr), price(pr, s, dt), fromDate(pr, s, dt), toDate(pr, s, dt)
FILTERS price(pr, s, dt)
;

EXTEND FORM managePrices
OBJECTS prd = PriceListDetail
PROPERTIES READONLY BACKGROUND (priceListDetail(pr, s, dt) = prd)
fromDate(prd), toDate(prd), '' = stocks(priceList(prd)), price(prd)
FILTERS product(prd) = pr AND in(priceList(prd), s)
;

edit (PriceListDetail d) + { edit(priceList(d)); }
EXTEND FORM managePrices
PROPERTIES (prd) NEWSESSION EDIT
;

DESIGN managePrices {
OBJECTS {
NEW pane {
fill = 1 ;
type = TABBED ;
NEW priceLists {
caption = '-' ;
MOVE BOX (p);
MOVE BOX (d);
}
NEW prices {
caption = '' ;
fill = 1 ;
type = SPLITH ;
NEW leftPane {
MOVE BOX (dt);
MOVE BOX ( TREE groups);
MOVE BOX (s);
}
NEW rightPane {
fill = 3 ;
type = SPLITV ;
MOVE BOX (pr) { fill = 3 ; }
MOVE BOX (prd);
}
}
}
}
}

NAVIGATOR {
NEW managePrices;
}

संस्करण नियंत्रण प्रणाली के समान व्यावसायिक अनुप्रयोगों में पैरामीटर प्रबंधन

परिचय

कार्यान्वयन

परिणाम

निष्कर्ष

More articles: