S++Business systems language
DEMO SOURCE · SPP / APP / PHYRead the book

petshop-30-agreements.spp

petshop/returns/petshop-30-agreements.spp

Download original file · Petstore source contents

1domain petshop;23atomic calculate initializeReturnRequestAgreement(Buyer, ShopOrder, ReturnRequestAgreement) {4    ReturnRequestAgreement.Buyer = Buyer;5    ReturnRequestAgreement.ShopOrder = ShopOrder;6}78atomic calculate prepareReturnRequestReceipt(ShopOrder, ReturnRequestAgreement) {9    ReturnRequestAgreement.Receipt = new Receipt();10    ReturnRequestAgreement.Receipt.order = ShopOrder;11    ReturnRequestAgreement.Receipt.buyer = ShopOrder.buyer;12    ReturnRequestAgreement.Receipt.status = ReceiptStatus.COMPLETED;13    ReturnRequestAgreement.Receipt.orderStatus = ShopOrder.status;14}1516atomic calculate initializeReturnRefundAgreement(Buyer, Merchant, ShopOrder, ReturnRefundAgreement) {17    ReturnRefundAgreement.buyer = Buyer;18    ReturnRefundAgreement.order = ShopOrder;19    ReturnRefundAgreement.seller = Merchant;2021    ReturnRefundAgreement.returnedQuantity = 0;22    ReturnRefundAgreement.refundAmount = 0;23}2425atomic calculate prepareReturnRefundAgreementReceipt(ShopOrder, ReturnRefundAgreement) {26    ReturnRefundAgreement.order = ShopOrder;27    ReturnRefundAgreement.receipt = new Receipt();28    ReturnRefundAgreement.receipt.order = ShopOrder;29    ReturnRefundAgreement.receipt.buyer = ShopOrder.buyer;30    ReturnRefundAgreement.receipt.status = ReceiptStatus.COMPLETED;31    ReturnRefundAgreement.receipt.orderStatus = ShopOrder.status;32}