w8 · tx · Cqw···piX

tx · Cqw6iT7EppMQNJKfkYv5RDVG91hTRuSLvBa3R9MJ8piX

3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k:  -0.01400000 Waves

2020.08.17 00:47 [1135694] smart account 3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Cqw6iT7EppMQNJKfkYv5RDVG91hTRuSLvBa3R9MJ8piX",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1597614451100,
    "version": 1,
    "sender": "3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k",
    "senderPublicKey": "7FQufF9XhJBsTdvrn67eWxYT7ZxDwzjuXAprkWiHrS3Y",
    "proofs": [
        "3A9EmvMQbVMZsBqUTKDc3jNpCVoDV41S1cDrEfaMS99Nc48xZdyjXnEGJMcLBZ1e2Ve1Qy4NUwSUDvWRcKfwiiAs"
    ],
    "script": "base64:AAIDAAAAAAAAABYIARIECgIICBIGCgQICAgBEgQKAggBAAAAKgAAAAAHeEJpdENPMgEAAAAgIARkpqoDew1vpqr6lyVYs5aJelMM/++6xmiHbINU3I0AAAAACHN0YXJ0UXR5AAAAAAAABKodAAAAAAxGaXJzdEZhc2VRdHkAAAAAAAAAedkAAAAADVNlY29uZEZhc2VRdHkAAAAAAAAEMEQAAAAACG5vbVByaWNlAAAAAAAAAAABAAAAAAN3dnMAAAAAAAX14QAAAAAAEHN1cHBsaWVyRGlzY291bnQAAAAAAAAAAAwAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACBc10kgzntLYC3wdTXyP6D5J32rgBzym30loQrY6e/2HwAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAIC9+Xwa4MZxzJqIEuEb7kj9uK2fSiM9o7TZJDuMfktwRAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAIOlzfpN6LSIAaREZkszTdCJmie/BEqgrFH1nyPcSZ+hEAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFU59oBT524XY3coSNo3n4mDI22F585/li9AAAAAANpZ3YAAAAAAAAAABIAAAAAA2NQQgAAAAAAAAAAWAAAAAADdUlQAAAAAAAAAAAHAAAAAANwSVAAAAAAAAAAAAoAAAAAA3NJUAAAAAAAAAAAAQAAAAADZUlQAAAAAAAAAAABAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAAEsAAAAAgUAAAAIc3VwcGxpZXICAAAAGEJpdC1DTzIgU2hvcCwgTGltYS1QZXLDugEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAADlByb2R1Y3RvLUdUUzogAgAAAAEgCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1OYW1lAAAAAQAAAARpdGVtAgAAABhDYXRlZ29yw61hIGRlbCBQcm9kdWN0bzoBAAAAEGdldFZhbHVlSXRlbU5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEFAAAABGl0ZW0BAAAADmdldEtleVVzZXJOYW1lAAAAAQAAAARpdGVtAgAAABNOb21icmUgZGVsIFVzdWFyaW86AQAAABBnZXRWYWx1ZVVzZXJOYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0CAAAAI+KEliBkZSBEb2N1bWVudG8gLyBETkkgZGVsIFVzdWFyaW86AQAAABRnZXRWYWx1ZVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0BAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtAgAAAC5Ub2tlbnMgT2ZlcnRhZG9zIGVuIGxhIHByZXNlbnRlIGV0YXBhIC8gU2FsZG86AQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAGkJhbGFuY2UvU2FsZG8gR1RTLCB0b2tlbnM6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAFkluZ3Jlc29zIHBvciBWZW50YUdUUzoBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAAAhnZXRLZXlVSQAAAAEAAAAEaXRlbQIAAAAIVUksX3d2czoBAAAACmdldFZhbHVlVUkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVBJAAAAAQAAAARpdGVtAgAAAAZQSSxfJToBAAAACmdldFZhbHVlUEkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVNJAAAAAQAAAARpdGVtAgAAAAZTSSxfJToBAAAACmdldFZhbHVlU0kAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0AAAADAAAAAWkBAAAAB2RlcG9zaXQAAAACAAAABXRpdGxlAAAADHN1cHBsaWVyRGF0YQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB3hCaXRDTzIJAAACAAAAAQIAAAApZGVwb3NpdG8gcGVybWl0aWRvIHNvbG8gZW4geEJpdENPMiB0b2tlbnMEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADWN1cnJlbnRBbW91bnQEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGQAAAACBQAAAA1jdXJyZW50QW1vdW50CAUAAAADcG10AAAABmFtb3VudAMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHE5vIGhheSB4Qml0Q08yIGVuIHN1IGJhbGFuY2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAAAtwdXJjaGFzZUdUUwAAAAQAAAAEaXRlbQAAAAh1c2VyTmFtZQAAAAx1c2VyRG9jdW1lbnQAAAALdG90YWxBbW91bnQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAABZFbCBQcmVjaW8gZGUgbG9zIGF2ZXMuBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAANU2Vjb25kRmFzZVF0eQQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAkAAGkAAAACCQAAaAAAAAIFAAAAA2lndgUAAAALdG90YWxBbW91bnQAAAAAAAAAAGQEAAAAAnVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3VJUAAAAAAAAAAAZAQAAAADdUJJCQAAaQAAAAIFAAAAAnVJBQAAAANjUEIEAAAAAnBJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3BJUAAAAAAAAAAAZAQAAAACZUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQAAAAAAAAAABkBAAAAANlQkkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAAZAQAAAACc0kJAABlAAAAAgkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAUAAAACcEkFAAAAAmVJBAAAAANzQkkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADc0lQCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAAZAQAAAAKUVZlbnRhc2d0cwkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsAAAAAAAAAAALCQAAaAAAAAIFAAAAA2NQQgAAAAAAAAAAZAMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAEaXRlbQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleVVzZXJOYW1lAAAAAQUAAAAEaXRlbQUAAAAIdXNlck5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtBQAAAAx1c2VyRG9jdW1lbnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAE1BheW1lbnRfYW1vdW50LF93dnMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZJbXAsICUFAAAAA2lndgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAJU1R0bCwgd3ZzBQAAAAhzdWJUb3RhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAALQ1AgMSBCLCB3dnMJAABoAAAAAgUAAAADY1BCAAAAAAAAD0JACQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtBQAAAAJ1SQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAADVUJJBQAAAAN1QkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0FAAAAAnBJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAVFY1N5cwUAAAADZUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtBQAAAAJzSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGU0JJOiBiBQAAAANzQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAABhBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAADVFwb3JWZW50YXNHVFMFAAAAClFWZW50YXNndHMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGUAAAACBQAAAA1TZWNvbmRGYXNlUXR5BQAAAApRVmVudGFzZ3RzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAADdUJJBQAAAAd4Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABHBBZGQFAAAAAnBJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAANzQkkFAAAAB3hCaXRDTzIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAACZUkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEZUFkZAUAAAADZUJJBQAAAAd4Qml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAK0VsIGJhbGFuY2UgZGUgcmV0aXJvIG5vIHB1ZWRlIHNlciBuZWdhdGl2byEDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB5Pb3Bwc3MuLiBJbnN1ZmljaWVudGUgYmFsYW5jZSEJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHeEJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAElJlaXNzdWVUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXdpdGhXYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAACXdpdGhXYXZlcweo770H",
    "chainId": 84,
    "height": 1135694,
    "spentComplexity": 0
}

