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

petshop-30-agreements.spp

petshop/fulfillment/petshop-30-agreements.spp

Download original file · Petstore source contents

1domain petshop;23atomic calculate initializeShipmentAgreement(Buyer, ShopOrder, ShipmentAgreement) {4    ShipmentAgreement.buyer = Buyer;5    ShipmentAgreement.order = ShopOrder;67    ShipmentAgreement.shippedQuantity = 0;8}910atomic calculate initializeDeliveryAgreement(Buyer, ShopOrder, DeliveryAgreement) {11    DeliveryAgreement.buyer = Buyer;12    DeliveryAgreement.order = ShopOrder;13}1415atomic calculate prepareShipmentAgreementReceipt(ShopOrder, ShipmentAgreement) {16    ShipmentAgreement.order = ShopOrder;17    ShipmentAgreement.receipt = new Receipt();18    ShipmentAgreement.receipt.order = ShopOrder;19    ShipmentAgreement.receipt.buyer = ShopOrder.buyer;20    ShipmentAgreement.receipt.status = ReceiptStatus.COMPLETED;21    ShipmentAgreement.receipt.orderStatus = ShopOrder.status;22}2324atomic calculate prepareDeliveryAgreementReceipt(ShopOrder, DeliveryAgreement) {25    DeliveryAgreement.order = ShopOrder;26    DeliveryAgreement.receipt = new Receipt();27    DeliveryAgreement.receipt.order = ShopOrder;28    DeliveryAgreement.receipt.buyer = ShopOrder.buyer;29    DeliveryAgreement.receipt.status = ReceiptStatus.COMPLETED;30    DeliveryAgreement.receipt.orderStatus = ShopOrder.status;31}