w8 · tx · 95a···9SY

tx · 95a3WfaL7e9diQEbZcb91AEJuJWk89zmuZU3eJYau9SY

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01400000 Waves

2020.08.26 15:46 [1149694] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "95a3WfaL7e9diQEbZcb91AEJuJWk89zmuZU3eJYau9SY",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1598446007681,
    "version": 1,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "xyyzGy1PVhM53qyVuRBtVCWWLtwE4T69i1RjGChquuT59WcGu3RDR4nhqHNqGjt6qySJnB3GKrXn7g13iu2FZvB"
    ],
    "script": "base64:AAIDAAAAAAAAACwIARIECgIICBIECgIICBIHCgUICAgIARIHCgUICAgIARIECgIIARIECgIIAQAAADMAAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAARndHMxAQAAACDDxYMO3SsdGFMCSZ4E3p59+bOpZEBHwTUZ+0J8yxIGZwAAAAAIc3RhcnRRdHkAAAAAALY1DNAAAAAADEZpcnN0RmFzZVF0eQAAAAAAEpeskAAAAAANU2Vjb25kRmFzZVF0eQAAAAAAo51gQAAAAAALc3RhcnRRdHlHVFMAAAAAAAHSc1QAAAAAD0ZpcnN0RmFzZVF0eUdUUwAAAAAAAC+YxAAAAAAQU2Vjb25kRmFzZVF0eUdUUwAAAAAAAaLakAAAAAAIbm9tUHJpY2UAAAAAAAAAAAEAAAAAA3d2cwAAAAAABfXhAAAAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAAAAAAADAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIHYlgUf22Lk37u4at3MrCWteEN5n68yQc4q5Um14SA8PAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVSxn8sta9KJwYVeSm05ro6/tXJvgonaFpMAAAAABGVBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVSZfSwz7guLhVBBDbpt8HuP9dT9VbgebFcAAAAABHBBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVRDpa41iJ6abSfWldJnpiA/ZQ4ykLB0pGoAAAAAA2lndgAAAAAAAAAAEgAAAAAHeWJpdGNvMgAAAAAAAAAnEAAAAAADZ3RzAAAAAAAAAYagAAAAAAN1SVAAAAAAAAAAAAcAAAAAA3BJUAAAAAAAAAAACgAAAAADZUlQAAAAAAAAAAABAAAAAANzQlAAAAAAAAAAAAIAAAAAA2VCUAAAAAAAAAAAAgAAAAADZUdQAAAAAAAAAAACAAAAAANzR1AAAAAAAAAAAAIBAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkAASwAAAACBQAAAAhzdXBwbGllcgIAAAAYQml0LUNPMiBTaG9wLCBMaW1hLVBlcsO6AQAAAApnZXRLZXlJdGVtAAAAAgAAAAhzdXBwbGllcgAAAARpdGVtCQABLAAAAAIJAAEsAAAAAgIAAAAOUHJvZHVjdG8tR1RTOiACAAAAASAJAAJYAAAAAQkAAfcAAAABCQABmwAAAAEJAAEsAAAAAgUAAAAIc3VwcGxpZXIFAAAABGl0ZW0BAAAADWdldEtleVByb2plY3QAAAABAAAABGl0ZW0CAAAAB1Byb2plY3QBAAAAEWdldEtleUVjb3N5c3ROb2RlAAAAAQAAAARpdGVtAgAAABNOb2RvIGRlbCBFY29zaXN0ZW1hAQAAAA9nZXRLZXlUb2tlbkdUUzEAAAABAAAABGl0ZW0CAAAACEdUU3RhYmxlAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAeQmFsYW5jZS9TYWxkbyBHVFMsIGd0cy10b2tlbnM6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAH01vbnRvIEJydXRvIHBvciBWZW50YUdUUywgd3ZsczoBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAAAhnZXRLZXlVSQAAAAEAAAAEaXRlbQIAAAAJVUksX3d2bHM6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAJUEksX3d2bHM6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAJU0ksX3d2bHM6AQAAAApnZXRWYWx1ZVNJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtAAAABgAAAAFpAQAAAApkZXBvc2l0R1RTAAAAAgAAAAV0aXRsZQAAAAxzdXBwbGllckRhdGEEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAARndHMxCQAAAgAAAAECAAAAJmRlcG9zaXRvIHBlcm1pdGlkbyBzb2xvIGVuIGd0czEgdG9rZW5zBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAAC3N0YXJ0UXR5R1RTBAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAABlObyBoYXkgZ3RzMSBlbiBzdSBiYWxhbmNlCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAhzdXBwbGllcgUAAAAJbmV3QW1vdW50BQAAAANuaWwAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeUJpdENPMgkAAAIAAAABAgAAAClkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiB5Qml0Q08yIHRva2VucwQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAcTm8gaGF5IHlCaXRDTzIgZW4gc3UgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAC3B1cmNoYXNlR1RTAAAABQAAAARpdGVtAAAACGl0ZW1OYW1lAAAACHVzZXJOYW1lAAAADHVzZXJEb2N1bWVudAAAAAt0b3RhbEFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB3lCaXRDTzIJAAACAAAAAQIAAAAtVXNlIHlCaXRDTzIgdG9rZW5zIHBhcmEgYWRxdWlyaXIgUHJvZHVjdG9zR1RTBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAdwcm9qQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAROT05FBQAAAARwQWRkBAAAAAdub2RvQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABFnZXRLZXlFY29zeXN0Tm9kZQAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAAETk9ORQUAAAAEZUFkZAQAAAALcHJlVG9rZW5RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAQU2Vjb25kRmFzZVF0eUdUUwQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAkAAGkAAAACCQAAaAAAAAIFAAAAA2lndgUAAAALdG90YWxBbW91bnQAAAAAAAAAAGQEAAAAA2NQRwkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAFgFAAAAA2d0cwAAAAAAAAAAZAQAAAACdUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADdUlQAAAAAAAAAABkBAAAAAN1R0kJAABoAAAAAgkAAGkAAAACAAAAAAAAAAI+AAAAAAAAAAJEAAAAAAAAAAAMBAAAAAJwSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANwSVAAAAAAAAAAAGQEAAAAAmVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAAAAAAAAAAAZAQAAAADZUdJAAAAAAAAAAAKBAAAAAJzSQkAAGUAAAACCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAJwSQUAAAACZUkEAAAAA3NHSQAAAAAAAAAACwQAAAAKUVZlbnRhc2d0cwkAAGgAAAACCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwAAAAAAAAAAAsJAABoAAAAAgUAAAADY1BHAAAAAAAAAABkAAAAAAAAAAABAwkAAGYAAAACBQAAAAt0b3RhbEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAA1UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgbGVzcyB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIDCQAAZgAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAAt0b3RhbEFtb3VudAkAAAIAAAABAgAAADdQYXltZW50IEFtb3VudCBjYW4ndCBiZSBoaWdoZXIgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtCQAAZAAAAAIJAQAAABpnZXRWYWx1ZVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5SXRlbU5hbWUAAAABBQAAAARpdGVtBQAAAAhpdGVtTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleVVzZXJOYW1lAAAAAQUAAAAEaXRlbQUAAAAIdXNlck5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtBQAAAAx1c2VyRG9jdW1lbnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAHFBheW1lbnRfYW1vdW50LF95Qml0Q08yY2VudHMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZJbXAsICUFAAAAA2lndgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAASU1R0bCwgeUJpdENPMmNlbnRzBQAAAAhzdWJUb3RhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAVQ1AgMUdUUywgeUJpdENPMmNlbnRzCQAAaAAAAAIFAAAAA2NQRwAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAACdUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD1VHSSwgMTBlLTQgZ3RzMQUAAAADdUdJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAATRWNTeXMsIHlCaXRDTzJjZW50cwUAAAACZUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAEUVjU3lzLCAxMGUtNCBndHMxBQAAAANlR0kJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0FAAAAAnNJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA9TR0ksIDEwZS00IGd0czEFAAAAA3NHSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA5PcmRlcl9TdGF0dXM6XwUAAAALdXNlckFkZHJlc3MCAAAAGEFkcXVpc2ljacOzbiBDb25maXJtYWRhIQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAZUXBvclZlbnRhc0dUUywgMTBlLTQgZ3RzMQUAAAAKUVZlbnRhc2d0cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABlAAAAAgUAAAALcHJlVG9rZW5RdHkFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1R0kFAAAABGd0czEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAACcEkFAAAAB3lCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAACZUkFAAAAB3lCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUdJBQAAAARndHMxCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAxwdXJjaGFzZUdUUzIAAAAFAAAABGl0ZW0AAAAIaXRlbU5hbWUAAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAATRWwgUHJlY2lvIGVuIHdhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAHcHJvakFkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAAETk9ORQUAAAAEcEFkZAQAAAAHbm9kb0FkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAARZ2V0S2V5RWNvc3lzdE5vZGUAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAABE5PTkUFAAAABGVBZGQEAAAAC3ByZVRva2VuUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAADVNlY29uZEZhc2VRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3ViVG90YWwJAABlAAAAAgUAAAALdG90YWxBbW91bnQJAABpAAAAAgkAAGgAAAACBQAAAANpZ3YFAAAAC3RvdGFsQW1vdW50AAAAAAAAAABkBAAAAANjUEIJAABpAAAAAgkAAGgAAAACAAAAAAAAAABYBQAAAAd5Yml0Y28yAAAAAAAAAABkBAAAAAJ1SQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAAN1SVAAAAAAAAAAAGQEAAAAA3VCSQkAAGgAAAACCQAAaQAAAAIFAAAAAnVJBQAAAANjUEIAAAAAAAAAAAEEAAAAAnBJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3BJUAAAAAAAAAAAZAQAAAACZUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQAAAAAAAAAABkBAAAAANlQkkJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlQlAJAABoAAAAAgAAAAAAAAAAZAUAAAADY1BCAAAAAAAAAAABBAAAAAJzSQkAAGUAAAACCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAJwSQUAAAACZUkEAAAAA3NCSQkAAGgAAAACCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NCUAkAAGgAAAACAAAAAAAAAABkBQAAAANjUEIAAAAAAAAAAAEEAAAAClFWZW50YXNndHMJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsAAAAAAAAAAALCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAAZAAAAAAAAAAAAQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAIaXRlbU5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRQYXltZW50X2Ftb3VudCxfd3ZscwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABkltcCwgJQUAAAADaWd2CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAApTVHRsLCB3dmxzBQAAAAhzdWJUb3RhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAMQ1AgMSBCLCB3dmxzCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAnEAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAACdUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAElVCSSwgMTBlLTQgeWJpdGNvMgUAAAADdUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAALRWNTeXMsIHd2bHMFAAAAAmVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRFY1N5cywgMTBlLTQgeWJpdGNvMgUAAAADZUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtBQAAAAJzSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAASU0JJLCAxMGUtNCB5Yml0Y28yBQAAAANzQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAABhBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAHFFwb3JWZW50YXNHVFMsIDEwZS00IHliaXRjbzIFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAAC3ByZVRva2VuUXR5CQAAaQAAAAIFAAAAClFWZW50YXNndHMAAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1QkkFAAAAB3lCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAACcEkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAACZUkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUJJBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAANzQkkFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAt3aXRoZHJhd0dUUwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAtzdGFydFF0eUdUUwQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAArRWwgYmFsYW5jZSBkZSByZXRpcm8gbm8gcHVlZGUgc2VyIG5lZ2F0aXZvIQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHk9vcHBzcy4uIEluc3VmaWNpZW50ZSBiYWxhbmNlIQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAARndHMxBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAAC3dpdGh5Qml0Q28yAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAApwcmljZUFzc2V0BgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAAthbW91bnRBc3NldAUAAAALd2l0aHlCaXRDbzIHMxNSlw==",
    "chainId": 84,
    "height": 1149694,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AXbP65M5dpDnr4KKbXoXnSjFEXwesMu4EucCvjbKXCBk
