w8 · tx · CGF···LYz

tx · CGFSMSUBoobx4Xtt1ZGwY9BfNjRfA8ug9UuDtA2twLYz

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01400000 Waves

2020.08.26 20:18 [1149966] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CGFSMSUBoobx4Xtt1ZGwY9BfNjRfA8ug9UuDtA2twLYz",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1598462302385,
    "version": 1,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "4Ka3HQP9sWUNdh9N4vwN3Ghis2hVeT2LxwLPoh3wUQk3wH946fmq3mqMu7mxM16WswTaBHFxSt9XykNczYmspknJ"
    ],
    "script": "base64:AAIDAAAAAAAAACwIARIECgIICBIECgIICBIHCgUICAgIARIHCgUICAgIARIECgIIARIECgIIAQAAADMAAAAAB3lCaXRDTzIBAAAAIGmM1P/bTQF96Mt4t9+zj8FcPDlb6Qx5aA0hjmfpm0utAAAAAAVndHMwMQEAAAAgyue0nm/DdRvIOugaNxcwgpFAXSZ668YSMw4hW7SkIAwAAAAACHN0YXJ0UXR5AAAAAAC2NQzQAAAAAAxGaXJzdEZhc2VRdHkAAAAAABKXrJAAAAAADVNlY29uZEZhc2VRdHkAAAAAAKOdYEAAAAAAC3N0YXJ0UXR5R1RTAAAAAAC2NQzQAAAAAA9GaXJzdEZhc2VRdHlHVFMAAAAAABKXrJAAAAAAEFNlY29uZEZhc2VRdHlHVFMAAAAAAKOdYEAAAAAACG5vbVByaWNlAAAAAAAAAAABAAAAAAN3dnMAAAAAAAX14QAAAAAAEHN1cHBsaWVyRGlzY291bnQAAAAAAAAAAAwAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACB2JYFH9ti5N+7uGrdzKwlrXhDeZ+vMkHOKuVJteEgPDwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUsZ/LLWvSicGFXkptOa6Ov7Vyb4KJ2haTAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUmX0sM+4Li4VQQQ26bfB7j/XU/VW4HmxXAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUQ6WuNYiemm0n1pXSZ6YgP2UOMpCwdKRqAAAAAANpZ3YAAAAAAAAAABIAAAAAB3liaXRjbzIAAAAAAAAAJxAAAAAAA2d0cwAAAAAAAAGGoAAAAAADdUlQAAAAAAAAAAAHAAAAAANwSVAAAAAAAAAAAAoAAAAAA2VJUAAAAAAAAAAAAQAAAAADc0JQAAAAAAAAAAACAAAAAANlQlAAAAAAAAAAAAIAAAAAA2VHUAAAAAAAAAAAAgAAAAADc0dQAAAAAAAAAAACAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAAEsAAAAAgUAAAAIc3VwcGxpZXICAAAAGEJpdC1DTzIgU2hvcCwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQAAAARpdGVtAgAAAAdQcm9qZWN0AQAAABFnZXRLZXlFY29zeXN0Tm9kZQAAAAEAAAAEaXRlbQIAAAATTm9kbyBkZWwgRWNvc2lzdGVtYQEAAAAPZ2V0S2V5VG9rZW5HVFMxAAAAAQAAAARpdGVtAgAAAAhHVFN0YWJsZQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0CAAAACk9yZGVyX+KEljoBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAR1c2VyBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEAAAAEaXRlbQIAAAAYQ2F0ZWdvcsOtYSBkZWwgUHJvZHVjdG86AQAAABBnZXRWYWx1ZUl0ZW1OYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5SXRlbU5hbWUAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEAAAAEaXRlbQIAAAATTm9tYnJlIGRlbCBVc3VhcmlvOgEAAAAQZ2V0VmFsdWVVc2VyTmFtZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleVVzZXJOYW1lAAAAAQUAAAAEaXRlbQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQAAAARpdGVtAgAAACPihJYgZGUgRG9jdW1lbnRvIC8gRE5JIGRlbCBVc3VhcmlvOgEAAAAUZ2V0VmFsdWVVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAHkJhbGFuY2UvU2FsZG8gR1RTLCBndHMtdG9rZW5zOgEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAACdNb250byBCcnV0byBwb3IgVmVudGFHVFMsIHlCaXRDTzJjZW50czoBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAAAhnZXRLZXlVSQAAAAEAAAAEaXRlbQIAAAARVUksX3lCaXRDTzJjZW50czoBAAAACmdldFZhbHVlVUkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVBJAAAAAQAAAARpdGVtAgAAABFQSSxfeUJpdENPMmNlbnRzOgEAAAAKZ2V0VmFsdWVQSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5U0kAAAABAAAABGl0ZW0CAAAAEVNJLF95Qml0Q08yY2VudHM6AQAAAApnZXRWYWx1ZVNJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtAAAABgAAAAFpAQAAAApkZXBvc2l0R1RTAAAAAgAAAAV0aXRsZQAAAAxzdXBwbGllckRhdGEEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAVndHMwMQkAAAIAAAABAgAAACdkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiBndHMwMSB0b2tlbnMEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADWN1cnJlbnRBbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAALc3RhcnRRdHlHVFMEAAAACW5ld0Ftb3VudAkAAGQAAAACBQAAAA1jdXJyZW50QW1vdW50CAUAAAADcG10AAAABmFtb3VudAMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAGk5vIGhheSBndHMwMSBlbiBzdSBiYWxhbmNlCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAhzdXBwbGllcgUAAAAJbmV3QW1vdW50BQAAAANuaWwAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeUJpdENPMgkAAAIAAAABAgAAAClkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiB5Qml0Q08yIHRva2VucwQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAcTm8gaGF5IHlCaXRDTzIgZW4gc3UgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAC3B1cmNoYXNlR1RTAAAABQAAAARpdGVtAAAACGl0ZW1OYW1lAAAACHVzZXJOYW1lAAAADHVzZXJEb2N1bWVudAAAAAt0b3RhbEFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB3lCaXRDTzIJAAACAAAAAQIAAAAtVXNlIHlCaXRDTzIgdG9rZW5zIHBhcmEgYWRxdWlyaXIgUHJvZHVjdG9zR1RTBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAdwcm9qQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAROT05FBQAAAARwQWRkBAAAAAdub2RvQWRkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABFnZXRLZXlFY29zeXN0Tm9kZQAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAAETk9ORQUAAAAEZUFkZAQAAAALcHJlVG9rZW5RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAQU2Vjb25kRmFzZVF0eUdUUwQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAkAAGkAAAACCQAAaAAAAAIFAAAAA2lndgUAAAALdG90YWxBbW91bnQAAAAAAAAAAGQEAAAAA2NQRwkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAFgFAAAAA2d0cwAAAAAAAAAAZAQAAAACdUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADdUlQAAAAAAAAAABkBAAAAAN1R0kJAABpAAAAAgkAAGgAAAACBQAAAAJ1SQAAAAAAAAAnEAUAAAADY1BHBAAAAAJwSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANwSVAAAAAAAAAAAGQEAAAAAmVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA2VJUAAAAAAAAAAAZAQAAAADZUdJCQAAaQAAAAIJAABoAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUdQAAAAAAAAACcQCQAAaAAAAAIAAAAAAAAAAGQFAAAAA2NQRwQAAAACc0kJAABlAAAAAgkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAUAAAACcEkFAAAAAmVJBAAAAANzR0kJAABpAAAAAgkAAGgAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANzR1AAAAAAAAAAJxAJAABoAAAAAgAAAAAAAAAAZAUAAAADY1BHBAAAAApRVmVudGFzZ3RzCQAAaQAAAAIJAABoAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAAAAAAAAAAACwAAAAAAAAAnEAkAAGgAAAACBQAAAANjUEcAAAAAAAAAAGQDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABGl0ZW0FAAAABGl0ZW0JAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0FAAAACGl0ZW1OYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAcUGF5bWVudF9hbW91bnQsX3lCaXRDTzJjZW50cwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABkltcCwgJQUAAAADaWd2CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABJTVHRsLCB5Qml0Q08yY2VudHMFAAAACHN1YlRvdGFsCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABVDUCAxR1RTLCB5Qml0Q08yY2VudHMJAABoAAAAAgUAAAADY1BHAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtBQAAAAJ1SQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAQVUdJLCAxMGUtNCBndHMwMQUAAAADdUdJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAATRWNTeXMsIHlCaXRDTzJjZW50cwUAAAACZUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAEkVjU3lzLCAxMGUtNCBndHMwMQUAAAADZUdJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtBQAAAAJzSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAQU0dJLCAxMGUtNCBndHMwMQUAAAADc0dJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAYQWRxdWlzaWNpw7NuIENvbmZpcm1hZGEhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABpRcG9yVmVudGFzR1RTLCAxMGUtNCBndHMwMQUAAAAKUVZlbnRhc2d0cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABlAAAAAgUAAAALcHJlVG9rZW5RdHkFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1R0kFAAAABWd0czAxCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABHBBZGQFAAAAAnBJBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAAmVJBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAA2VHSQUAAAAFZ3RzMDEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAAJzSQUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAA3NHSQUAAAAFZ3RzMDEFAAAAA25pbAAAAAFpAQAAAAxwdXJjaGFzZUdUUzIAAAAFAAAABGl0ZW0AAAAIaXRlbU5hbWUAAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAATRWwgUHJlY2lvIGVuIHdhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAHcHJvakFkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAAETk9ORQUAAAAEcEFkZAQAAAAHbm9kb0FkZAQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAARZ2V0S2V5RWNvc3lzdE5vZGUAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAABE5PTkUFAAAABGVBZGQEAAAAC3ByZVRva2VuUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAADVNlY29uZEZhc2VRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3ViVG90YWwJAABlAAAAAgUAAAALdG90YWxBbW91bnQJAABpAAAAAgkAAGgAAAACBQAAAANpZ3YFAAAAC3RvdGFsQW1vdW50AAAAAAAAAABkBAAAAANjUEIJAABpAAAAAgkAAGgAAAACAAAAAAAAAABYBQAAAAd5Yml0Y28yAAAAAAAAAABkBAAAAAJ1SQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAAN1SVAAAAAAAAAAAGQEAAAAA3VCSQkAAGgAAAACCQAAaQAAAAIFAAAAAnVJBQAAAANjUEIAAAAAAAAAAAEEAAAAAnBJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3BJUAAAAAAAAAAAZAQAAAACZUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQAAAAAAAAAABkBAAAAANlQkkJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlQlAJAABoAAAAAgAAAAAAAAAAZAUAAAADY1BCAAAAAAAAAAABBAAAAAJzSQkAAGUAAAACCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAJwSQUAAAACZUkEAAAAA3NCSQkAAGgAAAACCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NCUAkAAGgAAAACAAAAAAAAAABkBQAAAANjUEIAAAAAAAAAAAEEAAAAClFWZW50YXNndHMJAABoAAAAAgkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsAAAAAAAAAAALCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAAZAAAAAAAAAAAAQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAEaXRlbQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAIaXRlbU5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRQYXltZW50X2Ftb3VudCxfd3ZscwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABkltcCwgJQUAAAADaWd2CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAApTVHRsLCB3dmxzBQAAAAhzdWJUb3RhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAMQ1AgMSBCLCB3dmxzCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAnEAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAACdUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAElVCSSwgMTBlLTQgeWJpdGNvMgUAAAADdUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAALRWNTeXMsIHd2bHMFAAAAAmVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRFY1N5cywgMTBlLTQgeWJpdGNvMgUAAAADZUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtBQAAAAJzSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAASU0JJLCAxMGUtNCB5Yml0Y28yBQAAAANzQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAABhBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAHFFwb3JWZW50YXNHVFMsIDEwZS00IHliaXRjbzIFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAAC3ByZVRva2VuUXR5CQAAaQAAAAIFAAAAClFWZW50YXNndHMAAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1QkkFAAAAB3lCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAACcEkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAACZUkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUJJBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAANzQkkFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAt3aXRoZHJhd0dUUwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAtzdGFydFF0eUdUUwQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAArRWwgYmFsYW5jZSBkZSByZXRpcm8gbm8gcHVlZGUgc2VyIG5lZ2F0aXZvIQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHk9vcHBzcy4uIEluc3VmaWNpZW50ZSBiYWxhbmNlIQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAVndHMwMQUAAAADbmlsAAAAAWkBAAAACHdpdGhkcmF3AAAAAgAAAARpdGVtAAAABmFtb3VudAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABlAAAAAgUAAAAJcHJlSWNvUXR5BQAAAAZhbW91bnQDCQAAZgAAAAIAAAAAAAAAAAAFAAAABmFtb3VudAkAAAIAAAABAgAAACtFbCBiYWxhbmNlIGRlIHJldGlybyBubyBwdWVkZSBzZXIgbmVnYXRpdm8hAwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAeT29wcHNzLi4gSW5zdWZpY2llbnRlIGJhbGFuY2UhCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAEaXRlbQUAAAAJbmV3QW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAZhbW91bnQFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAAC093bmVyUHViS2V5AwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPRGF0YVRyYW5zYWN0aW9uBgkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABJSZWlzc3VlVHJhbnNhY3Rpb24EAAAAAWQFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE0V4Y2hhbmdlVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBAAAAAt3aXRoeUJpdENvMgMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAAC3dpdGh5Qml0Q28yB+ksG3A=",
    "chainId": 84,
    "height": 1149966,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: HLjTaVDXdpD9i9BZ5xfAddmvtU1dSTtGD5kUkAAa6XyP
