w8 · tx · HTW···HTc

tx · HTWEjhrxwsDe4C2f1KPBR62oWEUUnsZATbvPDquiSHTc

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01000000 Waves

2021.10.20 10:58 [1754337] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HTWEjhrxwsDe4C2f1KPBR62oWEUUnsZATbvPDquiSHTc",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1634716725457,
    "version": 2,
    "chainId": 84,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "65Edsuun3nL6zVpqi4GMi23VT1RAnxXVEE98s3nXE3WnR2q6npdNKvRKveMgm41Duh5jsZ9t3g41dTGRGvCEcMND"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIECgIICBIHCgUICAgIARIECgIIAQAAADoAAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAAhzdGFydFF0eQAAAAAAAASqHQAAAAAMRmlyc3RGYXNlUXR5AAAAAAAAAHnZAAAAAA1TZWNvbmRGYXNlUXR5AAAAAAAABDBEAAAAAAN3dnMAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACB2JYFH9ti5N+7uGrdzKwlrXhDeZ+vMkHOKuVJteEgPDwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUsZ/LLWvSicGFXkptOa6Ov7Vyb4KJ2haTAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUmX0sM+4Li4VQQQ26bfB7j/XU/VW4HmxXAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUQ6WuNYiemm0n1pXSZ6YgP2UOMpCwdKRqAAAAAAVldXJvdQAAAAAAAAAAdAAAAAAFdXNkbncAAAAAAAAACesAAAAABWJjbzJlAAAAAAAAAYagAAAAAAhiaXRkc2N0bwAAAAAAAAAAAwAAAAADcElQAAAAAAAAAAAKAAAAAAN1QlAAAAAAAAAAAAcAAAAAA3NCUAAAAAAAAAAAAgAAAAADZUlQAAAAAAAAAAABAAAAAANlQlAAAAAAAAAAAAIAAAAACXJlbGFjZGN0bwAAAAAAAAAACwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABRWZW5kZWRvciwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAAAxnZXRLZXlJc3N1ZXIAAAABAAAABGl0ZW0CAAAADUlzc3Vlci9UaWVuZGEBAAAADmdldFZhbHVlSXNzdWVyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQEAAAANZ2V0S2V5UHJvamVjdAAAAAEAAAAEaXRlbQIAAAAHUHJvamVjdAEAAAAPZ2V0VmFsdWVQcm9qZWN0AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0BAAAACmdldEtleU5vZG8AAAABAAAABGl0ZW0CAAAABE5vZG8BAAAADGdldFZhbHVlTm9kbwAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAACmdldEtleU5vZG8AAAABBQAAAARpdGVtAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAABBVSSwgeDEwZS0wNCBiaXQ6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAJUEksIHd2bHM6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAQU0ksIHgxMGUtMDQgYml0OgEAAAAKZ2V0VmFsdWVTSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQEAAAAJZ2V0S2V5TkliAAAAAQAAAARpdGVtAgAAABFOSWIsIHgxMGUtMDQgYml0OgEAAAALZ2V0VmFsdWVOSWIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlOSWIAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlOSXcAAAABAAAABGl0ZW0CAAAACk5Jdywgd3ZsczoBAAAAC2dldFZhbHVlTkl3AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAJZ2V0S2V5Tkl3AAAAAQUAAAAEaXRlbQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0CAAAANFRva2VucyBPZmVydGFkb3MgZW4gbGEgcHJlc2VudGUgZXRhcGEgLyBTYWxkbywgeXRvazoBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAYU2FsZG8geXRva2VucyBwcmV0b2tlbnM6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAGVNhbGRvIGRlbCBWZW5kZWRvciwgd3ZsczoBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAABNnZXRLZXlCYWxhbmNlSXNzdWVyAAAAAQAAAAhzdXBwbGllcgIAAAARU2FsZG8gZGVsIElzc3VlcjoBAAAAFWdldFZhbHVlQmFsYW5jZUlzc3VlcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABNnZXRLZXlCYWxhbmNlSXNzdWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAAD2dldEtleVNhbGRvUHJvagAAAAEAAAAHcHJveWVjdAIAAAAYU2FsZG8gZGVsIFByb3llY3RvLCB3dnM6AQAAABFnZXRWYWx1ZVNhbGRvUHJvagAAAAEAAAAHcHJveWVjdAkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAD2dldEtleVNhbGRvUHJvagAAAAEFAAAAB3Byb3llY3QAAAADAAAAAWkBAAAAB2RlcG9zaXQAAAACAAAABXRpdGxlAAAADHN1cHBsaWVyRGF0YQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB3lCaXRDTzIJAAACAAAAAQIAAAApZGVwb3NpdG8gcGVybWl0aWRvIHNvbG8gZW4geUJpdENPMiB0b2tlbnMEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADWN1cnJlbnRBbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGQAAAACBQAAAA1jdXJyZW50QW1vdW50CAUAAAADcG10AAAABmFtb3VudAMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHE5vIGhheSB5Qml0Q08yIGVuIHN1IGJhbGFuY2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAAAtwdXJjaGFzZUdUUwAAAAUAAAAEaXRlbQAAAAhpdGVtTmFtZQAAAAh1c2VyTmFtZQAAAAx1c2VyRG9jdW1lbnQAAAALdG90YWxBbW91bnQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAABNFbCBQcmVjaW8gZW4gd2F2ZXMuBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlpc3N1ZXJBZGQEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAADGdldEtleUlzc3VlcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAGaXNzdWVyBAAAAAdwcm95ZWN0CQACWAAAAAEIBQAAAARwQWRkAAAABWJ5dGVzBAAAAAdwcm9qQWRkBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAB3Byb3llY3QDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAACgQAAAAHbm9kb0FkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAAKZ2V0S2V5Tm9kbwAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAEZUFkZAQAAAALcHJlVG9rZW5RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAANU2Vjb25kRmFzZVF0eQQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAA1iYWxhbmNlSXNzdWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABNnZXRLZXlCYWxhbmNlSXNzdWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAMRmlyc3RGYXNlUXR5BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAUAAAALdG90YWxBbW91bnQEAAAAA3BJdwkAAGkAAAACCQAAaAAAAAIFAAAAA3BJUAUAAAAIc3ViVG90YWwFAAAACXJlbGFjZGN0bwQAAAADZUl3CQAAaQAAAAIJAABoAAAAAgUAAAADZUlQBQAAAAhzdWJUb3RhbAUAAAAJcmVsYWNkY3RvBAAAAARTZUl3BQAAAANlSXcEAAAABFNwSXcJAABkAAAAAgUAAAAHcHJvakFkZAUAAAADcEl3BAAAAA1iY28ybWVub3NkY3RvCQAAaQAAAAIJAABoAAAAAgkAAGUAAAACAAAAAAAAAABkBQAAAAhiaXRkc2N0bwkAAGgAAAACBQAAAAVldXJvdQUAAAAFYmNvMmUAAAAAAAAAJxAEAAAACXN1YlRvdGFsYgkAAGkAAAACCQAAaQAAAAIJAABoAAAAAgUAAAALdG90YWxBbW91bnQFAAAABXVzZG53AAAAAAAAAABkBQAAAA1iY28ybWVub3NkY3RvBAAAAAZ0b3RhbGIJAABoAAAAAgUAAAAJc3ViVG90YWxiAAAAAAAAACcQBAAAAAN1SWIJAABpAAAAAgkAAGgAAAACBQAAAAN1QlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAANzSWIJAABpAAAAAgkAAGgAAAACBQAAAANzQlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAANlSWIJAABpAAAAAgkAAGgAAAACBQAAAANlQlAFAAAACXN1YlRvdGFsYgUAAAAJcmVsYWNkY3RvBAAAAA1CYWxhbmNlVGllbmRhCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcgkAAGkAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAADd3ZzBAAAAA1CYWxhbmNlSXNzdWVyCQAAZQAAAAIFAAAADWJhbGFuY2VJc3N1ZXIJAABpAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA3d2cwMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyBQAAAAhzdXBwbGllcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAIaXRlbU5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAMZ2V0S2V5SXNzdWVyAAAAAQUAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADGdldEtleUlzc3VlcgAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADWdldEtleVByb2plY3QAAAABBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAKZ2V0S2V5Tm9kbwAAAAEFAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAApnZXRLZXlOb2RvAAAAAQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGVGllbmRhBQAAAAhzdXBwbGllcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAEdXNkbgUAAAAFdXNkbncJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABWV1cm91BQAAAAVldXJvdQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAWQXBveW8gRWNvbMOzZ2ljbywgd3ZscwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0FAAAAA3BJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACWdldEtleU5JdwAAAAEFAAAABGl0ZW0FAAAAA2VJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAmMSBCaXQtQ08yIFByZWNpbyBOb21pbmFsLCBldXJvcyB4MTBlLTQFAAAABWJjbzJlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACcxIEJpdC1DTzIgUHJlY2lvIGNvbiBEZXNjdG8sIHVzZCB4MTBlLTQFAAAADWJjbzJtZW5vc2RjdG8JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAIlRvdGFsIGJpdC1jbzIgYSBkaXN0cmlidWlyLCB4MTBlLTQFAAAACXN1YlRvdGFsYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAVVG90YWwsIGJpdC1jbzIgeDEwZS00BQAAAAZ0b3RhbGIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAA3VJYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQUAAAADc0liCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAJZ2V0S2V5TkliAAAAAQUAAAAEaXRlbQUAAAADZUliCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAYVHJhbnNhY2Npw7NuIENvbmZpcm1hZGEhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAtQcmVUb2tlblF0eQUAAAALcHJlVG9rZW5RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABFNlSXcFAAAABFNlSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABFNwSXcFAAAABFNwSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAB3Byb2pBZGQFAAAAB3Byb2pBZGQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA9nZXRLZXlTYWxkb1Byb2oAAAABBQAAAAdwcm95ZWN0CQEAAAARZ2V0VmFsdWVTYWxkb1Byb2oAAAABBQAAAAdwcm95ZWN0CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAPZ2V0S2V5U2FsZG9Qcm9qAAAAAQUAAAAHcHJveWVjdAkAAGQAAAACCQEAAAARZ2V0VmFsdWVTYWxkb1Byb2oAAAABBQAAAAdwcm95ZWN0BQAAAARTcEl3CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIFAAAABFNlSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD2JhbGFuY2VTdXBwbGllcgUAAAAPYmFsYW5jZVN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABlAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyBQAAAARTZUl3CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABlAAAAAgkBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIFAAAABFNlSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADWJhbGFuY2VUaWVuZGEFAAAADUJhbGFuY2VUaWVuZGEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADWJhbGFuY2VJc3N1ZXIFAAAADUJhbGFuY2VJc3N1ZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACHN0YXJ0UXR5BQAAAAhzdGFydFF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAMRmlyc3RGYXNlUXR5BQAAAAxGaXJzdEZhc2VRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADVNlY29uZEZhc2VRdHkFAAAADVNlY29uZEZhc2VRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAAC3ByZVRva2VuUXR5CQAAaQAAAAIFAAAADUJhbGFuY2VUaWVuZGEAAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAADcEl3BQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAADdUliBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAADc0liBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAA2VJdwUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAANlSWIFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAArRWwgYmFsYW5jZSBkZSByZXRpcm8gbm8gcHVlZGUgc2VyIG5lZ2F0aXZvIQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHk9vcHBzcy4uIEluc3VmaWNpZW50ZSBiYWxhbmNlIQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAd5Qml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAAtPd25lclB1YktleQMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgYJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPRGF0YVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAGByX8VR0=",
    "height": 1754337,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: CMSJiTUkwnuara4UHfAgkJJ4dQLPNe31DtWCJ1moqtBM