Next: Dd7iHAJMijiDB39Hp4gYRxPZnVSZkMU9ZDPtEdvxKhAZ

Diff: 
Old New Differences
228 228              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229 229              let cPG = ((88 * gts) / 100)
230 230              let uI = ((subTotal * uIP) / 100)
231 -             let uGI = ((574 / 574) * 12)
231 +             let uGI = ((574 / 580) * 12)
232 232              let pI = ((subTotal * pIP) / 100)
233 233              let eI = ((subTotal * eIP) / 100)
234 234              let eGI = 10
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let yBitCO2 = base58'872MvpMoQx7SnV58HMcR9hd6vBWDtQvqmt5javCmYwpx'
5 5  
6 6  let gts1 = base58'EBDBY14t3xuduZ2GCNqEUpoLoy9eAAYfyQZA5ryVJxzS'
7 7  
8 8  let startQty = 3056930000
9 9  
10 10  let FirstFaseQty = 311930000
11 11  
12 12  let SecondFaseQty = 2745000000
13 13  
14 14  let startQtyGTS = 30569300
15 15  
16 16  let FirstFaseQtyGTS = 3119300
17 17  
18 18  let SecondFaseQtyGTS = 27450000
19 19  
20 20  let nomPrice = 1
21 21  
22 22  let wvs = 100000000
23 23  
24 24  let supplierDiscount = 12
25 25  
26 26  let NONE = "none"
27 27  
28 28  let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
29 29  
30 30  let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
31 31  
32 32  let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
33 33  
34 34  let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
35 35  
36 36  let igv = 18
37 37  
38 38  let ybitco2 = 10000
39 39  
40 40  let gts = 100000
41 41  
42 42  let uIP = 7
43 43  
44 44  let pIP = 10
45 45  
46 46  let eIP = 1
47 47  
48 48  let sBP = 2
49 49  
50 50  let eBP = 2
51 51  
52 52  let eGP = 2
53 53  
54 54  let sGP = 2
55 55  
56 56  func getNumberByKey (key) = {
57 57      let num =     match getInteger(this, key) {
58 58          case a: Int => 
59 59              a
60 60          case _ => 
61 61              0
62 62      }
63 63      num
64 64      }
65 65  
66 66  
67 67  func getStrByKey (key) = {
68 68      let str =     match getString(this, key) {
69 69          case a: String => 
70 70              a
71 71          case _ => 
72 72              NONE
73 73      }
74 74      str
75 75      }
76 76  
77 77  
78 78  func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
79 79  
80 80  
81 81  func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
82 82  
83 83  
84 84  func getKeyProject (item) = "Project"
85 85  
86 86  
87 87  func getKeyEcosystNode (item) = "Nodo del Ecosistema"
88 88  
89 89  
90 90  func getKeyTokenGTS1 (item) = "GTStable"
91 91  
92 92  
93 93  func getKeyUserItemGtsCounter (user,item) = "Order_№:"
94 94  
95 95  
96 96  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
97 97  
98 98  
99 99  func getKeyItemName (item) = "Categoría del Producto:"
100 100  
101 101  
102 102  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
103 103  
104 104  
105 105  func getKeyUserName (item) = "Nombre del Usuario:"
106 106  
107 107  
108 108  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
109 109  
110 110  
111 111  func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
112 112  
113 113  
114 114  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
115 115  
116 116  
117 117  func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, gts-tokens:"
118 118  
119 119  
120 120  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
121 121  
122 122  
123 123  func getKeyBalanceSupplier (supplier) = "Monto Bruto por VentaGTS, wvls:"
124 124  
125 125  
126 126  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
127 127  
128 128  
129 129  func getKeyUI (item) = "UI,_wvls:"
130 130  
131 131  
132 132  func getValueUI (item) = getNumberByKey(getKeyUI(item))
133 133  
134 134  
135 135  func getKeyPI (item) = "PI,_wvls:"
136 136  
137 137  
138 138  func getValuePI (item) = getNumberByKey(getKeyPI(item))
139 139  
140 140  
141 141  func getKeySI (item) = "SI,_wvls:"
142 142  
143 143  
144 144  func getValueSI (item) = getNumberByKey(getKeySI(item))
145 145  
146 146  
147 147  @Callable(i)
148 148  func depositGTS (title,supplierData) = {
149 149      let pmt = extract(i.payment)
150 150      if ((pmt.assetId != gts1))
151 151          then throw("deposito permitido solo en gts1 tokens")
152 152          else {
153 153              let supplier = toBase58String(i.caller.bytes)
154 154              let currentAmount =             match getInteger(this, supplier) {
155 155                  case a: Int => 
156 156                      a
157 157                  case _ => 
158 158                      startQtyGTS
159 159              }
160 160              let newAmount = (currentAmount + pmt.amount)
161 161              if ((0 >= newAmount))
162 162                  then throw("No hay gts1 en su balance")
163 163                  else WriteSet([DataEntry(supplier, newAmount)])
164 164              }
165 165      }
166 166  
167 167  
168 168  
169 169  @Callable(i)
170 170  func deposit (title,supplierData) = {
171 171      let pmt = extract(i.payment)
172 172      if ((pmt.assetId != yBitCO2))
173 173          then throw("deposito permitido solo en yBitCO2 tokens")
174 174          else {
175 175              let supplier = toBase58String(i.caller.bytes)
176 176              let currentAmount =             match getInteger(this, supplier) {
177 177                  case a: Int => 
178 178                      a
179 179                  case _ => 
180 180                      startQty
181 181              }
182 182              let newAmount = (currentAmount + pmt.amount)
183 183              if ((0 >= newAmount))
184 184                  then throw("No hay yBitCO2 en su balance")
185 185                  else WriteSet([DataEntry(supplier, newAmount)])
186 186              }
187 187      }
188 188  
189 189  
190 190  
191 191  @Callable(i)
192 192  func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
193 193      let pmt = extract(i.payment)
194 194      if ((pmt.assetId != yBitCO2))
195 195          then throw("Use yBitCO2 tokens para adquirir ProductosGTS")
196 196          else {
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 projAdd =             match getString(this, getKeyProject(item)) {
204 204                  case a: String => 
205 205                      NONE
206 206                  case _ => 
207 207                      pAdd
208 208              }
209 209              let nodoAdd =             match getString(this, getKeyEcosystNode(item)) {
210 210                  case a: String => 
211 211                      NONE
212 212                  case _ => 
213 213                      eAdd
214 214              }
215 215              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
216 216                  case a: Int => 
217 217                      a
218 218                  case _ => 
219 219                      SecondFaseQtyGTS
220 220              }
221 221              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
222 222                  case a: Int => 
223 223                      a
224 224                  case _ => 
225 225                      0
226 226              }
227 227              let userAddress = toBase58String(i.caller.bytes)
228 228              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229 229              let cPG = ((88 * gts) / 100)
230 230              let uI = ((subTotal * uIP) / 100)
231 -             let uGI = ((574 / 574) * 12)
231 +             let uGI = ((574 / 580) * 12)
232 232              let pI = ((subTotal * pIP) / 100)
233 233              let eI = ((subTotal * eIP) / 100)
234 234              let eGI = 10
235 235              let sI = ((totalAmount - pI) - eI)
236 236              let sGI = 11
237 237              let QVentasgts = (((subTotal * 11) / (cPG * 100)) * 1)
238 238              if ((totalAmount > pmt.amount))
239 239                  then throw("Payment Amount can't be less than item Purchase Order")
240 240                  else if ((pmt.amount > totalAmount))
241 241                      then throw("Payment Amount can't be higher than item Purchase Order")
242 242                      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,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts1", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts1", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts1", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts1", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts1), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts1), ScriptTransfer(issuer, sI, yBitCO2)]))
243 243              }
244 244      }
245 245  
246 246  
247 247  
248 248  @Callable(i)
249 249  func purchaseGTS2 (item,itemName,userName,userDocument,totalAmount) = {
250 250      let pmt = extract(i.payment)
251 251      if (isDefined(pmt.assetId))
252 252          then throw("El Precio en waves.")
253 253          else {
254 254              let supplier =             match getString(this, getKeyItemSupplier(item)) {
255 255                  case a: String => 
256 256                      a
257 257                  case _ => 
258 258                      NONE
259 259              }
260 260              let projAdd =             match getString(this, getKeyProject(item)) {
261 261                  case a: String => 
262 262                      NONE
263 263                  case _ => 
264 264                      pAdd
265 265              }
266 266              let nodoAdd =             match getString(this, getKeyEcosystNode(item)) {
267 267                  case a: String => 
268 268                      NONE
269 269                  case _ => 
270 270                      eAdd
271 271              }
272 272              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
273 273                  case a: Int => 
274 274                      a
275 275                  case _ => 
276 276                      SecondFaseQty
277 277              }
278 278              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
279 279                  case a: Int => 
280 280                      a
281 281                  case _ => 
282 282                      0
283 283              }
284 284              let userAddress = toBase58String(i.caller.bytes)
285 285              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
286 286              let cPB = ((88 * ybitco2) / 100)
287 287              let uI = ((subTotal * uIP) / 100)
288 288              let uBI = ((uI / cPB) * 1)
289 289              let pI = ((subTotal * pIP) / 100)
290 290              let eI = ((subTotal * eIP) / 100)
291 291              let eBI = (((subTotal * eBP) / (100 * cPB)) * 1)
292 292              let sI = ((totalAmount - pI) - eI)
293 293              let sBI = (((subTotal * sBP) / (100 * cPB)) * 1)
294 294              let QVentasgts = (((subTotal * 11) / (cPB * 100)) * 1)
295 295              if ((totalAmount > pmt.amount))
296 296                  then throw("Payment Amount can't be less than item Purchase Order")
297 297                  else if ((pmt.amount > totalAmount))
298 298                      then throw("Payment Amount can't be higher than item Purchase Order")
299 299                      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,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
300 300              }
301 301      }
302 302  
303 303  
304 304  
305 305  @Callable(i)
306 306  func withdrawGTS (item,amount) = {
307 307      let userAddress = toBase58String(i.caller.bytes)
308 308      let supplier =     match getString(this, getKeyItemSupplier(item)) {
309 309          case a: String => 
310 310              a
311 311          case _ => 
312 312              NONE
313 313      }
314 314      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
315 315          case a: Int => 
316 316              a
317 317          case _ => 
318 318              startQtyGTS
319 319      }
320 320      let newAmount = (preIcoQty - amount)
321 321      if ((0 > amount))
322 322          then throw("El balance de retiro no puede ser negativo!")
323 323          else if ((0 >= newAmount))
324 324              then throw("Ooppss.. Insuficiente balance!")
325 325              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, gts1)]))
326 326      }
327 327  
328 328  
329 329  
330 330  @Callable(i)
331 331  func withdraw (item,amount) = {
332 332      let userAddress = toBase58String(i.caller.bytes)
333 333      let supplier =     match getString(this, getKeyItemSupplier(item)) {
334 334          case a: String => 
335 335              a
336 336          case _ => 
337 337              NONE
338 338      }
339 339      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
340 340          case a: Int => 
341 341              a
342 342          case _ => 
343 343              startQty
344 344      }
345 345      let newAmount = (preIcoQty - amount)
346 346      if ((0 > amount))
347 347          then throw("El balance de retiro no puede ser negativo!")
348 348          else if ((0 >= newAmount))
349 349              then throw("Ooppss.. Insuficiente balance!")
350 350              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
351 351      }
352 352  
353 353  
354 354  @Verifier(tx)
355 355  func verify () = match tx {
356 356      case t: SetScriptTransaction => 
357 357          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
358 358      case d: DataTransaction|ReissueTransaction => 
359 359          true
360 360      case tx: TransferTransaction => 
361 361          true
362 362      case tx: ExchangeTransaction => 
363 363          let withyBitCo2 = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
364 364              then true
365 365              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
366 366          withyBitCo2
367 367      case _ => 
368 368          false
369 369  }
370 370