View: original | compacted
Prev: 6zRxp8A95XBpyAauPCcpmTM6enmxEANHBN7eYk9m2kRE
Next: Gorpw2X1q6e3NPPmBVnEsLuquv28jVLo5rY6y5sY8VpE

Diff: 
Old New Differences
163 163                  case a: Int => 
164 164                      a
165 165                  case _ => 
166 -                     startQty
166 +                     SecondFaseQty
167 167              }
168 168              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
169 169                  case a: Int => 
180 180              let eBI = ((subTotal * eIP) / (cPB * 100))
181 181              let sI = ((totalAmount - pI) - eI)
182 182              let sBI = ((subTotal * sIP) / (cPB * 100))
183 +             let QVentasgts = ((subTotal * 11) / (cPB * 100))
183 184              if ((totalAmount > pmt.amount))
184 185                  then throw("Payment Amount can't be less than item Purchase Order")
185 186                  else if ((pmt.amount > totalAmount))
186 187                      then throw("Payment Amount can't be higher than item Purchase Order")
187 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188 189              }
189 190      }
190 191  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let xBitCO2 = base58'39yw38hm342hiK43SqELTaZRkTWJoBc22XpxmsSiBrsN'
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 nomPrice = 1
13 13  
14 14  let wvs = 100000000
15 15  
16 16  let supplierDiscount = 12
17 17  
18 18  let NONE = "none"
19 19  
20 20  let OwnerPubKey = base58'7FQufF9XhJBsTdvrn67eWxYT7ZxDwzjuXAprkWiHrS3Y'
21 21  
22 22  let issuer = Address(base58'4CPvf7HYx8YmgeJPYeXhhC76cvGzV16vxvPwZCxVH8b2')
23 23  
24 24  let eAdd = Address(base58'GiJ8yN72wG35H2Cg1qYERtqFNbZuWav2QskRKnDjggZH')
25 25  
26 26  let pAdd = Address(base58'3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k')
27 27  
28 28  let igv = 18
29 29  
30 30  let cPB = 88
31 31  
32 32  let uIP = 7
33 33  
34 34  let pIP = 10
35 35  
36 36  let sIP = 1
37 37  
38 38  let eIP = 1
39 39  
40 40  func getNumberByKey (key) = {
41 41      let num =     match getInteger(this, key) {
42 42          case a: Int => 
43 43              a
44 44          case _ => 
45 45              0
46 46      }
47 47      num
48 48      }
49 49  
50 50  
51 51  func getStrByKey (key) = {
52 52      let str =     match getString(this, key) {
53 53          case a: String => 
54 54              a
55 55          case _ => 
56 56              NONE
57 57      }
58 58      str
59 59      }
60 60  
61 61  
62 62  func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
63 63  
64 64  
65 65  func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
66 66  
67 67  
68 68  func getKeyUserItemGtsCounter (user,item) = "Order_№:"
69 69  
70 70  
71 71  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
72 72  
73 73  
74 74  func getKeyItemName (item) = "Categoría del Producto:"
75 75  
76 76  
77 77  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
78 78  
79 79  
80 80  func getKeyUserName (item) = "Nombre del Usuario:"
81 81  
82 82  
83 83  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
84 84  
85 85  
86 86  func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
87 87  
88 88  
89 89  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
90 90  
91 91  
92 92  func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo:"
93 93  
94 94  
95 95  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
96 96  
97 97  
98 98  func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, tokens:"
99 99  
100 100  
101 101  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
102 102  
103 103  
104 104  func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS:"
105 105  
106 106  
107 107  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
108 108  
109 109  
110 110  func getKeyUI (item) = "UI,_wvs:"
111 111  
112 112  
113 113  func getValueUI (item) = getNumberByKey(getKeyUI(item))
114 114  
115 115  
116 116  func getKeyPI (item) = "PI,_%:"
117 117  
118 118  
119 119  func getValuePI (item) = getNumberByKey(getKeyPI(item))
120 120  
121 121  
122 122  func getKeySI (item) = "SI,_%:"
123 123  
124 124  
125 125  func getValueSI (item) = getNumberByKey(getKeySI(item))
126 126  
127 127  
128 128  @Callable(i)
129 129  func deposit (title,supplierData) = {
130 130      let pmt = extract(i.payment)
131 131      if ((pmt.assetId != xBitCO2))
132 132          then throw("deposito permitido solo en xBitCO2 tokens")
133 133          else {
134 134              let supplier = toBase58String(i.caller.bytes)
135 135              let currentAmount =             match getInteger(this, supplier) {
136 136                  case a: Int => 
137 137                      a
138 138                  case _ => 
139 139                      startQty
140 140              }
141 141              let newAmount = (currentAmount + pmt.amount)
142 142              if ((0 >= newAmount))
143 143                  then throw("No hay xBitCO2 en su balance")
144 144                  else WriteSet([DataEntry(supplier, newAmount)])
145 145              }
146 146      }
147 147  
148 148  
149 149  
150 150  @Callable(i)
151 151  func purchaseGTS (item,userName,userDocument,totalAmount) = {
152 152      let pmt = extract(i.payment)
153 153      if (isDefined(pmt.assetId))
154 154          then throw("El Precio de los aves.")
155 155          else {
156 156              let supplier =             match getString(this, getKeyItemSupplier(item)) {
157 157                  case a: String => 
158 158                      a
159 159                  case _ => 
160 160                      NONE
161 161              }
162 162              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
163 163                  case a: Int => 
164 164                      a
165 165                  case _ => 
166 -                     startQty
166 +                     SecondFaseQty
167 167              }
168 168              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
169 169                  case a: Int => 
170 170                      a
171 171                  case _ => 
172 172                      0
173 173              }
174 174              let userAddress = toBase58String(i.caller.bytes)
175 175              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
176 176              let uI = ((subTotal * uIP) / 100)
177 177              let uBI = (uI / cPB)
178 178              let pI = ((subTotal * pIP) / 100)
179 179              let eI = ((subTotal * eIP) / 100)
180 180              let eBI = ((subTotal * eIP) / (cPB * 100))
181 181              let sI = ((totalAmount - pI) - eI)
182 182              let sBI = ((subTotal * sIP) / (cPB * 100))
183 +             let QVentasgts = ((subTotal * 11) / (cPB * 100))
183 184              if ((totalAmount > pmt.amount))
184 185                  then throw("Payment Amount can't be less than item Purchase Order")
185 186                  else if ((pmt.amount > totalAmount))
186 187                      then throw("Payment Amount can't be higher than item Purchase Order")
187 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188 189              }
189 190      }
190 191  
191 192  
192 193  
193 194  @Callable(i)
194 195  func withdraw (item,amount) = {
195 196      let userAddress = toBase58String(i.caller.bytes)
196 197      let supplier =     match getString(this, getKeyItemSupplier(item)) {
197 198          case a: String => 
198 199              a
199 200          case _ => 
200 201              NONE
201 202      }
202 203      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
203 204          case a: Int => 
204 205              a
205 206          case _ => 
206 207              startQty
207 208      }
208 209      let newAmount = (preIcoQty - amount)
209 210      if ((0 > amount))
210 211          then throw("El balance de retiro no puede ser negativo!")
211 212          else if ((0 >= newAmount))
212 213              then throw("Ooppss.. Insuficiente balance!")
213 214              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, xBitCO2)]))
214 215      }
215 216  
216 217  
217 218  @Verifier(tx)
218 219  func verify () = match tx {
219 220      case t: SetScriptTransaction => 
220 221          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
221 222      case d: DataTransaction|ReissueTransaction => 
222 223          true
223 224      case tx: TransferTransaction => 
224 225          true
225 226      case tx: ExchangeTransaction => 
226 227          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
227 228              then true
228 229              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
229 230          withWaves
230 231      case _ => 
231 232          false
232 233  }
233 234

