2022.07.25 22:59 [3221319] smart account 3P6bRMoFNxhnDewqQxcrW6A36Y2AVCPtxki > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Dye6MD2DL8vJ5foMvm3RZRroHiqcpJ7VKKztpwZioLJv",
    "fee": 600000,
    "feeAssetId": null,
    "timestamp": 1658779185721,
    "version": 2,
    "chainId": 87,
    "sender": "3P6bRMoFNxhnDewqQxcrW6A36Y2AVCPtxki",
    "senderPublicKey": "2QpC7DhyDZJhCUH9zxHkr8VW9zayNHJ7EYyVpKTVDeQQ",
    "proofs": [
        "97KYEu8ZZDirgwBUFXKfZNiunpyzY7cdQczVVoHYWy9mT1mSXUQFgnAvy614ozRJL7kFNefn9CTEyyqjygtdNNe"
    ],
    "script": "base64:AAIDAAAAAAAAAAsIARIHCgUICAgBAQAAACEAAAAAA1ZHVAEAAAAgH3APaNXgemmuxgIF8GLVZs9OZCNQv4VnpgAL8IZcgr8AAAAADXN0YXJ0VG90YWxRdHkAAAAAAAAPQkAAAAAAA3d2cwAAAAAABfXhAAAAAAAETk9ORQIAAAAEbm9uZQAAAAAHbm9tdmd0dQAAAAAAAAAACgAAAAAFdXNkbncAAAAAAAAAAd4AAAAAC093bmVyUHViS2V5AQAAACAU9We3Kml6s0Jum54I7OlT6ksdjFLGOCVUMQ2treizYQAAAAAKYWRtTjA4VkdUVwkBAAAAB0FkZHJlc3MAAAABAQAAABoBV/3biCSaEmPwoHq75mzaCx+XtM5RcqklbQAAAAARYWRtTjA4c3lzVkdUUGFpc1cJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVfg2oNUnZEk+dm+DEZSikioGRjbo7emwyABAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAAMZ2V0S2V5RW1pc29yAAAAAQAAAARpdGVtAgAAAAdFbWlzb3I6AQAAAA5nZXRWYWx1ZUVtaXNvcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADGdldEtleUVtaXNvcgAAAAEFAAAABGl0ZW0BAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAAEsAAAAAgUAAAAIc3VwcGxpZXICAAAAB05vZG8tMDgBAAAAFGdldEtleUVtaXNpb25Db3VudHJ5AAAAAQAAAARpdGVtAgAAAAtOb2RvLVBhw61zOgEAAAAWZ2V0VmFsdWVFbWlzaW9uQ291bnRyeQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAFGdldEtleUVtaXNpb25Db3VudHJ5AAAAAQUAAAAEaXRlbQEAAAARZ2V0S2V5RW1pc2lvbkNvZGUAAAABAAAABGl0ZW0CAAAACEPDs2RpZ286AQAAABNnZXRWYWx1ZUVtaXNpb25Db2RlAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAARZ2V0S2V5RW1pc2lvbkNvZGUAAAABBQAAAARpdGVtAQAAABNnZXRLZXlOb21Ub2tlblByaWNlAAAAAQAAAARpdGVtAgAAABZQcmVjaW8gTm9taW5hbCwgMSBWR1Q6AQAAABNnZXRLZXlzdGFydFRvdGFsUXR5AAAAAQAAAARpdGVtAgAAABxDYW50aWRhZCBkZSB0b2tlbnMgZW1pdGlkb3M6AQAAABVnZXRWYWx1ZXN0YXJ0VG90YWxRdHkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABNnZXRLZXlzdGFydFRvdGFsUXR5AAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgIAAAAdRm9uZG9zIHwgTW9udG8gcmVjYXVkYWRvLCB3dnMBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEAAAAEaXRlbQIAAAAlRG9jdW1lbnRvIE5hY2lvbmFsIGRlIElkZW50aWRhZCwgRE5JOgEAAAAUZ2V0VmFsdWVVc2VyRG9jdW1lbnQAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlVc2VyRG9jdW1lbnQAAAABBQAAAARpdGVtAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEAAAAEaXRlbQIAAAAgUGHDrXMgZGUgUmVzaWRlbmNpYSBkZWwgVXN1YXJpbzoBAAAAE2dldFZhbHVlVXNlckNvdW50cnkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEFAAAABGl0ZW0BAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0CAAAAHkNhbnRpZGFkIGRlIHRva2VucyBhZHF1aXJpZG9zOgEAAAAYZ2V0VmFsdWVJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0BAAAAHWdldEtleVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtAgAAACJDYW50aWRhZCBkZSB0b2tlbnMgVkdUIHJlYWxpemFkb3M6AQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAdZ2V0S2V5U2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtAAAAAQAAAAFpAQAAAAtwdXJjaGFzZVZHVAAAAAUAAAAEaXRlbQAAAAx1c2VyRG9jdW1lbnQAAAALdXNlckNvdW50cnkAAAAIb3JkZXJRdHkAAAALdG90YWxBbW91bnQEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAAE1VZC4gcHVlZGUgYWRxdWlyaXIgdG9rZW5zIFZHVCB1c2FuZG8gV2F2ZXNLZWVwZXIgeSBzdSB0b2tlbiBkZSBwYWdvIGVuIFdhdmVzLgQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAABFjdXJyZW50VG9rZW5QcmljZQkAAGkAAAACCQAAaAAAAAIFAAAAB25vbXZndHUFAAAAA3d2cwUAAAAFdXNkbncDCQAAZwAAAAIAAAAAAAAAAAAJAABlAAAAAgkAAGUAAAACBQAAAA1zdGFydFRvdGFsUXR5BQAAAAlwcmVJY29RdHkFAAAACG9yZGVyUXR5CQAAAgAAAAECAAAAQ0xvIHNlbnRpbW9zLCBwb3IgYWhvcmEgbm8gaGF5IG9mZXJ0YSBkZSB0b2tlbnMgcGFyYSBzdSB0cmFuc2FjY2nDs24DCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAAElFbCBtb250byBkZWwgcGFnbyBubyBwdWVkZSBzZXIgbWVub3IgcXVlIGxhIG9yZGVuIGRlIGNvbXByYSBkZWwgYXJ0w61jdWxvAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAABJRWwgbW9udG8gZGVsIHBhZ28gbm8gcHVlZGUgc2VyIG1heW9yIHF1ZSBsYSBvcmRlbiBkZSBjb21wcmEgZGVsIGFydMOtY3VsbwkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAxnZXRLZXlFbWlzb3IAAAABBQAAAARpdGVtAgAAABJFY29zaXN0ZW1hIEJpdC1DTzIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABRnZXRLZXlFbWlzaW9uQ291bnRyeQAAAAEFAAAABGl0ZW0CAAAACUUyRS9OMDhQRQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEWdldEtleUVtaXNpb25Db2RlAAAAAQUAAAAEaXRlbQIAAAAORTJFX04wMC1WR1QtMDEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABNnZXRLZXlOb21Ub2tlblByaWNlAAAAAQUAAAAEaXRlbQIAAAAJMTAuMDAgVVNECQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAATZ2V0S2V5c3RhcnRUb3RhbFF0eQAAAAEFAAAABGl0ZW0FAAAADXN0YXJ0VG90YWxRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleVVzZXJEb2N1bWVudAAAAAEFAAAABGl0ZW0FAAAADHVzZXJEb2N1bWVudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQUAAAAEaXRlbQUAAAALdXNlckNvdW50cnkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAKU1vbnRvIGRlIEludmVyc2nDs24gfCBQYXJ0aWNpcGFjacOzbiwgd3ZzBQAAAAt0b3RhbEFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAcRXN0YWRvIGRlIHN1IHBlZGlkbywgdG9rZW5zOgIAAAAawqFBZHF1aXNpY2nDs24gQ29uZmlybWFkYSEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAB1nZXRLZXlTYWxkb1Rva2VuUXR5U3RhcnRFdGFwYQAAAAEFAAAABGl0ZW0JAABkAAAAAgkBAAAAH2dldFZhbHVlU2FsZG9Ub2tlblF0eVN0YXJ0RXRhcGEAAAABBQAAAARpdGVtBQAAAAhvcmRlclF0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAATU2FsZG8gZGUgVG9rZW5zIFZHVAkAAGUAAAACCQAAZQAAAAIFAAAADXN0YXJ0VG90YWxRdHkJAQAAAB9nZXRWYWx1ZVNhbGRvVG9rZW5RdHlTdGFydEV0YXBhAAAAAQUAAAAEaXRlbQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACCQEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcggFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAJUN0YS4gVkdUIEFkbWluIGRlbCBOMDgtUEUsIGJsb2NrY2hhaW4CAAAAIzNQTlJvcm1RVHcxODZhOTFtclVxTHh0c1lwd3hjN2hnM3c1CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAACZDdGEuIFZHVCBBZG1pbiBkZWwgRTJFIE4wOCwgYmxvY2tjaGFpbgIAAAAjM1BSNUFnN2pQQkdwZnI3VVVVYWNCUlQ1VzVXZVBDOTFCTVcFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAEFAAAAC3VzZXJBZGRyZXNzCQAAaAAAAAIAAAAAAAAAAGQFAAAACG9yZGVyUXR5BQAAAANWR1QJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAKYWRtTjA4VkdUVwkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAEsIBQAAAANwbXQAAAAGYW1vdW50AAAAAAAAAABkBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEWFkbU4wOHN5c1ZHVFBhaXNXCQAAaQAAAAIJAABoAAAAAgAAAAAAAAAABQgFAAAAA3BtdAAAAAZhbW91bnQAAAAAAAAAAGQFAAAABHVuaXQFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAAC093bmVyUHViS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAAWQFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAYHBzhTtg==",
    "height": 3221319,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: ENLZ1jLAfnU3sQqvLmAAxLAxD3ayg5okNAJo1ghCUypb
Next: none

Diff: 
Old
New
Differences
136
136
 
            if ((0 >= ((startTotalQty - preIcoQty) - orderQty)))
137
137
 
                then throw("Lo sentimos, por ahora no hay oferta de tokens para su transacción")
138
138
 
                else if ((totalAmount > pmt.amount))
139
-
                    then throw("Payment Amount can't be less than item Purchase Order")
139
+
                    then throw("El monto del pago no puede ser menor que la orden de compra del artículo")
140
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)]))
141
+
                        then throw("El monto del pago no puede ser mayor que la orden de compra del artículo")
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(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. VGT Admin del N08-PE, blockchain", "3PNRormQTw186a91mrUqLxtsYpwxc7hg3w5"), DataEntry("Cta. VGT Admin del E2E 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
143
 
            }
144
144
 
    }
145
145
 

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

github/deemru/w8io/786bc32 
45.56 ms ◑