w8 · tx · Gor···VpE

tx · Gorpw2X1q6e3NPPmBVnEsLuquv28jVLo5rY6y5sY8VpE

3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k:  -0.01400000 Waves

2020.08.18 15:34 [1138312] smart account 3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Gorpw2X1q6e3NPPmBVnEsLuquv28jVLo5rY6y5sY8VpE",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1597754040076,
    "version": 1,
    "sender": "3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k",
    "senderPublicKey": "7FQufF9XhJBsTdvrn67eWxYT7ZxDwzjuXAprkWiHrS3Y",
    "proofs": [
        "4exBwGb3R6Yz6pHFxLXzkmKSPq3y2uov86FaRwiUqEfVL1XvJxZ9JzQSEwfVVBDGeQMjxCjkh1qdiXJbnCcx3sH8"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIECgIICBIHCgUICAgIARIECgIIAQAAACoAAAAAB3hCaXRDTzIBAAAAICAEZKaqA3sNb6aq+pclWLOWiXpTDP/vusZoh2yDVNyNAAAAAAhzdGFydFF0eQAAAAAAAASqHQAAAAAMRmlyc3RGYXNlUXR5AAAAAAAAAHnZAAAAAA1TZWNvbmRGYXNlUXR5AAAAAAAABDBEAAAAAAhub21QcmljZQAAAAAAAAAAAQAAAAADd3ZzAAAAAAAF9eEAAAAAABBzdXBwbGllckRpc2NvdW50AAAAAAAAAAAMAAAAAAROT05FAgAAAARub25lAAAAAAtPd25lclB1YktleQEAAAAgXNdJIM57S2At8HU18j+g+Sd9q4Ac8pt9JaEK2Onv9h8AAAAABmlzc3VlcgkBAAAAB0FkZHJlc3MAAAABAQAAACAvfl8GuDGccyaiBLhG+5I/bitn0ojPaO02SQ7jH5LcEQAAAAAEZUFkZAkBAAAAB0FkZHJlc3MAAAABAQAAACDpc36Tei0iAGkRGZLM03QiZonvwRKoKxR9Z8j3EmfoRAAAAAAEcEFkZAkBAAAAB0FkZHJlc3MAAAABAQAAABoBVOfaAU+duF2N3KEjaN5+JgyNthefOf5YvQAAAAADaWd2AAAAAAAAAAASAAAAAANjUEIAAAAAAAAAAFgAAAAAA3VJUAAAAAAAAAAABwAAAAADcElQAAAAAAAAAAAKAAAAAANzSVAAAAAAAAAAAAEAAAAAA2VJUAAAAAAAAAAAAQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABhCaXQtQ08yIFNob3AsIExpbWEtUGVyw7oBAAAACmdldEtleUl0ZW0AAAACAAAACHN1cHBsaWVyAAAABGl0ZW0JAAEsAAAAAgkAASwAAAACAgAAAA5Qcm9kdWN0by1HVFM6IAIAAAABIAkAAlgAAAABCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0CAAAACk9yZGVyX+KEljoBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAR1c2VyBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEAAAAEaXRlbQIAAAAYQ2F0ZWdvcsOtYSBkZWwgUHJvZHVjdG86AQAAABBnZXRWYWx1ZUl0ZW1OYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5SXRlbU5hbWUAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEAAAAEaXRlbQIAAAATTm9tYnJlIGRlbCBVc3VhcmlvOgEAAAAQZ2V0VmFsdWVVc2VyTmFtZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleVVzZXJOYW1lAAAAAQUAAAAEaXRlbQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQAAAARpdGVtAgAAACPihJYgZGUgRG9jdW1lbnRvIC8gRE5JIGRlbCBVc3VhcmlvOgEAAAAUZ2V0VmFsdWVVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEAAAAEaXRlbQIAAAAuVG9rZW5zIE9mZXJ0YWRvcyBlbiBsYSBwcmVzZW50ZSBldGFwYSAvIFNhbGRvOgEAAAAfZ2V0VmFsdWVTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtAgAAABpCYWxhbmNlL1NhbGRvIEdUUywgdG9rZW5zOgEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAABZJbmdyZXNvcyBwb3IgVmVudGFHVFM6AQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgEAAAAIZ2V0S2V5VUkAAAABAAAABGl0ZW0CAAAACFVJLF93dnM6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAGUEksXyU6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAGU0ksXyU6AQAAAApnZXRWYWx1ZVNJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtAAAAAwAAAAFpAQAAAAdkZXBvc2l0AAAAAgAAAAV0aXRsZQAAAAxzdXBwbGllckRhdGEEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAd4Qml0Q08yCQAAAgAAAAECAAAAKWRlcG9zaXRvIHBlcm1pdGlkbyBzb2xvIGVuIHhCaXRDTzIgdG9rZW5zBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAABxObyBoYXkgeEJpdENPMiBlbiBzdSBiYWxhbmNlCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAhzdXBwbGllcgUAAAAJbmV3QW1vdW50BQAAAANuaWwAAAABaQEAAAALcHVyY2hhc2VHVFMAAAAFAAAABGl0ZW0AAAAIaXRlbU5hbWUAAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAWRWwgUHJlY2lvIGRlIGxvcyBhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAADVNlY29uZEZhc2VRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3ViVG90YWwJAABlAAAAAgUAAAALdG90YWxBbW91bnQJAABpAAAAAgkAAGgAAAACBQAAAANpZ3YFAAAAC3RvdGFsQW1vdW50AAAAAAAAAABkBAAAAAJ1SQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAAN1SVAAAAAAAAAAAGQEAAAAA3VCSQkAAGkAAAACBQAAAAJ1SQUAAAADY1BCBAAAAAJwSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANwSVAAAAAAAAAAAGQEAAAAAmVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAAAAAAAAAAAZAQAAAADZUJJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQEAAAAAnNJCQAAZQAAAAIJAABlAAAAAgUAAAALdG90YWxBbW91bnQFAAAAAnBJBQAAAAJlSQQAAAADc0JJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NJUAkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQEAAAAClFWZW50YXNndHMJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAAAAAAAAAAACwkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABGl0ZW0FAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0FAAAACGl0ZW1OYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAATUGF5bWVudF9hbW91bnQsX3d2cwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABkltcCwgJQUAAAADaWd2CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAlTVHRsLCB3dnMFAAAACHN1YlRvdGFsCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAtDUCAxIEIsIHd2cwkAAGgAAAACBQAAAANjUEIAAAAAAAAPQkAJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAAnVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAANVQkkFAAAAA3VCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQUAAAACcEkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABUVjU3lzBQAAAANlQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0FAAAAAnNJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZTQkk6IGIFAAAAA3NCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA5PcmRlcl9TdGF0dXM6XwUAAAALdXNlckFkZHJlc3MCAAAAGEFkcXVpc2ljacOzbiBDb25maXJtYWRhIQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAANUXBvclZlbnRhc0dUUwUAAAAKUVZlbnRhc2d0cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZQAAAAIFAAAADVNlY29uZEZhc2VRdHkFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1QkkFAAAAB3hCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAACcEkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAAJzSQUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAA3NCSQUAAAAHeEJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAAJlSQUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAANlQkkFAAAAB3hCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAArRWwgYmFsYW5jZSBkZSByZXRpcm8gbm8gcHVlZGUgc2VyIG5lZ2F0aXZvIQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHk9vcHBzcy4uIEluc3VmaWNpZW50ZSBiYWxhbmNlIQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAd4Qml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAAtPd25lclB1YktleQMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgYJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAASUmVpc3N1ZVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNFeGNoYW5nZVRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAQAAAAJd2l0aFdhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAApwcmljZUFzc2V0BgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAAthbW91bnRBc3NldAUAAAAJd2l0aFdhdmVzB5kT99w=",
    "chainId": 84,
    "height": 1138312,
    "spentComplexity": 0
}