Old	New		Differences
163	163		case a: Int =>
164	164		a
165	165		case _ =>
166		-	~~startQty~~
	166	+	SecondFaseQty
167	167		}
168	168		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
169	169		case a: Int =>

180	180		let eBI = ((subTotal * eIP) / (cPB * 100))
181	181		let sI = ((totalAmount - pI) - eI)
182	182		let sBI = ((subTotal * sIP) / (cPB * 100))
	183	+	let QVentasgts = ((subTotal * 11) / (cPB * 100))
183	184		if ((totalAmount > pmt.amount))
184	185		then throw("Payment Amount can't be less than item Purchase Order")
185	186		else if ((pmt.amount > totalAmount))
186	187		then throw("Payment Amount can't be higher than item Purchase Order")
187		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
	188	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188	189		}
189	190		}
190	191

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let xBitCO2 = base58'39yw38hm342hiK43SqELTaZRkTWJoBc22XpxmsSiBrsN'
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 nomPrice = 1
13	13
14	14		let wvs = 100000000
15	15
16	16		let supplierDiscount = 12
17	17
18	18		let NONE = "none"
19	19
20	20		let OwnerPubKey = base58'7FQufF9XhJBsTdvrn67eWxYT7ZxDwzjuXAprkWiHrS3Y'
21	21
22	22		let issuer = Address(base58'4CPvf7HYx8YmgeJPYeXhhC76cvGzV16vxvPwZCxVH8b2')
23	23
24	24		let eAdd = Address(base58'GiJ8yN72wG35H2Cg1qYERtqFNbZuWav2QskRKnDjggZH')
25	25
26	26		let pAdd = Address(base58'3NB412VeXkiWqruYpeEEWkm364Xc9MskZ2k')
27	27
28	28		let igv = 18
29	29
30	30		let cPB = 88
31	31
32	32		let uIP = 7
33	33
34	34		let pIP = 10
35	35
36	36		let sIP = 1
37	37
38	38		let eIP = 1
39	39
40	40		func getNumberByKey (key) = {
41	41		let num = match getInteger(this, key) {
42	42		case a: Int =>
43	43		a
44	44		case _ =>
45	45		0
46	46		}
47	47		num
48	48		}
49	49
50	50
51	51		func getStrByKey (key) = {
52	52		let str = match getString(this, key) {
53	53		case a: String =>
54	54		a
55	55		case _ =>
56	56		NONE
57	57		}
58	58		str
59	59		}
60	60
61	61
62	62		func getKeyItemSupplier (supplier) = (supplier + "Bit-CO2 Shop, Lima-Perú")
63	63
64	64
65	65		func getKeyItem (supplier,item) = (("Producto-GTS: " + " ") + toBase58String(sha256(toBytes((supplier + item)))))
66	66
67	67
68	68		func getKeyUserItemGtsCounter (user,item) = "Order_№:"
69	69
70	70
71	71		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
72	72
73	73
74	74		func getKeyItemName (item) = "Categoría del Producto:"
75	75
76	76
77	77		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
78	78
79	79
80	80		func getKeyUserName (item) = "Nombre del Usuario:"
81	81
82	82
83	83		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
84	84
85	85
86	86		func getKeyUserDocument (item) = "№ de Documento / DNI del Usuario:"
87	87
88	88
89	89		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
90	90
91	91
92	92		func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo:"
93	93
94	94
95	95		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
96	96
97	97
98	98		func getKeyBalanceQtySupplier (item) = "Balance/Saldo GTS, tokens:"
99	99
100	100
101	101		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
102	102
103	103
104	104		func getKeyBalanceSupplier (supplier) = "Ingresos por VentaGTS:"
105	105
106	106
107	107		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
108	108
109	109
110	110		func getKeyUI (item) = "UI,_wvs:"
111	111
112	112
113	113		func getValueUI (item) = getNumberByKey(getKeyUI(item))
114	114
115	115
116	116		func getKeyPI (item) = "PI,_%:"
117	117
118	118
119	119		func getValuePI (item) = getNumberByKey(getKeyPI(item))
120	120
121	121
122	122		func getKeySI (item) = "SI,_%:"
123	123
124	124
125	125		func getValueSI (item) = getNumberByKey(getKeySI(item))
126	126
127	127
128	128		@Callable(i)
129	129		func deposit (title,supplierData) = {
130	130		let pmt = extract(i.payment)
131	131		if ((pmt.assetId != xBitCO2))
132	132		then throw("deposito permitido solo en xBitCO2 tokens")
133	133		else {
134	134		let supplier = toBase58String(i.caller.bytes)
135	135		let currentAmount = match getInteger(this, supplier) {
136	136		case a: Int =>
137	137		a
138	138		case _ =>
139	139		startQty
140	140		}
141	141		let newAmount = (currentAmount + pmt.amount)
142	142		if ((0 >= newAmount))
143	143		then throw("No hay xBitCO2 en su balance")
144	144		else WriteSet([DataEntry(supplier, newAmount)])
145	145		}
146	146		}
147	147
148	148
149	149
150	150		@Callable(i)
151	151		func purchaseGTS (item,userName,userDocument,totalAmount) = {
152	152		let pmt = extract(i.payment)
153	153		if (isDefined(pmt.assetId))
154	154		then throw("El Precio de los aves.")
155	155		else {
156	156		let supplier = match getString(this, getKeyItemSupplier(item)) {
157	157		case a: String =>
158	158		a
159	159		case _ =>
160	160		NONE
161	161		}
162	162		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
163	163		case a: Int =>
164	164		a
165	165		case _ =>
166		-	~~startQty~~
	166	+	SecondFaseQty
167	167		}
168	168		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
169	169		case a: Int =>
170	170		a
171	171		case _ =>
172	172		0
173	173		}
174	174		let userAddress = toBase58String(i.caller.bytes)
175	175		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
176	176		let uI = ((subTotal * uIP) / 100)
177	177		let uBI = (uI / cPB)
178	178		let pI = ((subTotal * pIP) / 100)
179	179		let eI = ((subTotal * eIP) / 100)
180	180		let eBI = ((subTotal * eIP) / (cPB * 100))
181	181		let sI = ((totalAmount - pI) - eI)
182	182		let sBI = ((subTotal * sIP) / (cPB * 100))
	183	+	let QVentasgts = ((subTotal * 11) / (cPB * 100))