Next: 317uw8TcwcgfoKAXDkh5usHgv7ageU6W8RsXyyAksQPL

Diff: 
Old New Differences
147 147  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
148 148  
149 149  
150 - func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens pretokens:"
150 + func getKeyBalanceQtySupplier (item) = "Saldo ytokens pretokens:"
151 151  
152 152  
153 153  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
154 154  
155 155  
156 - func getKeyBalanceSupplier (supplier) = "Saldo del Proyecto, wvls:"
156 + func getKeyBalanceSupplier (supplier) = "Saldo del Vendedor, wvls:"
157 157  
158 158  
159 159  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
160 160  
161 161  
162 - func getKeyBalanceIssuer (supplier) = "Saldo wvs, wvls balanceIssuer:"
162 + func getKeyBalanceIssuer (supplier) = "Saldo del Issuer:"
163 163  
164 164  
165 165  func getValueBalanceIssuer (supplier) = getNumberByKey(getKeyBalanceIssuer(supplier))
166 + 
167 + 
168 + func getKeySaldoProj (proyect) = "Saldo del Proyecto, wvs:"
169 + 
170 + 
171 + func getValueSaldoProj (proyect) = getNumberByKey(getKeySaldoProj(proyect))
166 172  
167 173  
168 174  @Callable(i)
205 211                  case _ => 
206 212                      issuer
207 213              }
208 -             let proyect = toBase58String(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
214 +             let proyect = toBase58String(pAdd.bytes)
209 215              let projAdd =             match getInteger(this, proyect) {
210 216                  case a: Int => 
211 217                      a
212 218                  case _ => 
213 -                     0
219 +                     10
214 220              }
215 221              let nodoAdd =             match getString(this, getKeyNodo(item)) {
216 222                  case a: String => 
241 247              let pIw = ((pIP * subTotal) / relacdcto)
242 248              let eIw = ((eIP * subTotal) / relacdcto)
243 249              let SeIw = eIw
244 -             let SpIw = (FirstFaseQty - projAdd)
250 +             let SpIw = (projAdd + pIw)
245 251              let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
246 252              let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
247 253              let totalb = (subTotalb * 10000)
254 260                  then throw("Payment Amount can't be less than item Purchase Order")
255 261                  else if ((pmt.amount > totalAmount))
256 262                      then throw("Payment Amount can't be higher than item Purchase Order")
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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
263 +                     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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeySaldoProj(proyect), getValueSaldoProj(proyect)), DataEntry(getKeySaldoProj(proyect), (getValueSaldoProj(proyect) + SpIw)), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
258 264              }
259 265      }
260 266  
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 - func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, ytokens pretokens:"
150 + func getKeyBalanceQtySupplier (item) = "Saldo ytokens pretokens:"
151 151  
152 152  
153 153  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
154 154  
155 155  
156 - func getKeyBalanceSupplier (supplier) = "Saldo del Proyecto, wvls:"
156 + func getKeyBalanceSupplier (supplier) = "Saldo del Vendedor, wvls:"
157 157  
158 158  
159 159  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
160 160  
161 161  
162 - func getKeyBalanceIssuer (supplier) = "Saldo wvs, wvls balanceIssuer:"
162 + func getKeyBalanceIssuer (supplier) = "Saldo del Issuer:"
163 163  
164 164  
165 165  func getValueBalanceIssuer (supplier) = getNumberByKey(getKeyBalanceIssuer(supplier))
166 + 
167 + 
168 + func getKeySaldoProj (proyect) = "Saldo del Proyecto, wvs:"
169 + 
170 + 
171 + func getValueSaldoProj (proyect) = getNumberByKey(getKeySaldoProj(proyect))
166 172  
167 173  
168 174  @Callable(i)
169 175  func deposit (title,supplierData) = {
170 176      let pmt = extract(i.payment)
171 177      if ((pmt.assetId != yBitCO2))
172 178          then throw("deposito permitido solo en yBitCO2 tokens")
173 179          else {
174 180              let supplier = toBase58String(i.caller.bytes)
175 181              let currentAmount =             match getInteger(this, supplier) {
176 182                  case a: Int => 
177 183                      a
178 184                  case _ => 
179 185                      startQty
180 186              }
181 187              let newAmount = (currentAmount + pmt.amount)
182 188              if ((0 >= newAmount))
183 189                  then throw("No hay yBitCO2 en su balance")
184 190                  else WriteSet([DataEntry(supplier, newAmount)])
185 191              }
186 192      }
187 193  
188 194  
189 195  
190 196  @Callable(i)
191 197  func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
192 198      let pmt = extract(i.payment)
193 199      if (isDefined(pmt.assetId))
194 200          then throw("El Precio en waves.")
195 201          else {
196 202              let supplier =             match getString(this, getKeyItemSupplier(item)) {
197 203                  case a: String => 
198 204                      a
199 205                  case _ => 
200 206                      NONE
201 207              }
202 208              let issuerAdd =             match getString(this, getKeyIssuer(item)) {
203 209                  case a: String => 
204 210                      a
205 211                  case _ => 
206 212                      issuer
207 213              }
208 -             let proyect = toBase58String(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
214 +             let proyect = toBase58String(pAdd.bytes)
209 215              let projAdd =             match getInteger(this, proyect) {
210 216                  case a: Int => 
211 217                      a
212 218                  case _ => 
213 -                     0
219 +                     10
214 220              }
215 221              let nodoAdd =             match getString(this, getKeyNodo(item)) {
216 222                  case a: String => 
217 223                      a
218 224                  case _ => 
219 225                      eAdd
220 226              }
221 227              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
222 228                  case a: Int => 
223 229                      a
224 230                  case _ => 
225 231                      SecondFaseQty
226 232              }
227 233              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
228 234                  case a: Int => 
229 235                      a
230 236                  case _ => 
231 237                      0
232 238              }
233 239              let balanceIssuer =             match getInteger(this, getKeyBalanceIssuer(supplier)) {
234 240                  case a: Int => 
235 241                      a
236 242                  case _ => 
237 243                      FirstFaseQty
238 244              }
239 245              let userAddress = toBase58String(i.caller.bytes)
240 246              let subTotal = totalAmount
241 247              let pIw = ((pIP * subTotal) / relacdcto)
242 248              let eIw = ((eIP * subTotal) / relacdcto)
243 249              let SeIw = eIw
244 -             let SpIw = (FirstFaseQty - projAdd)
250 +             let SpIw = (projAdd + pIw)
245 251              let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
246 252              let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
247 253              let totalb = (subTotalb * 10000)
248 254              let uIb = ((uBP * subTotalb) / relacdcto)
249 255              let sIb = ((sBP * subTotalb) / relacdcto)
250 256              let eIb = ((eBP * subTotalb) / relacdcto)
251 257              let BalanceTienda = (balanceSupplier + (pmt.amount / wvs))
252 258              let BalanceIssuer = (balanceIssuer - (pmt.amount / wvs))
253 259              if ((totalAmount > pmt.amount))
254 260                  then throw("Payment Amount can't be less than item Purchase Order")
255 261                  else if ((pmt.amount > totalAmount))
256 262                      then throw("Payment Amount can't be higher than item Purchase Order")
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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
263 +                     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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeySaldoProj(proyect), getValueSaldoProj(proyect)), DataEntry(getKeySaldoProj(proyect), (getValueSaldoProj(proyect) + SpIw)), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
258 264              }
259 265      }
260 266  
261 267  
262 268  
263 269  @Callable(i)
264 270  func withdraw (item,amount) = {
265 271      let userAddress = toBase58String(i.caller.bytes)
266 272      let supplier =     match getString(this, getKeyItemSupplier(item)) {
267 273          case a: String => 
268 274              a
269 275          case _ => 
270 276              NONE
271 277      }
272 278      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
273 279          case a: Int => 
274 280              a
275 281          case _ => 
276 282              startQty
277 283      }
278 284      let newAmount = (preIcoQty - amount)
279 285      if ((0 > amount))
280 286          then throw("El balance de retiro no puede ser negativo!")
281 287          else if ((0 >= newAmount))
282 288              then throw("Ooppss.. Insuficiente balance!")
283 289              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
284 290      }
285 291  
286 292  
287 293  @Verifier(tx)
288 294  func verify () = match tx {
289 295      case t: SetScriptTransaction => 
290 296          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
291 297      case d: ReissueTransaction|DataTransaction => 
292 298          true
293 299      case tx: TransferTransaction => 
294 300          true
295 301      case _ => 
296 302          false
297 303  }
298 304

Old	New		Differences
147	147		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
148	148
149	149
150		-	func getKeyBalanceQtySupplier (item) = "~~Balance/~~Saldo ~~GTS,~~ ytokens pretokens:"
	150	+	func getKeyBalanceQtySupplier (item) = "Saldo ytokens pretokens:"
151	151
152	152
153	153		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
154	154
155	155
156		-	func getKeyBalanceSupplier (supplier) = "Saldo del ~~Proyecto~~, wvls:"
	156	+	func getKeyBalanceSupplier (supplier) = "Saldo del Vendedor, wvls:"
157	157
158	158
159	159		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
160	160
161	161
162		-	func getKeyBalanceIssuer (supplier) = "Saldo ~~wvs, wvls balanceIssuer~~:"
	162	+	func getKeyBalanceIssuer (supplier) = "Saldo del Issuer:"
163	163
164	164
165	165		func getValueBalanceIssuer (supplier) = getNumberByKey(getKeyBalanceIssuer(supplier))
	166	+
	167	+
	168	+	func getKeySaldoProj (proyect) = "Saldo del Proyecto, wvs:"
	169	+
	170	+
	171	+	func getValueSaldoProj (proyect) = getNumberByKey(getKeySaldoProj(proyect))
166	172
167	173
168	174		@Callable(i)

