w8 · tx · FBc···ktV

tx · FBc5313nJ88Qk79HtAgXjNRQBE66AciihXre8KFidktV

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01000000 Waves

2021.10.20 08:58 [1754215] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FBc5313nJ88Qk79HtAgXjNRQBE66AciihXre8KFidktV",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1634709483918,
    "version": 2,
    "chainId": 84,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "Gb3aiECp6vjLmXZmMAnVEprpYdNq2R6GWSSh39z6xsFzA5joqKHGyWfNwMUAJjnGET8ospGm33i6GUdzc6F3uxk"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIECgIICBIHCgUICAgIARIECgIIAQAAADgAAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAAhzdGFydFF0eQAAAAAAAASqHQAAAAAMRmlyc3RGYXNlUXR5AAAAAAAAAHnZAAAAAA1TZWNvbmRGYXNlUXR5AAAAAAAABDBEAAAAAAN3dnMAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACB2JYFH9ti5N+7uGrdzKwlrXhDeZ+vMkHOKuVJteEgPDwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUsZ/LLWvSicGFXkptOa6Ov7Vyb4KJ2haTAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUmX0sM+4Li4VQQQ26bfB7j/XU/VW4HmxXAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUQ6WuNYiemm0n1pXSZ6YgP2UOMpCwdKRqAAAAAAVldXJvdQAAAAAAAAAAdAAAAAAFdXNkbncAAAAAAAAACesAAAAABWJjbzJlAAAAAAAAAYagAAAAAAhiaXRkc2N0bwAAAAAAAAAAAwAAAAADcElQAAAAAAAAAAAKAAAAAAN1QlAAAAAAAAAAAAcAAAAAA3NCUAAAAAAAAAAAAgAAAAADZUlQAAAAAAAAAAABAAAAAANlQlAAAAAAAAAAAAIAAAAACXJlbGFjZGN0bwAAAAAAAAAACwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABRWZW5kZWRvciwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAAAxnZXRLZXlJc3N1ZXIAAAABAAAABGl0ZW0CAAAADUlzc3Vlci9UaWVuZGEBAAAADmdldFZhbHVlSXNzdWVyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQEAAAANZ2V0S2V5UHJvamVjdAAAAAEAAAAEaXRlbQIAAAAHUHJvamVjdAEAAAAPZ2V0VmFsdWVQcm9qZWN0AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0BAAAACmdldEtleU5vZG8AAAABAAAABGl0ZW0CAAAABE5vZG8BAAAADGdldFZhbHVlTm9kbwAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAACmdldEtleU5vZG8AAAABBQAAAARpdGVtAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAABBVSSwgeDEwZS0wNCBiaXQ6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAJUEksIHd2bHM6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAQU0ksIHgxMGUtMDQgYml0OgEAAAAKZ2V0VmFsdWVTSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQEAAAAJZ2V0S2V5TkliAAAAAQAAAARpdGVtAgAAABFOSWIsIHgxMGUtMDQgYml0OgEAAAALZ2V0VmFsdWVOSWIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlOSWIAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlOSXcAAAABAAAABGl0ZW0CAAAACk5Jdywgd3ZsczoBAAAAC2dldFZhbHVlTkl3AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAJZ2V0S2V5Tkl3AAAAAQUAAAAEaXRlbQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0CAAAANFRva2VucyBPZmVydGFkb3MgZW4gbGEgcHJlc2VudGUgZXRhcGEgLyBTYWxkbywgeXRvazoBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAbQmFsYW5jZS9TYWxkbyBHVFMsIHl0b2tlbnM6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAE2dldEtleUJhbGFuY2VJc3N1ZXIAAAABAAAACHN1cHBsaWVyAgAAABBTYWxkbyB3dnMsIHd2bHM6AQAAABVnZXRWYWx1ZUJhbGFuY2VJc3N1ZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAATZ2V0S2V5QmFsYW5jZUlzc3VlcgAAAAEFAAAACHN1cHBsaWVyAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAABxJbmdyZXNvcyBwb3IgVmVudGFHVFMsIHd2bHM6AQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgAAAAMAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeUJpdENPMgkAAAIAAAABAgAAAClkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiB5Qml0Q08yIHRva2VucwQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAcTm8gaGF5IHlCaXRDTzIgZW4gc3UgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAC3B1cmNoYXNlR1RTAAAABQAAAARpdGVtAAAACGl0ZW1OYW1lAAAACHVzZXJOYW1lAAAADHVzZXJEb2N1bWVudAAAAAt0b3RhbEFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAAE0VsIFByZWNpbyBlbiB3YXZlcy4EAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACWlzc3VlckFkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAZpc3N1ZXIEAAAAB3Byb3llY3QJAAJYAAAAAQEAAAAaAVRDpa41iJ6abSfWldJnpiA/ZQ4ykLB0pGoEAAAAB3Byb2pBZGQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAHcHJveWVjdAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAdub2RvQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAAApnZXRLZXlOb2RvAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAARlQWRkBAAAAAtwcmVUb2tlblF0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAA1TZWNvbmRGYXNlUXR5BAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAADWJhbGFuY2VJc3N1ZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAE2dldEtleUJhbGFuY2VJc3N1ZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAxGaXJzdEZhc2VRdHkEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1YlRvdGFsBQAAAAt0b3RhbEFtb3VudAQAAAADcEl3CQAAaQAAAAIJAABoAAAAAgUAAAADcElQBQAAAAhzdWJUb3RhbAUAAAAJcmVsYWNkY3RvBAAAAANlSXcJAABpAAAAAgkAAGgAAAACBQAAAANlSVAFAAAACHN1YlRvdGFsBQAAAAlyZWxhY2RjdG8EAAAABFNlSXcJAABoAAAAAgUAAAADZUl3BQAAAAN3dnMEAAAABFNwSXcJAABlAAAAAgUAAAAMRmlyc3RGYXNlUXR5BQAAAAdwcm9qQWRkBAAAAA1iY28ybWVub3NkY3RvCQAAaQAAAAIJAABoAAAAAgkAAGUAAAACAAAAAAAAAABkBQAAAAhiaXRkc2N0bwkAAGgAAAACBQAAAAVldXJvdQUAAAAFYmNvMmUAAAAAAAAAJxAEAAAACXN1YlRvdGFsYgkAAGkAAAACCQAAaQAAAAIJAABoAAAAAgUAAAALdG90YWxBbW91bnQFAAAABXVzZG53AAAAAAAAAABkBQAAAA1iY28ybWVub3NkY3RvBAAAAAZ0b3RhbGIJAABoAAAAAgUAAAAJc3ViVG90YWxiAAAAAAAAACcQBAAAAAN1SWIJAABpAAAAAgkAAGgAAAACBQAAAAN1QlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAANzSWIJAABpAAAAAgkAAGgAAAACBQAAAANzQlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAANlSWIJAABpAAAAAgkAAGgAAAACBQAAAANlQlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAA1CYWxhbmNlVGllbmRhCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcgkAAGkAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAADd3ZzBAAAAA1CYWxhbmNlSXNzdWVyCQAAZQAAAAIFAAAADWJhbGFuY2VJc3N1ZXIJAABpAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA3d2cwMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyBQAAAAhzdXBwbGllcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAIaXRlbU5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADGdldEtleUlzc3VlcgAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADWdldEtleVByb2plY3QAAAABBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAKZ2V0S2V5Tm9kbwAAAAEFAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAApnZXRLZXlOb2RvAAAAAQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGVGllbmRhBQAAAAhzdXBwbGllcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAEdXNkbgUAAAAFdXNkbncJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABWV1cm91BQAAAAVldXJvdQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAWQXBveW8gRWNvbMOzZ2ljbywgd3ZscwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0FAAAAA3BJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACWdldEtleU5JdwAAAAEFAAAABGl0ZW0FAAAAA2VJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAmMSBCaXQtQ08yIFByZWNpbyBOb21pbmFsLCBldXJvcyB4MTBlLTQFAAAABWJjbzJlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACcxIEJpdC1DTzIgUHJlY2lvIGNvbiBEZXNjdG8sIHVzZCB4MTBlLTQFAAAADWJjbzJtZW5vc2RjdG8JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAIlRvdGFsIGJpdC1jbzIgYSBkaXN0cmlidWlyLCB4MTBlLTQFAAAACXN1YlRvdGFsYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAVVG90YWwsIGJpdC1jbzIgeDEwZS00BQAAAAZ0b3RhbGIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAA3VJYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQUAAAADc0liCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAJZ2V0S2V5TkliAAAAAQUAAAAEaXRlbQUAAAADZUliCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAYVHJhbnNhY2Npw7NuIENvbmZpcm1hZGEhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAtQcmVUb2tlblF0eQUAAAALcHJlVG9rZW5RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD2JhbGFuY2VTdXBwbGllcgUAAAAPYmFsYW5jZVN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABBiYWxhbmNlU3VwcGxpZXIyCQAAZQAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcgUAAAAEU2VJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZQAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcgUAAAAEU2VJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyBQAAAARTZUl3CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABlAAAAAgkBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIFAAAABFNlSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADWJhbGFuY2VUaWVuZGEFAAAADUJhbGFuY2VUaWVuZGEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADWJhbGFuY2VJc3N1ZXIFAAAADUJhbGFuY2VJc3N1ZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACHN0YXJ0UXR5BQAAAAhzdGFydFF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAMRmlyc3RGYXNlUXR5BQAAAAxGaXJzdEZhc2VRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADVNlY29uZEZhc2VRdHkFAAAADVNlY29uZEZhc2VRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAAC3ByZVRva2VuUXR5CQAAaQAAAAIFAAAADUJhbGFuY2VUaWVuZGEAAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAADcEl3BQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAADdUliBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAADc0liBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAA2VJdwUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAANlSWIFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAArRWwgYmFsYW5jZSBkZSByZXRpcm8gbm8gcHVlZGUgc2VyIG5lZ2F0aXZvIQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHk9vcHBzcy4uIEluc3VmaWNpZW50ZSBiYWxhbmNlIQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAd5Qml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAAtPd25lclB1YktleQMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgYJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPRGF0YVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAGB0lUNpo=",
    "height": 1754215,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GL38uQJTiT3xPUafEoXUneNfsYgV9qz7dNcXzkbMAZ1p
Next: Q2FU3cEXRg654BWptK3s4MMnvCdRZ9vwsEfJLf8MKCY

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

Old	New		Differences
205	205		case _ =>
206	206		issuer
207	207		}
208		-	let projAdd = match getString(this, getKeyProject(item)) {
209		-	case a: String =>
	208	+	let proyect = toBase58String(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
	209	+	let projAdd = match getInteger(this, proyect) {
	210	+	case a: Int =>
210	211		a
211	212		case _ =>
212		-	~~pAdd~~
	213	+	0
213	214		}
214	215		let nodoAdd = match getString(this, getKeyNodo(item)) {
215	216		case a: String =>

239	240		let subTotal = totalAmount
240	241		let pIw = ((pIP * subTotal) / relacdcto)
241	242		let eIw = ((eIP * subTotal) / relacdcto)
	243	+	let SeIw = (eIw * wvs)
	244	+	let SpIw = (FirstFaseQty - projAdd)
242	245		let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
243	246		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
244	247		let totalb = (subTotalb * 10000)

251	254		then throw("Payment Amount can't be less than item Purchase Order")
252	255		else if ((pmt.amount > totalAmount))
253	256		then throw("Payment Amount can't be higher than item Purchase Order")
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(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("Total bit-co2 a distribuir, x10e-4", subTotalb), DataEntry("Total, bit-co2 x10e-4", totalb), 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)]))
	257	+	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(getKeyPI(item), pIw), DataEntry(getKeyNIw(item), eIw), DataEntry("1 Bit-CO2 Precio Nominal, euros x10e-4", bco2e), DataEntry("1 Bit-CO2 Precio con Descto, usd x10e-4", bco2menosdcto), DataEntry("Total bit-co2 a distribuir, x10e-4", subTotalb), DataEntry("Total, bit-co2 x10e-4", totalb), 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("balanceSupplier2", (balanceSupplier - SeIw)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - SeIw)), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) - SeIw)), 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)]))
255	258		}
256	259		}
257	260

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

github/deemru/w8io/169f3d6 
1812.82 ms ◑