183	184		if ((totalAmount > pmt.amount))
184	185		then throw("Payment Amount can't be less than item Purchase Order")
185	186		else if ((pmt.amount > totalAmount))
186	187		then throw("Payment Amount can't be higher than item Purchase Order")
187		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
	188	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyItemName(item), item), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserDocument(item), userDocument), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry("EcSys", eBI), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry("QporVentasGTS", QVentasgts), DataEntry(getKeyBalanceQtySupplier(supplier), (SecondFaseQty - QVentasgts)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uBI, xBitCO2), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(issuer, sBI, xBitCO2), ScriptTransfer(eAdd, eI, unit), ScriptTransfer(eAdd, eBI, xBitCO2)]))
188	189		}
189	190		}
190	191
191	192
192	193
193	194		@Callable(i)
194	195		func withdraw (item,amount) = {
195	196		let userAddress = toBase58String(i.caller.bytes)
196	197		let supplier = match getString(this, getKeyItemSupplier(item)) {
197	198		case a: String =>
198	199		a
199	200		case _ =>
200	201		NONE
201	202		}
202	203		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
203	204		case a: Int =>
204	205		a
205	206		case _ =>
206	207		startQty
207	208		}
208	209		let newAmount = (preIcoQty - amount)
209	210		if ((0 > amount))
210	211		then throw("El balance de retiro no puede ser negativo!")
211	212		else if ((0 >= newAmount))
212	213		then throw("Ooppss.. Insuficiente balance!")
213	214		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, xBitCO2)]))
214	215		}
215	216
216	217
217	218		@Verifier(tx)
218	219		func verify () = match tx {
219	220		case t: SetScriptTransaction =>
220	221		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
221	222		case d: DataTransaction\|ReissueTransaction =>
222	223		true
223	224		case tx: TransferTransaction =>
224	225		true
225	226		case tx: ExchangeTransaction =>
226	227		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
227	228		then true
228	229		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
229	230		withWaves
230	231		case _ =>
231	232		false
232	233		}
233	234

github/deemru/w8io/026f985 
37.50 ms ◑