w8 · tx · BwA···qiF

tx · BwApNgna8tom13ggdt543uMgWysH1Dvdebv2rB74UqiF

3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8:  -0.01000000 Waves

2021.11.01 23:01 [1772389] smart account 3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BwApNgna8tom13ggdt543uMgWysH1Dvdebv2rB74UqiF",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1635796913941,
    "version": 2,
    "chainId": 84,
    "sender": "3N6D1fPBTu4QuZenU7hKNuxEKsxd13USum8",
    "senderPublicKey": "8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U",
    "proofs": [
        "3eFnFFg1wNnAQhEiLwf2RTxLUvu7LEv7k1Z3hjs8VRU1b2JkuwWXhWULFQ4ctMzr3AuMi61BwALtVofdkPJNHcYZ"
    ],
    "script": "base64:AAIDAAAAAAAAAAwIARIICgYBCAgICAgAAAAtAAAAAAd5Qml0Q08yAQAAACBpjNT/200BfejLeLffs4/BXDw5W+kMeWgNIY5n6ZtLrQAAAAAQVG9rVG9WZW5kZWRvclF0eQAAAAAAAAAnEAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIHYlgUf22Lk37u4at3MrCWteEN5n68yQc4q5Um14SA8PAAAAABZlY3hhY2h4a2FwYXdpeDAxcHJlaWNvCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFU3xPba43MIrTdBzkj1KIh5RJhI+0VJu6nAAAAABxlTTN4TjA4eE4wOHBleHByb2R4YWNBcHB4d3ZzCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUZXtlAwFojd9til2zY8ueY3NTvHmic+ofAAAAAAp0eGFjeE4wOHBlCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFU2H+zv6hoVfC6umL2/Iw6/XNeoYjeAvgKAAAAAApOMDhwZXhwcm9kCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUoSOcBtKbP7i/nEoP0XqHwB6tn5KM3xRVAAAAAAVldXJvdQAAAAAAAAAAdAAAAAAFdXNkbncAAAAAAAAACesAAAAABWJjbzJlAAAAAAAAAYagAAAAAAhiaXRkc2N0bwAAAAAAAAAAAwAAAAADcElQAAAAAAAAAAAKAAAAAANlSVAAAAAAAAAAAAEAAAAAA3VCUAAAAAAAAAAABwAAAAADc0JQAAAAAAAAAAACAAAAAANlQlAAAAAAAAAAAAIAAAAACXJlbGFjZGN0bwAAAAAAAAAACwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAABhnZXRLZXlVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAaZ2V0VmFsdWVVc2VySXRlbUd0c0NvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleVVzZXJJdGVtR3RzQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAAEWdldEtleXByb2plY3ROYW1lAAAAAQAAAARpdGVtAgAAAB5Qcm95ZWN0byBkZSBBcG95byB8IEludmVyc2nDs24BAAAAE2dldFZhbHVlcHJvamVjdE5hbWUAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABFnZXRLZXlwcm9qZWN0TmFtZQAAAAEFAAAABGl0ZW0BAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQIAAAAl4oSWIGRlIERvY3VtZW50byB8IEROSSBkZWwgQ29tcHJhZG9yOgEAAAAUZ2V0VmFsdWVVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtTmFtZQAAAAEAAAAEaXRlbQIAAAAkUHJvZHVjdG8tR1RTIGFkcXVpcmlkbyB8IENhdGVnb3LDrWE6AQAAABBnZXRWYWx1ZUl0ZW1OYW1lAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5SXRlbU5hbWUAAAABBQAAAARpdGVtAQAAAAtnZXRLZXlUTmFtZQAAAAEAAAAEaXRlbQIAAAAWVGllbmRhIHwgVmVuZGVkb3ItR1RTOgEAAAANZ2V0VmFsdWVUTmFtZQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAC2dldEtleVROYW1lAAAAAQUAAAAEaXRlbQEAAAAOZ2V0S2V5U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAGE5vZG8tQWN0aXZvIFBhcnRpY2lwYW50ZQEAAAAIZ2V0S2V5UEkAAAABAAAABGl0ZW0CAAAACVBJLCB3dmxzOgEAAAAKZ2V0VmFsdWVQSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQEAAAAJZ2V0S2V5Tkl3AAAAAQAAAARpdGVtAgAAAApOSXcsIHd2bHM6AQAAAAtnZXRWYWx1ZU5JdwAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACWdldEtleU5JdwAAAAEFAAAABGl0ZW0BAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAABJVSSwgMTBlLTQgYml0LWNvMjoBAAAACmdldFZhbHVlVUkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlVSQAAAAEFAAAABGl0ZW0BAAAACGdldEtleVNJAAAAAQAAAARpdGVtAgAAABJTSSwgMTBlLTQgYml0LWNvMjoBAAAACmdldFZhbHVlU0kAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0BAAAACWdldEtleU5JYgAAAAEAAAAEaXRlbQIAAAATTkliLCAxMGUtNCBiaXQtY28yOgEAAAALZ2V0VmFsdWVOSWIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlOSWIAAAABBQAAAARpdGVtAQAAABBnZXRLZXlCYWxhblRva2VuAAAAAQAAAAZ0aWVuZGECAAAAL1Rva2VucyBlbnRyZWdhZG9zIGRlc2RlIFRpZW5kYTEsIDEwZS00IGJpdC1jbzI6AQAAABJnZXRWYWx1ZUJhbGFuVG9rZW4AAAABAAAABnRpZW5kYQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAEGdldEtleUJhbGFuVG9rZW4AAAABBQAAAAZ0aWVuZGEBAAAAFWdldEtleUJhbGFuY2VQcm95ZWN0bwAAAAEAAAAIcHJveWVjdG8CAAAAMUZvbmRvcyBkZXNkZSBQcm9ncmFtYS0wM2d0cyBwYXJhIEYxIFByZUlDTywgd3ZsczoBAAAAF2dldFZhbHVlQmFsYW5jZVByb3llY3RvAAAAAQAAAAhwcm95ZWN0bwkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VQcm95ZWN0bwAAAAEFAAAACHByb3llY3RvAAAAAQAAAAFpAQAAAAtwdXJjaGFzZUdUUwAAAAYAAAALdG90YWxBbW91bnQAAAAMdXNlckRvY3VtZW50AAAAC3Byb2plY3ROYW1lAAAACGl0ZW1OYW1lAAAABXROYW1lAAAABGl0ZW0EAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAABNFbCBQcmVjaW8gZW4gd2F2ZXMuBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAAOZ2V0S2V5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAABnRpZW5kYQkAAlgAAAABCAUAAAAKdHhhY3hOMDhwZQAAAAVieXRlcwQAAAAMc2FsZG9UaWVuZGExBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABBnZXRLZXlCYWxhblRva2VuAAAAAQUAAAAGdGllbmRhAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAACHByb3llY3RvCQACWAAAAAEIBQAAABZlY3hhY2h4a2FwYXdpeDAxcHJlaWNvAAAABWJ5dGVzBAAAAAlzYWxkb1Byb2oEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VQcm95ZWN0bwAAAAEFAAAACHByb3llY3RvAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1YlRvdGFsBQAAAAt0b3RhbEFtb3VudAQAAAADcEl3CQAAaQAAAAIJAABoAAAAAgUAAAADcElQBQAAAAhzdWJUb3RhbAUAAAAJcmVsYWNkY3RvBAAAAANlSXcJAABpAAAAAgkAAGgAAAACBQAAAANlSVAFAAAACHN1YlRvdGFsBQAAAAlyZWxhY2RjdG8EAAAADWJjbzJtZW5vc2RjdG8JAABpAAAAAgkAAGgAAAACCQAAZQAAAAIAAAAAAAAAAGQFAAAACGJpdGRzY3RvCQAAaAAAAAIFAAAABWV1cm91BQAAAAViY28yZQAAAAAAAAAnEAQAAAAJc3ViVG90YWxiCQAAaQAAAAIJAABpAAAAAgkAAGgAAAACBQAAAAt0b3RhbEFtb3VudAUAAAAFdXNkbncAAAAAAAAAAGQFAAAADWJjbzJtZW5vc2RjdG8EAAAABnRvdGFsYgkAAGgAAAACBQAAAAlzdWJUb3RhbGIAAAAAAAAAJxAEAAAAA3VJYgkAAGkAAAACCQAAaAAAAAIFAAAAA3VCUAUAAAAJc3ViVG90YWxiBQAAAAlyZWxhY2RjdG8EAAAAA3NJYgkAAGkAAAACCQAAaAAAAAIFAAAAA3NCUAUAAAAJc3ViVG90YWxiBQAAAAlyZWxhY2RjdG8EAAAAA2VJYgkAAGkAAAACCQAAaAAAAAIFAAAAA2VCUAUAAAAJc3ViVG90YWxiBQAAAAlyZWxhY2RjdG8DCQAAZwAAAAIFAAAADHNhbGRvVGllbmRhMQkAAGgAAAACBQAAABBUb2tUb1ZlbmRlZG9yUXR5AAAAAAAAACcQCQAAAgAAAAECAAAAQ0xvIHNlbnRpbW9zLCBwb3IgYWhvcmEgbm8gaGF5IG9mZXJ0YSBkZSB0b2tlbnMgcGFyYSBzdSB0cmFuc2FjY2nDs24EAAAACmFtb3VudEJDTzIJAABlAAAAAgkAAGgAAAACBQAAABBUb2tUb1ZlbmRlZG9yUXR5AAAAAAAAACcQBQAAAAxzYWxkb1RpZW5kYTEDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAYZ2V0S2V5VXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAGmdldFZhbHVlVXNlckl0ZW1HdHNDb3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtBQAAAAx1c2VyRG9jdW1lbnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABFnZXRLZXlwcm9qZWN0TmFtZQAAAAEFAAAABGl0ZW0FAAAAC3Byb2plY3ROYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAB9Nb250byBkZSBhcG95byBlY29sw7NnaWNvLCB3dmxzBQAAAAt0b3RhbEFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1OYW1lAAAAAQUAAAAEaXRlbQUAAAAIaXRlbU5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAtnZXRLZXlUTmFtZQAAAAEFAAAABGl0ZW0FAAAABXROYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAARpdGVtCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAR1c2RuBQAAAAV1c2RudwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAFZXVyb3UFAAAABWV1cm91CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACZQcmVjaW8gZGUgMSB0b2tlbiBjb24gZHNjdG8sIDEwZS00IHVzZAUAAAANYmNvMm1lbm9zZGN0bwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAArVG90YWwgZGUgdG9rZW5zIGEgZGlzdHJpYnVpciwgMTBlLTQgYml0LWNvMgUAAAAJc3ViVG90YWxiCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAYVHJhbnNhY2Npw7NuIENvbmZpcm1hZGEhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVByb3llY3RvAAAAAQUAAAAIcHJveWVjdG8JAABkAAAAAgkBAAAAF2dldFZhbHVlQmFsYW5jZVByb3llY3RvAAAAAQUAAAAIcHJveWVjdG8FAAAAA3BJdwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEGdldEtleUJhbGFuVG9rZW4AAAABBQAAAAZ0aWVuZGEJAABkAAAAAgkBAAAAEmdldFZhbHVlQmFsYW5Ub2tlbgAAAAEFAAAABnRpZW5kYQUAAAAJc3ViVG90YWxiCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAClTYWxkbyBkZSB0b2tlbnMgZW4gb2ZlcnRhLCAxMGUtMDQgYml0LWNvMgkAAGUAAAACBQAAAAphbW91bnRCQ08yCQAAZAAAAAIJAABlAAAAAgkBAAAAEmdldFZhbHVlQmFsYW5Ub2tlbgAAAAEFAAAABnRpZW5kYQUAAAAMc2FsZG9UaWVuZGExBQAAAAlzdWJUb3RhbGIFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAABZlY3hhY2h4a2FwYXdpeDAxcHJlaWNvBQAAAANwSXcFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAcZU0zeE4wOHhOMDhwZXhwcm9keGFjQXBweHd2cwUAAAADZUl3BQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAADdUliBQAAAAd5Qml0Q08yCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAACnR4YWN4TjA4cGUFAAAAA3NJYgUAAAAHeUJpdENPMgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAApOMDhwZXhwcm9kBQAAAANlSWIFAAAAB3lCaXRDTzIFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAAC093bmVyUHViS2V5AwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAASUmVpc3N1ZVRyYW5zYWN0aW9uBgkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAAWQFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAYH3qKdDA==",
    "height": 1772389,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4UkgC5zh5jzPqVQWrDZqfRcBxrZDU8PacpnMUkR6iUpe
Next: 7ekSFAKMaVtvS8AvtVBZxp9KtsXrdNYsKF89jm24h7tV

Diff: 
Old New Differences
92 92  func getKeySupplier (item) = "Nodo-Activo Participante"
93 93  
94 94  
95 - func getKeyUI (item) = "UI, x10e-04 bit:"
96 - 
97 - 
98 - func getValueUI (item) = getNumberByKey(getKeyUI(item))
99 - 
100 - 
101 95  func getKeyPI (item) = "PI, wvls:"
102 96  
103 97  
104 98  func getValuePI (item) = getNumberByKey(getKeyPI(item))
105 - 
106 - 
107 - func getKeySI (item) = "SI, x10e-04 bit:"
108 - 
109 - 
110 - func getValueSI (item) = getNumberByKey(getKeySI(item))
111 - 
112 - 
113 - func getKeyNIb (item) = "NIb, x10e-04 bit:"
114 - 
115 - 
116 - func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
117 99  
118 100  
119 101  func getKeyNIw (item) = "NIw, wvls:"
122 104  func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
123 105  
124 106  
125 - func getKeyBalanToken (tienda) = "Total de tokens entregados desde Tienda1, bit-co2:"
107 + func getKeyUI (item) = "UI, 10e-4 bit-co2:"
108 + 
109 + 
110 + func getValueUI (item) = getNumberByKey(getKeyUI(item))
111 + 
112 + 
113 + func getKeySI (item) = "SI, 10e-4 bit-co2:"
114 + 
115 + 
116 + func getValueSI (item) = getNumberByKey(getKeySI(item))
117 + 
118 + 
119 + func getKeyNIb (item) = "NIb, 10e-4 bit-co2:"
120 + 
121 + 
122 + func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
123 + 
124 + 
125 + func getKeyBalanToken (tienda) = "Tokens entregados desde Tienda1, 10e-4 bit-co2:"
126 126  
127 127  
128 128  func getValueBalanToken (tienda) = getNumberByKey(getKeyBalanToken(tienda))
178 178                          then throw("Payment Amount can't be less than item Purchase Order")
179 179                          else if ((pmt.amount > totalAmount))
180 180                              then throw("Payment Amount can't be higher than item Purchase Order")
181 -                             else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("Balance del Proyecto, anterior, wvls", saldoProj), DataEntry(getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)), DataEntry("Total | tokens transmitidos desde Tienda1, bit-co2", saldoTienda1), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
181 +                             else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry(getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
182 182                      }
183 183              }
184 184      }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let yBitCO2 = base58'872MvpMoQx7SnV58HMcR9hd6vBWDtQvqmt5javCmYwpx'
5 5  
6 6  let TokToVendedorQty = 10000
7 7  
8 8  let NONE = "none"
9 9  
10 10  let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
11 11  
12 12  let ecxachxkapawix01preico = Address(base58'3NAFcFPrj1wWrVMcsJMLvWBzmBt93oLh6w8')
13 13  
14 14  let eM3xN08xN08pexprodxacAppxwvs = Address(base58'3MyAfquD1K4mvWJNDLVPRG4BWiAW3RQUpXG')
15 15  
16 16  let txacxN08pe = Address(base58'3N9epiFphbL3Sf25xMASL1jAPxDH5D8vX85')
17 17  
18 18  let N08pexprod = Address(base58'3N4c7DzgBcyVWTEv9N11vNpg4B1bfg5ryfJ')
19 19  
20 20  let eurou = 116
21 21  
22 22  let usdnw = 2539
23 23  
24 24  let bco2e = 100000
25 25  
26 26  let bitdscto = 3
27 27  
28 28  let pIP = 10
29 29  
30 30  let eIP = 1
31 31  
32 32  let uBP = 7
33 33  
34 34  let sBP = 2
35 35  
36 36  let eBP = 2
37 37  
38 38  let relacdcto = 11
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 getKeyUserItemGtsCounter (user,item) = "Order_№:"
63 63  
64 64  
65 65  func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
66 66  
67 67  
68 68  func getKeyprojectName (item) = "Proyecto de Apoyo | Inversión"
69 69  
70 70  
71 71  func getValueprojectName (item) = getStrByKey(getKeyprojectName(item))
72 72  
73 73  
74 74  func getKeyUserDocument (item) = "№ de Documento | DNI del Comprador:"
75 75  
76 76  
77 77  func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
78 78  
79 79  
80 80  func getKeyItemName (item) = "Producto-GTS adquirido | Categoría:"
81 81  
82 82  
83 83  func getValueItemName (item) = getStrByKey(getKeyItemName(item))
84 84  
85 85  
86 86  func getKeyTName (item) = "Tienda | Vendedor-GTS:"
87 87  
88 88  
89 89  func getValueTName (item) = getStrByKey(getKeyTName(item))
90 90  
91 91  
92 92  func getKeySupplier (item) = "Nodo-Activo Participante"
93 93  
94 94  
95 - func getKeyUI (item) = "UI, x10e-04 bit:"
96 - 
97 - 
98 - func getValueUI (item) = getNumberByKey(getKeyUI(item))
99 - 
100 - 
101 95  func getKeyPI (item) = "PI, wvls:"
102 96  
103 97  
104 98  func getValuePI (item) = getNumberByKey(getKeyPI(item))
105 - 
106 - 
107 - func getKeySI (item) = "SI, x10e-04 bit:"
108 - 
109 - 
110 - func getValueSI (item) = getNumberByKey(getKeySI(item))
111 - 
112 - 
113 - func getKeyNIb (item) = "NIb, x10e-04 bit:"
114 - 
115 - 
116 - func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
117 99  
118 100  
119 101  func getKeyNIw (item) = "NIw, wvls:"
120 102  
121 103  
122 104  func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
123 105  
124 106  
125 - func getKeyBalanToken (tienda) = "Total de tokens entregados desde Tienda1, bit-co2:"
107 + func getKeyUI (item) = "UI, 10e-4 bit-co2:"
108 + 
109 + 
110 + func getValueUI (item) = getNumberByKey(getKeyUI(item))
111 + 
112 + 
113 + func getKeySI (item) = "SI, 10e-4 bit-co2:"
114 + 
115 + 
116 + func getValueSI (item) = getNumberByKey(getKeySI(item))
117 + 
118 + 
119 + func getKeyNIb (item) = "NIb, 10e-4 bit-co2:"
120 + 
121 + 
122 + func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
123 + 
124 + 
125 + func getKeyBalanToken (tienda) = "Tokens entregados desde Tienda1, 10e-4 bit-co2:"
126 126  
127 127  
128 128  func getValueBalanToken (tienda) = getNumberByKey(getKeyBalanToken(tienda))
129 129  
130 130  
131 131  func getKeyBalanceProyecto (proyecto) = "Fondos desde Programa-03gts para F1 PreICO, wvls:"
132 132  
133 133  
134 134  func getValueBalanceProyecto (proyecto) = getNumberByKey(getKeyBalanceProyecto(proyecto))
135 135  
136 136  
137 137  @Callable(i)
138 138  func purchaseGTS (totalAmount,userDocument,projectName,itemName,tName,item) = {
139 139      let pmt = extract(i.payment)
140 140      if (isDefined(pmt.assetId))
141 141          then throw("El Precio en waves.")
142 142          else {
143 143              let supplier =             match getString(this, getKeySupplier(item)) {
144 144                  case a: String => 
145 145                      a
146 146                  case _ => 
147 147                      NONE
148 148              }
149 149              let tienda = toBase58String(txacxN08pe.bytes)
150 150              let saldoTienda1 =             match getInteger(this, getKeyBalanToken(tienda)) {
151 151                  case a: Int => 
152 152                      a
153 153                  case _ => 
154 154                      0
155 155              }
156 156              let proyecto = toBase58String(ecxachxkapawix01preico.bytes)
157 157              let saldoProj =             match getInteger(this, getKeyBalanceProyecto(proyecto)) {
158 158                  case a: Int => 
159 159                      a
160 160                  case _ => 
161 161                      0
162 162              }
163 163              let userAddress = toBase58String(i.caller.bytes)
164 164              let subTotal = totalAmount
165 165              let pIw = ((pIP * subTotal) / relacdcto)
166 166              let eIw = ((eIP * subTotal) / relacdcto)
167 167              let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
168 168              let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
169 169              let totalb = (subTotalb * 10000)
170 170              let uIb = ((uBP * subTotalb) / relacdcto)
171 171              let sIb = ((sBP * subTotalb) / relacdcto)
172 172              let eIb = ((eBP * subTotalb) / relacdcto)
173 173              if ((saldoTienda1 >= (TokToVendedorQty * 10000)))
174 174                  then throw("Lo sentimos, por ahora no hay oferta de tokens para su transacción")
175 175                  else {
176 176                      let amountBCO2 = ((TokToVendedorQty * 10000) - saldoTienda1)
177 177                      if ((totalAmount > pmt.amount))
178 178                          then throw("Payment Amount can't be less than item Purchase Order")
179 179                          else if ((pmt.amount > totalAmount))
180 180                              then throw("Payment Amount can't be higher than item Purchase Order")
181 -                             else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry("Balance del Proyecto, anterior, wvls", saldoProj), DataEntry(getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)), DataEntry("Total | tokens transmitidos desde Tienda1, bit-co2", saldoTienda1), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
181 +                             else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry(getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
182 182                      }
183 183              }
184 184      }
185 185  
186 186  
187 187  @Verifier(tx)
188 188  func verify () = match tx {
189 189      case t: SetScriptTransaction => 
190 190          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
191 191      case d: ReissueTransaction|DataTransaction => 
192 192          true
193 193      case tx: TransferTransaction => 
194 194          true
195 195      case _ => 
196 196          false
197 197  }
198 198

Old	New		Differences
92	92		func getKeySupplier (item) = "Nodo-Activo Participante"
93	93
94	94
95		-	func getKeyUI (item) = "UI, x10e-04 bit:"
96		-
97		-
98		-	func getValueUI (item) = getNumberByKey(getKeyUI(item))
99		-
100		-
101	95		func getKeyPI (item) = "PI, wvls:"
102	96
103	97
104	98		func getValuePI (item) = getNumberByKey(getKeyPI(item))
105		-
106		-
107		-	func getKeySI (item) = "SI, x10e-04 bit:"
108		-
109		-
110		-	func getValueSI (item) = getNumberByKey(getKeySI(item))
111		-
112		-
113		-	func getKeyNIb (item) = "NIb, x10e-04 bit:"
114		-
115		-
116		-	func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
117	99
118	100
119	101		func getKeyNIw (item) = "NIw, wvls:"

122	104		func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
123	105
124	106
125		-	func getKeyBalanToken (tienda) = "Total de tokens entregados desde Tienda1, bit-co2:"
	107	+	func getKeyUI (item) = "UI, 10e-4 bit-co2:"
	108	+
	109	+
	110	+	func getValueUI (item) = getNumberByKey(getKeyUI(item))
	111	+
	112	+
	113	+	func getKeySI (item) = "SI, 10e-4 bit-co2:"
	114	+
	115	+
	116	+	func getValueSI (item) = getNumberByKey(getKeySI(item))
	117	+
	118	+
	119	+	func getKeyNIb (item) = "NIb, 10e-4 bit-co2:"
	120	+
	121	+
	122	+	func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
	123	+
	124	+
	125	+	func getKeyBalanToken (tienda) = "Tokens entregados desde Tienda1, 10e-4 bit-co2:"
126	126
127	127
128	128		func getValueBalanToken (tienda) = getNumberByKey(getKeyBalanToken(tienda))

178	178		then throw("Payment Amount can't be less than item Purchase Order")
179	179		else if ((pmt.amount > totalAmount))
180	180		then throw("Payment Amount can't be higher than item Purchase Order")
181		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry(~~"Balance del Proyecto, anterior, wvls", saldoProj), DataEntry(~~getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)~~), DataEntry("Total \| tokens transmitidos desde Tienda1, bit-co2", saldoTienda1~~), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
	181	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry(getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
182	182		}
183	183		}
184	184		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let yBitCO2 = base58'872MvpMoQx7SnV58HMcR9hd6vBWDtQvqmt5javCmYwpx'
5	5
6	6		let TokToVendedorQty = 10000
7	7
8	8		let NONE = "none"
9	9
10	10		let OwnerPubKey = base58'8xCH82jKi2DM7HXXD45fmftPUDjr3TJpjanUATKMK37U'
11	11
12	12		let ecxachxkapawix01preico = Address(base58'3NAFcFPrj1wWrVMcsJMLvWBzmBt93oLh6w8')
13	13
14	14		let eM3xN08xN08pexprodxacAppxwvs = Address(base58'3MyAfquD1K4mvWJNDLVPRG4BWiAW3RQUpXG')
15	15
16	16		let txacxN08pe = Address(base58'3N9epiFphbL3Sf25xMASL1jAPxDH5D8vX85')
17	17
18	18		let N08pexprod = Address(base58'3N4c7DzgBcyVWTEv9N11vNpg4B1bfg5ryfJ')
19	19
20	20		let eurou = 116
21	21
22	22		let usdnw = 2539
23	23
24	24		let bco2e = 100000
25	25
26	26		let bitdscto = 3
27	27
28	28		let pIP = 10
29	29
30	30		let eIP = 1
31	31
32	32		let uBP = 7
33	33
34	34		let sBP = 2
35	35
36	36		let eBP = 2
37	37
38	38		let relacdcto = 11
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 getKeyUserItemGtsCounter (user,item) = "Order_№:"
63	63
64	64
65	65		func getValueUserItemGtsCounter (user,item) = getNumberByKey(getKeyUserItemGtsCounter(user, item))
66	66
67	67
68	68		func getKeyprojectName (item) = "Proyecto de Apoyo \| Inversión"
69	69
70	70
71	71		func getValueprojectName (item) = getStrByKey(getKeyprojectName(item))
72	72
73	73
74	74		func getKeyUserDocument (item) = "№ de Documento \| DNI del Comprador:"
75	75
76	76
77	77		func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
78	78
79	79
80	80		func getKeyItemName (item) = "Producto-GTS adquirido \| Categoría:"
81	81
82	82
83	83		func getValueItemName (item) = getStrByKey(getKeyItemName(item))
84	84
85	85
86	86		func getKeyTName (item) = "Tienda \| Vendedor-GTS:"
87	87
88	88
89	89		func getValueTName (item) = getStrByKey(getKeyTName(item))
90	90
91	91
92	92		func getKeySupplier (item) = "Nodo-Activo Participante"
93	93
94	94
95		-	func getKeyUI (item) = "UI, x10e-04 bit:"
96		-
97		-
98		-	func getValueUI (item) = getNumberByKey(getKeyUI(item))
99		-
100		-
101	95		func getKeyPI (item) = "PI, wvls:"
102	96
103	97
104	98		func getValuePI (item) = getNumberByKey(getKeyPI(item))
105		-
106		-
107		-	func getKeySI (item) = "SI, x10e-04 bit:"
108		-
109		-
110		-	func getValueSI (item) = getNumberByKey(getKeySI(item))
111		-
112		-
113		-	func getKeyNIb (item) = "NIb, x10e-04 bit:"
114		-
115		-
116		-	func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
117	99
118	100
119	101		func getKeyNIw (item) = "NIw, wvls:"
120	102
121	103
122	104		func getValueNIw (item) = getNumberByKey(getKeyNIw(item))
123	105
124	106
125		-	func getKeyBalanToken (tienda) = "Total de tokens entregados desde Tienda1, bit-co2:"
	107	+	func getKeyUI (item) = "UI, 10e-4 bit-co2:"
	108	+
	109	+
	110	+	func getValueUI (item) = getNumberByKey(getKeyUI(item))
	111	+
	112	+
	113	+	func getKeySI (item) = "SI, 10e-4 bit-co2:"
	114	+
	115	+
	116	+	func getValueSI (item) = getNumberByKey(getKeySI(item))
	117	+
	118	+
	119	+	func getKeyNIb (item) = "NIb, 10e-4 bit-co2:"
	120	+
	121	+
	122	+	func getValueNIb (item) = getNumberByKey(getKeyNIb(item))
	123	+
	124	+
	125	+	func getKeyBalanToken (tienda) = "Tokens entregados desde Tienda1, 10e-4 bit-co2:"
