tx · ENLZ1jLAfnU3sQqvLmAAxLAxD3ayg5okNAJo1ghCUypb

3P6bRMoFNxhnDewqQxcrW6A36Y2AVCPtxki:  -0.00700000 Waves

2022.07.21 11:48 [3214849] smart account 3P6bRMoFNxhnDewqQxcrW6A36Y2AVCPtxki > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "ENLZ1jLAfnU3sQqvLmAAxLAxD3ayg5okNAJo1ghCUypb",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1658393331336,
    "version": 2,
    "chainId": 87,
    "sender": "3P6bRMoFNxhnDewqQxcrW6A36Y2AVCPtxki",
    "senderPublicKey": "2QpC7DhyDZJhCUH9zxHkr8VW9zayNHJ7EYyVpKTVDeQQ",
    "proofs": [
        "4QbdxM7X16KTLvqWfXoZLpuf3PL2gJoJYD5Ke4Wi3ZLWjL3B2KqGhQvfJ773v5g4ubWt3LBqiAZp5w12a7c8Hpxa"
    ],
    "script": "base64:AAIDAAAAAAAAAAsIARIHCgUICAgBAQAAACEAAAAAA1ZHVAEAAAAgH3APaNXgemmuxgIF8GLVZs9OZCNQv4VnpgAL8IZcgr8AAAAADXN0YXJ0VG90YWxRdHkAAAAAAAAPQkAAAAAAA3d2cwAAAAAABfXhAAAAAAAETk9ORQIAAAAEbm9uZQAAAAAHbm9tdmd0dQAAAAAAAAAACgAAAAAFdXNkbncAAAAAAAAAAd4AAAAAC093bmVyUHViS2V5AQAAACAU9We3Kml6s0Jum54I7OlT6ksdjFLGOCVUMQ2treizYQAAAAAKYWRtTjA4VkdUVwkBAAAAB0FkZHJlc3MAAAABAQAAABoBV/3biCSaEmPwoHq75mzaCx+XtM5RcqklbQAAAAARYWRtTjA4c3lzVkdUUGFpc1cJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVfg2oNUnZEk+dm+DEZSikioGRjbo7emwyABAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAAMZ2V0S2V5RW1pc29yAAAAAQAAAARpdGVtAgAAAAdFbWlzb3I6AQAAAA5nZXRWYWx1ZUVtaXNvcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADGdldEtleUVtaXNvcgAAAAEFAAAABGl0ZW0BAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAAEsAAAAAgUAAAAIc3VwcGxpZXICAAAAB05vZG8tMDgBAAAAFGdldEtleUVtaXNpb25Db3VudHJ5AAAAAQAAAARpdGVtAgAAAAtOb2RvLVBhw61zOgEAAAAWZ2V0VmFsdWVFbWlzaW9uQ291bnRyeQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAFGdldEtleUVtaXNpb25Db3VudHJ5AAAAAQUAAAAEaXRlbQEAAAARZ2V0S2V5RW1pc2lvbkNvZGUAAAABAAAABGl0ZW0CAAAACEPDs2RpZ286AQAAABNnZXRWYWx1ZUVtaXNpb25Db2RlAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAARZ2V0S2V5RW1pc2lvbkNvZGUAAAABBQAAAARpdGVtAQAAABNnZXRLZXlOb21Ub2tlblByaWNlAAAAAQAAAARpdGVtAgAAABZQcmVjaW8gTm9taW5hbCwgMSBWR1Q6AQAAABNnZXRLZXlzdGFydFRvdGFsUXR5AAAAAQAAAARpdGVtAgAAABxDYW50aWRhZCBkZSB0b2tlbnMgZW1pdGlkb3M6AQAAABVnZXRWYWx1ZXN0YXJ0VG90YWxRdHkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABNnZXRLZXlzdGFydFRvdGFsUXR5AAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAAdRm9uZG9zIHwgTW9udG8gcmVjYXVkYWRvLCB3dnMBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQIAAAAlRG9jdW1lbnRvIE5hY2lvbmFsIGRlIElkZW50aWRhZCwgRE5JOgEAAAAUZ2V0VmFsdWVVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEAAAAEaXRlbQIAAAAgUGHDrXMgZGUgUmVzaWRlbmNpYSBkZWwgVXN1YXJpbzoBAAAAE2dldFZhbHVlVXNlckNvdW50cnkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEFAAAABGl0ZW0BAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0CAAAAHkNhbnRpZGFkIGRlIHRva2VucyBhZHF1aXJpZG9zOgEAAAAYZ2V0VmFsdWVJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0BAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtAgAAACJDYW50aWRhZCBkZSB0b2tlbnMgVkdUIHJlYWxpemFkb3M6AQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtAAAAAQAAAAFpAQAAAAtwdXJjaGFzZVZHVAAAAAUAAAAEaXRlbQAAAAx1c2VyRG9jdW1lbnQAAAALdXNlckNvdW50cnkAAAAIb3JkZXJRdHkAAAALdG90YWxBbW91bnQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAAE1VZC4gcHVlZGUgYWRxdWlyaXIgdG9rZW5zIFZHVCB1c2FuZG8gV2F2ZXNLZWVwZXIgeSBzdSB0b2tlbiBkZSBwYWdvIGVuIFdhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAABFjdXJyZW50VG9rZW5QcmljZQkAAGkAAAACCQAAaAAAAAIFAAAAB25vbXZndHUFAAAAA3d2cwUAAAAFdXNkbncDCQAAZwAAAAIAAAAAAAAAAAAJAABlAAAAAgkAAGUAAAACBQAAAA1zdGFydFRvdGFsUXR5BQAAAAlwcmVJY29RdHkFAAAACG9yZGVyUXR5CQAAAgAAAAECAAAAQ0xvIHNlbnRpbW9zLCBwb3IgYWhvcmEgbm8gaGF5IG9mZXJ0YSBkZSB0b2tlbnMgcGFyYSBzdSB0cmFuc2FjY2nDs24DCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAMZ2V0S2V5RW1pc29yAAAAAQUAAAAEaXRlbQIAAAASRWNvc2lzdGVtYSBCaXQtQ08yCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAUZ2V0S2V5RW1pc2lvbkNvdW50cnkAAAABBQAAAARpdGVtAgAAAAlFMkUvTjA4UEUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABFnZXRLZXlFbWlzaW9uQ29kZQAAAAEFAAAABGl0ZW0CAAAADkUyRV9OMDAtVkdULTAxCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAATZ2V0S2V5Tm9tVG9rZW5QcmljZQAAAAEFAAAABGl0ZW0CAAAACTEwLjAwIFVTRAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAcRXN0YWRvIGRlIHN1IHBlZGlkbywgdG9rZW5zOgIAAAAawqFBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABNnZXRLZXlzdGFydFRvdGFsUXR5AAAAAQUAAAAEaXRlbQUAAAANc3RhcnRUb3RhbFF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtCQAAZAAAAAIJAQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAARpdGVtAAAAAAAAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5VXNlckRvY3VtZW50AAAAAQUAAAAEaXRlbQUAAAAMdXNlckRvY3VtZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAARZ2V0S2V5VXNlckNvdW50cnkAAAABBQAAAARpdGVtBQAAAAt1c2VyQ291bnRyeQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABBQAAAARpdGVtBQAAAAhvcmRlclF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAApTW9udG8gZGUgSW52ZXJzacOzbiB8IFBhcnRpY2lwYWNpw7NuLCB3dnMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABxFc3RhZG8gZGUgc3UgcGVkaWRvLCB0b2tlbnM6AgAAABrCoUFkcXVpc2ljacOzbiBDb25maXJtYWRhIQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQkAAGQAAAACCQEAAAAfZ2V0VmFsdWVTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0FAAAACG9yZGVyUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABNTYWxkbyBkZSBUb2tlbnMgVkdUCQAAZQAAAAIJAABlAAAAAgUAAAANc3RhcnRUb3RhbFF0eQkBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtBQAAAAhvcmRlclF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZAAAAAIJAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAqQ3RhLiBkZWwgU3lzdGVtIFZHVCBkZWwgTjA4UEUsIGJsb2NrY2hhaW46AgAAACMzUE5Sb3JtUVR3MTg2YTkxbXJVcUx4dHNZcHd4YzdoZzN3NQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAnQ3RhLiBkZWwgQWRtaW4gVkdUIGRlbCBOMDgsIGJsb2NrY2hhaW46AgAAACMzUFI1QWc3alBCR3BmcjdVVVVhY0JSVDVXNVdlUEM5MUJNVwUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAALdXNlckFkZHJlc3MJAABoAAAAAgAAAAAAAAAAZAUAAAAIb3JkZXJRdHkFAAAAA1ZHVAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAphZG1OMDhWR1RXCQAAaQAAAAIJAABoAAAAAgAAAAAAAAAASwgFAAAAA3BtdAAAAAZhbW91bnQAAAAAAAAAAGQFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAARYWRtTjA4c3lzVkdUUGFpc1cJAABpAAAAAgkAAGgAAAACAAAAAAAAAAAFCAUAAAADcG10AAAABmFtb3VudAAAAAAAAAAAZAUAAAAEdW5pdAUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgf9tkP/",
    "height": 3214849,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: Dye6MD2DL8vJ5foMvm3RZRroHiqcpJ7VKKztpwZioLJv

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 3 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let VGT = base58'37ikDy3W9yf7LxF9CgQmXQbLpsnCZNgVYz36U29NR5LJ'
5+
6+let startTotalQty = 1000000
7+
8+let wvs = 100000000
9+
10+let NONE = "none"
11+
12+let nomvgtu = 10
13+
14+let usdnw = 478
15+
16+let OwnerPubKey = base58'2QpC7DhyDZJhCUH9zxHkr8VW9zayNHJ7EYyVpKTVDeQQ'
17+
18+let admN08VGTW = Address(base58'3PR5Ag7jPBGpfr7UUUacBRT5W5WePC91BMW')
19+
20+let admN08sysVGTPaisW = Address(base58'3PNRormQTw186a91mrUqLxtsYpwxc7hg3w5')
21+
22+func getNumberByKey (key) = {
23+    let num =     match getInteger(this, key) {
24+        case a: Int => 
25+            a
26+        case _ => 
27+            0
28+    }
29+    num
30+    }
31+
32+
33+func getStrByKey (key) = {
34+    let str =     match getString(this, key) {
35+        case a: String => 
36+            a
37+        case _ => 
38+            NONE
39+    }
40+    str
41+    }
42+
43+
44+func getKeyEmisor (item) = "Emisor:"
45+
46+
47+func getValueEmisor (item) = getStrByKey(getKeyEmisor(item))
48+
49+
50+func getKeyItemSupplier (supplier) = (supplier + "Nodo-08")
51+
52+
53+func getKeyEmisionCountry (item) = "Nodo-País:"
54+
55+
56+func getValueEmisionCountry (item) = getStrByKey(getKeyEmisionCountry(item))
57+
58+
59+func getKeyEmisionCode (item) = "Código:"
60+
61+
62+func getValueEmisionCode (item) = getStrByKey(getKeyEmisionCode(item))
63+
64+
65+func getKeyNomTokenPrice (item) = "Precio Nominal, 1 VGT:"
66+
67+
68+func getKeystartTotalQty (item) = "Cantidad de tokens emitidos:"
69+
70+
71+func getValuestartTotalQty (item) = getStrByKey(getKeystartTotalQty(item))
72+
73+
74+func getKeyBalanceSupplier (supplier) = "Fondos | Monto recaudado, wvs"
75+
76+
77+func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
78+
79+
80+func getKeyUserItemCounter (user,item) = "Order_№:"
81+
82+
83+func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
84+
85+
86+func getKeyUserDocument (item) = "Documento Nacional de Identidad, DNI:"
87+
88+
89+func getValueUserDocument (item) = getStrByKey(getKeyUserDocument(item))
90+
91+
92+func getKeyUserCountry (item) = "País de Residencia del Usuario:"
93+
94+
95+func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
96+
97+
98+func getKeyItemUserOrderQty (item) = "Cantidad de tokens adquiridos:"
99+
100+
101+func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
102+
103+
104+func getKeySaldoTokenQtyStartEtapa (item) = "Cantidad de tokens VGT realizados:"
105+
106+
107+func getValueSaldoTokenQtyStartEtapa (item) = getNumberByKey(getKeySaldoTokenQtyStartEtapa(item))
108+
109+
110+@Callable(i)
111+func purchaseVGT (item,userDocument,userCountry,orderQty,totalAmount) = {
112+    let pmt = extract(i.payment)
113+    if (isDefined(pmt.assetId))
114+        then throw("Ud. puede adquirir tokens VGT usando WavesKeeper y su token de pago en Waves.")
115+        else {
116+            let supplier =             match getString(this, getKeyItemSupplier(item)) {
117+                case a: String => 
118+                    a
119+                case _ => 
120+                    NONE
121+            }
122+            let preIcoQty =             match getInteger(this, getKeySaldoTokenQtyStartEtapa(item)) {
123+                case a: Int => 
124+                    a
125+                case _ => 
126+                    0
127+            }
128+            let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
129+                case a: Int => 
130+                    a
131+                case _ => 
132+                    0
133+            }
134+            let userAddress = toBase58String(i.caller.bytes)
135+            let currentTokenPrice = ((nomvgtu * wvs) / usdnw)
136+            if ((0 >= ((startTotalQty - preIcoQty) - orderQty)))
137+                then throw("Lo sentimos, por ahora no hay oferta de tokens para su transacción")
138+                else if ((totalAmount > pmt.amount))
139+                    then throw("Payment Amount can't be less than item Purchase Order")
140+                    else if ((pmt.amount > totalAmount))
141+                        then throw("Payment Amount can't be higher than item Purchase Order")
142+                        else ScriptResult(WriteSet([DataEntry(getKeyEmisor(item), "Ecosistema Bit-CO2"), DataEntry(getKeyEmisionCountry(item), "E2E/N08PE"), DataEntry(getKeyEmisionCode(item), "E2E_N00-VGT-01"), DataEntry(getKeyNomTokenPrice(item), "10.00 USD"), DataEntry("Estado de su pedido, tokens:", "¡Adquisición Confirmada!"), DataEntry(getKeystartTotalQty(item), startTotalQty), DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyUserDocument(item), userDocument), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUserOrderQty(item), orderQty), DataEntry("Monto de Inversión | Participación, wvs", totalAmount), DataEntry("Estado de su pedido, tokens:", "¡Adquisición Confirmada!"), DataEntry(getKeySaldoTokenQtyStartEtapa(item), (getValueSaldoTokenQtyStartEtapa(item) + orderQty)), DataEntry("Saldo de Tokens VGT", ((startTotalQty - getValueSaldoTokenQtyStartEtapa(item)) - orderQty)), DataEntry(getKeyBalanceSupplier(supplier), (getValueBalanceSupplier(supplier) + pmt.amount)), DataEntry("Cta. del System VGT del N08PE, blockchain:", "3PNRormQTw186a91mrUqLxtsYpwxc7hg3w5"), DataEntry("Cta. del Admin VGT del N08, blockchain:", "3PR5Ag7jPBGpfr7UUUacBRT5W5WePC91BMW")]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), (100 * orderQty), VGT), ScriptTransfer(admN08VGTW, ((75 * pmt.amount) / 100), unit), ScriptTransfer(admN08sysVGTPaisW, ((5 * pmt.amount) / 100), unit)]))
143+            }
144+    }
145+
146+
147+@Verifier(tx)
148+func verify () = match tx {
149+    case t: SetScriptTransaction => 
150+        sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
151+    case d: DataTransaction => 
152+        true
153+    case tx: TransferTransaction => 
154+        true
155+    case _ => 
156+        false
157+}
158+
github/deemru/w8io/3ef1775 
20.74 ms ◑