205	211		case _ =>
206	212		issuer
207	213		}
208		-	let proyect = toBase58String(~~base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD'~~)
	214	+	let proyect = toBase58String(pAdd.bytes)
209	215		let projAdd = match getInteger(this, proyect) {
210	216		case a: Int =>
211	217		a
212	218		case _ =>
213		-	0
	219	+	10
214	220		}
215	221		let nodoAdd = match getString(this, getKeyNodo(item)) {
216	222		case a: String =>

241	247		let pIw = ((pIP * subTotal) / relacdcto)
242	248		let eIw = ((eIP * subTotal) / relacdcto)
243	249		let SeIw = eIw
244		-	let SpIw = (~~FirstFaseQty - projAdd~~)
	250	+	let SpIw = (projAdd + pIw)
245	251		let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
246	252		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
247	253		let totalb = (subTotalb * 10000)

254	260		then throw("Payment Amount can't be less than item Purchase Order")
255	261		else if ((pmt.amount > totalAmount))
256	262		then throw("Payment Amount can't be higher than item Purchase Order")
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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
	263	+	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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeySaldoProj(proyect), getValueSaldoProj(proyect)), DataEntry(getKeySaldoProj(proyect), (getValueSaldoProj(proyect) + SpIw)), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
258	264		}
259	265		}
260	266

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		-	func getKeyBalanceQtySupplier (item) = "~~Balance/~~Saldo ~~GTS,~~ ytokens pretokens:"
	150	+	func getKeyBalanceQtySupplier (item) = "Saldo ytokens pretokens:"
