🌯 🚺 👏 À quoi pourraient ressembler les registres dans 1C en présence de POO ✋🏿 👩🏾‍💼 🚷

En 1C, les registres sont l'un des éléments clés du système. Ce terme a son pendant en anglais - grand livre. Il est apparu à l'origine dans la pratique comptable, mais au fil du temps, sa logique a commencé à être utilisée dans d'autres domaines.

Contrairement à 1C, où les registres sont l'un des types intégrés, il n'y a pas un tel concept dans la plate - forme lsFusion elle - même . Mais il y a l'héritage, le polymorphisme et l'agrégation, qui, en particulier, vous permettent d'implémenter une logique de registre similaire. Dans cet article, je vais montrer comment exactement par des exemples.

Un registre est un ensemble d'enregistrements, dont chacun reflète un changement d'état pour un certain ensemble de sujets (ou dimensions).

Dans 1C, il existe 4 types de registres:

Les deux premiers sont hautement spécialisés et ne sont utilisés que pour la comptabilité et la paie. Puisque lsFusion est une plate-forme universelle pour le développement d'applications métier, je ne les considérerai pas, bien qu'il soit assez simple de les implémenter. Arrêtons-nous uniquement sur les deux derniers types de registres.

Registres d'épargne

Toute entrée dans le registre peut être considérée comme un objet d'une classe abstraite. Supposons que vous souhaitiez implémenter un registre simple qui calcule le solde d'un produit en stock.

Pour ce faire, déclarez une classe SkuLedger abstraite:

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 , . , , .

À quoi pourraient ressembler les registres dans 1C en présence de POO

Registres d'épargne

More articles: