w8 · tx · GzF···RbT

tx · GzFBykyUHoLwuUuD6iyiGDvtc5bKe1KGKP3qvTVXQRbT

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01000000 Waves

2021.10.20 14:41 [1754561] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GzFBykyUHoLwuUuD6iyiGDvtc5bKe1KGKP3qvTVXQRbT",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1634730083324,
    "version": 2,
    "chainId": 84,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "4YNMn4uJnotycgpUCqgNbheXv2FYrFXn4xi7nkkYLxhRfKRznEGK7itiBRZwGwjDh8cQMpjUSsGv3jAKAxWgPVi7"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIECgIICBIHCgUICAgIARIECgIIAQAAAD0AAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAAhzdGFydFF0eQAAAAAAAASqHQAAAAAMRmlyc3RGYXNlUXR5AAAAAAAAAHnZAAAAAA1TZWNvbmRGYXNlUXR5AAAAAAAABDBEAAAAAAN3dnMAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAABEJDTzIJAQAAAAdBZGRyZXNzAAAAAQEAAAAgaYzU/9tNAX3oy3i337OPwVw8OVvpDHloDSGOZ+mbS60AAAAAC093bmVyUHViS2V5AQAAACB2JYFH9ti5N+7uGrdzKwlrXhDeZ+vMkHOKuVJteEgPDwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUsZ/LLWvSicGFXkptOa6Ov7Vyb4KJ2haTAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUmX0sM+4Li4VQQQ26bfB7j/XU/VW4HmxXAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUQ6WuNYiemm0n1pXSZ6YgP2UOMpCwdKRqAAAAAAVldXJvdQAAAAAAAAAAdAAAAAAFdXNkbncAAAAAAAAACesAAAAABWJjbzJlAAAAAAAAAYagAAAAAAhiaXRkc2N0bwAAAAAAAAAAAwAAAAADcElQAAAAAAAAAAAKAAAAAAN1QlAAAAAAAAAAAAcAAAAAA3NCUAAAAAAAAAAAAgAAAAADZUlQAAAAAAAAAAABAAAAAANlQlAAAAAAAAAAAAIAAAAACXJlbGFjZGN0bwAAAAAAAAAACwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAABRWZW5kZWRvciwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAAAxnZXRLZXlJc3N1ZXIAAAABAAAABmlzc3VlcgIAAAANSXNzdWVyL1RpZW5kYQEAAAAOZ2V0VmFsdWVJc3N1ZXIAAAABAAAABmlzc3VlcgkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADGdldEtleUlzc3VlcgAAAAEFAAAABmlzc3VlcgEAAAANZ2V0S2V5UHJvamVjdAAAAAEAAAAHcHJvamVjdAIAAAAHUHJvamVjdAEAAAAPZ2V0VmFsdWVQcm9qZWN0AAAAAQAAAAdwcm9qZWN0CQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAAB3Byb2plY3QBAAAACmdldEtleU5vZG8AAAABAAAABG5vZG8CAAAABE5vZG8BAAAADGdldFZhbHVlTm9kbwAAAAEAAAAEbm9kbwkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAACmdldEtleU5vZG8AAAABBQAAAARub2RvAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAABBVSSwgeDEwZS0wNCBiaXQ6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAJUEksIHd2bHM6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAQU0ksIHgxMGUtMDQgYml0OgEAAAAKZ2V0VmFsdWVTSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQEAAAAJZ2V0S2V5TkliAAAAAQAAAARpdGVtAgAAABFOSWIsIHgxMGUtMDQgYml0OgEAAAALZ2V0VmFsdWVOSWIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlOSWIAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlOSXcAAAABAAAABGl0ZW0CAAAACk5Jdywgd3ZsczoBAAAAC2dldFZhbHVlTkl3AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAJZ2V0S2V5Tkl3AAAAAQUAAAAEaXRlbQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0CAAAANFRva2VucyBPZmVydGFkb3MgZW4gbGEgcHJlc2VudGUgZXRhcGEgLyBTYWxkbywgeXRvazoBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VRdHlUb2tlbgAAAAEAAAAFdG9rZW4CAAAAIVNhbGRvIHl0b2tlbnMgcHJldG9rZW5zLCB4MTBlLTA0OgEAAAAXZ2V0VmFsdWVCYWxhbmNlUXR5VG9rZW4AAAABAAAABXRva2VuCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVF0eVRva2VuAAAAAQUAAAAFdG9rZW4BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAXU2FsZG8geXRva2VucyBTdXBwbGllcjoBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAAZU2FsZG8gZGVsIFZlbmRlZG9yLCB3dmxzOgEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAAE2dldEtleUJhbGFuY2VJc3N1ZXIAAAABAAAACHN1cHBsaWVyAgAAABFTYWxkbyBkZWwgSXNzdWVyOgEAAAAVZ2V0VmFsdWVCYWxhbmNlSXNzdWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAE2dldEtleUJhbGFuY2VJc3N1ZXIAAAABBQAAAAhzdXBwbGllcgEAAAAPZ2V0S2V5U2FsZG9Qcm9qAAAAAQAAAAdwcm95ZWN0AgAAABhTYWxkbyBkZWwgUHJveWVjdG8sIHd2czoBAAAAEWdldFZhbHVlU2FsZG9Qcm9qAAAAAQAAAAdwcm95ZWN0CQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAPZ2V0S2V5U2FsZG9Qcm9qAAAAAQUAAAAHcHJveWVjdAAAAAMAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeUJpdENPMgkAAAIAAAABAgAAAClkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiB5Qml0Q08yIHRva2VucwQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAcTm8gaGF5IHlCaXRDTzIgZW4gc3UgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAC3B1cmNoYXNlR1RTAAAABQAAAARpdGVtAAAACGl0ZW1OYW1lAAAACHVzZXJOYW1lAAAADHVzZXJEb2N1bWVudAAAAAt0b3RhbEFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAAE0VsIFByZWNpbyBlbiB3YXZlcy4EAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAAB3Byb3llY3QJAAJYAAAAAQgFAAAABHBBZGQAAAAFYnl0ZXMEAAAAB3Byb2pBZGQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAD2dldEtleVNhbGRvUHJvagAAAAEFAAAAB3Byb3llY3QDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAACgQAAAAFdG9rZW4JAAJYAAAAAQgFAAAABEJDTzIAAAAFYnl0ZXMEAAAAC3ByZVRva2VuUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlUXR5VG9rZW4AAAABBQAAAAV0b2tlbgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAxGaXJzdEZhc2VRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAANYmFsYW5jZUlzc3VlcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAATZ2V0S2V5QmFsYW5jZUlzc3VlcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAADEZpcnN0RmFzZVF0eQQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAHaXNzdWVyQQkAAlgAAAABCAUAAAAGaXNzdWVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAUAAAALdG90YWxBbW91bnQEAAAAA3BJdwkAAGkAAAACCQAAaAAAAAIFAAAAA3BJUAUAAAAIc3ViVG90YWwFAAAACXJlbGFjZGN0bwQAAAADZUl3CQAAaQAAAAIJAABoAAAAAgUAAAADZUlQBQAAAAhzdWJUb3RhbAUAAAAJcmVsYWNkY3RvBAAAAARTZUl3BQAAAANlSXcEAAAABFNwSXcJAABkAAAAAgUAAAAHcHJvakFkZAUAAAADcEl3BAAAAAxTcHJlVG9rZW5RdHkJAABoAAAAAgAAAAAAAAAnEAUAAAALcHJlVG9rZW5RdHkEAAAADWJjbzJtZW5vc2RjdG8JAABpAAAAAgkAAGgAAAACCQAAZQAAAAIAAAAAAAAAAGQFAAAACGJpdGRzY3RvCQAAaAAAAAIFAAAABWV1cm91BQAAAAViY28yZQAAAAAAAAAnEAQAAAAJc3ViVG90YWxiCQAAaQAAAAIJAABpAAAAAgkAAGgAAAACBQAAAAt0b3RhbEFtb3VudAUAAAAFdXNkbncAAAAAAAAAAGQFAAAADWJjbzJtZW5vc2RjdG8EAAAABnRvdGFsYgkAAGgAAAACBQAAAAlzdWJUb3RhbGIAAAAAAAAAJxAEAAAAA3VJYgkAAGkAAAACCQAAaAAAAAIFAAAAA3VCUAUAAAAJc3ViVG90YWxiBQAAAAlyZWxhY2RjdG8EAAAAA3NJYgkAAGkAAAACCQAAaAAAAAIFAAAAA3NCUAUAAAAJc3ViVG90YWxiBQAAAAlyZWxhY2RjdG8EAAAAA2VJYgkAAGkAAAACCQAAaAAAAAIFAAAAA2VCUAUAAAAJc3ViVG90YWxiBQAAAAlyZWxhY2RjdG8EAAAADUJhbGFuY2VUaWVuZGEJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCQAAaQAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAAN3dnMEAAAADUJhbGFuY2VJc3N1ZXIJAABlAAAAAgUAAAANYmFsYW5jZUlzc3VlcgkAAGkAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAADd3ZzAwkAAGYAAAACBQAAAAt0b3RhbEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAA1UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgbGVzcyB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIDCQAAZgAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAAt0b3RhbEFtb3VudAkAAAIAAAABAgAAADdQYXltZW50IEFtb3VudCBjYW4ndCBiZSBoaWdoZXIgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtCQAAZAAAAAIJAQAAABpnZXRWYWx1ZVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIFAAAACHN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5SXRlbU5hbWUAAAABBQAAAARpdGVtBQAAAAhpdGVtTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleVVzZXJOYW1lAAAAAQUAAAAEaXRlbQUAAAAIdXNlck5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtBQAAAAx1c2VyRG9jdW1lbnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABlRpZW5kYQUAAAAHaXNzdWVyQQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAEdXNkbgUAAAAFdXNkbncJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABWV1cm91BQAAAAVldXJvdQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAWQXBveW8gRWNvbMOzZ2ljbywgd3ZscwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0FAAAAA3BJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACWdldEtleU5JdwAAAAEFAAAABGl0ZW0FAAAAA2VJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAmMSBCaXQtQ08yIFByZWNpbyBOb21pbmFsLCBldXJvcyB4MTBlLTQFAAAABWJjbzJlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACcxIEJpdC1DTzIgUHJlY2lvIGNvbiBEZXNjdG8sIHVzZCB4MTBlLTQFAAAADWJjbzJtZW5vc2RjdG8JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAIlRvdGFsIGJpdC1jbzIgYSBkaXN0cmlidWlyLCB4MTBlLTQFAAAACXN1YlRvdGFsYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAADdUliCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtBQAAAANzSWIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAlnZXRLZXlOSWIAAAABBQAAAARpdGVtBQAAAANlSWIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAABhUcmFuc2FjY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAC1ByZVRva2VuUXR5BQAAAAxTcHJlVG9rZW5RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlUXR5VG9rZW4AAAABBQAAAAV0b2tlbgkAAGUAAAACBQAAAAxTcHJlVG9rZW5RdHkFAAAACXN1YlRvdGFsYgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAEU2VJdwUAAAAEU2VJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAEU3BJdwUAAAAEU3BJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAHcHJvakFkZAUAAAAHcHJvakFkZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAD2dldEtleVNhbGRvUHJvagAAAAEFAAAAB3Byb3llY3QJAQAAABFnZXRWYWx1ZVNhbGRvUHJvagAAAAEFAAAAB3Byb3llY3QJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA9nZXRLZXlTYWxkb1Byb2oAAAABBQAAAAdwcm95ZWN0CQAAZAAAAAIJAQAAABFnZXRWYWx1ZVNhbGRvUHJvagAAAAEFAAAAB3Byb3llY3QFAAAABFNwSXcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD2JhbGFuY2VTdXBwbGllcgUAAAAPYmFsYW5jZVN1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA1iYWxhbmNlVGllbmRhBQAAAA1CYWxhbmNlVGllbmRhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA1iYWxhbmNlSXNzdWVyBQAAAA1CYWxhbmNlSXNzdWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABHBBZGQFAAAAA3BJdwUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAA3VJYgUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAA3NJYgUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAANlSXcFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUliBQAAAAd5Qml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABJSZWlzc3VlVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgfOSaLI",
    "height": 1754561,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3pxoksms4NDncgBZhMqtqnpUZPYTHPnM5EcYFdnXy5ir
Next: 8bboDsnMo8SQ96jrmErcFvq5fyKJDq82VxVBHK7DqtaP

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

Old	New		Differences
213	213		case _ =>
214	214		NONE
215	215		}
216		-	let issuerA = toBase58String(issuer.bytes)
217		-	let issuerAdd = match getString(this, getKeyIssuer(issuerA)) {
218		-	case a: String =>
219		-	a
220		-	case _ =>
221		-	issuer
222		-	}
223		-	let project = toBase58String(pAdd.bytes)
224		-	let projectAdd = match getString(this, getKeyProject(project)) {
225		-	case a: String =>
226		-	a
227		-	case _ =>
228		-	0
229		-	}
230		-	let nodo = toBase58String(eAdd.bytes)
231		-	let nodoAdd = match getString(this, getKeyNodo(nodo)) {
232		-	case a: String =>
233		-	a
234		-	case _ =>
235		-	0
236		-	}
237	216		let proyect = toBase58String(pAdd.bytes)
238	217		let projAdd = match getInteger(this, getKeySaldoProj(proyect)) {
239	218		case a: Int =>

261	240		FirstFaseQty
262	241		}
263	242		let userAddress = toBase58String(i.caller.bytes)
	243	+	let issuerA = toBase58String(issuer.bytes)
264	244		let subTotal = totalAmount
265	245		let pIw = ((pIP * subTotal) / relacdcto)
266	246		let eIw = ((eIP * subTotal) / relacdcto)
267	247		let SeIw = eIw
268	248		let SpIw = (projAdd + pIw)
269		-	let SpreTokenQty = preTokenQty
	249	+	let SpreTokenQty = (10000 * preTokenQty)
270	250		let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
271	251		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
272	252		let totalb = (subTotalb * 10000)

279	259		then throw("Payment Amount can't be less than item Purchase Order")
280	260		else if ((pmt.amount > totalAmount))
281	261		then throw("Payment Amount can't be higher than item Purchase Order")
282		-	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(project), getStrByKey(getKeyProject(project))), DataEntry(getKeyProject(project), projectAdd), DataEntry(getKeyProject(project), project), DataEntry(getKeyNodo(nodo), getStrByKey(getKeyNodo(nodo))), DataEntry(getKeyNodo(nodo), nodoAdd), DataEntry(getKeyNodo(nodo), nodo), 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(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", SpreTokenQty), DataEntry(getKeyBalanceQtyToken(token), (SpreTokenQty - subTotalb)), DataEntry("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeySaldoProj(proyect), getValueSaldoProj(proyect)), DataEntry(getKeySaldoProj(proyect), (getValueSaldoProj(proyect) + SpIw)), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), 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)]))
	262	+	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("Tienda", issuerA), 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(getKeyUI(item), uIb), DataEntry(getKeySI(item), sIb), DataEntry(getKeyNIb(item), eIb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("PreTokenQty", SpreTokenQty), DataEntry(getKeyBalanceQtyToken(token), (SpreTokenQty - subTotalb)), DataEntry("SeIw", SeIw), DataEntry("SpIw", SpIw), DataEntry("projAdd", projAdd), DataEntry(getKeySaldoProj(proyect), getValueSaldoProj(proyect)), DataEntry(getKeySaldoProj(proyect), (getValueSaldoProj(proyect) + SpIw)), DataEntry("balanceSupplier", balanceSupplier), DataEntry("balanceTienda", BalanceTienda), DataEntry("balanceIssuer", BalanceIssuer), 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)]))
283	263		}
284	264		}
285	265

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

github/deemru/w8io/169f3d6 
51.08 ms ◑