View: original | compacted
Prev: Cqw6iT7EppMQNJKfkYv5RDVG91hTRuSLvBa3R9MJ8piX
Next: FYVsBvUck9xhb6rerwM2MuAVokJRp4NgdUEzu6D5fNuA

Diff: 
Old New Differences
148 148  
149 149  
150 150  @Callable(i)
151 - func purchaseGTS (item,userName,userDocument,totalAmount) = {
151 + func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
152 152      let pmt = extract(i.payment)
153 153      if (isDefined(pmt.assetId))
154 154          then throw("El Precio de los aves.")
185 185                  then throw("Payment Amount can't be less than item Purchase Order")
186 186                  else if ((pmt.amount > totalAmount))
187 187                      then throw("Payment Amount can't be higher than item Purchase Order")
188 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
189 189              }
190 190      }
191 191  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let xBitCO2 = base58'39yw38hm342hiK43SqELTaZRkTWJoBc22XpxmsSiBrsN'
5 5  
6 6  let startQty = 305693
7 7  
8 8  let FirstFaseQty = 31193
9 9  
10 10  let SecondFaseQty = 274500
11 11  
12 12  let nomPrice = 1
13 13  
14 14  let wvs = 100000000
15 15  
16 16  let supplierDiscount = 12
17 17  
18 18  let NONE = "none"
19 19  
20 20  let OwnerPubKey = base58'7FQufF9XhJBsTdvrn67eWxYT7ZxDwzjuXAprkWiHrS3Y'
21 21  
22 22  let issuer = Address(base58'4CPvf7HYx8YmgeJPYeXhhC76cvGzV16vxvPwZCxVH8b2')
23 23  
24 24  let eAdd = Address(base58'GiJ8yN72wG35H2Cg1qYERtqFNbZuWav2QskRKnDjggZH')
25 25  
26 26  let pAdd = Address(base58'3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k')
27 27  
28 28  let igv = 18
29 29  
30 30  let cPB = 88
31 31  
32 32  let uIP = 7
33 33  
34 34  let pIP = 10
35 35  
36 36  let sIP = 1
37 37  
38 38  let eIP = 1
39 39  
40 40  func getNumberByKey (key) = {
41 41      let num =     match getInteger(this, key) {
42 42          case a: Int => 
43 43              a
44 44          case _ => 
45 45              0
46 46      }
47 47      num
48 48      }
49 49  
50 50  
51 51  func getStrByKey (key) = {
52 52      let str =     match getString(this, key) {
53 53          case a: String => 
54 54              a
55 55          case _ => 
56 56              NONE
57 57      }
58 58      str
59 59      }
60 60  
61 61  
62 62  func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
63 63  
64 64  
65 65  func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
66 66  
67 67  
68 68  func getKeyUserItemGtsCounter (user,item) = "Order_№:"
69 69  
70 70  
71 71  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
72 72  
73 73  
74 74  func getKeyItemName (item) = "Categoría del Producto:"
75 75  
76 76  
77 77  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
78 78  
79 79  
80 80  func getKeyUserName (item) = "Nombre del Usuario:"
81 81  
82 82  
83 83  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
84 84  
85 85  
86 86  func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
87 87  
88 88  
89 89  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
90 90  
91 91  
92 92  func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo:"
93 93  
94 94  
95 95  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
96 96  
97 97  
98 98  func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, tokens:"
99 99  
100 100  
101 101  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
102 102  
103 103  
104 104  func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS:"
105 105  
106 106  
107 107  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
108 108  
109 109  
110 110  func getKeyUI (item) = "UI,_wvs:"
111 111  
112 112  
113 113  func getValueUI (item) = getNumberByKey(getKeyUI(item))
114 114  
115 115  
116 116  func getKeyPI (item) = "PI,_%:"
117 117  
118 118  
119 119  func getValuePI (item) = getNumberByKey(getKeyPI(item))
120 120  
121 121  
122 122  func getKeySI (item) = "SI,_%:"
123 123  
124 124  
125 125  func getValueSI (item) = getNumberByKey(getKeySI(item))
126 126  
127 127  
128 128  @Callable(i)
129 129  func deposit (title,supplierData) = {
130 130      let pmt = extract(i.payment)
131 131      if ((pmt.assetId != xBitCO2))
132 132          then throw("deposito permitido solo en xBitCO2 tokens")
133 133          else {
134 134              let supplier = toBase58String(i.caller.bytes)
135 135              let currentAmount =             match getInteger(this, supplier) {
136 136                  case a: Int => 
137 137                      a
138 138                  case _ => 
139 139                      startQty
140 140              }
141 141              let newAmount = (currentAmount + pmt.amount)
142 142              if ((0 >= newAmount))
143 143                  then throw("No hay xBitCO2 en su balance")
144 144                  else WriteSet([DataEntry(supplier, newAmount)])
145 145              }
146 146      }
147 147  
148 148  
149 149  
150 150  @Callable(i)
151 - func purchaseGTS (item,userName,userDocument,totalAmount) = {
151 + func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
152 152      let pmt = extract(i.payment)
153 153      if (isDefined(pmt.assetId))
154 154          then throw("El Precio de los aves.")
155 155          else {
156 156              let supplier =             match getString(this, getKeyItemSupplier(item)) {
157 157                  case a: String => 
158 158                      a
159 159                  case _ => 
160 160                      NONE
161 161              }
162 162              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
163 163                  case a: Int => 
164 164                      a
165 165                  case _ => 
166 166                      SecondFaseQty
167 167              }
168 168              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
169 169                  case a: Int => 
170 170                      a
171 171                  case _ => 
172 172                      0
173 173              }
174 174              let userAddress = toBase58String(i.caller.bytes)
175 175              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
176 176              let uI = ((subTotal * uIP) / 100)
177 177              let uBI = (uI / cPB)
178 178              let pI = ((subTotal * pIP) / 100)
179 179              let eI = ((subTotal * eIP) / 100)
180 180              let eBI = ((subTotal * eIP) / (cPB * 100))
181 181              let sI = ((totalAmount - pI) - eI)
182 182              let sBI = ((subTotal * sIP) / (cPB * 100))
183 183              let QVentasgts = ((subTotal * 11) / (cPB * 100))
184 184              if ((totalAmount > pmt.amount))
185 185                  then throw("Payment Amount can't be less than item Purchase Order")
186 186                  else if ((pmt.amount > totalAmount))
187 187                      then throw("Payment Amount can't be higher than item Purchase Order")
188 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
189 189              }
190 190      }
191 191  
192 192  
193 193  
194 194  @Callable(i)
195 195  func withdraw (item,amount) = {
196 196      let userAddress = toBase58String(i.caller.bytes)
197 197      let supplier =     match getString(this, getKeyItemSupplier(item)) {
198 198          case a: String => 
199 199              a
200 200          case _ => 
201 201              NONE
202 202      }
203 203      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
204 204          case a: Int => 
205 205              a
206 206          case _ => 
207 207              startQty
208 208      }
209 209      let newAmount = (preIcoQty - amount)
210 210      if ((0 > amount))
211 211          then throw("El balance de retiro no puede ser negativo!")
212 212          else if ((0 >= newAmount))
213 213              then throw("Ooppss.. Insuficiente balance!")
214 214              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, xBitCO2)]))
215 215      }
216 216  
217 217  
218 218  @Verifier(tx)
219 219  func verify () = match tx {
220 220      case t: SetScriptTransaction => 
221 221          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
222 222      case d: DataTransaction|ReissueTransaction => 
223 223          true
224 224      case tx: TransferTransaction => 
225 225          true
226 226      case tx: ExchangeTransaction => 
227 227          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
228 228              then true
229 229              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
230 230          withWaves
231 231      case _ => 
232 232          false
233 233  }
234 234

