w8 · tx · EqS···ALU

tx · EqSa9w7YmyiCZjN7pYLKmf6ZoqxowTkA14D7RjBTHALU

3N5v9ndbkGSWy1SfeJSz94tYU8qVNTUJV2q:  -0.01400000 Waves

2020.08.03 14:33 [1116118] smart account 3N5v9ndbkGSWy1SfeJSz94tYU8qVNTUJV2q > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "EqSa9w7YmyiCZjN7pYLKmf6ZoqxowTkA14D7RjBTHALU",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1596454287638,
    "version": 1,
    "sender": "3N5v9ndbkGSWy1SfeJSz94tYU8qVNTUJV2q",
    "senderPublicKey": "6tctCnkRasXYuZWRpzZz9ogLri6aifJ19LTtx9uFQv67",
    "proofs": [
        "2i8fuL1LoLoUtGq7UzKaYjx67jZyKjNPVdDTkfKebYnmzCbZPMMacAXk2gxzg3hauGW6gwDwkvGy2RhGHVwXt5XU"
    ],
    "script": "base64:AAIDAAAAAAAAADMIARIECgIICBIHCgUICAgBARIICgYICAgBAQgSBgoECAgIARIICgYICAgBAQgSBAoCCAEAAAA+AAAAAAd4Qml0Q08yAQAAACAgBGSmqgN7DW+mqvqXJVizlol6Uwz/77rGaIdsg1TcjQAAAAAIc3RhcnRRdHkAAAAAAAAEqh0AAAAACG5vbVByaWNlAAAAAAAAAAABAAAAAAN3dnMAAAAAAAX14QAAAAAAEHN1cHBsaWVyRGlzY291bnQAAAAAAAAAAAwAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACBXg6Dz9iwxuW6OZN3ObCk6NCcw047cUbg0y/YmycTlFAAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUS0gVj7khTyyW8drcBieKY28h0dbnPZfaAAAAAARlQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUTBaoO/bGBDOBrm064MWNCsZzgwdlxMLyAAAAAARwQWRkCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUr4Vcn4wBB78CoLaGa2WDuKHfP9Hd98MyAAAAAANpZ3YAAAAAAAAAABIAAAAAA2NQQgAAAAAAAAAAWAAAAAADdUlQAAAAAAAAAAAFAAAAAANwSVAAAAAAAAAAAAoAAAAAA3NJUAAAAAAAAAAAAQAAAAADZUlQAAAAAAAAAAABAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAACmdldEtleUl0ZW0AAAACAAAACHN1cHBsaWVyAAAABGl0ZW0JAAEsAAAAAgIAAAAbUmVzZXJ2YSBGb3Jlc3RhbCBBbWF6w7NuaWNhCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQABLAAAAAIFAAAACHN1cHBsaWVyAgAAACNDb211bmlkYWQgQWNodWFyIEthcGF3aSBkZWwgRWN1YWRvcgEAAAAUZ2V0VmFsdWVJdGVtU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAAEWdldEtleVByb2plY3RDb2RlAAAAAQAAAAtwcm9qZWN0Q29kZQIAAAAbMDEtRUMvU0dUIC0gQUNIVUFSS0FQQVdJLTAxAQAAABFnZXRLZXlQcm9qZWN0TmFtZQAAAAEAAAALcHJvamVjdE5hbWUCAAAAIFJlc2VydmEgQW1hesOzbmljYSBBY2h1YXItS2FwYXdpAQAAABNnZXRWYWx1ZVByb2plY3ROYW1lAAAAAQAAAAtwcm9qZWN0TmFtZQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEWdldEtleVByb2plY3ROYW1lAAAAAQUAAAALcHJvamVjdE5hbWUBAAAAEmdldEtleVByb2plY3RFdGFwYQAAAAEAAAAOcHJvamVjdEFkZHJlc3MCAAAAHUFjaHVhckthcGF3aSwgSSBFdGFwYTogUHJlSUNPAQAAABRnZXRWYWx1ZVByb2plY3RFdGFwYQAAAAEAAAAOcHJvamVjdEFkZHJlc3MJAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlQcm9qZWN0RXRhcGEAAAABBQAAAA5wcm9qZWN0QWRkcmVzcwEAAAAUZ2V0S2V5UHJvamVjdENvdW50cnkAAAABAAAABGl0ZW0CAAAAFlJlcMO6YmxpY2EgZGVsIEVjdWFkb3IBAAAAEGdldEtleVByb2plY3REZXYAAAABAAAACHN1cHBsaWVyAgAAABxGdW5kYWNpw7NuIEVjb2zDs2dpY2EgJ05BU0UnAQAAABJnZXRWYWx1ZVByb2plY3REZXYAAAABAAAACHN1cHBsaWVyCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAQZ2V0S2V5UHJvamVjdERldgAAAAEFAAAACHN1cHBsaWVyAQAAABNnZXRLZXlUb2tlblN0YXJ0UXR5AAAAAQAAAARpdGVtAgAAABQxNTY5MyB0b2tlbnMgQml0LUNPMgEAAAATZ2V0S2V5Tm9tVG9rZW5QcmljZQAAAAEAAAAEaXRlbQIAAAALMTAuMDAgRXVyb3MBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQAAAARpdGVtAgAAAAZfd2F2ZXMBAAAAGWdldFZhbHVlSXRlbVByaWNlU3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAEmdldEtleU1heERlc2N1ZW50bwAAAAEAAAAEaXRlbQIAAAAsMTIuMDAlIGRlbCBQcmVjaW8gTm9taW5hbCBkZSAxIHRva2VuIEJpdC1DTzIBAAAAE2dldEtleU1pblRva2VuUHJpY2UAAAABAAAABGl0ZW0CAAAAHjguODAgRXVyb3MgcG9yIDEgdG9rZW4gQml0LUNPMgEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0CAAAACk9yZGVyX+KEljoBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAR1c2VyBQAAAARpdGVtAQAAAA5nZXRLZXlVc2VyTmFtZQAAAAEAAAAEaXRlbQIAAAATTm9tYnJlIGRlbCBVc3VhcmlvOgEAAAAQZ2V0VmFsdWVVc2VyTmFtZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleVVzZXJOYW1lAAAAAQUAAAAEaXRlbQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQAAAARpdGVtAgAAADnihJYgZGUgRG9jdW1lbnRvIE5hY2lvbmFsIGRlIElkZW50aWRhZCAvIEROSSBkZWwgVXN1YXJpbzoBAAAAFGdldFZhbHVlVXNlckRvY3VtZW50AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQEAAAARZ2V0S2V5VXNlckNvdW50cnkAAAABAAAABGl0ZW0CAAAAIFBhw61zIGRlIFJlc2lkZW5jaWEgZGVsIFVzdWFyaW86AQAAABNnZXRWYWx1ZVVzZXJDb3VudHJ5AAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAARZ2V0S2V5VXNlckNvdW50cnkAAAABBQAAAARpdGVtAQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQAAAARpdGVtAgAAACREZXNjdWVudG8gZWxlamlkbyBwb3IgZWwgVXN1YXJpbywgJToBAAAAGGdldFZhbHVlSXRlbURpc2NvdW50VXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABBQAAAARpdGVtAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAYU3VwcGxpZXJEaXNjb3VudCwgbWF4XyU6AQAAABxnZXRWYWx1ZUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtAgAAACVPcmRlbiBkZSBDb21wcmEsIGNhbnRpZGFkIHNvbGljaXRhZGE6AQAAABhnZXRWYWx1ZUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0CAAAALlRva2VucyBPZmVydGFkb3MgZW4gbGEgcHJlc2VudGUgZXRhcGEgLyBTYWxkbzoBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAWQmFsYW5jZS9TYWxkbywgdG9rZW5zOgEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAAChJbmdyZXNvcyBwb3IgVmVudGEgRGlyZWN0YSAvIEJsb2NrQ2hhaW46AQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgEAAAAIZ2V0S2V5VUkAAAABAAAABGl0ZW0CAAAACFVJLF93dnM6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAGUEksXyU6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAGU0ksXyU6AQAAAApnZXRWYWx1ZVNJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtRGF0YQAAAAEAAAAEaXRlbQIAAAANZGVzY3JpcHRpb246IAAAAAYAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHeEJpdENPMgkAAAIAAAABAgAAAClkZXBvc2l0byBwZXJtaXRpZG8gc29sbyBlbiB4Qml0Q08yIHRva2VucwQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAcTm8gaGF5IHhCaXRDTzIgZW4gc3UgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAACHB1cmNoYXNlAAAABQAAAARpdGVtAAAACHVzZXJOYW1lAAAAC3VzZXJDb3VudHJ5AAAADHVzZXJEaXNjb3VudAAAAAhvcmRlclF0eQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAAbUVuIGxhIHByZXNlbnRlIFBsYXN0YWZvcm1hIFVkLiBwdWVkZSBhZHF1aXJpciBzdXMgdG9rZW5zIHhCaXRDTzIgdXNhbmRvIFdhdmVzS2VlcGVyIHkgc3UgdG9rZW4gZGUgcGFnbyBXYXZlcy4EAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAABFjdXJyZW50VG9rZW5QcmljZQkAAGkAAAACCQAAaAAAAAIJAABoAAAAAgkAAGUAAAACAAAAAAAAAABkBQAAAAx1c2VyRGlzY291bnQFAAAACG5vbVByaWNlBQAAAAN3dnMAAAAAAAAAAGQEAAAAC3RvdGFsQW1vdW50CQAAaAAAAAIFAAAACG9yZGVyUXR5BQAAABFjdXJyZW50VG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAEVRpcG8gZGUgUHJveWVjdG86AgAAABtSZXNlcnZhIEZvcmVzdGFsIEFtYXrDs25pY2EJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAC0NhdGVnb3LDrWE6AgAAABdFbWlzacOzbiBkZSBDTzIgRXZpdGFkYQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAARUGHDrXMvVWJpY2FjacOzbjoCAAAAFlJlcMO6YmxpY2EgZGVsIEVjdWFkb3IJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAFE5vbWJyZSBkZWwgUHJveWVjdG86AgAAACBSZXNlcnZhIEFtYXrDs25pY2EgQWNodWFyLUthcGF3aQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAIQ8OzZGlnbzoCAAAAGzAxLUVDL1NHVCAtIEFDSFVBUktBUEFXSS0wMQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAHRW1pc29yOgIAAAAXQ29tdW5pZGFkIEFjaHVhciBLYXBhd2kJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAGkRlc2Fycm9sbGFkb3IvUmVzcG9uc2FibGU6AgAAABxGdW5kYWNpw7NuIEVjb2zDs2dpY2EgJ05BU0UnCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAB1FdGFwYXMgZGVsIFByb3llY3RvLCBQcmUtSUNPOgIAAAAIMiBFdGFwYXMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAI0V0YXBhcyBkZWwgUHJveWVjdG8sIGVuIEVqZWN1Y2nDs246AgAAABpBIERlZmluaXIsIEZ1bmRhY2nDs24gUkVERAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAABAQ2FudGlkYWQgVG90YWwgZGUgVG9rZW5zIEJpdC1DTzIgYSBFbWl0aXIsIEkgeSBJSSBFdGFwYSBQcmUtSUNPOgIAAAAGMzA1NjkzCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACBQcmVjaW8gTm9taW5hbCwgMSB0b2tlbiBCaXQtQ08yOgIAAAALMTAuMDAgRXVyb3MJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAJE3DoXhpbW8gRGVzY3VlbnRvIE9mcmVjaWRvLCBJIEV0YXBhOgIAAAAFMTIuMDAJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAmVG90YWwgdG9rZW5zIGVtaXRpZG9zLCBJIEV0YXBhIFByZS1JQ08FAAAACHN0YXJ0UXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQUAAAAEaXRlbQUAAAALdXNlckNvdW50cnkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQUAAAAEaXRlbQUAAAAMdXNlckRpc2NvdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0FAAAACG9yZGVyUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABh0b2tlblByaWNlL1N1cHBsaWVyLCB3dnMJAABoAAAAAgUAAAAIbm9tUHJpY2UFAAAAA3d2cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAUdG9rZW5QcmljZS9Vc2VyLCB3dnMFAAAAEWN1cnJlbnRUb2tlblByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABhpbnZlc3RlZEFtb3VudC9Vc2VyLCB3dnMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABVwdXJjaGFzZU9yZGVyL1N0YXR1czoCAAAAGsKhQWRxdWlzaWNpw7NuIENvbmZpcm1hZGEhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAACG9yZGVyUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAARpdGVtAgAAACNSZXNlcnZhIEZvcmVzdGFsIEFtYXrDs25pY2EgUHJ1ZWJhMQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQEAAAAUZ2V0VmFsdWVJdGVtU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAALdXNlckFkZHJlc3MFAAAACG9yZGVyUXR5BQAAAAd4Qml0Q08yBQAAAANuaWwAAAABaQEAAAAQQWRkU3VwcGxpZXJUb2tlbgAAAAYAAAAFdGl0bGUAAAAEbmFtZQAAAAdjb3VudHJ5AAAACXByZUljb1F0eQAAABBzdXBwbGllckRpc2NvdW50AAAADHN1cHBsaWVyRGF0YQQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAEaXRlbQkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUDCQAAZwAAAAIAAAAAAAAAAAAFAAAACXByZUljb1F0eQkAAAIAAAABAgAAAB9Tb3JyeSwgaW5zdWZmaWNpZW50IHRva2VuIG9mZmVyCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAClN1cHBsaWVyOl8JAQAAABBnZXRLZXlQcm9qZWN0RGV2AAAAAQUAAAAEaXRlbQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAHVGl0bGU6XwUAAAAIc3VwcGxpZXIFAAAABXRpdGxlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADVByb2plY3ROYW1lOl8FAAAACHN1cHBsaWVyBQAAAARuYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACUNvdW50cnk6XwUAAAAIc3VwcGxpZXIFAAAAB2NvdW50cnkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAlwcmVJY29RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAPTm9tVG9rZW5QcmljZTpfCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtCQAAaAAAAAIFAAAACG5vbVByaWNlBQAAAAN3dnMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAXTWF4X0Rlc2N1ZW50b19vZnJlY2lkbzoJAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAAEHN1cHBsaWVyRGlzY291bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAANRGV2ZWxvcG1lbnQ6XwkBAAAADmdldEtleUl0ZW1EYXRhAAAAAQUAAAAEaXRlbQUAAAAMc3VwcGxpZXJEYXRhBQAAAANuaWwAAAABaQEAAAALcHVyY2hhc2VHVFMAAAAEAAAABGl0ZW0AAAAIdXNlck5hbWUAAAAMdXNlckRvY3VtZW50AAAAC3RvdGFsQW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAWRWwgUHJlY2lvIGRlIGxvcyBhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1YlRvdGFsCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50CQAAaQAAAAIJAABoAAAAAgUAAAADaWd2BQAAAAt0b3RhbEFtb3VudAAAAAAAAAAAZAQAAAACdUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADdUlQAAAAAAAAAABkBAAAAAN1QkkJAABpAAAAAgUAAAACdUkFAAAAA2NQQgQAAAACcEkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADcElQAAAAAAAAAABkBAAAAAJlSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlSVAAAAAAAAAAAGQEAAAAA2VCSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlSVAJAABoAAAAAgUAAAADY1BCAAAAAAAAAABkBAAAAAJzSQkAAGUAAAACCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAJwSQUAAAACZUkEAAAAA3NCSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANzSVAJAABoAAAAAgUAAAADY1BCAAAAAAAAAABkAwkAAGYAAAACBQAAAAt0b3RhbEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAA1UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgbGVzcyB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIDCQAAZgAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAAt0b3RhbEFtb3VudAkAAAIAAAABAgAAADdQYXltZW50IEFtb3VudCBjYW4ndCBiZSBoaWdoZXIgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtCQAAZAAAAAIJAQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5VXNlck5hbWUAAAABBQAAAARpdGVtBQAAAAh1c2VyTmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAATUGF5bWVudF9hbW91bnQsX3d2cwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABkltcCwgJQUAAAADaWd2CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAlTVHRsLCB3dnMFAAAACHN1YlRvdGFsCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAtDUCAxIEIsIHd2cwkAAGgAAAACBQAAAANjUEIAAAAAAAAPQkAJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0FAAAAAnVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAANVQkkFAAAAA3VCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQUAAAACcEkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABUVjU3lzBQAAAANlQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAABhBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0FAAAAAnNJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZTQkk6IGIFAAAAA3NCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAA3VCSQUAAAAHeEJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARwQWRkBQAAAAJwSQUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZpc3N1ZXIFAAAAAnNJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAADc0JJBQAAAAd4Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAAmVJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABGVBZGQFAAAAA2VCSQUAAAAHeEJpdENPMgUAAAADbmlsAAAAAWkBAAAADkFkZFZlbmRlZG9yR1RTAAAABgAAAAV0aXRsZQAAAARuYW1lAAAAB2NvdW50cnkAAAAJcHJlSWNvUXR5AAAAEHN1cHBsaWVyRGlzY291bnQAAAAMc3VwcGxpZXJEYXRhBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAARpdGVtCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJcHJlSWNvUXR5CQAAAgAAAAECAAAAH1NvcnJ5LCBpbnN1ZmZpY2llbnQgdG9rZW4gb2ZmZXIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAKU3VwcGxpZXI6XwkBAAAAEGdldEtleVByb2plY3REZXYAAAABBQAAAARpdGVtBQAAAAhzdXBwbGllcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAdUaXRsZTpfBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAANUHJvamVjdE5hbWU6XwUAAAAIc3VwcGxpZXIFAAAABG5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAJQ291bnRyeTpfBQAAAAhzdXBwbGllcgUAAAAHY291bnRyeQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACXByZUljb1F0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA9Ob21Ub2tlblByaWNlOl8JAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABoAAAAAgUAAAAIbm9tUHJpY2UFAAAAA3d2cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABdNYXhfRGVzY3VlbnRvX29mcmVjaWRvOgkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAQc3VwcGxpZXJEaXNjb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA1EZXZlbG9wbWVudDpfCQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABBQAAAARpdGVtBQAAAAxzdXBwbGllckRhdGEFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAArRWwgYmFsYW5jZSBkZSByZXRpcm8gbm8gcHVlZGUgc2VyIG5lZ2F0aXZvIQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAHk9vcHBzcy4uIEluc3VmaWNpZW50ZSBiYWxhbmNlIQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAd4Qml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAAtPd25lclB1YktleQMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgYJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAASUmVpc3N1ZVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNFeGNoYW5nZVRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAQAAAAJd2l0aFdhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAApwcmljZUFzc2V0BgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAAthbW91bnRBc3NldAUAAAAJd2l0aFdhdmVzB5umFkM=",
    "chainId": 84,
    "height": 1116118,
    "spentComplexity": 0
}