151	151
152	152
153	153		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
154	154
155	155
156		-	func getKeyBalanceSupplier (supplier) = "Saldo del ~~Proyecto~~, wvls:"
	156	+	func getKeyBalanceSupplier (supplier) = "Saldo del Vendedor, wvls:"
157	157
158	158
159	159		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
160	160
161	161
162		-	func getKeyBalanceIssuer (supplier) = "Saldo ~~wvs, wvls balanceIssuer~~:"
	162	+	func getKeyBalanceIssuer (supplier) = "Saldo del Issuer:"
163	163
164	164
165	165		func getValueBalanceIssuer (supplier) = getNumberByKey(getKeyBalanceIssuer(supplier))
	166	+
	167	+
	168	+	func getKeySaldoProj (proyect) = "Saldo del Proyecto, wvs:"
	169	+
	170	+
	171	+	func getValueSaldoProj (proyect) = getNumberByKey(getKeySaldoProj(proyect))
166	172
167	173
168	174		@Callable(i)
169	175		func deposit (title,supplierData) = {
170	176		let pmt = extract(i.payment)
171	177		if ((pmt.assetId != yBitCO2))
172	178		then throw("deposito permitido solo en yBitCO2 tokens")
173	179		else {
174	180		let supplier = toBase58String(i.caller.bytes)
175	181		let currentAmount = match getInteger(this, supplier) {
176	182		case a: Int =>
177	183		a
178	184		case _ =>
179	185		startQty
180	186		}
181	187		let newAmount = (currentAmount + pmt.amount)
182	188		if ((0 >= newAmount))
183	189		then throw("No hay yBitCO2 en su balance")
184	190		else WriteSet([DataEntry(supplier, newAmount)])
185	191		}
186	192		}
187	193
188	194
189	195
190	196		@Callable(i)
191	197		func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
192	198		let pmt = extract(i.payment)
193	199		if (isDefined(pmt.assetId))
194	200		then throw("El Precio en waves.")
195	201		else {
196	202		let supplier = match getString(this, getKeyItemSupplier(item)) {
197	203		case a: String =>
198	204		a
199	205		case _ =>
200	206		NONE
201	207		}
202	208		let issuerAdd = match getString(this, getKeyIssuer(item)) {
203	209		case a: String =>
204	210		a
205	211		case _ =>
206	212		issuer
207	213		}
208		-	let proyect = toBase58String(~~base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD'~~)
	214	+	let proyect = toBase58String(pAdd.bytes)
209	215		let projAdd = match getInteger(this, proyect) {
210	216		case a: Int =>
211	217		a
212	218		case _ =>
213		-	0
	219	+	10
214	220		}
215	221		let nodoAdd = match getString(this, getKeyNodo(item)) {
216	222		case a: String =>
217	223		a
218	224		case _ =>
219	225		eAdd
220	226		}
221	227		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
222	228		case a: Int =>
223	229		a
224	230		case _ =>
225	231		SecondFaseQty
226	232		}
227	233		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
228	234		case a: Int =>
229	235		a
230	236		case _ =>
231	237		0
232	238		}
233	239		let balanceIssuer = match getInteger(this, getKeyBalanceIssuer(supplier)) {
234	240		case a: Int =>
235	241		a
236	242		case _ =>
237	243		FirstFaseQty
238	244		}
239	245		let userAddress = toBase58String(i.caller.bytes)
240	246		let subTotal = totalAmount
241	247		let pIw = ((pIP * subTotal) / relacdcto)
242	248		let eIw = ((eIP * subTotal) / relacdcto)
243	249		let SeIw = eIw
244		-	let SpIw = (~~FirstFaseQty - projAdd~~)
	250	+	let SpIw = (projAdd + pIw)