Old	New		Differences
148	148
149	149
150	150		@Callable(i)
151		-	func purchaseGTS (item,userName,userDocument,totalAmount) = {
	151	+	func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
152	152		let pmt = extract(i.payment)
153	153		if (isDefined(pmt.assetId))
154	154		then throw("El Precio de los aves.")

185	185		then throw("Payment Amount can't be less than item Purchase Order")
186	186		else if ((pmt.amount > totalAmount))
187	187		then throw("Payment Amount can't be higher than item Purchase Order")
188		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), ~~item~~), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
	188	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
189	189		}
190	190		}
191	191

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let xBitCO2 = base58'39yw38hm342hiK43SqELTaZRkTWJoBc22XpxmsSiBrsN'
5	5
6	6		let startQty = 305693
7	7
8	8		let FirstFaseQty = 31193
9	9
10	10		let SecondFaseQty = 274500
11	11
12	12		let nomPrice = 1
13	13
14	14		let wvs = 100000000
15	15
16	16		let supplierDiscount = 12
17	17
18	18		let NONE = "none"
19	19
20	20		let OwnerPubKey = base58'7FQufF9XhJBsTdvrn67eWxYT7ZxDwzjuXAprkWiHrS3Y'
21	21
22	22		let issuer = Address(base58'4CPvf7HYx8YmgeJPYeXhhC76cvGzV16vxvPwZCxVH8b2')
23	23
24	24		let eAdd = Address(base58'GiJ8yN72wG35H2Cg1qYERtqFNbZuWav2QskRKnDjggZH')
25	25
26	26		let pAdd = Address(base58'3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k')
27	27
28	28		let igv = 18
29	29
30	30		let cPB = 88
31	31
32	32		let uIP = 7
33	33
34	34		let pIP = 10
35	35
36	36		let sIP = 1
37	37
38	38		let eIP = 1
39	39
40	40		func getNumberByKey (key) = {
41	41		let num = match getInteger(this, key) {
42	42		case a: Int =>
43	43		a
44	44		case _ =>
45	45		0
46	46		}
47	47		num
48	48		}
49	49
50	50
51	51		func getStrByKey (key) = {
52	52		let str = match getString(this, key) {
53	53		case a: String =>
54	54		a
55	55		case _ =>
56	56		NONE
57	57		}
58	58		str
59	59		}
60	60
61	61
62	62		func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
63	63
64	64
65	65		func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
66	66
67	67
68	68		func getKeyUserItemGtsCounter (user,item) = "Order_№:"
69	69
70	70
71	71		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
72	72
73	73
74	74		func getKeyItemName (item) = "Categoría del Producto:"
75	75
76	76
77	77		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
78	78
79	79
80	80		func getKeyUserName (item) = "Nombre del Usuario:"
81	81
82	82
83	83		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
84	84
85	85
86	86		func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
87	87
88	88
89	89		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
90	90
91	91
92	92		func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo:"
93	93
94	94
95	95		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
96	96
97	97
98	98		func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, tokens:"
99	99
100	100
101	101		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
102	102
103	103
104	104		func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS:"
105	105
106	106
107	107		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
108	108
109	109
110	110		func getKeyUI (item) = "UI,_wvs:"
111	111
112	112
113	113		func getValueUI (item) = getNumberByKey(getKeyUI(item))
114	114
115	115
116	116		func getKeyPI (item) = "PI,_%:"
117	117
118	118
119	119		func getValuePI (item) = getNumberByKey(getKeyPI(item))
120	120
121	121
122	122		func getKeySI (item) = "SI,_%:"
123	123
124	124
125	125		func getValueSI (item) = getNumberByKey(getKeySI(item))
126	126
127	127
128	128		@Callable(i)
129	129		func deposit (title,supplierData) = {
130	130		let pmt = extract(i.payment)
131	131		if ((pmt.assetId != xBitCO2))
132	132		then throw("deposito permitido solo en xBitCO2 tokens")
133	133		else {
134	134		let supplier = toBase58String(i.caller.bytes)
135	135		let currentAmount = match getInteger(this, supplier) {
136	136		case a: Int =>
137	137		a
138	138		case _ =>
139	139		startQty
140	140		}
141	141		let newAmount = (currentAmount + pmt.amount)
142	142		if ((0 >= newAmount))
143	143		then throw("No hay xBitCO2 en su balance")
144	144		else WriteSet([DataEntry(supplier, newAmount)])
145	145		}
146	146		}
147	147
148	148
149	149
150	150		@Callable(i)
151		-	func purchaseGTS (item,userName,userDocument,totalAmount) = {
	151	+	func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
152	152		let pmt = extract(i.payment)
153	153		if (isDefined(pmt.assetId))
154	154		then throw("El Precio de los aves.")
155	155		else {
156	156		let supplier = match getString(this, getKeyItemSupplier(item)) {
157	157		case a: String =>
158	158		a
159	159		case _ =>
160	160		NONE
161	161		}
162	162		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
163	163		case a: Int =>
164	164		a
165	165		case _ =>
166	166		SecondFaseQty
167	167		}
168	168		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
169	169		case a: Int =>
170	170		a
171	171		case _ =>
172	172		0
173	173		}
174	174		let userAddress = toBase58String(i.caller.bytes)
175	175		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
176	176		let uI = ((subTotal * uIP) / 100)
177	177		let uBI = (uI / cPB)
178	178		let pI = ((subTotal * pIP) / 100)
179	179		let eI = ((subTotal * eIP) / 100)
180	180		let eBI = ((subTotal * eIP) / (cPB * 100))
181	181		let sI = ((totalAmount - pI) - eI)
182	182		let sBI = ((subTotal * sIP) / (cPB * 100))
183	183		let QVentasgts = ((subTotal * 11) / (cPB * 100))
184	184		if ((totalAmount > pmt.amount))
185	185		then throw("Payment Amount can't be less than item Purchase Order")
186	186		else if ((pmt.amount > totalAmount))
187	187		then throw("Payment Amount can't be higher than item Purchase Order")
188		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), ~~item~~), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
	188	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
