w8 · tx · 9CT···PNA

tx · 9CTwRiNvoBzXkcbH4phLvC4nJzQJAA2tdLimqXLGkPNA

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01400000 Waves

2020.08.19 13:56 [1139691] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9CTwRiNvoBzXkcbH4phLvC4nJzQJAA2tdLimqXLGkPNA",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1597834676147,
    "version": 1,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "Wgup9J1Jq9FwkewST4JnEPk5gq7LUvdtuMdfHuwqyDzjhmqzzkp5n1z9hYAetP1gkmZeappmDEcpqPau5KXPCBk"
    ],
    "script": "base64:AAIDAAAAAAAAABkIARIECgIICBIJCgcICAgIAQgIEgQKAggBAAAAKgAAAAAHeUJpdENPMgEAAAAgaYzU/9tNAX3oy3i337OPwVw8OVvpDHloDSGOZ+mbS60AAAAACHN0YXJ0UXR5AAAAAAC2NQzQAAAAAAxGaXJzdEZhc2VRdHkAAAAAABKXrJAAAAAADVNlY29uZEZhc2VRdHkAAAAAAKOdYEAAAAAACG5vbVByaWNlAAAAAAAAAAABAAAAAAN3dnMAAAAAAAX14QAAAAAAEHN1cHBsaWVyRGlzY291bnQAAAAAAAAAAAwAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACB2JYFH9ti5N+7uGrdzKwlrXhDeZ+vMkHOKuVJteEgPDwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUsZ/LLWvSicGFXkptOa6Ov7Vyb4KJ2haTAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUmX0sM+4Li4VQQQ26bfB7j/XU/VW4HmxXAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUQ6WuNYiemm0n1pXSZ6YgP2UOMpCwdKRqAAAAAANpZ3YAAAAAAAAAABIAAAAAA2NQQgAAAAAABT7GAAAAAAADdUlQAAAAAAAAAAAHAAAAAANwSVAAAAAAAAAAAAoAAAAAA3NJUAAAAAAAAAAAAQAAAAADZUlQAAAAAAAAAAABAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAAEsAAAAAgUAAAAIc3VwcGxpZXICAAAAGEJpdC1DTzIgU2hvcCwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtAgAAADRUb2tlbnMgT2ZlcnRhZG9zIGVuIGxhIHByZXNlbnRlIGV0YXBhIC8gU2FsZG8sIHl0b2s6AQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAG0JhbGFuY2UvU2FsZG8gR1RTLCB5dG9rZW5zOgEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAABxJbmdyZXNvcyBwb3IgVmVudGFHVFMsIHd2bHM6AQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgEAAAAIZ2V0S2V5VUkAAAABAAAABGl0ZW0CAAAACVVJLF93dmxzOgEAAAAKZ2V0VmFsdWVVSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5UEkAAAABAAAABGl0ZW0CAAAACVBJLF93dmxzOgEAAAAKZ2V0VmFsdWVQSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5U0kAAAABAAAABGl0ZW0CAAAACVNJLF93dmxzOgEAAAAKZ2V0VmFsdWVTSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQAAAAMAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeUJpdENPMgkAAAIAAAABAgAAAClkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiB5Qml0Q08yIHRva2VucwQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAcTm8gaGF5IHlCaXRDTzIgZW4gc3UgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAC3B1cmNoYXNlR1RTAAAABwAAAARpdGVtAAAACGl0ZW1OYW1lAAAACHVzZXJOYW1lAAAADHVzZXJEb2N1bWVudAAAAAt0b3RhbEFtb3VudAAAAARwQWRkAAAABGVBZGQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAABNFbCBQcmVjaW8gZW4gd2F2ZXMuBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAANU2Vjb25kRmFzZVF0eQQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAkAAGgAAAACCQAAaQAAAAIJAABoAAAAAgUAAAADaWd2BQAAAAt0b3RhbEFtb3VudAUAAAADd3ZzAAAAAAAAAABkBAAAAAJ1SQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAAN1SVAAAAAAAAAAAGQEAAAAA3VCSQkAAGkAAAACBQAAAAJ1SQUAAAADY1BCBAAAAAJwSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANwSVAAAAAAAAAAAGQEAAAAAmVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAAAAAAAAAAAZAQAAAADZUJJCQAAaQAAAAIFAAAAAmVJBQAAAANjUEIEAAAAAnNJCQAAZQAAAAIJAABlAAAAAgUAAAALdG90YWxBbW91bnQFAAAAAnBJBQAAAAJlSQQAAAADc0JJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NJUAkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQEAAAAClFWZW50YXNndHMJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAAAAAAAAAAACwkAAGgAAAACBQAAAANjUEIAAAAAAAAAAGQDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABGl0ZW0FAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0FAAAACGl0ZW1OYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAATUGF5bWVudF9hbW91bnQsX3d2cwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABkltcCwgJQUAAAADaWd2CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAlTVHRsLCB3dnMFAAAACHN1YlRvdGFsCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAtDUCAxIEIsIHd2cwkAAGgAAAACBQAAAANjUEIAAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAAnVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAANVQkkFAAAAA3VCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQUAAAACcEkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABUVjU3lzBQAAAANlQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0FAAAAAnNJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZTQkk6IGIFAAAAA3NCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA5PcmRlcl9TdGF0dXM6XwUAAAALdXNlckFkZHJlc3MCAAAAGEFkcXVpc2ljacOzbiBDb25maXJtYWRhIQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAANUXBvclZlbnRhc0dUUwUAAAAKUVZlbnRhc2d0cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABlAAAAAgUAAAANU2Vjb25kRmFzZVF0eQUAAAAKUVZlbnRhc2d0cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAA3VCSQUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAAnNJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAADc0JJBQAAAAd5Qml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXdpdGhXYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAACXdpdGhXYXZlcwdlOvKt",
    "chainId": 84,
    "height": 1139691,
    "spentComplexity": 0
}

View: original | compacted
Prev: DBgSfWwgNXP1sqYfwuPnNMzyQ8FYdyQpPnubPfatB3x1
Next: HhiNz7FwaNJndqp6jSuvBfWuMMiGVNe2VHUAtjNQyJbo

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

Old	New		Differences
172	172		0
173	173		}
174	174		let userAddress = toBase58String(i.caller.bytes)
175		-	let subTotal = (totalAmount - ((igv * totalAmount) / 100))
	175	+	let subTotal = (totalAmount - (((igv * totalAmount) / wvs) * 100))
176	176		let uI = ((subTotal * uIP) / 100)
177	177		let uBI = (uI / cPB)
178	178		let pI = ((subTotal * pIP) / 100)

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

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

github/deemru/w8io/026f985 
50.50 ms ◑