Old	New		Differences
228	228		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229	229		let cPG = ((88 * gts) / 100)
230	230		let uI = ((subTotal * uIP) / 100)
231		-	let uGI = ((574 / ~~574~~) * 12)
	231	+	let uGI = ((574 / 580) * 12)
232	232		let pI = ((subTotal * pIP) / 100)
233	233		let eI = ((subTotal * eIP) / 100)
234	234		let eGI = 10

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let yBitCO2 = base58'872MvpMoQx7SnV58HMcR9hd6vBWDtQvqmt5javCmYwpx'
5	5
6	6		let gts1 = base58'EBDBY14t3xuduZ2GCNqEUpoLoy9eAAYfyQZA5ryVJxzS'
7	7
8	8		let startQty = 3056930000
9	9
10	10		let FirstFaseQty = 311930000
11	11
12	12		let SecondFaseQty = 2745000000
13	13
14	14		let startQtyGTS = 30569300
15	15
16	16		let FirstFaseQtyGTS = 3119300
17	17
18	18		let SecondFaseQtyGTS = 27450000
19	19
20	20		let nomPrice = 1
21	21
22	22		let wvs = 100000000
23	23
24	24		let supplierDiscount = 12
25	25
26	26		let NONE = "none"
27	27
28	28		let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
29	29
30	30		let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
31	31
32	32		let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
33	33
34	34		let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
35	35
36	36		let igv = 18
37	37
38	38		let ybitco2 = 10000
39	39
40	40		let gts = 100000
41	41
42	42		let uIP = 7
43	43
44	44		let pIP = 10
45	45
46	46		let eIP = 1
47	47
48	48		let sBP = 2
49	49
50	50		let eBP = 2
51	51
52	52		let eGP = 2
53	53
54	54		let sGP = 2
55	55
56	56		func getNumberByKey (key) = {
57	57		let num = match getInteger(this, key) {
58	58		case a: Int =>
59	59		a
60	60		case _ =>
61	61		0
62	62		}
63	63		num
64	64		}
65	65
66	66
67	67		func getStrByKey (key) = {
68	68		let str = match getString(this, key) {
69	69		case a: String =>
70	70		a
71	71		case _ =>
72	72		NONE
73	73		}
74	74		str
75	75		}
76	76
77	77
78	78		func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
79	79
80	80
81	81		func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
82	82
83	83
84	84		func getKeyProject (item) = "Project"
85	85
86	86
87	87		func getKeyEcosystNode (item) = "Nodo del Ecosistema"
88	88
89	89
90	90		func getKeyTokenGTS1 (item) = "GTStable"
91	91
92	92
93	93		func getKeyUserItemGtsCounter (user,item) = "Order_№:"
94	94
95	95
96	96		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
97	97
98	98
99	99		func getKeyItemName (item) = "Categoría del Producto:"
100	100
101	101
102	102		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
103	103
104	104
105	105		func getKeyUserName (item) = "Nombre del Usuario:"
106	106
107	107
108	108		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
109	109
110	110
111	111		func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
112	112
113	113
114	114		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
115	115
116	116
117	117		func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, gts-tokens:"
118	118
119	119
120	120		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
121	121
122	122
123	123		func getKeyBalanceSupplier (supplier) = "Monto Bruto por VentaGTS, wvls:"
124	124
125	125
126	126		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
127	127
128	128
129	129		func getKeyUI (item) = "UI,_wvls:"
130	130
131	131
132	132		func getValueUI (item) = getNumberByKey(getKeyUI(item))
133	133
134	134
135	135		func getKeyPI (item) = "PI,_wvls:"
136	136
137	137
138	138		func getValuePI (item) = getNumberByKey(getKeyPI(item))
139	139
140	140
141	141		func getKeySI (item) = "SI,_wvls:"
142	142
143	143
144	144		func getValueSI (item) = getNumberByKey(getKeySI(item))
145	145
146	146
147	147		@Callable(i)
148	148		func depositGTS (title,supplierData) = {
149	149		let pmt = extract(i.payment)
150	150		if ((pmt.assetId != gts1))
151	151		then throw("deposito permitido solo en gts1 tokens")
152	152		else {
153	153		let supplier = toBase58String(i.caller.bytes)
154	154		let currentAmount = match getInteger(this, supplier) {
155	155		case a: Int =>
156	156		a
157	157		case _ =>
158	158		startQtyGTS
159	159		}
160	160		let newAmount = (currentAmount + pmt.amount)
161	161		if ((0 >= newAmount))
162	162		then throw("No hay gts1 en su balance")
163	163		else WriteSet([DataEntry(supplier, newAmount)])
164	164		}
165	165		}
166	166
167	167
168	168
169	169		@Callable(i)
170	170		func deposit (title,supplierData) = {
171	171		let pmt = extract(i.payment)
172	172		if ((pmt.assetId != yBitCO2))
173	173		then throw("deposito permitido solo en yBitCO2 tokens")
174	174		else {
175	175		let supplier = toBase58String(i.caller.bytes)
176	176		let currentAmount = match getInteger(this, supplier) {
177	177		case a: Int =>
178	178		a
179	179		case _ =>
180	180		startQty
181	181		}
182	182		let newAmount = (currentAmount + pmt.amount)
183	183		if ((0 >= newAmount))
184	184		then throw("No hay yBitCO2 en su balance")
185	185		else WriteSet([DataEntry(supplier, newAmount)])
186	186		}
187	187		}
188	188
189	189
190	190
191	191		@Callable(i)
192	192		func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
193	193		let pmt = extract(i.payment)
194	194		if ((pmt.assetId != yBitCO2))
195	195		then throw("Use yBitCO2 tokens para adquirir ProductosGTS")
196	196		else {
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 projAdd = match getString(this, getKeyProject(item)) {
204	204		case a: String =>
205	205		NONE
206	206		case _ =>
207	207		pAdd
208	208		}
209	209		let nodoAdd = match getString(this, getKeyEcosystNode(item)) {
210	210		case a: String =>
211	211		NONE
212	212		case _ =>
213	213		eAdd
214	214		}
215	215		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
216	216		case a: Int =>
217	217		a
218	218		case _ =>
219	219		SecondFaseQtyGTS
220	220		}
221	221		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
222	222		case a: Int =>
223	223		a
224	224		case _ =>
225	225		0
226	226		}
227	227		let userAddress = toBase58String(i.caller.bytes)
228	228		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229	229		let cPG = ((88 * gts) / 100)
230	230		let uI = ((subTotal * uIP) / 100)
231		-	let uGI = ((574 / ~~574~~) * 12)
	231	+	let uGI = ((574 / 580) * 12)
