w8 · tx · 6QA···pEJ

tx · 6QAaMxdDLH6mgLnB7Pi6sFp152ZqfpuezG1qMBbu5pEJ

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01400000 Waves

2020.08.26 12:50 [1149520] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6QAaMxdDLH6mgLnB7Pi6sFp152ZqfpuezG1qMBbu5pEJ",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1598435460737,
    "version": 1,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "486kSanSGjSbBygqP1uWoMY7182mbw1RX41mPDQEzuTJWfF3yE4arCXDw4N12LXRvvEnBimidCVWwQvNKg1VVbpu"
    ],
    "script": "base64:AAIDAAAAAAAAACwIARIECgIICBIECgIICBIHCgUICAgIARIHCgUICAgIARIECgIIARIECgIIAQAAADEAAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAARndHMxAQAAACDDxYMO3SsdGFMCSZ4E3p59+bOpZEBHwTUZ+0J8yxIGZwAAAAAIc3RhcnRRdHkAAAAAALY1DNAAAAAADEZpcnN0RmFzZVF0eQAAAAAAEpeskAAAAAANU2Vjb25kRmFzZVF0eQAAAAAAo51gQAAAAAALc3RhcnRRdHlHVFMAAAAAAAHSc1QAAAAAD0ZpcnN0RmFzZVF0eUdUUwAAAAAAAC+YxAAAAAAQU2Vjb25kRmFzZVF0eUdUUwAAAAAAAaLakAAAAAAIbm9tUHJpY2UAAAAAAAAAAAEAAAAAA3d2cwAAAAAABfXhAAAAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAAAAAAADAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIHYlgUf22Lk37u4at3MrCWteEN5n68yQc4q5Um14SA8PAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVSxn8sta9KJwYVeSm05ro6/tXJvgonaFpMAAAAABGVBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVSZfSwz7guLhVBBDbpt8HuP9dT9VbgebFcAAAAABHBBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVRDpa41iJ6abSfWldJnpiA/ZQ4ykLB0pGoAAAAAA2lndgAAAAAAAAAAEgAAAAAHeWJpdGNvMgAAAAAAAAAnEAAAAAADZ3RzAAAAAAAAAYagAAAAAAN1SVAAAAAAAAAAAAcAAAAAA3BJUAAAAAAAAAAACgAAAAADZUlQAAAAAAAAAAABAAAAAANzQlAAAAAAAAAAAAIAAAAAA2VCUAAAAAAAAAAAAgEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABhCaXQtQ08yIFNob3AsIExpbWEtUGVyw7oBAAAACmdldEtleUl0ZW0AAAACAAAACHN1cHBsaWVyAAAABGl0ZW0JAAEsAAAAAgkAASwAAAACAgAAAA5Qcm9kdWN0by1HVFM6IAIAAAABIAkAAlgAAAABCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQEAAAANZ2V0S2V5UHJvamVjdAAAAAEAAAAEaXRlbQIAAAAHUHJvamVjdAEAAAARZ2V0S2V5RWNvc3lzdE5vZGUAAAABAAAABGl0ZW0CAAAAE05vZG8gZGVsIEVjb3Npc3RlbWEBAAAAD2dldEtleVRva2VuR1RTMQAAAAEAAAAEaXRlbQIAAAAIR1RTdGFibGUBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtAgAAAApPcmRlcl/ihJY6AQAAABpnZXRWYWx1ZVVzZXJJdGVtR3RzQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAAEdXNlcgUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbU5hbWUAAAABAAAABGl0ZW0CAAAAGENhdGVnb3LDrWEgZGVsIFByb2R1Y3RvOgEAAAAQZ2V0VmFsdWVJdGVtTmFtZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABAAAABGl0ZW0CAAAAE05vbWJyZSBkZWwgVXN1YXJpbzoBAAAAEGdldFZhbHVlVXNlck5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEFAAAABGl0ZW0BAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQIAAAAj4oSWIGRlIERvY3VtZW50byAvIEROSSBkZWwgVXN1YXJpbzoBAAAAFGdldFZhbHVlVXNlckRvY3VtZW50AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtAgAAAB5CYWxhbmNlL1NhbGRvIEdUUywgZ3RzLXRva2VuczoBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAAfTW9udG8gQnJ1dG8gcG9yIFZlbnRhR1RTLCB3dmxzOgEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAAAlVSSxfd3ZsczoBAAAACmdldFZhbHVlVUkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVBJAAAAAQAAAARpdGVtAgAAAAlQSSxfd3ZsczoBAAAACmdldFZhbHVlUEkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVNJAAAAAQAAAARpdGVtAgAAAAlTSSxfd3ZsczoBAAAACmdldFZhbHVlU0kAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0AAAAGAAAAAWkBAAAACmRlcG9zaXRHVFMAAAACAAAABXRpdGxlAAAADHN1cHBsaWVyRGF0YQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAABGd0czEJAAACAAAAAQIAAAAmZGVwb3NpdG8gcGVybWl0aWRvIHNvbG8gZW4gZ3RzMSB0b2tlbnMEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADWN1cnJlbnRBbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAALc3RhcnRRdHlHVFMEAAAACW5ld0Ftb3VudAkAAGQAAAACBQAAAA1jdXJyZW50QW1vdW50CAUAAAADcG10AAAABmFtb3VudAMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAGU5vIGhheSBndHMxIGVuIHN1IGJhbGFuY2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAAAdkZXBvc2l0AAAAAgAAAAV0aXRsZQAAAAxzdXBwbGllckRhdGEEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAd5Qml0Q08yCQAAAgAAAAECAAAAKWRlcG9zaXRvIHBlcm1pdGlkbyBzb2xvIGVuIHlCaXRDTzIgdG9rZW5zBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAABxObyBoYXkgeUJpdENPMiBlbiBzdSBiYWxhbmNlCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAhzdXBwbGllcgUAAAAJbmV3QW1vdW50BQAAAANuaWwAAAABaQEAAAALcHVyY2hhc2VHVFMAAAAFAAAABGl0ZW0AAAAIaXRlbU5hbWUAAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeUJpdENPMgkAAAIAAAABAgAAAC1Vc2UgeUJpdENPMiB0b2tlbnMgcGFyYSBhZHF1aXJpciBQcm9kdWN0b3NHVFMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAAB3Byb2pBZGQEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAADWdldEtleVByb2plY3QAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAABE5PTkUFAAAABHBBZGQEAAAAB25vZG9BZGQEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEWdldEtleUVjb3N5c3ROb2RlAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAROT05FBQAAAARlQWRkBAAAAAtwcmVUb2tlblF0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAABBTZWNvbmRGYXNlUXR5R1RTBAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1YlRvdGFsCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50CQAAaQAAAAIJAABoAAAAAgUAAAADaWd2BQAAAAt0b3RhbEFtb3VudAAAAAAAAAAAZAQAAAADY1BHCQAAaQAAAAIJAABoAAAAAgAAAAAAAAAAWAUAAAADZ3RzAAAAAAAAAABkBAAAAAJ1SQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAAN1SVAAAAAAAAAAAGQEAAAAA3VCSQkAAGgAAAACCQAAaQAAAAIFAAAAAnVJBQAAAANjUEcAAAAAAAAAAAEEAAAAAnBJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3BJUAAAAAAAAAAAZAQAAAACZUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQAAAAAAAAAABkBAAAAANlQkkJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlQlAJAABoAAAAAgAAAAAAAAAAZAUAAAADY1BHAAAAAAAAAAABBAAAAAJzSQkAAGUAAAACCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAJwSQUAAAACZUkEAAAAA3NCSQkAAGgAAAACCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NCUAkAAGgAAAACAAAAAAAAAABkBQAAAANjUEcAAAAAAAAAAAEEAAAAClFWZW50YXNndHMJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsAAAAAAAAAAALCQAAaAAAAAIFAAAAA2NQRwAAAAAAAAAAZAAAAAAAAAAAAQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAIaXRlbU5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABxQYXltZW50X2Ftb3VudCxfeUJpdENPMmNlbnRzBQAAAAt0b3RhbEFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGSW1wLCAlBQAAAANpZ3YJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAElNUdGwsIHlCaXRDTzJjZW50cwUAAAAIc3ViVG90YWwJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAFENQIDEgQiwgeUJpdENPMmNlbnRzCQAAaAAAAAIFAAAAA2NQRwAAAAAAAAAAZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAACdUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD1VCSSwgMTBlLTQgZ3RzMQUAAAADdUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAATRWNTeXMsIHlCaXRDTzJjZW50cwUAAAACZUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAEUVjU3lzLCAxMGUtNCBndHMxBQAAAANlQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0FAAAAAnNJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA9TQkksIDEwZS00IGd0czEFAAAAA3NCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA5PcmRlcl9TdGF0dXM6XwUAAAALdXNlckFkZHJlc3MCAAAAGEFkcXVpc2ljacOzbiBDb25maXJtYWRhIQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAZUXBvclZlbnRhc0dUUywgMTBlLTQgZ3RzMQUAAAAKUVZlbnRhc2d0cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABlAAAAAgUAAAALcHJlVG9rZW5RdHkFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1QkkFAAAABGd0czEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAACcEkFAAAAB3lCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAACZUkFAAAAB3lCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUJJBQAAAARndHMxCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAxwdXJjaGFzZUdUUzIAAAAFAAAABGl0ZW0AAAAIaXRlbU5hbWUAAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAATRWwgUHJlY2lvIGVuIHdhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAHcHJvakFkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAAETk9ORQUAAAAEcEFkZAQAAAAHbm9kb0FkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAARZ2V0S2V5RWNvc3lzdE5vZGUAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAABE5PTkUFAAAABGVBZGQEAAAAC3ByZVRva2VuUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAADVNlY29uZEZhc2VRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3ViVG90YWwJAABlAAAAAgUAAAALdG90YWxBbW91bnQJAABpAAAAAgkAAGgAAAACBQAAAANpZ3YFAAAAC3RvdGFsQW1vdW50AAAAAAAAAABkBAAAAANjUEIJAABpAAAAAgkAAGgAAAACAAAAAAAAAABYBQAAAAd5Yml0Y28yAAAAAAAAAABkBAAAAAJ1SQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAAN1SVAAAAAAAAAAAGQEAAAAA3VCSQkAAGgAAAACCQAAaQAAAAIFAAAAAnVJBQAAAANjUEIAAAAAAAAAAAEEAAAAAnBJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3BJUAAAAAAAAAAAZAQAAAACZUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQAAAAAAAAAABkBAAAAANlQkkJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlQlAJAABoAAAAAgAAAAAAAAAAZAUAAAADY1BCAAAAAAAAAAABBAAAAAJzSQkAAGUAAAACCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAJwSQUAAAACZUkEAAAAA3NCSQkAAGgAAAACCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NCUAkAAGgAAAACAAAAAAAAAABkBQAAAANjUEIAAAAAAAAAAAEEAAAAClFWZW50YXNndHMJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsAAAAAAAAAAALCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAAZAAAAAAAAAAAAQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAIaXRlbU5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRQYXltZW50X2Ftb3VudCxfd3ZscwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABkltcCwgJQUAAAADaWd2CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAApTVHRsLCB3dmxzBQAAAAhzdWJUb3RhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAMQ1AgMSBCLCB3dmxzCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAnEAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAACdUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAElVCSSwgMTBlLTQgeWJpdGNvMgUAAAADdUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAALRWNTeXMsIHd2bHMFAAAAAmVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRFY1N5cywgMTBlLTQgeWJpdGNvMgUAAAADZUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtBQAAAAJzSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAASU0JJLCAxMGUtNCB5Yml0Y28yBQAAAANzQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAABhBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAHFFwb3JWZW50YXNHVFMsIDEwZS00IHliaXRjbzIFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAAC3ByZVRva2VuUXR5CQAAaQAAAAIFAAAAClFWZW50YXNndHMAAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1QkkFAAAAB3lCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAACcEkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAACZUkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUJJBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAANzQkkFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAt3aXRoZHJhd0dUUwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAtzdGFydFF0eUdUUwQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAArRWwgYmFsYW5jZSBkZSByZXRpcm8gbm8gcHVlZGUgc2VyIG5lZ2F0aXZvIQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHk9vcHBzcy4uIEluc3VmaWNpZW50ZSBiYWxhbmNlIQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAARndHMxBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXdpdGhXYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAACXdpdGhXYXZlcwf1qT/U",
    "chainId": 84,
    "height": 1149520,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8Rp416FtWTQkonwvrGnZKTh84auqaNS3NQzLQg9QYHvh