189	189		}
190	190		}
191	191
192	192
193	193
194	194		@Callable(i)
195	195		func withdraw (item,amount) = {
196	196		let userAddress = toBase58String(i.caller.bytes)
197	197		let supplier = match getString(this, getKeyItemSupplier(item)) {
198	198		case a: String =>
199	199		a
200	200		case _ =>
201	201		NONE
202	202		}
203	203		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
204	204		case a: Int =>
205	205		a
206	206		case _ =>
207	207		startQty
208	208		}
209	209		let newAmount = (preIcoQty - amount)
210	210		if ((0 > amount))
211	211		then throw("El balance de retiro no puede ser negativo!")
212	212		else if ((0 >= newAmount))
213	213		then throw("Ooppss.. Insuficiente balance!")
214	214		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, xBitCO2)]))
215	215		}
216	216
217	217
218	218		@Verifier(tx)
219	219		func verify () = match tx {
220	220		case t: SetScriptTransaction =>
221	221		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
222	222		case d: DataTransaction\|ReissueTransaction =>
223	223		true
224	224		case tx: TransferTransaction =>
225	225		true
226	226		case tx: ExchangeTransaction =>
227	227		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
228	228		then true
229	229		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
230	230		withWaves
231	231		case _ =>
232	232		false
233	233		}
234	234

github/deemru/w8io/026f985 
56.57 ms ◑