Next: 2BB3hMbB82JcoMGWzPmr88huzyCAyMPofH7z89aGHJmW

Diff: 
Old New Differences
239 239                  then throw("Payment Amount can't be less than item Purchase Order")
240 240                  else if ((pmt.amount > totalAmount))
241 241                      then throw("Payment Amount can't be higher than item Purchase Order")
242 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2), ScriptTransfer(issuer, sGI, gts01)]))
243 243              }
244 244      }
245 245  
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 gts01 = base58'Ef4H3AHkfucmc4AY9au2DhgXAorKyWx3aMsfYLMYZGAw'
7 7  
8 8  let startQty = 3056930000
9 9  
10 10  let FirstFaseQty = 311930000
11 11  
12 12  let SecondFaseQty = 2745000000
13 13  
14 14  let startQtyGTS = 3056930000
15 15  
16 16  let FirstFaseQtyGTS = 311930000
17 17  
18 18  let SecondFaseQtyGTS = 2745000000
19 19  
20 20  let nomPrice = 1
21 21  
22 22  let wvs = 100000000
23 23  
24 24  let supplierDiscount = 12
25 25  
26 26  let NONE = "none"
27 27  
28 28  let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
29 29  
30 30  let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
31 31  
32 32  let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
33 33  
34 34  let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
35 35  
36 36  let igv = 18
37 37  
38 38  let ybitco2 = 10000
39 39  
40 40  let gts = 100000
41 41  
42 42  let uIP = 7
43 43  
44 44  let pIP = 10
45 45  
46 46  let eIP = 1
47 47  
48 48  let sBP = 2
49 49  
50 50  let eBP = 2
51 51  
52 52  let eGP = 2
53 53  
54 54  let sGP = 2
55 55  
56 56  func getNumberByKey (key) = {
57 57      let num =     match getInteger(this, key) {
58 58          case a: Int => 
59 59              a
60 60          case _ => 
61 61              0
62 62      }
63 63      num
64 64      }
65 65  
66 66  
67 67  func getStrByKey (key) = {
68 68      let str =     match getString(this, key) {
69 69          case a: String => 
70 70              a
71 71          case _ => 
72 72              NONE
73 73      }
74 74      str
75 75      }
76 76  
77 77  
78 78  func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
79 79  
80 80  
81 81  func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
82 82  
83 83  
84 84  func getKeyProject (item) = "Project"
85 85  
86 86  
87 87  func getKeyEcosystNode (item) = "Nodo del Ecosistema"
88 88  
89 89  
90 90  func getKeyTokenGTS1 (item) = "GTStable"
91 91  
92 92  
93 93  func getKeyUserItemGtsCounter (user,item) = "Order_№:"
94 94  
95 95  
96 96  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
97 97  
98 98  
99 99  func getKeyItemName (item) = "Categoría del Producto:"
100 100  
101 101  
102 102  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
103 103  
104 104  
105 105  func getKeyUserName (item) = "Nombre del Usuario:"
106 106  
107 107  
108 108  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
109 109  
110 110  
111 111  func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
112 112  
113 113  
114 114  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
115 115  
116 116  
117 117  func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, gts-tokens:"
118 118  
119 119  
120 120  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
121 121  
122 122  
123 123  func getKeyBalanceSupplier (supplier) = "Monto Bruto por VentaGTS, yBitCO2cents:"
124 124  
125 125  
126 126  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
127 127  
128 128  
129 129  func getKeyUI (item) = "UI,_yBitCO2cents:"
130 130  
131 131  
132 132  func getValueUI (item) = getNumberByKey(getKeyUI(item))
133 133  
134 134  
135 135  func getKeyPI (item) = "PI,_yBitCO2cents:"
136 136  
137 137  
138 138  func getValuePI (item) = getNumberByKey(getKeyPI(item))
139 139  
140 140  
141 141  func getKeySI (item) = "SI,_yBitCO2cents:"
142 142  
143 143  
144 144  func getValueSI (item) = getNumberByKey(getKeySI(item))
145 145  
146 146  
147 147  @Callable(i)
148 148  func depositGTS (title,supplierData) = {
149 149      let pmt = extract(i.payment)
150 150      if ((pmt.assetId != gts01))
151 151          then throw("deposito permitido solo en gts01 tokens")
152 152          else {
153 153              let supplier = toBase58String(i.caller.bytes)
154 154              let currentAmount =             match getInteger(this, supplier) {
155 155                  case a: Int => 
156 156                      a
157 157                  case _ => 
158 158                      startQtyGTS
159 159              }
160 160              let newAmount = (currentAmount + pmt.amount)
161 161              if ((0 >= newAmount))
162 162                  then throw("No hay gts01 en su balance")
163 163                  else WriteSet([DataEntry(supplier, newAmount)])
164 164              }
165 165      }
166 166  
167 167  
168 168  
169 169  @Callable(i)
170 170  func deposit (title,supplierData) = {
171 171      let pmt = extract(i.payment)
172 172      if ((pmt.assetId != yBitCO2))
173 173          then throw("deposito permitido solo en yBitCO2 tokens")
174 174          else {
175 175              let supplier = toBase58String(i.caller.bytes)
176 176              let currentAmount =             match getInteger(this, supplier) {
177 177                  case a: Int => 
178 178                      a
179 179                  case _ => 
180 180                      startQty
181 181              }
182 182              let newAmount = (currentAmount + pmt.amount)
183 183              if ((0 >= newAmount))
184 184                  then throw("No hay yBitCO2 en su balance")
185 185                  else WriteSet([DataEntry(supplier, newAmount)])
186 186              }
187 187      }
188 188  
189 189  
190 190  
191 191  @Callable(i)
192 192  func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
193 193      let pmt = extract(i.payment)
194 194      if ((pmt.assetId != yBitCO2))
195 195          then throw("Use yBitCO2 tokens para adquirir ProductosGTS")
196 196          else {
197 197              let supplier =             match getString(this, getKeyItemSupplier(item)) {
198 198                  case a: String => 
199 199                      a
200 200                  case _ => 
201 201                      NONE
202 202              }
203 203              let projAdd =             match getString(this, getKeyProject(item)) {
204 204                  case a: String => 
205 205                      NONE
206 206                  case _ => 
207 207                      pAdd
208 208              }
209 209              let nodoAdd =             match getString(this, getKeyEcosystNode(item)) {
210 210                  case a: String => 
211 211                      NONE
212 212                  case _ => 
213 213                      eAdd
214 214              }
215 215              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
216 216                  case a: Int => 
217 217                      a
218 218                  case _ => 
219 219                      SecondFaseQtyGTS
220 220              }
221 221              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
222 222                  case a: Int => 
223 223                      a
224 224                  case _ => 
225 225                      0
226 226              }
227 227              let userAddress = toBase58String(i.caller.bytes)
228 228              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229 229              let cPG = ((88 * gts) / 100)
230 230              let uI = ((subTotal * uIP) / 100)
231 231              let uGI = ((uI * 10000) / cPG)
232 232              let pI = ((subTotal * pIP) / 100)
233 233              let eI = ((subTotal * eIP) / 100)
234 234              let eGI = (((subTotal * eGP) * 10000) / (100 * cPG))
235 235              let sI = ((totalAmount - pI) - eI)
236 236              let sGI = (((subTotal * sGP) * 10000) / (100 * cPG))
237 237              let QVentasgts = (((subTotal * 11) * 10000) / (cPG * 100))
238 238              if ((totalAmount > pmt.amount))
239 239                  then throw("Payment Amount can't be less than item Purchase Order")
240 240                  else if ((pmt.amount > totalAmount))
241 241                      then throw("Payment Amount can't be higher than item Purchase Order")
242 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2), ScriptTransfer(issuer, sGI, gts01)]))
243 243              }
244 244      }
245 245  
246 246  
247 247  
248 248  @Callable(i)
249 249  func purchaseGTS2 (item,itemName,userName,userDocument,totalAmount) = {
250 250      let pmt = extract(i.payment)
251 251      if (isDefined(pmt.assetId))
252 252          then throw("El Precio en waves.")
253 253          else {
254 254              let supplier =             match getString(this, getKeyItemSupplier(item)) {
255 255                  case a: String => 
256 256                      a
257 257                  case _ => 
258 258                      NONE
259 259              }
260 260              let projAdd =             match getString(this, getKeyProject(item)) {
261 261                  case a: String => 
262 262                      NONE
263 263                  case _ => 
264 264                      pAdd
265 265              }
266 266              let nodoAdd =             match getString(this, getKeyEcosystNode(item)) {
267 267                  case a: String => 
268 268                      NONE
269 269                  case _ => 
270 270                      eAdd
271 271              }
272 272              let preTokenQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
273 273                  case a: Int => 
274 274                      a
275 275                  case _ => 
276 276                      SecondFaseQty
277 277              }
278 278              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
279 279                  case a: Int => 
280 280                      a
281 281                  case _ => 
282 282                      0
283 283              }
284 284              let userAddress = toBase58String(i.caller.bytes)
285 285              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
286 286              let cPB = ((88 * ybitco2) / 100)
287 287              let uI = ((subTotal * uIP) / 100)
288 288              let uBI = ((uI / cPB) * 1)
289 289              let pI = ((subTotal * pIP) / 100)
290 290              let eI = ((subTotal * eIP) / 100)
291 291              let eBI = (((subTotal * eBP) / (100 * cPB)) * 1)
292 292              let sI = ((totalAmount - pI) - eI)
293 293              let sBI = (((subTotal * sBP) / (100 * cPB)) * 1)
294 294              let QVentasgts = (((subTotal * 11) / (cPB * 100)) * 1)
295 295              if ((totalAmount > pmt.amount))
296 296                  then throw("Payment Amount can't be less than item Purchase Order")
297 297                  else if ((pmt.amount > totalAmount))
298 298                      then throw("Payment Amount can't be higher than item Purchase Order")
299 299                      else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
300 300              }
301 301      }
302 302  
303 303  
304 304  
305 305  @Callable(i)
306 306  func withdrawGTS (item,amount) = {
307 307      let userAddress = toBase58String(i.caller.bytes)
308 308      let supplier =     match getString(this, getKeyItemSupplier(item)) {
309 309          case a: String => 
310 310              a
311 311          case _ => 
312 312              NONE
313 313      }
314 314      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
315 315          case a: Int => 
316 316              a
317 317          case _ => 
318 318              startQtyGTS
319 319      }
320 320      let newAmount = (preIcoQty - amount)
321 321      if ((0 > amount))
322 322          then throw("El balance de retiro no puede ser negativo!")
323 323          else if ((0 >= newAmount))
324 324              then throw("Ooppss.. Insuficiente balance!")
325 325              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, gts01)]))
326 326      }
327 327  
328 328  
329 329  
330 330  @Callable(i)
331 331  func withdraw (item,amount) = {
332 332      let userAddress = toBase58String(i.caller.bytes)
333 333      let supplier =     match getString(this, getKeyItemSupplier(item)) {
334 334          case a: String => 
335 335              a
336 336          case _ => 
337 337              NONE
338 338      }
339 339      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
340 340          case a: Int => 
341 341              a
342 342          case _ => 
343 343              startQty
344 344      }
345 345      let newAmount = (preIcoQty - amount)
346 346      if ((0 > amount))
347 347          then throw("El balance de retiro no puede ser negativo!")
348 348          else if ((0 >= newAmount))
349 349              then throw("Ooppss.. Insuficiente balance!")
350 350              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
351 351      }
352 352  
353 353  
354 354  @Verifier(tx)
355 355  func verify () = match tx {
356 356      case t: SetScriptTransaction => 
357 357          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
358 358      case d: DataTransaction|ReissueTransaction => 
359 359          true
360 360      case tx: TransferTransaction => 
361 361          true
362 362      case tx: ExchangeTransaction => 
363 363          let withyBitCo2 = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
364 364              then true
365 365              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
366 366          withyBitCo2
367 367      case _ => 
368 368          false
369 369  }
370 370

Old	New		Differences
239	239		then throw("Payment Amount can't be less than item Purchase Order")
240	240		else if ((pmt.amount > totalAmount))
241	241		then throw("Payment Amount can't be higher than item Purchase Order")
242		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2), ScriptTransfer(issuer, sGI, gts01)]))
243	243		}
244	244		}
245	245

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 gts01 = base58'Ef4H3AHkfucmc4AY9au2DhgXAorKyWx3aMsfYLMYZGAw'
7	7
8	8		let startQty = 3056930000
9	9
10	10		let FirstFaseQty = 311930000
11	11
12	12		let SecondFaseQty = 2745000000
13	13
14	14		let startQtyGTS = 3056930000
15	15
16	16		let FirstFaseQtyGTS = 311930000
17	17
18	18		let SecondFaseQtyGTS = 2745000000
19	19
20	20		let nomPrice = 1
21	21
22	22		let wvs = 100000000
23	23
24	24		let supplierDiscount = 12
25	25
26	26		let NONE = "none"
27	27
28	28		let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
29	29
30	30		let issuer = Address(base58'3N67GoXrZo4iwmEjLhS9iNUCbzpPEjoYgNW')
31	31
32	32		let eAdd = Address(base58'3N3uf7RK8Aed4v5ufGB8xV2Wsz4WNoHj21c')
33	33
34	34		let pAdd = Address(base58'3Mv5mXTRhpWZxZxstmnsBhckWNgErMTFEaD')
35	35
36	36		let igv = 18
37	37
38	38		let ybitco2 = 10000
39	39
40	40		let gts = 100000
41	41
42	42		let uIP = 7
43	43
44	44		let pIP = 10
45	45
46	46		let eIP = 1
47	47
48	48		let sBP = 2
49	49
50	50		let eBP = 2
51	51
52	52		let eGP = 2
53	53
54	54		let sGP = 2
55	55
56	56		func getNumberByKey (key) = {
57	57		let num = match getInteger(this, key) {
58	58		case a: Int =>
59	59		a
60	60		case _ =>
61	61		0
62	62		}
63	63		num
64	64		}
65	65
66	66
67	67		func getStrByKey (key) = {
68	68		let str = match getString(this, key) {
69	69		case a: String =>
70	70		a
71	71		case _ =>
72	72		NONE
73	73		}
74	74		str
75	75		}
76	76
77	77
78	78		func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
79	79
80	80
81	81		func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
82	82
83	83
84	84		func getKeyProject (item) = "Project"
85	85
86	86
87	87		func getKeyEcosystNode (item) = "Nodo del Ecosistema"
88	88
89	89
90	90		func getKeyTokenGTS1 (item) = "GTStable"
91	91
92	92
93	93		func getKeyUserItemGtsCounter (user,item) = "Order_№:"
94	94
95	95
96	96		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
97	97
98	98
99	99		func getKeyItemName (item) = "Categoría del Producto:"
100	100
101	101
102	102		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
103	103
104	104
105	105		func getKeyUserName (item) = "Nombre del Usuario:"
106	106
107	107
108	108		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
109	109
110	110
111	111		func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
112	112
113	113
114	114		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
115	115
116	116
117	117		func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, gts-tokens:"
118	118
119	119
120	120		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
121	121
122	122
123	123		func getKeyBalanceSupplier (supplier) = "Monto Bruto por VentaGTS, yBitCO2cents:"
124	124
125	125
126	126		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
127	127
128	128
129	129		func getKeyUI (item) = "UI,_yBitCO2cents:"
130	130
131	131
132	132		func getValueUI (item) = getNumberByKey(getKeyUI(item))
133	133
134	134
135	135		func getKeyPI (item) = "PI,_yBitCO2cents:"
136	136
137	137
138	138		func getValuePI (item) = getNumberByKey(getKeyPI(item))
139	139
140	140
141	141		func getKeySI (item) = "SI,_yBitCO2cents:"
142	142
143	143
144	144		func getValueSI (item) = getNumberByKey(getKeySI(item))
145	145
146	146
147	147		@Callable(i)
148	148		func depositGTS (title,supplierData) = {
149	149		let pmt = extract(i.payment)
150	150		if ((pmt.assetId != gts01))
151	151		then throw("deposito permitido solo en gts01 tokens")
152	152		else {
153	153		let supplier = toBase58String(i.caller.bytes)
154	154		let currentAmount = match getInteger(this, supplier) {
155	155		case a: Int =>
156	156		a
157	157		case _ =>
158	158		startQtyGTS
159	159		}
160	160		let newAmount = (currentAmount + pmt.amount)
161	161		if ((0 >= newAmount))
162	162		then throw("No hay gts01 en su balance")
163	163		else WriteSet([DataEntry(supplier, newAmount)])
164	164		}
165	165		}
166	166
167	167
168	168
169	169		@Callable(i)
170	170		func deposit (title,supplierData) = {
171	171		let pmt = extract(i.payment)
172	172		if ((pmt.assetId != yBitCO2))
173	173		then throw("deposito permitido solo en yBitCO2 tokens")
174	174		else {
175	175		let supplier = toBase58String(i.caller.bytes)
176	176		let currentAmount = match getInteger(this, supplier) {
177	177		case a: Int =>
178	178		a
179	179		case _ =>
180	180		startQty
181	181		}
182	182		let newAmount = (currentAmount + pmt.amount)
183	183		if ((0 >= newAmount))
184	184		then throw("No hay yBitCO2 en su balance")
185	185		else WriteSet([DataEntry(supplier, newAmount)])
186	186		}
187	187		}
188	188
189	189
190	190
191	191		@Callable(i)
192	192		func purchaseGTS (item,itemName,userName,userDocument,totalAmount) = {
193	193		let pmt = extract(i.payment)
194	194		if ((pmt.assetId != yBitCO2))
195	195		then throw("Use yBitCO2 tokens para adquirir ProductosGTS")
196	196		else {
197	197		let supplier = match getString(this, getKeyItemSupplier(item)) {
198	198		case a: String =>
199	199		a
200	200		case _ =>
201	201		NONE
202	202		}
203	203		let projAdd = match getString(this, getKeyProject(item)) {
204	204		case a: String =>
205	205		NONE
206	206		case _ =>
207	207		pAdd
208	208		}
209	209		let nodoAdd = match getString(this, getKeyEcosystNode(item)) {
210	210		case a: String =>
211	211		NONE
212	212		case _ =>
213	213		eAdd
214	214		}
215	215		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
216	216		case a: Int =>
217	217		a
218	218		case _ =>
219	219		SecondFaseQtyGTS
220	220		}
221	221		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
222	222		case a: Int =>
223	223		a
224	224		case _ =>
225	225		0
226	226		}
227	227		let userAddress = toBase58String(i.caller.bytes)
228	228		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229	229		let cPG = ((88 * gts) / 100)
230	230		let uI = ((subTotal * uIP) / 100)
231	231		let uGI = ((uI * 10000) / cPG)
232	232		let pI = ((subTotal * pIP) / 100)
233	233		let eI = ((subTotal * eIP) / 100)
234	234		let eGI = (((subTotal * eGP) * 10000) / (100 * cPG))
235	235		let sI = ((totalAmount - pI) - eI)
236	236		let sGI = (((subTotal * sGP) * 10000) / (100 * cPG))
237	237		let QVentasgts = (((subTotal * 11) * 10000) / (cPG * 100))
238	238		if ((totalAmount > pmt.amount))
239	239		then throw("Payment Amount can't be less than item Purchase Order")
240	240		else if ((pmt.amount > totalAmount))
241	241		then throw("Payment Amount can't be higher than item Purchase Order")
242		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_yBitCO2cents", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, yBitCO2cents", subTotal), DataEntry("CP 1GTS, yBitCO2cents", (cPG * 1)), DataEntry(getKeyUI(item), uI), DataEntry("UGI, 10e-4 gts01", uGI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, yBitCO2cents", eI), DataEntry("EcSys, 10e-4 gts01", eGI), DataEntry(getKeySI(item), sI), DataEntry("SGI, 10e-4 gts01", sGI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 gts01", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uGI, gts01), ScriptTransfer(pAdd, pI, yBitCO2), ScriptTransfer(eAdd, eI, yBitCO2), ScriptTransfer(eAdd, eGI, gts01), ScriptTransfer(issuer, sI, yBitCO2), ScriptTransfer(issuer, sGI, gts01)]))
243	243		}
244	244		}
245	245
246	246
247	247
248	248		@Callable(i)
249	249		func purchaseGTS2 (item,itemName,userName,userDocument,totalAmount) = {
250	250		let pmt = extract(i.payment)
251	251		if (isDefined(pmt.assetId))
252	252		then throw("El Precio en waves.")
253	253		else {
254	254		let supplier = match getString(this, getKeyItemSupplier(item)) {
255	255		case a: String =>
256	256		a
257	257		case _ =>
258	258		NONE
259	259		}
260	260		let projAdd = match getString(this, getKeyProject(item)) {
261	261		case a: String =>
262	262		NONE
263	263		case _ =>
264	264		pAdd
265	265		}
266	266		let nodoAdd = match getString(this, getKeyEcosystNode(item)) {
267	267		case a: String =>
268	268		NONE
269	269		case _ =>
270	270		eAdd
271	271		}
272	272		let preTokenQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
273	273		case a: Int =>
274	274		a
275	275		case _ =>
276	276		SecondFaseQty
277	277		}
278	278		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
279	279		case a: Int =>
280	280		a
281	281		case _ =>
282	282		0
283	283		}
284	284		let userAddress = toBase58String(i.caller.bytes)
285	285		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
286	286		let cPB = ((88 * ybitco2) / 100)
287	287		let uI = ((subTotal * uIP) / 100)
288	288		let uBI = ((uI / cPB) * 1)
289	289		let pI = ((subTotal * pIP) / 100)
290	290		let eI = ((subTotal * eIP) / 100)
291	291		let eBI = (((subTotal * eBP) / (100 * cPB)) * 1)
292	292		let sI = ((totalAmount - pI) - eI)
293	293		let sBI = (((subTotal * sBP) / (100 * cPB)) * 1)
294	294		let QVentasgts = (((subTotal * 11) / (cPB * 100)) * 1)
295	295		if ((totalAmount > pmt.amount))
296	296		then throw("Payment Amount can't be less than item Purchase Order")
297	297		else if ((pmt.amount > totalAmount))
298	298		then throw("Payment Amount can't be higher than item Purchase Order")
299	299		else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItem(supplier, item), item), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvls", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvls", subTotal), DataEntry("CP 1 B, wvls", (cPB * 10000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI, 10e-4 ybitco2", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys, wvls", eI), DataEntry("EcSys, 10e-4 ybitco2", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI, 10e-4 ybitco2", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS, 10e-4 ybitco2", QVentasgts), DataEntry(getKeyBalanceQtySupplier(item), (preTokenQty - (QVentasgts / 1))), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, yBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, yBitCO2), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, yBitCO2)]))
300	300		}
301	301		}
302	302
303	303
304	304
305	305		@Callable(i)
306	306		func withdrawGTS (item,amount) = {
307	307		let userAddress = toBase58String(i.caller.bytes)
308	308		let supplier = match getString(this, getKeyItemSupplier(item)) {
309	309		case a: String =>
310	310		a
311	311		case _ =>
312	312		NONE
313	313		}
314	314		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
315	315		case a: Int =>
316	316		a
317	317		case _ =>
318	318		startQtyGTS
319	319		}
320	320		let newAmount = (preIcoQty - amount)
321	321		if ((0 > amount))
322	322		then throw("El balance de retiro no puede ser negativo!")
323	323		else if ((0 >= newAmount))
324	324		then throw("Ooppss.. Insuficiente balance!")
325	325		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, gts01)]))
326	326		}
327	327
328	328
329	329
330	330		@Callable(i)
331	331		func withdraw (item,amount) = {
332	332		let userAddress = toBase58String(i.caller.bytes)
333	333		let supplier = match getString(this, getKeyItemSupplier(item)) {
334	334		case a: String =>
335	335		a
336	336		case _ =>
337	337		NONE
338	338		}
339	339		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
340	340		case a: Int =>
341	341		a
342	342		case _ =>
343	343		startQty
344	344		}
345	345		let newAmount = (preIcoQty - amount)
346	346		if ((0 > amount))
347	347		then throw("El balance de retiro no puede ser negativo!")
348	348		else if ((0 >= newAmount))
349	349		then throw("Ooppss.. Insuficiente balance!")
350	350		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, yBitCO2)]))
351	351		}
352	352
353	353
354	354		@Verifier(tx)
355	355		func verify () = match tx {
356	356		case t: SetScriptTransaction =>
357	357		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
358	358		case d: DataTransaction\|ReissueTransaction =>
359	359		true
360	360		case tx: TransferTransaction =>
361	361		true
362	362		case tx: ExchangeTransaction =>
363	363		let withyBitCo2 = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
364	364		then true
365	365		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
366	366		withyBitCo2
367	367		case _ =>
368	368		false
369	369		}
370	370

github/deemru/w8io/169f3d6 
80.31 ms ◑