Next: BezRfJK5jpJ4XrLKdFmbq6a1vXkP2PbdiGieWid1SvD2

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

Old	New		Differences
5	5
6	6		let gts1 = base58'EBDBY14t3xuduZ2GCNqEUpoLoy9eAAYfyQZA5ryVJxzS'
7	7
8		-	let startQty = ~~30569300~~
	8	+	let startQty = 3056930000
9	9
10		-	let FirstFaseQty = ~~3119300~~
	10	+	let FirstFaseQty = 311930000
11	11
12		-	let SecondFaseQty = 27450000
	12	+	let SecondFaseQty = 2745000000
	13	+
	14	+	let startQtyGTS = 30569300
	15	+
	16	+	let FirstFaseQtyGTS = 3119300
	17	+
	18	+	let SecondFaseQtyGTS = 27450000
13	19
14	20		let nomPrice = 1
15	21

104	110		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
105	111
106	112
107		-	func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo, ytok:"
108		-
109		-
110		-	func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
111		-
112		-
113		-	func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens:"
	113	+	func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, gts-tokens:"
114	114
115	115
116	116		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))

138	138
139	139
140	140		func getValueSI (item) = getNumberByKey(getKeySI(item))
	141	+
	142	+
	143	+	@Callable(i)
	144	+	func depositGTS (title,supplierData) = {
	145	+	let pmt = extract(i.payment)
	146	+	if ((pmt.assetId != gts1))
	147	+	then throw("deposito permitido solo en gts1 tokens")
	148	+	else {
	149	+	let supplier = toBase58String(i.caller.bytes)
	150	+	let currentAmount = match getInteger(this, supplier) {
	151	+	case a: Int =>
	152	+	a
	153	+	case _ =>
	154	+	startQtyGTS
	155	+	}
	156	+	let newAmount = (currentAmount + pmt.amount)
	157	+	if ((0 >= newAmount))
	158	+	then throw("No hay gts1 en su balance")
	159	+	else WriteSet([DataEntry(supplier, newAmount)])
	160	+	}
	161	+	}
	162	+
141	163
142	164
143	165		@Callable(i)

190	212		case a: Int =>
191	213		a
192	214		case _ =>
193		-	~~SecondFaseQty~~
	215	+	SecondFaseQtyGTS
194	216		}
195	217		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
196	218		case a: Int =>

200	222		}
201	223		let userAddress = toBase58String(i.caller.bytes)
202	224		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
203		-	let ~~cPB~~ = ((88 * gts) / 100)
	225	+	let cPG = ((88 * gts) / 100)
204	226		let uI = ((subTotal * uIP) / 100)
205		-	let uBI = ((uI / ~~cPB~~) * 1)
	227	+	let uBI = ((uI / cPG) * 1)
206	228		let pI = ((subTotal * pIP) / 100)
207	229		let eI = ((subTotal * eIP) / 100)
208		-	let eBI = (((subTotal * eBP) / (100 * ~~cPB~~)) * 1)
	230	+	let eBI = (((subTotal * eBP) / (100 * cPG)) * 1)
209	231		let sI = ((totalAmount - pI) - eI)
210		-	let sBI = (((subTotal * sBP) / (100 * ~~cPB~~)) * 1)
211		-	let QVentasgts = (((subTotal * 11) / (~~cPB~~ * 100)) * 1)
	232	+	let sBI = (((subTotal * sBP) / (100 * cPG)) * 1)
	233	+	let QVentasgts = (((subTotal * 11) / (cPG * 100)) * 1)