126	126
127	127
128	128		func getValueBalanToken (tienda) = getNumberByKey(getKeyBalanToken(tienda))
129	129
130	130
131	131		func getKeyBalanceProyecto (proyecto) = "Fondos desde Programa-03gts para F1 PreICO, wvls:"
132	132
133	133
134	134		func getValueBalanceProyecto (proyecto) = getNumberByKey(getKeyBalanceProyecto(proyecto))
135	135
136	136
137	137		@Callable(i)
138	138		func purchaseGTS (totalAmount,userDocument,projectName,itemName,tName,item) = {
139	139		let pmt = extract(i.payment)
140	140		if (isDefined(pmt.assetId))
141	141		then throw("El Precio en waves.")
142	142		else {
143	143		let supplier = match getString(this, getKeySupplier(item)) {
144	144		case a: String =>
145	145		a
146	146		case _ =>
147	147		NONE
148	148		}
149	149		let tienda = toBase58String(txacxN08pe.bytes)
150	150		let saldoTienda1 = match getInteger(this, getKeyBalanToken(tienda)) {
151	151		case a: Int =>
152	152		a
153	153		case _ =>
154	154		0
155	155		}
156	156		let proyecto = toBase58String(ecxachxkapawix01preico.bytes)
157	157		let saldoProj = match getInteger(this, getKeyBalanceProyecto(proyecto)) {
158	158		case a: Int =>
159	159		a
160	160		case _ =>
161	161		0
162	162		}
163	163		let userAddress = toBase58String(i.caller.bytes)
164	164		let subTotal = totalAmount
165	165		let pIw = ((pIP * subTotal) / relacdcto)
166	166		let eIw = ((eIP * subTotal) / relacdcto)
167	167		let bco2menosdcto = (((100 - bitdscto) * (eurou * bco2e)) / 10000)
168	168		let subTotalb = (((totalAmount * usdnw) / 100) / bco2menosdcto)
169	169		let totalb = (subTotalb * 10000)
170	170		let uIb = ((uBP * subTotalb) / relacdcto)
171	171		let sIb = ((sBP * subTotalb) / relacdcto)
172	172		let eIb = ((eBP * subTotalb) / relacdcto)
173	173		if ((saldoTienda1 >= (TokToVendedorQty * 10000)))
174	174		then throw("Lo sentimos, por ahora no hay oferta de tokens para su transacción")
175	175		else {
176	176		let amountBCO2 = ((TokToVendedorQty * 10000) - saldoTienda1)
177	177		if ((totalAmount > pmt.amount))
178	178		then throw("Payment Amount can't be less than item Purchase Order")
179	179		else if ((pmt.amount > totalAmount))
180	180		then throw("Payment Amount can't be higher than item Purchase Order")
181		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry(~~"Balance del Proyecto, anterior, wvls", saldoProj), DataEntry(~~getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)~~), DataEntry("Total \| tokens transmitidos desde Tienda1, bit-co2", saldoTienda1~~), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
	181	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemGtsCounter(userAddress, item), (getValueUserItemGtsCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyprojectName(item), projectName), DataEntry("Monto de apoyo ecológico, wvls", totalAmount), DataEntry(getKeyItemName(item), itemName), DataEntry(getKeyTName(item), tName), DataEntry(getKeySupplier(item), item), DataEntry("usdn", usdnw), DataEntry("eurou", eurou), DataEntry("Precio de 1 token con dscto, 10e-4 usd", bco2menosdcto), DataEntry("Total de tokens a distribuir, 10e-4 bit-co2", subTotalb), DataEntry(("Order_Status:_" + userAddress), "Transacción Confirmada!"), DataEntry(getKeyBalanceProyecto(proyecto), (getValueBalanceProyecto(proyecto) + pIw)), DataEntry(getKeyBalanToken(tienda), (getValueBalanToken(tienda) + subTotalb)), DataEntry("Saldo de tokens en oferta, 10e-04 bit-co2", (amountBCO2 - ((getValueBalanToken(tienda) - saldoTienda1) + subTotalb)))]), TransferSet([ScriptTransfer(ecxachxkapawix01preico, pIw, unit), ScriptTransfer(eM3xN08xN08pexprodxacAppxwvs, eIw, unit), ScriptTransfer(i.caller, uIb, yBitCO2), ScriptTransfer(txacxN08pe, sIb, yBitCO2), ScriptTransfer(N08pexprod, eIb, yBitCO2)]))
182	182		}
183	183		}
184	184		}
185	185
186	186
187	187		@Verifier(tx)
188	188		func verify () = match tx {
189	189		case t: SetScriptTransaction =>
190	190		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
191	191		case d: ReissueTransaction\|DataTransaction =>
192	192		true
193	193		case tx: TransferTransaction =>
194	194		true
195	195		case _ =>
196	196		false
197	197		}
198	198

github/deemru/w8io/3ef1775 
73.03 ms ◑