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

petshop-30-agreements.spp

petshop/payment/petshop-30-agreements.spp

Download original file · Petstore source contents

1domain petshop;23atomic calculate initializePaymentAgreement(Buyer, Merchant, ShopOrder, PaymentAgreement) {4    PaymentAgreement.buyer = Buyer;5    PaymentAgreement.order = ShopOrder;6    PaymentAgreement.seller = Merchant;78    PaymentAgreement.paymentAmount = 0;9}1011atomic calculate preparePaymentAgreementReceipt(ShopOrder, PaymentAgreement) {12    PaymentAgreement.order = ShopOrder;13    PaymentAgreement.receipt = new Receipt();14    PaymentAgreement.receipt.order = ShopOrder;15    PaymentAgreement.receipt.buyer = ShopOrder.buyer;16    PaymentAgreement.receipt.status = ReceiptStatus.COMPLETED;17    PaymentAgreement.receipt.orderStatus = ShopOrder.status;18}