212	234		if ((totalAmount > pmt.amount))
213	235		then throw("Payment Amount can't be less than item Purchase Order")
214	236		else if ((pmt.amount > totalAmount))
215	237		then throw("Payment Amount can't be higher than item Purchase Order")
216		-	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 1 B, yBitCO2cents", ~~cPB~~), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 gts1", (uBI ~~/ 10000)~~), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts1", (eBI * 1000000)), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 gts1", (sBI * 1000000)), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts1", (QVentasgts * 10000)), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts * 10000))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, gts1), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eBI, gts1), ScriptTransfer(issuer, sI, yBitCO2)~~, ScriptTransfer(issuer, sBI, gts1)~~]))
	238	+	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 1 B, yBitCO2cents", (cPG * 100)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 gts1", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts1", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 gts1", sBI), 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, uBI, gts1), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eBI, gts1), ScriptTransfer(issuer, sI, yBitCO2)]))
217	239		}
218	240		}
219	241

277	299
278	300
279	301		@Callable(i)
	302	+	func withdrawGTS (item,amount) = {
	303	+	let userAddress = toBase58String(i.caller.bytes)
	304	+	let supplier = match getString(this, getKeyItemSupplier(item)) {
	305	+	case a: String =>
	306	+	a
	307	+	case _ =>
	308	+	NONE
	309	+	}
	310	+	let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
	311	+	case a: Int =>
	312	+	a
	313	+	case _ =>
	314	+	startQtyGTS
	315	+	}
	316	+	let newAmount = (preIcoQty - amount)
	317	+	if ((0 > amount))
	318	+	then throw("El balance de retiro no puede ser negativo!")
	319	+	else if ((0 >= newAmount))
	320	+	then throw("Ooppss.. Insuficiente balance!")
	321	+	else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, gts1)]))
	322	+	}
	323	+
	324	+
	325	+
	326	+	@Callable(i)
280	327		func withdraw (item,amount) = {
281	328		let userAddress = toBase58String(i.caller.bytes)
282	329		let supplier = match getString(this, getKeyItemSupplier(item)) {

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

github/deemru/w8io/169f3d6 
92.29 ms ◑