245	251		let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
246	252		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
247	253		let totalb = (subTotalb * 10000)
248	254		let uIb = ((uBP * subTotalb) / relacdcto)
249	255		let sIb = ((sBP * subTotalb) / relacdcto)
250	256		let eIb = ((eBP * subTotalb) / relacdcto)
251	257		let BalanceTienda = (balanceSupplier + (pmt.amount / wvs))
252	258		let BalanceIssuer = (balanceIssuer - (pmt.amount / wvs))
253	259		if ((totalAmount > pmt.amount))
254	260		then throw("Payment Amount can't be less than item Purchase Order")
255	261		else if ((pmt.amount > totalAmount))
256	262		then throw("Payment Amount can't be higher than item Purchase Order")
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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
	263	+	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("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeySaldoProj(proyect), getValueSaldoProj(proyect)), DataEntry(getKeySaldoProj(proyect), (getValueSaldoProj(proyect) + SpIw)), DataEntry(getKeyBalanceSupplier(supplier), SeIw), DataEntry("balanceSupplier", balanceSupplier), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier - 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)]))
258	264		}
259	265		}
260	266
261	267
262	268
263	269		@Callable(i)
264	270		func withdraw (item,amount) = {
265	271		let userAddress = toBase58String(i.caller.bytes)
266	272		let supplier = match getString(this, getKeyItemSupplier(item)) {
267	273		case a: String =>
268	274		a
269	275		case _ =>
270	276		NONE
271	277		}
272	278		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
273	279		case a: Int =>
274	280		a
275	281		case _ =>
276	282		startQty
277	283		}
278	284		let newAmount = (preIcoQty - amount)
279	285		if ((0 > amount))
280	286		then throw("El balance de retiro no puede ser negativo!")
281	287		else if ((0 >= newAmount))
282	288		then throw("Ooppss.. Insuficiente balance!")
283	289		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
284	290		}
285	291
286	292
287	293		@Verifier(tx)
288	294		func verify () = match tx {
289	295		case t: SetScriptTransaction =>
290	296		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
291	297		case d: ReissueTransaction\|DataTransaction =>
292	298		true
293	299		case tx: TransferTransaction =>
294	300		true
295	301		case _ =>
296	302		false
297	303		}
298	304

github/deemru/w8io/169f3d6 
86.77 ms ◑