⛱️ 😃 🙌🏼 Como os registros em 1C podem parecer na presença de OOP 🖖 🏮 🛣️

Em 1C, os registros são um dos elementos principais do sistema. Este termo tem sua contrapartida no livro de registro em inglês. Ele apareceu originalmente na prática contábil, mas com o tempo, sua lógica começou a ser usada em outras áreas.

Ao contrário do 1C, onde os registros são um dos tipos internos , não existe esse conceito na própria plataforma lsFusion . Mas nele há herança, polimorfismo e agregação, o que, em particular, permite implementar uma lógica de registro semelhante. Neste artigo, mostrarei como exatamente por exemplos.

Um registro é um conjunto de registros, cada um dos quais reflete uma alteração de estado para um determinado conjunto de assuntos (ou dimensões).

Em 1C, existem 4 tipos de registros:

Os dois primeiros são altamente especializados e são usados apenas para contabilidade e folha de pagamento. Como o lsFusion é uma plataforma universal para o desenvolvimento de aplicativos de negócios, não os considerarei, embora seja bastante simples implementá-los. Vamos nos concentrar apenas nos dois últimos tipos de registros.

Registros de poupança

Qualquer entrada no registro pode ser considerada como um objeto de alguma classe abstrata. Suponha que você queira implementar um registro simples que calcule o saldo de um produto em estoque.

Para fazer isso, declare uma classe abstrata do 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 , . , , .

Como os registros em 1C podem parecer na presença de OOP

Registros de poupança

More articles: