🔂 📎 💛 1C में क्या रजिस्टर OOP की उपस्थिति में दिख सकते हैं 🤴🏿 🛌 📔

1 सी में, रजिस्टर सिस्टम के प्रमुख तत्वों में से एक हैं। इस शब्द का अंग्रेजी में इसका समकक्ष है - बहीखाता। यह मूल रूप से लेखांकन अभ्यास में दिखाई दिया, लेकिन समय के साथ, इसका तर्क अन्य क्षेत्रों में उपयोग किया जाने लगा।

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

एक रजिस्टर अभिलेखों का एक समूह है, जिनमें से प्रत्येक विषय के एक निश्चित सेट (या आयाम) के लिए एक राज्य परिवर्तन को दर्शाता है।

1C में 4 प्रकार के रजिस्टर हैं:

पहले दो अत्यधिक विशिष्ट हैं और इसका उपयोग केवल लेखांकन और पेरोल के लिए किया जाता है। चूंकि lsFusion व्यावसायिक अनुप्रयोगों को विकसित करने के लिए एक सार्वभौमिक मंच है, मैं उन पर विचार नहीं करूंगा, हालांकि उन्हें लागू करना काफी सरल है। हमें केवल पिछले दो प्रकार के रजिस्टरों पर ध्यान देना चाहिए।

बचत रजिस्टर

रजिस्टर में किसी भी प्रविष्टि को कुछ सार वर्ग की वस्तु माना जा सकता है। मान लीजिए आप एक साधारण रजिस्टर को लागू करना चाहते हैं जो स्टॉक में किसी उत्पाद के संतुलन की गणना करता है।

ऐसा करने के लिए, एक सार SkuLedger वर्ग घोषित करें:

CLASS ABSTRACT SkuLedger '   ';

, ( ).

Sku () Stock () . :

sku 'SKU' = ABSTRACT Sku (SkuLedger);
stock '' = ABSTRACT Stock (SkuLedger);

, :

dateTime '/' = ABSTRACT DATETIME (SkuLedger);

, , , 1 . , .

quantity '-' = ABSTRACT NUMERIC[14,2] (SkuLedger);

balance (Stock st, Sku sk) '' = GROUP SUM quantity(SkuLedger l) IF stock(l) = st AND sku(l) = sk;

, . , . , MATERIALIZED. , , 1.

, :

CONSTRAINT balance(Stock st, Sku sk) < 0 
    MESSAGE '       ';

, , . , , . , , 1 , , 1 .

, , :

balance (Stock st, Sku sk, INTEGER year) = 
    GROUP SUM quantity(SkuLedger l) IF stock(l) = st AND sku(l) = sk AND extractYear(dateTime(l)) = year MATERIALIZED;

. , , .

, :

balance '  ' (Stock st, Sku sk, DATETIME dt) = 
    GROUP SUM quantity(SkuLedger l) IF stock(l) = st AND sku(l) = sk AND dateTime(l) <= dt;

, . . , (MATERIALIZED), :

balance '  ' (Stock st, Sku sk, DATETIME dt) =
   currentBalance(sk, st) (-) (GROUP SUM quantity(SkuLedger l) IF stock(l) = st AND sku(l) = sk AND dateTime(l) > dt);

, , dateTime :

INDEX dateTime(SkuLedger l);

, .

, . :

CLASS Receipt '  ';
dateTime '/' = DATA DATETIME (Receipt);
stock '' = DATA Stock (Receipt);

CLASS ReceiptDetail '   ';
receipt '' = DATA Receipt (ReceiptDetail) NONULL DELETE;

sku 'SKU' = DATA SKU (ReceiptDetail);

quantity '-' = DATA NUMERIC[14,2] (ReceiptDetail);
price '' = DATA NUMERIC[14,2] (ReceiptDetail);

, . ReceiptDetail SkuLedger:

EXTEND CLASS ReceiptDetail : SkuLedger;

, , :

dateTime(ReceiptDetail d) += dateTime(receipt(d));

stock(ReceiptDetail d) += stock(receipt(d));

sku(ReceiptDetail d) += sku(d);
quantity(ReceiptDetail d) += quantity(d);

, .

, :

CLASS Transfer '    ';
posted '' = DATA BOOLEAN (Transfer);
dateTime '/' = DATA DATETIME (Transfer);

fromStock ' ()' = DATA Stock (Transfer);
toStock ' ()' = DATA Stock (Transfer);

CLASS TransferDetail '   ';
transfer '' = DATA Transfer (TransferDetail) NONULL DELETE;

sku 'SKU' = DATA SKU (TransferDetail);

quantity '-' = DATA NUMERIC[14,2] (TransferDetail);
price '' = DATA NUMERIC[14,2] (TransferDetail);

, . () , . , :

EXTEND CLASS TransferDetail : SkuLedger;

dateTime(TransferDetail d) += dateTime(transfer(d));

stock(TransferDetail d) += fromStock(transfer(d));

sku(TransferDetail d) += sku(d);
quantity(TransferDetail d) += -quantity(d);

, , .

, , , TransferSkuLedger, SkuLedger:

CLASS TransferSkuLedger '   ()' : SkuLedger;
transferSkuLedger = AGGR TransferSkuLedger WHERE stockTo(transfer(TransferDetail transferDetail));

AGGR , , , TransferSkuLedger, . .
:

dateTime(TransferSkuLedger d) += dateTime(transfer(transferDetail(d)));

stock(TransferSkuLedger d) += toStock(transfer(transferDetail(d)));

sku(TransferSkuLedger d) += sku(transferDetail(d));
quantity(TransferSkuLedger d) += quantity(transferDetail(d));

, , .

, 1 , :

, . , .

, , . , . , .

, , .

. :

CLASS ABSTRACT PriceLedger '   ';

dateTime '/' = ABSTRACT DATETIME (PriceLedger);

sku 'SKU' = ABSTRACT SKU (PriceLedger);
stock '' = ABSTRACT Stock (PriceLedger);

price '' = ABSTRACT NUMERIC[14,2] (PriceLedger);

price '' (Stock st, Sku sk, DATETIME dt) = 
    GROUP LAST price(PriceLedger l)
          ORDER dateTime(l), l
          WHERE dateTime(l) <= dt
          BY stock(l), sku(l);

, , . , , :

INDEX stock(PriceLedger l), sku(l), dateTime(l), l;

, , 1, lsFusion . , .

, :

EXTEND CLASS ReceiptDetail : PriceLedger;

dateTime(ReceiptDetail d) += dateTime(receipt(d));

stock(ReceiptDetail d) += stock(receipt(d));

sku(ReceiptDetail d) += sku(d);
price(ReceiptDetail d) += price(d);

1 , ( ). , 1 . , , , , (), .

lsFusion , . , , .

1C में क्या रजिस्टर OOP की उपस्थिति में दिख सकते हैं

बचत रजिस्टर

More articles: