w8 · tx · CRX···8bT

tx · CRXfmLW1ke1VeZeJo9VMMP1tALWMyHDYennVTT6588bT

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01000000 Waves

2021.10.18 15:58 [1751753] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CRXfmLW1ke1VeZeJo9VMMP1tALWMyHDYennVTT6588bT",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1634562004717,
    "version": 2,
    "chainId": 84,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "4NjBS2pRNcoimgk75WhjStCsMqh85miTEusUppq1sjFbXZNtBAkPjrZgzspeeEyWVQbUX4cF67BpRYAkR5ffYB64"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIECgIICBIHCgUICAgIARIECgIIAQAAADgAAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAAhzdGFydFF0eQAAAAAAAASqHQAAAAAMRmlyc3RGYXNlUXR5AAAAAAAAAHnZAAAAAA1TZWNvbmRGYXNlUXR5AAAAAAAABDBEAAAAAAN3dnMAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACB2JYFH9ti5N+7uGrdzKwlrXhDeZ+vMkHOKuVJteEgPDwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUsZ/LLWvSicGFXkptOa6Ov7Vyb4KJ2haTAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUmX0sM+4Li4VQQQ26bfB7j/XU/VW4HmxXAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUQ6WuNYiemm0n1pXSZ6YgP2UOMpCwdKRqAAAAAAVldXJvdQAAAAAAAAAAdAAAAAAFdXNkbncAAAAAAAAACesAAAAABWJjbzJlAAAAAAAAAYagAAAAAAhiaXRkc2N0bwAAAAAAAAAAAwAAAAADcElQAAAAAAAAAAAKAAAAAAN1QlAAAAAAAAAAAAcAAAAAA3NCUAAAAAAAAAAAAgAAAAADZUlQAAAAAAAAAAABAAAAAANlQlAAAAAAAAAAAAIAAAAACXJlbGFjZGN0bwAAAAAAAAAACwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABRWZW5kZWRvciwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAAAxnZXRLZXlJc3N1ZXIAAAABAAAABGl0ZW0CAAAADUlzc3Vlci9UaWVuZGEBAAAADmdldFZhbHVlSXNzdWVyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQEAAAANZ2V0S2V5UHJvamVjdAAAAAEAAAAEaXRlbQIAAAAHUHJvamVjdAEAAAAPZ2V0VmFsdWVQcm9qZWN0AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0BAAAACmdldEtleU5vZG8AAAABAAAABGl0ZW0CAAAABE5vZG8BAAAADGdldFZhbHVlTm9kbwAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAACmdldEtleU5vZG8AAAABBQAAAARpdGVtAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAABBVSSwgeDEwZS0wNCBiaXQ6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAJUEksIHd2bHM6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAQU0ksIHgxMGUtMDQgYml0OgEAAAAKZ2V0VmFsdWVTSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQEAAAAJZ2V0S2V5TkliAAAAAQAAAARpdGVtAgAAABFOSWIsIHgxMGUtMDQgYml0OgEAAAALZ2V0VmFsdWVOSWIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlOSWIAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlOSXcAAAABAAAABGl0ZW0CAAAACk5Jdywgd3ZsczoBAAAAC2dldFZhbHVlTkl3AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAJZ2V0S2V5Tkl3AAAAAQUAAAAEaXRlbQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0CAAAANFRva2VucyBPZmVydGFkb3MgZW4gbGEgcHJlc2VudGUgZXRhcGEgLyBTYWxkbywgeXRvazoBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAbQmFsYW5jZS9TYWxkbyBHVFMsIHl0b2tlbnM6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAE2dldEtleUJhbGFuY2VJc3N1ZXIAAAABAAAACHN1cHBsaWVyAgAAABBTYWxkbyB3dnMsIHd2bHM6AQAAABVnZXRWYWx1ZUJhbGFuY2VJc3N1ZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAATZ2V0S2V5QmFsYW5jZUlzc3VlcgAAAAEFAAAACHN1cHBsaWVyAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAABxJbmdyZXNvcyBwb3IgVmVudGFHVFMsIHd2bHM6AQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgAAAAMAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeUJpdENPMgkAAAIAAAABAgAAAClkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiB5Qml0Q08yIHRva2VucwQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAcTm8gaGF5IHlCaXRDTzIgZW4gc3UgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAC3B1cmNoYXNlR1RTAAAABQAAAARpdGVtAAAACGl0ZW1OYW1lAAAACHVzZXJOYW1lAAAADHVzZXJEb2N1bWVudAAAAAt0b3RhbEFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAAE0VsIFByZWNpbyBlbiB3YXZlcy4EAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACWlzc3VlckFkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAZpc3N1ZXIEAAAAB3Byb2pBZGQEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAADWdldEtleVByb2plY3QAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABHBBZGQEAAAAB25vZG9BZGQEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAACmdldEtleU5vZG8AAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABGVBZGQEAAAAC3ByZVRva2VuUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAADVNlY29uZEZhc2VRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAANYmFsYW5jZUlzc3VlcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAATZ2V0S2V5QmFsYW5jZUlzc3VlcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAADEZpcnN0RmFzZVF0eQQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3ViVG90YWwFAAAAC3RvdGFsQW1vdW50BAAAAANwSXcJAABpAAAAAgkAAGgAAAACBQAAAANwSVAFAAAACHN1YlRvdGFsBQAAAAlyZWxhY2RjdG8EAAAAA2VJdwkAAGkAAAACCQAAaAAAAAIFAAAAA2VJUAUAAAAIc3ViVG90YWwFAAAACXJlbGFjZGN0bwQAAAANYmNvMm1lbm9zZGN0bwkAAGkAAAACCQAAaAAAAAIJAABlAAAAAgAAAAAAAAAAZAUAAAAIYml0ZHNjdG8JAABoAAAAAgUAAAAFZXVyb3UFAAAABWJjbzJlAAAAAAAAACcQBAAAAAlzdWJUb3RhbGIJAABpAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAV1c2RudwAAAAAAAAAAZAUAAAANYmNvMm1lbm9zZGN0bwQAAAAGdG90YWxiCQAAaQAAAAIFAAAACXN1YlRvdGFsYgAAAAAAAAAnEAQAAAADdUliCQAAaQAAAAIJAABoAAAAAgUAAAADdUJQBQAAAAlzdWJUb3RhbGIFAAAACXJlbGFjZGN0bwQAAAADc0liCQAAaQAAAAIJAABoAAAAAgUAAAADc0JQBQAAAAlzdWJUb3RhbGIFAAAACXJlbGFjZGN0bwQAAAADZUliCQAAaQAAAAIJAABoAAAAAgUAAAADZUJQBQAAAAlzdWJUb3RhbGIFAAAACXJlbGFjZGN0bwQAAAANQmFsYW5jZVRpZW5kYQkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIJAABpAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA3d2cwQAAAANQmFsYW5jZUlzc3VlcgkAAGUAAAACBQAAAA1iYWxhbmNlSXNzdWVyCQAAaQAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAAN3dnMDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABGl0ZW0FAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0FAAAACGl0ZW1OYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADGdldEtleUlzc3VlcgAAAAEFAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAAxnZXRLZXlJc3N1ZXIAAAABBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleU5vZG8AAAABBQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAKZ2V0S2V5Tm9kbwAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABlRpZW5kYQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABHVzZG4FAAAABXVzZG53CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAVldXJvdQUAAAAFZXVyb3UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAFkFwb3lvIEVjb2zDs2dpY28sIHd2bHMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACYxIEJpdC1DTzIgUHJlY2lvIE5vbWluYWwsIGV1cm9zIHgxMGUtNAUAAAAFYmNvMmUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAJzEgQml0LUNPMiBQcmVjaW8gY29uIERlc2N0bywgdXNkIHgxMGUtNAUAAAANYmNvMm1lbm9zZGN0bwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAlU3ViVG90YWwgYSBkaXN0cmlidWlyLCBiaXQtY28yIHgxMGUtNAUAAAAGdG90YWxiCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACJUb3RhbCBiaXQtY28yIGEgZGlzdHJpYnVpciwgeDEwZS00BQAAAAlzdWJUb3RhbGIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAFVRvdGFsLCBiaXQtY28yIHgxMGUtNAUAAAAGdG90YWxiCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAANwSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAlnZXRLZXlOSXcAAAABBQAAAARpdGVtBQAAAANlSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAA3VJYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQUAAAADc0liCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAJZ2V0S2V5TkliAAAAAQUAAAAEaXRlbQUAAAADZUliCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAYVHJhbnNhY2Npw7NuIENvbmZpcm1hZGEhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAtQcmVUb2tlblF0eQUAAAALcHJlVG9rZW5RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD2JhbGFuY2VTdXBwbGllcgUAAAAPYmFsYW5jZVN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA1iYWxhbmNlVGllbmRhBQAAAA1CYWxhbmNlVGllbmRhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA1iYWxhbmNlSXNzdWVyBQAAAA1CYWxhbmNlSXNzdWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAhzdGFydFF0eQUAAAAIc3RhcnRRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADEZpcnN0RmFzZVF0eQUAAAAMRmlyc3RGYXNlUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA1TZWNvbmRGYXNlUXR5BQAAAA1TZWNvbmRGYXNlUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQkAAGUAAAACBQAAAAtwcmVUb2tlblF0eQkAAGkAAAACBQAAAA1CYWxhbmNlVGllbmRhAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABHBBZGQFAAAAA3BJdwUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAA3VJYgUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAA3NJYgUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAANlSXcFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUliBQAAAAd5Qml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABJSZWlzc3VlVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgdhCW0X",
    "height": 1751753,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2HtWoRCctsSQVYFe7d95XkreJUa5XPkBrYzQYR49YPsZ
Next: DU7jv84Sc2DMTqqTVFAPPSsv3pu1xxPhUVxdRdhqDSe5

Diff: 
Old New Differences
8 8  let FirstFaseQty = 31193
9 9  
10 10  let SecondFaseQty = 274500
11 + 
12 + let wvs = 100000000
11 13  
12 14  let NONE = "none"
13 15  
239 241              let eIw = ((eIP * subTotal) / relacdcto)
240 242              let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
241 243              let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
242 -             let totalb = (10000 * subTotalb)
244 +             let totalb = (subTotalb / 10000)
243 245              let uIb = ((uBP * subTotalb) / relacdcto)
244 246              let sIb = ((sBP * subTotalb) / relacdcto)
245 247              let eIb = ((eBP * subTotalb) / relacdcto)
246 -             let BalanceTienda = (balanceSupplier + pmt.amount)
247 -             let BalanceIssuer = (balanceIssuer - pmt.amount)
248 +             let BalanceTienda = (balanceSupplier + (pmt.amount / wvs))
249 +             let BalanceIssuer = (balanceIssuer - (pmt.amount / wvs))
248 250              if ((totalAmount > pmt.amount))
249 251                  then throw("Payment Amount can't be less than item Purchase Order")
250 252                  else if ((pmt.amount > totalAmount))
251 253                      then throw("Payment Amount can't be higher than item Purchase Order")
252 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", (10000 * subTotalb)), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
254 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("Total bit-co2 a distribuir, x10e-4", subTotalb), DataEntry("Total, bit-co2 x10e-4", totalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
253 255              }
254 256      }
255 257  
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 = 305693
7 7  
8 8  let FirstFaseQty = 31193
9 9  
10 10  let SecondFaseQty = 274500
11 + 
12 + let wvs = 100000000
11 13  
12 14  let NONE = "none"
13 15  
14 16  let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
15 17  
16 18  let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
17 19  
18 20  let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
19 21  
20 22  let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
21 23  
22 24  let eurou = 116
23 25  
24 26  let usdnw = 2539
25 27  
26 28  let bco2e = 100000
27 29  
28 30  let bitdscto = 3
29 31  
30 32  let pIP = 10
31 33  
32 34  let uBP = 7
33 35  
34 36  let sBP = 2
35 37  
36 38  let eIP = 1
37 39  
38 40  let eBP = 2
39 41  
40 42  let relacdcto = 11
41 43  
42 44  func getNumberByKey (key) = {
43 45      let num =     match getInteger(this, key) {
44 46          case a: Int => 
45 47              a
46 48          case _ => 
47 49              0
48 50      }
49 51      num
50 52      }
51 53  
52 54  
53 55  func getStrByKey (key) = {
54 56      let str =     match getString(this, key) {
55 57          case a: String => 
56 58              a
57 59          case _ => 
58 60              NONE
59 61      }
60 62      str
61 63      }
62 64  
63 65  
64 66  func getKeyItemSupplier (supplier) = (supplier + "Vendedor, Lima-Perú")
65 67  
66 68  
67 69  func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
68 70  
69 71  
70 72  func getKeyIssuer (item) = "Issuer/Tienda"
71 73  
72 74  
73 75  func getValueIssuer (item) = getStrByKey(getKeyIssuer(item))
74 76  
75 77  
76 78  func getKeyProject (item) = "Project"
77 79  
78 80  
79 81  func getValueProject (item) = getStrByKey(getKeyProject(item))
80 82  
81 83  
82 84  func getKeyNodo (item) = "Nodo"
83 85  
84 86  
85 87  func getValueNodo (item) = getStrByKey(getKeyNodo(item))
86 88  
87 89  
88 90  func getKeyUserItemGtsCounter (user,item) = "Order_№:"
89 91  
90 92  
91 93  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
92 94  
93 95  
94 96  func getKeyItemName (item) = "Categoría del Producto:"
95 97  
96 98  
97 99  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
98 100  
99 101  
100 102  func getKeyUserName (item) = "Nombre del Usuario:"
101 103  
102 104  
103 105  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
104 106  
105 107  
106 108  func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
107 109  
108 110  
109 111  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
110 112  
111 113  
112 114  func getKeyUI (item) = "UI, x10e-04 bit:"
113 115  
114 116  
115 117  func getValueUI (item) = getNumberByKey(getKeyUI(item))
116 118  
117 119  
118 120  func getKeyPI (item) = "PI, wvls:"
119 121  
120 122  
121 123  func getValuePI (item) = getNumberByKey(getKeyPI(item))
122 124  
123 125  
124 126  func getKeySI (item) = "SI, x10e-04 bit:"
125 127  
126 128  
127 129  func getValueSI (item) = getNumberByKey(getKeySI(item))
128 130  
129 131  
130 132  func getKeyNIb (item) = "NIb, x10e-04 bit:"
131 133  
132 134  
133 135  func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
134 136  
135 137  
136 138  func getKeyNIw (item) = "NIw, wvls:"
137 139  
138 140  
139 141  func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
140 142  
141 143  
142 144  func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo, ytok:"
143 145  
144 146  
145 147  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
146 148  
147 149  
148 150  func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens:"
149 151  
150 152  
151 153  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
152 154  
153 155  
154 156  func getKeyBalanceIssuer (supplier) = "Saldo wvs, wvls:"
155 157  
156 158  
157 159  func getValueBalanceIssuer (supplier) = getNumberByKey(getKeyBalanceIssuer(supplier))
158 160  
159 161  
160 162  func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS, wvls:"
161 163  
162 164  
163 165  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
164 166  
165 167  
166 168  @Callable(i)
167 169  func deposit (title,supplierData) = {
168 170      let pmt = extract(i.payment)
169 171      if ((pmt.assetId != yBitCO2))
170 172          then throw("deposito permitido solo en yBitCO2 tokens")
171 173          else {
172 174              let supplier = toBase58String(i.caller.bytes)
173 175              let currentAmount =             match getInteger(this, supplier) {
174 176                  case a: Int => 
175 177                      a
176 178                  case _ => 
177 179                      startQty
178 180              }
179 181              let newAmount = (currentAmount + pmt.amount)
180 182              if ((0 >= newAmount))
181 183                  then throw("No hay yBitCO2 en su balance")
182 184                  else WriteSet([DataEntry(supplier, newAmount)])
183 185              }
184 186      }
185 187  
186 188  
187 189  
188 190  @Callable(i)
189 191  func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
190 192      let pmt = extract(i.payment)
191 193      if (isDefined(pmt.assetId))
192 194          then throw("El Precio en waves.")
193 195          else {
194 196              let supplier =             match getString(this, getKeyItemSupplier(item)) {
195 197                  case a: String => 
196 198                      a
197 199                  case _ => 
198 200                      NONE
199 201              }
200 202              let issuerAdd =             match getString(this, getKeyIssuer(item)) {
201 203                  case a: String => 
202 204                      a
203 205                  case _ => 
204 206                      issuer
205 207              }
206 208              let projAdd =             match getString(this, getKeyProject(item)) {
207 209                  case a: String => 
208 210                      a
209 211                  case _ => 
210 212                      pAdd
211 213              }
212 214              let nodoAdd =             match getString(this, getKeyNodo(item)) {
213 215                  case a: String => 
214 216                      a
215 217                  case _ => 
216 218                      eAdd
217 219              }
218 220              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
219 221                  case a: Int => 
220 222                      a
221 223                  case _ => 
222 224                      SecondFaseQty
223 225              }
224 226              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
225 227                  case a: Int => 
226 228                      a
227 229                  case _ => 
228 230                      0
229 231              }
230 232              let balanceIssuer =             match getInteger(this, getKeyBalanceIssuer(supplier)) {
231 233                  case a: Int => 
232 234                      a
233 235                  case _ => 
234 236                      FirstFaseQty
235 237              }
236 238              let userAddress = toBase58String(i.caller.bytes)
237 239              let subTotal = totalAmount
238 240              let pIw = ((pIP * subTotal) / relacdcto)
239 241              let eIw = ((eIP * subTotal) / relacdcto)
240 242              let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
241 243              let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
242 -             let totalb = (10000 * subTotalb)
244 +             let totalb = (subTotalb / 10000)
243 245              let uIb = ((uBP * subTotalb) / relacdcto)
244 246              let sIb = ((sBP * subTotalb) / relacdcto)
245 247              let eIb = ((eBP * subTotalb) / relacdcto)
246 -             let BalanceTienda = (balanceSupplier + pmt.amount)
247 -             let BalanceIssuer = (balanceIssuer - pmt.amount)
248 +             let BalanceTienda = (balanceSupplier + (pmt.amount / wvs))
249 +             let BalanceIssuer = (balanceIssuer - (pmt.amount / wvs))
248 250              if ((totalAmount > pmt.amount))
249 251                  then throw("Payment Amount can't be less than item Purchase Order")
250 252                  else if ((pmt.amount > totalAmount))
251 253                      then throw("Payment Amount can't be higher than item Purchase Order")
252 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", (10000 * subTotalb)), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
254 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("Total bit-co2 a distribuir, x10e-4", subTotalb), DataEntry("Total, bit-co2 x10e-4", totalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
253 255              }
254 256      }
255 257  
256 258  
257 259  
258 260  @Callable(i)
259 261  func withdraw (item,amount) = {
260 262      let userAddress = toBase58String(i.caller.bytes)
261 263      let supplier =     match getString(this, getKeyItemSupplier(item)) {
262 264          case a: String => 
263 265              a
264 266          case _ => 
265 267              NONE
266 268      }
267 269      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
268 270          case a: Int => 
269 271              a
270 272          case _ => 
271 273              startQty
272 274      }
273 275      let newAmount = (preIcoQty - amount)
274 276      if ((0 > amount))
275 277          then throw("El balance de retiro no puede ser negativo!")
276 278          else if ((0 >= newAmount))
277 279              then throw("Ooppss.. Insuficiente balance!")
278 280              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
279 281      }
280 282  
281 283  
282 284  @Verifier(tx)
283 285  func verify () = match tx {
284 286      case t: SetScriptTransaction => 
285 287          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
286 288      case d: ReissueTransaction|DataTransaction => 
287 289          true
288 290      case tx: TransferTransaction => 
289 291          true
290 292      case _ => 
291 293          false
292 294  }
293 295

Old	New		Differences
8	8		let FirstFaseQty = 31193
9	9
10	10		let SecondFaseQty = 274500
	11	+
	12	+	let wvs = 100000000
11	13
12	14		let NONE = "none"
13	15

239	241		let eIw = ((eIP * subTotal) / relacdcto)
240	242		let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
241	243		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
242		-	let totalb = (10000 * subTotalb)
	244	+	let totalb = (subTotalb / 10000)
243	245		let uIb = ((uBP * subTotalb) / relacdcto)
244	246		let sIb = ((sBP * subTotalb) / relacdcto)
245	247		let eIb = ((eBP * subTotalb) / relacdcto)
246		-	let BalanceTienda = (balanceSupplier + pmt.amount)
247		-	let BalanceIssuer = (balanceIssuer - pmt.amount)
	248	+	let BalanceTienda = (balanceSupplier + (pmt.amount / wvs))
	249	+	let BalanceIssuer = (balanceIssuer - (pmt.amount / wvs))
248	250		if ((totalAmount > pmt.amount))
249	251		then throw("Payment Amount can't be less than item Purchase Order")
250	252		else if ((pmt.amount > totalAmount))
251	253		then throw("Payment Amount can't be higher than item Purchase Order")
252		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("~~SubTotal~~ a distribuir, bit-co2 x10e-4", ~~(10000 * subTotalb)~~), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
	254	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("Total bit-co2 a distribuir, x10e-4", subTotalb), DataEntry("Total, bit-co2 x10e-4", totalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
253	255		}
254	256		}
255	257

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 = 305693
7	7
8	8		let FirstFaseQty = 31193
9	9
10	10		let SecondFaseQty = 274500
	11	+
	12	+	let wvs = 100000000
11	13
12	14		let NONE = "none"
13	15
14	16		let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
15	17
16	18		let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
17	19
18	20		let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
19	21
20	22		let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
21	23
22	24		let eurou = 116
23	25
24	26		let usdnw = 2539
25	27
26	28		let bco2e = 100000
27	29
28	30		let bitdscto = 3
29	31
30	32		let pIP = 10
31	33
32	34		let uBP = 7
33	35
34	36		let sBP = 2
35	37
36	38		let eIP = 1
37	39
38	40		let eBP = 2
39	41
40	42		let relacdcto = 11
41	43
42	44		func getNumberByKey (key) = {
43	45		let num = match getInteger(this, key) {
44	46		case a: Int =>
45	47		a
46	48		case _ =>
47	49		0
48	50		}
49	51		num
50	52		}
51	53
52	54
53	55		func getStrByKey (key) = {
54	56		let str = match getString(this, key) {
55	57		case a: String =>
56	58		a
57	59		case _ =>
58	60		NONE
59	61		}
60	62		str
61	63		}
62	64
63	65
64	66		func getKeyItemSupplier (supplier) = (supplier + "Vendedor, Lima-Perú")
65	67
66	68
67	69		func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
68	70
69	71
70	72		func getKeyIssuer (item) = "Issuer/Tienda"
71	73
72	74
73	75		func getValueIssuer (item) = getStrByKey(getKeyIssuer(item))
74	76
75	77
76	78		func getKeyProject (item) = "Project"
77	79
78	80
79	81		func getValueProject (item) = getStrByKey(getKeyProject(item))
80	82
81	83
82	84		func getKeyNodo (item) = "Nodo"
83	85
84	86
85	87		func getValueNodo (item) = getStrByKey(getKeyNodo(item))
86	88
87	89
88	90		func getKeyUserItemGtsCounter (user,item) = "Order_№:"
89	91
90	92
91	93		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
92	94
93	95
94	96		func getKeyItemName (item) = "Categoría del Producto:"
95	97
96	98
97	99		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
98	100
99	101
100	102		func getKeyUserName (item) = "Nombre del Usuario:"
101	103
102	104
103	105		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
104	106
105	107
106	108		func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
107	109
108	110
109	111		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
110	112
111	113
112	114		func getKeyUI (item) = "UI, x10e-04 bit:"
113	115
114	116
115	117		func getValueUI (item) = getNumberByKey(getKeyUI(item))
116	118
117	119
118	120		func getKeyPI (item) = "PI, wvls:"
119	121
120	122
121	123		func getValuePI (item) = getNumberByKey(getKeyPI(item))
122	124
123	125
124	126		func getKeySI (item) = "SI, x10e-04 bit:"
125	127
126	128
127	129		func getValueSI (item) = getNumberByKey(getKeySI(item))
128	130
129	131
130	132		func getKeyNIb (item) = "NIb, x10e-04 bit:"
131	133
132	134
133	135		func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
134	136
135	137
136	138		func getKeyNIw (item) = "NIw, wvls:"
137	139
138	140
139	141		func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
140	142
141	143
142	144		func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo, ytok:"
143	145
144	146
145	147		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
146	148
147	149
148	150		func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens:"
149	151
150	152
151	153		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
152	154
153	155
154	156		func getKeyBalanceIssuer (supplier) = "Saldo wvs, wvls:"
155	157
156	158
157	159		func getValueBalanceIssuer (supplier) = getNumberByKey(getKeyBalanceIssuer(supplier))
158	160
159	161
160	162		func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS, wvls:"
161	163
162	164
163	165		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
164	166
165	167
166	168		@Callable(i)
167	169		func deposit (title,supplierData) = {
168	170		let pmt = extract(i.payment)
169	171		if ((pmt.assetId != yBitCO2))
170	172		then throw("deposito permitido solo en yBitCO2 tokens")
171	173		else {
172	174		let supplier = toBase58String(i.caller.bytes)
173	175		let currentAmount = match getInteger(this, supplier) {
174	176		case a: Int =>
175	177		a
176	178		case _ =>
177	179		startQty
178	180		}
179	181		let newAmount = (currentAmount + pmt.amount)
180	182		if ((0 >= newAmount))
181	183		then throw("No hay yBitCO2 en su balance")
182	184		else WriteSet([DataEntry(supplier, newAmount)])
183	185		}
184	186		}
185	187
186	188
187	189
188	190		@Callable(i)
189	191		func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
190	192		let pmt = extract(i.payment)
191	193		if (isDefined(pmt.assetId))
192	194		then throw("El Precio en waves.")
193	195		else {
194	196		let supplier = match getString(this, getKeyItemSupplier(item)) {
195	197		case a: String =>
196	198		a
197	199		case _ =>
198	200		NONE
199	201		}
200	202		let issuerAdd = match getString(this, getKeyIssuer(item)) {
201	203		case a: String =>
202	204		a
203	205		case _ =>
204	206		issuer
205	207		}
206	208		let projAdd = match getString(this, getKeyProject(item)) {
207	209		case a: String =>
208	210		a
209	211		case _ =>
210	212		pAdd
211	213		}
212	214		let nodoAdd = match getString(this, getKeyNodo(item)) {
213	215		case a: String =>
214	216		a
215	217		case _ =>
216	218		eAdd
217	219		}
218	220		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
219	221		case a: Int =>
220	222		a
221	223		case _ =>
222	224		SecondFaseQty
223	225		}
224	226		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
225	227		case a: Int =>
226	228		a
227	229		case _ =>
228	230		0
229	231		}
230	232		let balanceIssuer = match getInteger(this, getKeyBalanceIssuer(supplier)) {
231	233		case a: Int =>
232	234		a
233	235		case _ =>
234	236		FirstFaseQty
235	237		}
236	238		let userAddress = toBase58String(i.caller.bytes)
237	239		let subTotal = totalAmount
238	240		let pIw = ((pIP * subTotal) / relacdcto)
239	241		let eIw = ((eIP * subTotal) / relacdcto)
240	242		let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
241	243		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
242		-	let totalb = (10000 * subTotalb)
	244	+	let totalb = (subTotalb / 10000)
243	245		let uIb = ((uBP * subTotalb) / relacdcto)
244	246		let sIb = ((sBP * subTotalb) / relacdcto)
245	247		let eIb = ((eBP * subTotalb) / relacdcto)
246		-	let BalanceTienda = (balanceSupplier + pmt.amount)
247		-	let BalanceIssuer = (balanceIssuer - pmt.amount)
	248	+	let BalanceTienda = (balanceSupplier + (pmt.amount / wvs))
	249	+	let BalanceIssuer = (balanceIssuer - (pmt.amount / wvs))
248	250		if ((totalAmount > pmt.amount))
249	251		then throw("Payment Amount can't be less than item Purchase Order")
250	252		else if ((pmt.amount > totalAmount))
251	253		then throw("Payment Amount can't be higher than item Purchase Order")
252		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("~~SubTotal~~ a distribuir, bit-co2 x10e-4", ~~(10000 * subTotalb)~~), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
	254	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(supplier), supplier), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyIssuer(item), getStrByKey(getKeyIssuer(item))), DataEntry(getKeyProject(item), getStrByKey(getKeyProject(item))), DataEntry(getKeyNodo(item), getStrByKey(getKeyNodo(item))), DataEntry("Tienda", supplier), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Apoyo Ecológico, wvls", totalAmount), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("SubTotal a distribuir, bit-co2 x10e-4", totalb), DataEntry("Total bit-co2 a distribuir, x10e-4", subTotalb), DataEntry("Total, bit-co2 x10e-4", totalb), DataEntry(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", preTokenQty), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), DataEntry("startQty", startQty), DataEntry("FirstFaseQty", FirstFaseQty), DataEntry("SecondFaseQty", SecondFaseQty), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeySaldoTokenQtyStartEtapa(item), getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (BalanceTienda / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(pAdd, pIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(issuer, sIb, yBitCO2), ScriptTransfer(eAdd, eIw, unit), ScriptTransfer(eAdd, eIb, yBitCO2)]))
253	255		}
254	256		}
255	257
256	258
257	259
258	260		@Callable(i)
259	261		func withdraw (item,amount) = {
260	262		let userAddress = toBase58String(i.caller.bytes)
261	263		let supplier = match getString(this, getKeyItemSupplier(item)) {
262	264		case a: String =>
263	265		a
264	266		case _ =>
265	267		NONE
266	268		}
267	269		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
268	270		case a: Int =>
269	271		a
270	272		case _ =>
271	273		startQty
272	274		}
273	275		let newAmount = (preIcoQty - amount)
274	276		if ((0 > amount))
275	277		then throw("El balance de retiro no puede ser negativo!")
276	278		else if ((0 >= newAmount))
277	279		then throw("Ooppss.. Insuficiente balance!")
278	280		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
279	281		}
280	282
281	283
282	284		@Verifier(tx)
283	285		func verify () = match tx {
284	286		case t: SetScriptTransaction =>
285	287		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
286	288		case d: ReissueTransaction\|DataTransaction =>
287	289		true
288	290		case tx: TransferTransaction =>
289	291		true
290	292		case _ =>
291	293		false
292	294		}
293	295

github/deemru/w8io/169f3d6 
92.71 ms ◑