View: original | compacted
Prev: 81epmhosU1kesfkWSuZdwgNqwDP1ybmYmtDAXW7orYAw
Next: 7uLudroUjddKrPFEeLUw9UqVXJm3d99mcikKdWaavT9v

Diff: 
Old New Differences
55 55      }
56 56  
57 57  
58 - func getKeyItem (supplier,title) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + title)))))
58 + func getKeyItem (supplier,item) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + item)))))
59 59  
60 60  
61 61  func getKeyItemSupplier (supplier) = (supplier + "Comunidad Achuar Kapawi del Ecuador")
240 240                  then throw("Payment Amount can't be less than item Purchase Order")
241 241                  else if ((pmt.amount > totalAmount))
242 242                      then throw("Payment Amount can't be higher than item Purchase Order")
243 -                     else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total Tokens Emitidos, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry("Cuenta del Proyecto en BlockChain:", base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
243 +                     else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total tokens emitidos, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry(getKeyItem(supplier, item), "Reserva Forestal Amazónica Prueba1"), DataEntry(getKeyItemSupplier(supplier), getValueItemSupplier(supplier))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
244 244              }
245 245      }
246 246  
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 nomPrice = 1
9 9  
10 10  let wvs = 100000000
11 11  
12 12  let supplierDiscount = 12
13 13  
14 14  let NONE = "none"
15 15  
16 16  let OwnerPubKey = base58'6tctCnkRasXYuZWRpzZz9ogLri6aifJ19LTtx9uFQv67'
17 17  
18 18  let issuer = Address(base58'3Mvn8oonnpiasA3bkq36N9qeqqXWfFW437o')
19 19  
20 20  let eAdd = Address(base58'3MvrQGkHQtyLTC2QXgPnQ6oCEWhHyUJpU4q')
21 21  
22 22  let pAdd = Address(base58'3N5v9ndbkGSWy1SfeJSz94tYU8qVNTUJV2q')
23 23  
24 24  let igv = 18
25 25  
26 26  let cPB = 88
27 27  
28 28  let uIP = 5
29 29  
30 30  let pIP = 10
31 31  
32 32  let sIP = 1
33 33  
34 34  let eIP = 1
35 35  
36 36  func getNumberByKey (key) = {
37 37      let num =     match getInteger(this, key) {
38 38          case a: Int => 
39 39              a
40 40          case _ => 
41 41              0
42 42      }
43 43      num
44 44      }
45 45  
46 46  
47 47  func getStrByKey (key) = {
48 48      let str =     match getString(this, key) {
49 49          case a: String => 
50 50              a
51 51          case _ => 
52 52              NONE
53 53      }
54 54      str
55 55      }
56 56  
57 57  
58 - func getKeyItem (supplier,title) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + title)))))
58 + func getKeyItem (supplier,item) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + item)))))
59 59  
60 60  
61 61  func getKeyItemSupplier (supplier) = (supplier + "Comunidad Achuar Kapawi del Ecuador")
62 62  
63 63  
64 64  func getValueItemSupplier (supplier) = getStrByKey(getKeyItemSupplier(supplier))
65 65  
66 66  
67 67  func getKeyProjectCode (projectCode) = "01-EC/SGT - ACHUARKAPAWI-01"
68 68  
69 69  
70 70  func getKeyProjectName (projectName) = "Reserva Amazónica Achuar-Kapawi"
71 71  
72 72  
73 73  func getValueProjectName (projectName) = getStrByKey(getKeyProjectName(projectName))
74 74  
75 75  
76 76  func getKeyProjectEtapa (projectAddress) = "AchuarKapawi, I Etapa: PreICO"
77 77  
78 78  
79 79  func getValueProjectEtapa (projectAddress) = getStrByKey(getKeyProjectEtapa(projectAddress))
80 80  
81 81  
82 82  func getKeyProjectCountry (item) = "República del Ecuador"
83 83  
84 84  
85 85  func getKeyProjectDev (supplier) = "Fundación Ecológica 'NASE'"
86 86  
87 87  
88 88  func getValueProjectDev (supplier) = getStrByKey(getKeyProjectDev(supplier))
89 89  
90 90  
91 91  func getKeyTokenStartQty (item) = "15693 tokens Bit-CO2"
92 92  
93 93  
94 94  func getKeyNomTokenPrice (item) = "10.00 Euros"
95 95  
96 96  
97 97  func getKeyItemPriceSupplier (item) = "_waves"
98 98  
99 99  
100 100  func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
101 101  
102 102  
103 103  func getKeyMaxDescuento (item) = "12.00% del Precio Nominal de 1 token Bit-CO2"
104 104  
105 105  
106 106  func getKeyMinTokenPrice (item) = "8.80 Euros por 1 token Bit-CO2"
107 107  
108 108  
109 109  func getKeyUserItemCounter (user,item) = "Order_№:"
110 110  
111 111  
112 112  func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
113 113  
114 114  
115 115  func getKeyUserName (item) = "Nombre del Usuario:"
116 116  
117 117  
118 118  func getValueUserName (item) = getStrByKey(getKeyUserName(item))
119 119  
120 120  
121 121  func getKeyUserDocument (item) = "№ de Documento Nacional de Identidad / DNI del Usuario:"
122 122  
123 123  
124 124  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
125 125  
126 126  
127 127  func getKeyUserCountry (item) = "País de Residencia del Usuario:"
128 128  
129 129  
130 130  func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
131 131  
132 132  
133 133  func getKeyItemDiscountUser (item) = "Descuento elejido por el Usuario, %:"
134 134  
135 135  
136 136  func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
137 137  
138 138  
139 139  func getKeyItemDiscountSupplier (item) = "SupplierDiscount, max_%:"
140 140  
141 141  
142 142  func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
143 143  
144 144  
145 145  func getKeyItemUserOrderQty (item) = "Orden de Compra, cantidad solicitada:"
146 146  
147 147  
148 148  func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
149 149  
150 150  
151 151  func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo:"
152 152  
153 153  
154 154  func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
155 155  
156 156  
157 157  func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
158 158  
159 159  
160 160  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
161 161  
162 162  
163 163  func getKeyBalanceSupplier (supplier) = "Ingresos por Venta Directa / BlockChain:"
164 164  
165 165  
166 166  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
167 167  
168 168  
169 169  func getKeyUI (item) = "UI,_wvs:"
170 170  
171 171  
172 172  func getValueUI (item) = getNumberByKey(getKeyUI(item))
173 173  
174 174  
175 175  func getKeyPI (item) = "PI,_%:"
176 176  
177 177  
178 178  func getValuePI (item) = getNumberByKey(getKeyPI(item))
179 179  
180 180  
181 181  func getKeySI (item) = "SI,_%:"
182 182  
183 183  
184 184  func getValueSI (item) = getNumberByKey(getKeySI(item))
185 185  
186 186  
187 187  func getKeyItemData (item) = "description: "
188 188  
189 189  
190 190  @Callable(i)
191 191  func deposit (title,supplierData) = {
192 192      let pmt = extract(i.payment)
193 193      if ((pmt.assetId != xBitCO2))
194 194          then throw("deposito permitido solo en xBitCO2 tokens")
195 195          else {
196 196              let supplier = toBase58String(i.caller.bytes)
197 197              let currentAmount =             match getInteger(this, supplier) {
198 198                  case a: Int => 
199 199                      a
200 200                  case _ => 
201 201                      startQty
202 202              }
203 203              let newAmount = (currentAmount + pmt.amount)
204 204              if ((0 >= newAmount))
205 205                  then throw("No hay xBitCO2 en su balance")
206 206                  else WriteSet([DataEntry(supplier, newAmount)])
207 207              }
208 208      }
209 209  
210 210  
211 211  
212 212  @Callable(i)
213 213  func purchase (item,userName,userCountry,userDiscount,orderQty) = {
214 214      let pmt = extract(i.payment)
215 215      if (isDefined(pmt.assetId))
216 216          then throw("En la presente Plastaforma Ud. puede adquirir sus tokens xBitCO2 usando WavesKeeper y su token de pago Waves.")
217 217          else {
218 218              let supplier =             match getString(this, getKeyItemSupplier(item)) {
219 219                  case a: String => 
220 220                      a
221 221                  case _ => 
222 222                      NONE
223 223              }
224 224              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
225 225                  case a: Int => 
226 226                      a
227 227                  case _ => 
228 228                      startQty
229 229              }
230 230              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
231 231                  case a: Int => 
232 232                      a
233 233                  case _ => 
234 234                      0
235 235              }
236 236              let userAddress = toBase58String(i.caller.bytes)
237 237              let currentTokenPrice = ((((100 - userDiscount) * nomPrice) * wvs) / 100)
238 238              let totalAmount = (orderQty * currentTokenPrice)
239 239              if ((totalAmount > pmt.amount))
240 240                  then throw("Payment Amount can't be less than item Purchase Order")
241 241                  else if ((pmt.amount > totalAmount))
242 242                      then throw("Payment Amount can't be higher than item Purchase Order")
243 -                     else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total Tokens Emitidos, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry("Cuenta del Proyecto en BlockChain:", base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
243 +                     else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total tokens emitidos, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry(getKeyItem(supplier, item), "Reserva Forestal Amazónica Prueba1"), DataEntry(getKeyItemSupplier(supplier), getValueItemSupplier(supplier))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
244 244              }
245 245      }
246 246  
247 247  
248 248  
249 249  @Callable(i)
250 250  func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
251 251      let supplier = toBase58String(i.caller.bytes)
252 252      let item = getKeyItem(supplier, title)
253 253      if ((0 >= preIcoQty))
254 254          then throw("Sorry, insufficient token offer")
255 255          else WriteSet([DataEntry(("Supplier:_" + getKeyProjectDev(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
256 256      }
257 257  
258 258  
259 259  
260 260  @Callable(i)
261 261  func purchaseGTS (item,userName,userDocument,totalAmount) = {
262 262      let pmt = extract(i.payment)
263 263      if (isDefined(pmt.assetId))
264 264          then throw("El Precio de los aves.")
265 265          else {
266 266              let supplier =             match getString(this, getKeyItemSupplier(item)) {
267 267                  case a: String => 
268 268                      a
269 269                  case _ => 
270 270                      NONE
271 271              }
272 272              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
273 273                  case a: Int => 
274 274                      a
275 275                  case _ => 
276 276                      startQty
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 uI = ((subTotal * uIP) / 100)
287 287              let uBI = (uI / cPB)
288 288              let pI = ((subTotal * pIP) / 100)
289 289              let eI = ((subTotal * eIP) / 100)
290 290              let eBI = ((subTotal * eIP) / (cPB * 100))
291 291              let sI = ((totalAmount - pI) - eI)
292 292              let sBI = ((subTotal * sIP) / (cPB * 100))
293 293              if ((totalAmount > pmt.amount))
294 294                  then throw("Payment Amount can't be less than item Purchase Order")
295 295                  else if ((pmt.amount > totalAmount))
296 296                      then throw("Payment Amount can't be higher than item Purchase Order")
297 297                      else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), 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(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), 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)]))
298 298              }
299 299      }
300 300  
301 301  
302 302  
303 303  @Callable(i)
304 304  func AddVendedorGTS (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
305 305      let supplier = toBase58String(i.caller.bytes)
306 306      let item = getKeyItem(supplier, title)
307 307      if ((0 >= preIcoQty))
308 308          then throw("Sorry, insufficient token offer")
309 309          else WriteSet([DataEntry(("Supplier:_" + getKeyProjectDev(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
310 310      }
311 311  
312 312  
313 313  
314 314  @Callable(i)
315 315  func withdraw (item,amount) = {
316 316      let userAddress = toBase58String(i.caller.bytes)
317 317      let supplier =     match getString(this, getKeyItemSupplier(item)) {
318 318          case a: String => 
319 319              a
320 320          case _ => 
321 321              NONE
322 322      }
323 323      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
324 324          case a: Int => 
325 325              a
326 326          case _ => 
327 327              startQty
328 328      }
329 329      let newAmount = (preIcoQty - amount)
330 330      if ((0 > amount))
331 331          then throw("El balance de retiro no puede ser negativo!")
332 332          else if ((0 >= newAmount))
333 333              then throw("Ooppss.. Insuficiente balance!")
334 334              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, xBitCO2)]))
335 335      }
336 336  
337 337  
338 338  @Verifier(tx)
339 339  func verify () = match tx {
340 340      case t: SetScriptTransaction => 
341 341          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
342 342      case d: DataTransaction|ReissueTransaction => 
343 343          true
344 344      case tx: TransferTransaction => 
345 345          true
346 346      case tx: ExchangeTransaction => 
347 347          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
348 348              then true
349 349              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
350 350          withWaves
351 351      case _ => 
352 352          false
353 353  }
354 354