232	232		let pI = ((subTotal * pIP) / 100)
233	233		let eI = ((subTotal * eIP) / 100)
234	234		let eGI = 10
235	235		let sI = ((totalAmount - pI) - eI)
236	236		let sGI = 11
237	237		let QVentasgts = (((subTotal * 11) / (cPG * 100)) * 1)
238	238		if ((totalAmount > pmt.amount))
239	239		then throw("Payment Amount can't be less than item Purchase Order")
240	240		else if ((pmt.amount > totalAmount))
241	241		then throw("Payment Amount can't be higher than item Purchase Order")
242	242		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,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts1", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts1", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts1", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts1", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts1), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts1), ScriptTransfer(issuer, sI, yBitCO2)]))
243	243		}
244	244		}
245	245
246	246
247	247
248	248		@Callable(i)
249	249		func purchaseGTS2 (item,itemName,userName,userDocument,totalAmount) = {
250	250		let pmt = extract(i.payment)
251	251		if (isDefined(pmt.assetId))
252	252		then throw("El Precio en waves.")
253	253		else {
254	254		let supplier = match getString(this, getKeyItemSupplier(item)) {
255	255		case a: String =>
256	256		a
257	257		case _ =>
258	258		NONE
259	259		}
260	260		let projAdd = match getString(this, getKeyProject(item)) {
261	261		case a: String =>
262	262		NONE
263	263		case _ =>
264	264		pAdd
265	265		}
266	266		let nodoAdd = match getString(this, getKeyEcosystNode(item)) {
267	267		case a: String =>
268	268		NONE
269	269		case _ =>
270	270		eAdd
271	271		}
272	272		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
273	273		case a: Int =>
274	274		a
275	275		case _ =>
276	276		SecondFaseQty
277	277		}
278	278		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
279	279		case a: Int =>
280	280		a
281	281		case _ =>
282	282		0
283	283		}
284	284		let userAddress = toBase58String(i.caller.bytes)
285	285		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
286	286		let cPB = ((88 * ybitco2) / 100)
287	287		let uI = ((subTotal * uIP) / 100)
288	288		let uBI = ((uI / cPB) * 1)
289	289		let pI = ((subTotal * pIP) / 100)
290	290		let eI = ((subTotal * eIP) / 100)
291	291		let eBI = (((subTotal * eBP) / (100 * cPB)) * 1)
292	292		let sI = ((totalAmount - pI) - eI)
293	293		let sBI = (((subTotal * sBP) / (100 * cPB)) * 1)
294	294		let QVentasgts = (((subTotal * 11) / (cPB * 100)) * 1)
295	295		if ((totalAmount > pmt.amount))
296	296		then throw("Payment Amount can't be less than item Purchase Order")
297	297		else if ((pmt.amount > totalAmount))
298	298		then throw("Payment Amount can't be higher than item Purchase Order")
299	299		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,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
300	300		}
301	301		}
302	302
303	303
304	304
305	305		@Callable(i)
306	306		func withdrawGTS (item,amount) = {
307	307		let userAddress = toBase58String(i.caller.bytes)
308	308		let supplier = match getString(this, getKeyItemSupplier(item)) {
309	309		case a: String =>
310	310		a
311	311		case _ =>
312	312		NONE
313	313		}
314	314		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
315	315		case a: Int =>
316	316		a
317	317		case _ =>
318	318		startQtyGTS
319	319		}
320	320		let newAmount = (preIcoQty - amount)
321	321		if ((0 > amount))
322	322		then throw("El balance de retiro no puede ser negativo!")
323	323		else if ((0 >= newAmount))
324	324		then throw("Ooppss.. Insuficiente balance!")
325	325		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, gts1)]))
326	326		}
327	327
328	328
329	329
330	330		@Callable(i)
331	331		func withdraw (item,amount) = {
332	332		let userAddress = toBase58String(i.caller.bytes)
333	333		let supplier = match getString(this, getKeyItemSupplier(item)) {
334	334		case a: String =>
335	335		a
336	336		case _ =>
337	337		NONE
338	338		}
339	339		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
340	340		case a: Int =>
341	341		a
342	342		case _ =>
343	343		startQty
344	344		}
345	345		let newAmount = (preIcoQty - amount)
346	346		if ((0 > amount))
347	347		then throw("El balance de retiro no puede ser negativo!")
348	348		else if ((0 >= newAmount))
349	349		then throw("Ooppss.. Insuficiente balance!")
350	350		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
351	351		}
352	352
353	353
354	354		@Verifier(tx)
355	355		func verify () = match tx {
356	356		case t: SetScriptTransaction =>
357	357		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
358	358		case d: DataTransaction\|ReissueTransaction =>
359	359		true
360	360		case tx: TransferTransaction =>
361	361		true
362	362		case tx: ExchangeTransaction =>
363	363		let withyBitCo2 = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
364	364		then true
365	365		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
366	366		withyBitCo2
367	367		case _ =>
368	368		false
369	369		}
370	370

github/deemru/w8io/6500d08 
88.28 ms ◑