Old	New		Differences
55	55		}
56	56
57	57
58		-	func getKeyItem (supplier,~~title~~) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + ~~title~~)))))
	58	+	func getKeyItem (supplier,item) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + item)))))
59	59
60	60
61	61		func getKeyItemSupplier (supplier) = (supplier + "Comunidad Achuar Kapawi del Ecuador")

240	240		then throw("Payment Amount can't be less than item Purchase Order")
241	241		else if ((pmt.amount > totalAmount))
242	242		then throw("Payment Amount can't be higher than item Purchase Order")
243		-	else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total ~~Tokens Emitidos~~, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry(~~"Cuenta del Proyecto en BlockChain:"~~, ~~base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4'~~)]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
	243	+	else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total tokens emitidos, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry(getKeyItem(supplier, item), "Reserva Forestal Amazónica Prueba1"), DataEntry(getKeyItemSupplier(supplier), getValueItemSupplier(supplier))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
244	244		}
245	245		}
246	246

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 nomPrice = 1
9	9
10	10		let wvs = 100000000
11	11
12	12		let supplierDiscount = 12
13	13
14	14		let NONE = "none"
15	15
16	16		let OwnerPubKey = base58'6tctCnkRasXYuZWRpzZz9ogLri6aifJ19LTtx9uFQv67'
17	17
18	18		let issuer = Address(base58'3Mvn8oonnpiasA3bkq36N9qeqqXWfFW437o')
19	19
20	20		let eAdd = Address(base58'3MvrQGkHQtyLTC2QXgPnQ6oCEWhHyUJpU4q')
21	21
22	22		let pAdd = Address(base58'3N5v9ndbkGSWy1SfeJSz94tYU8qVNTUJV2q')
23	23
24	24		let igv = 18
25	25
26	26		let cPB = 88
27	27
28	28		let uIP = 5
29	29
30	30		let pIP = 10
31	31
32	32		let sIP = 1
33	33
34	34		let eIP = 1
35	35
36	36		func getNumberByKey (key) = {
37	37		let num = match getInteger(this, key) {
38	38		case a: Int =>
39	39		a
40	40		case _ =>
41	41		0
42	42		}
43	43		num
44	44		}
45	45
46	46
47	47		func getStrByKey (key) = {
48	48		let str = match getString(this, key) {
49	49		case a: String =>
50	50		a
51	51		case _ =>
52	52		NONE
53	53		}
54	54		str
55	55		}
56	56
57	57
58		-	func getKeyItem (supplier,~~title~~) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + ~~title~~)))))
	58	+	func getKeyItem (supplier,item) = ("Reserva Forestal Amazónica" + toBase58String(sha256(toBytes((supplier + item)))))
59	59
60	60
61	61		func getKeyItemSupplier (supplier) = (supplier + "Comunidad Achuar Kapawi del Ecuador")
62	62
63	63
64	64		func getValueItemSupplier (supplier) = getStrByKey(getKeyItemSupplier(supplier))
65	65
66	66
67	67		func getKeyProjectCode (projectCode) = "01-EC/SGT - ACHUARKAPAWI-01"
68	68
69	69
70	70		func getKeyProjectName (projectName) = "Reserva Amazónica Achuar-Kapawi"
71	71
72	72
73	73		func getValueProjectName (projectName) = getStrByKey(getKeyProjectName(projectName))
74	74
75	75
76	76		func getKeyProjectEtapa (projectAddress) = "AchuarKapawi, I Etapa: PreICO"
77	77
78	78
79	79		func getValueProjectEtapa (projectAddress) = getStrByKey(getKeyProjectEtapa(projectAddress))
80	80
81	81
82	82		func getKeyProjectCountry (item) = "República del Ecuador"
83	83
84	84
85	85		func getKeyProjectDev (supplier) = "Fundación Ecológica 'NASE'"
86	86
87	87
88	88		func getValueProjectDev (supplier) = getStrByKey(getKeyProjectDev(supplier))
89	89
90	90
91	91		func getKeyTokenStartQty (item) = "15693 tokens Bit-CO2"
92	92
93	93
94	94		func getKeyNomTokenPrice (item) = "10.00 Euros"
95	95
96	96
97	97		func getKeyItemPriceSupplier (item) = "_waves"
98	98
99	99
100	100		func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
101	101
102	102
103	103		func getKeyMaxDescuento (item) = "12.00% del Precio Nominal de 1 token Bit-CO2"
104	104
105	105
106	106		func getKeyMinTokenPrice (item) = "8.80 Euros por 1 token Bit-CO2"
107	107
108	108
109	109		func getKeyUserItemCounter (user,item) = "Order_№:"
110	110
111	111
112	112		func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
113	113
114	114
115	115		func getKeyUserName (item) = "Nombre del Usuario:"
116	116
117	117
118	118		func getValueUserName (item) = getStrByKey(getKeyUserName(item))
119	119
120	120
121	121		func getKeyUserDocument (item) = "№ de Documento Nacional de Identidad / DNI del Usuario:"
122	122
123	123
124	124		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
125	125
126	126
127	127		func getKeyUserCountry (item) = "País de Residencia del Usuario:"
128	128
129	129
130	130		func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
131	131
132	132
133	133		func getKeyItemDiscountUser (item) = "Descuento elejido por el Usuario, %:"
134	134
135	135
136	136		func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
137	137
138	138
139	139		func getKeyItemDiscountSupplier (item) = "SupplierDiscount, max_%:"
140	140
141	141
142	142		func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
143	143
144	144
145	145		func getKeyItemUserOrderQty (item) = "Orden de Compra, cantidad solicitada:"
146	146
147	147
148	148		func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
149	149
150	150
151	151		func getKeySaldoTokenQtyStartEtapa (item) = "Tokens Ofertados en la presente etapa / Saldo:"
152	152
153	153
154	154		func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
155	155
156	156
157	157		func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
158	158
159	159
160	160		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
161	161
162	162
163	163		func getKeyBalanceSupplier (supplier) = "Ingresos por Venta Directa / BlockChain:"
164	164
165	165
166	166		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
167	167
168	168
169	169		func getKeyUI (item) = "UI,_wvs:"
170	170
171	171
172	172		func getValueUI (item) = getNumberByKey(getKeyUI(item))
173	173
174	174
175	175		func getKeyPI (item) = "PI,_%:"
176	176
177	177
178	178		func getValuePI (item) = getNumberByKey(getKeyPI(item))
179	179
180	180
181	181		func getKeySI (item) = "SI,_%:"
182	182
183	183
184	184		func getValueSI (item) = getNumberByKey(getKeySI(item))
185	185
186	186
187	187		func getKeyItemData (item) = "description: "
188	188
189	189
190	190		@Callable(i)
191	191		func deposit (title,supplierData) = {
192	192		let pmt = extract(i.payment)
193	193		if ((pmt.assetId != xBitCO2))
194	194		then throw("deposito permitido solo en xBitCO2 tokens")
195	195		else {
196	196		let supplier = toBase58String(i.caller.bytes)
197	197		let currentAmount = match getInteger(this, supplier) {
198	198		case a: Int =>
199	199		a
200	200		case _ =>
201	201		startQty
202	202		}
203	203		let newAmount = (currentAmount + pmt.amount)
204	204		if ((0 >= newAmount))
205	205		then throw("No hay xBitCO2 en su balance")
206	206		else WriteSet([DataEntry(supplier, newAmount)])
207	207		}
208	208		}
209	209
210	210
211	211
212	212		@Callable(i)
213	213		func purchase (item,userName,userCountry,userDiscount,orderQty) = {
214	214		let pmt = extract(i.payment)
215	215		if (isDefined(pmt.assetId))
216	216		then throw("En la presente Plastaforma Ud. puede adquirir sus tokens xBitCO2 usando WavesKeeper y su token de pago Waves.")
217	217		else {
218	218		let supplier = match getString(this, getKeyItemSupplier(item)) {
219	219		case a: String =>
220	220		a
221	221		case _ =>
222	222		NONE
223	223		}
224	224		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
225	225		case a: Int =>
226	226		a
227	227		case _ =>
228	228		startQty
229	229		}
230	230		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
231	231		case a: Int =>
232	232		a
233	233		case _ =>
234	234		0
235	235		}
236	236		let userAddress = toBase58String(i.caller.bytes)
237	237		let currentTokenPrice = ((((100 - userDiscount) * nomPrice) * wvs) / 100)
238	238		let totalAmount = (orderQty * currentTokenPrice)
239	239		if ((totalAmount > pmt.amount))
240	240		then throw("Payment Amount can't be less than item Purchase Order")
241	241		else if ((pmt.amount > totalAmount))
242	242		then throw("Payment Amount can't be higher than item Purchase Order")
243		-	else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total ~~Tokens Emitidos~~, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry(~~"Cuenta del Proyecto en BlockChain:"~~, ~~base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4'~~)]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
	243	+	else ScriptResult(WriteSet([DataEntry("Tipo de Proyecto:", "Reserva Forestal Amazónica"), DataEntry("Categoría:", "Emisión de CO2 Evitada"), DataEntry("País/Ubicación:", "República del Ecuador"), DataEntry("Nombre del Proyecto:", "Reserva Amazónica Achuar-Kapawi"), DataEntry("Código:", "01-EC/SGT - ACHUARKAPAWI-01"), DataEntry("Emisor:", "Comunidad Achuar Kapawi"), DataEntry("Desarrollador/Responsable:", "Fundación Ecológica 'NASE'"), DataEntry("Etapas del Proyecto, Pre-ICO:", "2 Etapas"), DataEntry("Etapas del Proyecto, en Ejecución:", "A Definir, Fundación REDD"), DataEntry("Cantidad Total de Tokens Bit-CO2 a Emitir, I y II Etapa Pre-ICO:", "305693"), DataEntry("Precio Nominal, 1 token Bit-CO2:", "10.00 Euros"), DataEntry("Máximo Descuento Ofrecido, I Etapa:", "12.00"), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry("Total tokens emitidos, I Etapa Pre-ICO", startQty), DataEntry(getKeyUserName(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemDiscountUser(item), userDiscount), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("tokenPrice/Supplier, wvs", (nomPrice * wvs)), DataEntry("tokenPrice/User, wvs", currentTokenPrice), DataEntry("investedAmount/User, wvs", totalAmount), DataEntry("purchaseOrder/Status:", "¡Adquisición Confirmada!"), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (preIcoQty - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount)), DataEntry(getKeyItem(supplier, item), "Reserva Forestal Amazónica Prueba1"), DataEntry(getKeyItemSupplier(supplier), getValueItemSupplier(supplier))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, xBitCO2)]))
244	244		}
245	245		}
246	246
247	247
248	248
249	249		@Callable(i)
250	250		func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
251	251		let supplier = toBase58String(i.caller.bytes)
252	252		let item = getKeyItem(supplier, title)
253	253		if ((0 >= preIcoQty))
254	254		then throw("Sorry, insufficient token offer")
255	255		else WriteSet([DataEntry(("Supplier:_" + getKeyProjectDev(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
256	256		}
257	257
258	258
259	259
260	260		@Callable(i)
261	261		func purchaseGTS (item,userName,userDocument,totalAmount) = {
262	262		let pmt = extract(i.payment)
263	263		if (isDefined(pmt.assetId))
264	264		then throw("El Precio de los aves.")
265	265		else {
266	266		let supplier = match getString(this, getKeyItemSupplier(item)) {
267	267		case a: String =>
268	268		a
269	269		case _ =>
270	270		NONE
271	271		}
272	272		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
273	273		case a: Int =>
274	274		a
275	275		case _ =>
276	276		startQty
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 uI = ((subTotal * uIP) / 100)
287	287		let uBI = (uI / cPB)
288	288		let pI = ((subTotal * pIP) / 100)
289	289		let eI = ((subTotal * eIP) / 100)
290	290		let eBI = ((subTotal * eIP) / (cPB * 100))
291	291		let sI = ((totalAmount - pI) - eI)
292	292		let sBI = ((subTotal * sIP) / (cPB * 100))
293	293		if ((totalAmount > pmt.amount))
294	294		then throw("Payment Amount can't be less than item Purchase Order")
295	295		else if ((pmt.amount > totalAmount))
296	296		then throw("Payment Amount can't be higher than item Purchase Order")
297	297		else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), 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(("Order_Status:_" + userAddress), "Adquisición Confirmada!"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), 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)]))
298	298		}
299	299		}
300	300
301	301
302	302
303	303		@Callable(i)
304	304		func AddVendedorGTS (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
305	305		let supplier = toBase58String(i.caller.bytes)
306	306		let item = getKeyItem(supplier, title)
307	307		if ((0 >= preIcoQty))
308	308		then throw("Sorry, insufficient token offer")
309	309		else WriteSet([DataEntry(("Supplier:_" + getKeyProjectDev(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
310	310		}
311	311
312	312
313	313
314	314		@Callable(i)
315	315		func withdraw (item,amount) = {
316	316		let userAddress = toBase58String(i.caller.bytes)
317	317		let supplier = match getString(this, getKeyItemSupplier(item)) {
318	318		case a: String =>
319	319		a
320	320		case _ =>
321	321		NONE
322	322		}
323	323		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
324	324		case a: Int =>
325	325		a
326	326		case _ =>
327	327		startQty
328	328		}
329	329		let newAmount = (preIcoQty - amount)
330	330		if ((0 > amount))
331	331		then throw("El balance de retiro no puede ser negativo!")
332	332		else if ((0 >= newAmount))
333	333		then throw("Ooppss.. Insuficiente balance!")
334	334		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, xBitCO2)]))
335	335		}
336	336
337	337
338	338		@Verifier(tx)
339	339		func verify () = match tx {
340	340		case t: SetScriptTransaction =>
341	341		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
342	342		case d: DataTransaction\|ReissueTransaction =>
343	343		true
344	344		case tx: TransferTransaction =>
345	345		true
346	346		case tx: ExchangeTransaction =>
347	347		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
348	348		then true
349	349		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
350	350		withWaves
351	351		case _ =>
352	352		false
353	353		}
354	354

github/deemru/w8io/873ac7e 
108.23 ms ◑