w8 · tx · G4W···WQR

tx · G4WbrZ8WoPri985yoGWwFY3TytUZYDp159t5ZQPMLWQR

3NApHaksvsb9ZLCMrFNmz4AnUpV5EEytdG6:  -0.01000000 Waves

2021.11.16 13:04 [1793455] smart account 3NApHaksvsb9ZLCMrFNmz4AnUpV5EEytdG6 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "G4WbrZ8WoPri985yoGWwFY3TytUZYDp159t5ZQPMLWQR",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1637057165111,
    "version": 2,
    "chainId": 84,
    "sender": "3NApHaksvsb9ZLCMrFNmz4AnUpV5EEytdG6",
    "senderPublicKey": "G6gPQLsHXcXB4mNCeRfD2nra9dBGiPpeXEKYz1oWTzZ1",
    "proofs": [
        "rm27DCGZgTwiuNZMnQL62w7Xbdqv95SNSwFMJigEETbK3YetbGAZjwyqLghcZfyHHZqRtVfmk9ZtW738Er6i621"
    ],
    "script": "base64:AAIEAAAAAAAAAAQIAhIAAAAAAQEAAAAHZ2V0RGF0YQAAAAIAAAADYWRyAAAAA2tleQQAAAAEZGF0YQQAAAAHJG1hdGNoMAkABB0AAAACBQAAAANhZHIFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAgAAAAAFAAAABGRhdGEAAAABAAAAAWkBAAAABktvb3BTQwAAAAAEAAAACWx3QWRyZXNzZQkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BAAAAAtrb29wQWRyZXNzZQkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQEAAAAg58jmLhmUklDFFtwPenIJPMQcXIcOV+ofvaRmcZovjjYEAAAABGRhcHAJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEBAAAAIOBTvfs6WvpFB8STDjVFkuTCL9oTkGnzznvxK9BV9ldkBAAAAApzZWFyY2hLZXkxAgAAADRObWluLUphaHJfMjAxOS8yMDIwX0F1c2JyaW5ndW5nc3RlY2huaWstSEYtYW5nZXBhc3N0BAAAAApzZWFyY2hLZXkyAgAAAB1ObWluLUphaHJfMjAxOS8yMDIwX05PM18zMC02MAQAAAANa29vcFZlcmdsZWljaAIAAAAQS29vcGVyYXRpb25zbmFtZQQAAAAHbHdEYXRhMQkBAAAAB2dldERhdGEAAAACBQAAAAlsd0FkcmVzc2UFAAAACnNlYXJjaEtleTEEAAAACWtvb3BEYXRhMQkBAAAAB2dldERhdGEAAAACBQAAAAtrb29wQWRyZXNzZQUAAAAKc2VhcmNoS2V5MQQAAAAHYmV6S2V5MQkABLkAAAACCQAETAAAAAIJAAQlAAAAAQUAAAAJbHdBZHJlc3NlCQAETAAAAAIFAAAACnNlYXJjaEtleTEFAAAAA25pbAIAAAABXwQAAAAEYmV6MQkBAAAAB2dldERhdGEAAAACBQAAAARkYXBwBQAAAAdiZXpLZXkxBAAAAAdsd0RhdGEyCQEAAAAHZ2V0RGF0YQAAAAIFAAAACWx3QWRyZXNzZQUAAAAKc2VhcmNoS2V5MgQAAAAJa29vcERhdGEyCQEAAAAHZ2V0RGF0YQAAAAIFAAAAC2tvb3BBZHJlc3NlBQAAAApzZWFyY2hLZXkyBAAAAAdiZXpLZXkyCQAEuQAAAAIJAARMAAAAAgkABCUAAAABBQAAAAlsd0FkcmVzc2UJAARMAAAAAgUAAAAKc2VhcmNoS2V5MgUAAAADbmlsAgAAAAFfBAAAAARiZXoyCQEAAAAHZ2V0RGF0YQAAAAIFAAAABGRhcHAFAAAAB2JlektleTIEAAAAB2NoZWNrTHcJAQAAAAdnZXREYXRhAAAAAgUAAAAJbHdBZHJlc3NlBQAAAA1rb29wVmVyZ2xlaWNoBAAAAAljaGVja0tvb3AJAQAAAAdnZXREYXRhAAAAAgUAAAALa29vcEFkcmVzc2UFAAAADWtvb3BWZXJnbGVpY2gEAAAABHRlc3QJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAC2tvb3BBZHJlc3NlBQAAAApzZWFyY2hLZXkyBAAAAAVMV2FkcgIAAAAZY29ubmVjdGlvbl9mYXJtZXJfRmFybWVyMQQAAAAKY2hlY2tMV2FkcgkBAAAAB2dldERhdGEAAAACBQAAAAtrb29wQWRyZXNzZQUAAAAFTFdhZHIDCQAAAAAAAAIFAAAAB2NoZWNrTHcFAAAACWNoZWNrS29vcAMJAAAAAAAAAgkABCUAAAABBQAAAAlsd0FkcmVzc2UFAAAACmNoZWNrTFdhZHIDCQEAAAACIT0AAAACBQAAAARiZXoxAgAAABVQcsOkbWllIHd1cmRlIGdlemFobHQDCQAAAAAAAAIFAAAAB2x3RGF0YTEFAAAACWtvb3BEYXRhMQMJAQAAAAIhPQAAAAIFAAAABGJlejICAAAAFVByw6RtaWUgd3VyZGUgZ2V6YWhsdAMJAABnAAAAAgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAJbHdBZHJlc3NlBQAAAApzZWFyY2hLZXkyCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAtrb29wQWRyZXNzZQUAAAAKc2VhcmNoS2V5MgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAABFTQy1BdWZydWYoelAxelAyKQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAABhEaWUgQXVzYnJpbmd1bmdzdGVjaG5payAFAAAACWtvb3BEYXRhMQIAAAAcIHVuZCBOTzNfMzAtNjAgV2VydGUgdm9uID49IAkAAaQAAAABCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAtrb29wQWRyZXNzZQUAAAAKc2VhcmNoS2V5MgIAAAAoIHdlcmRlbiBtaXQgamV3ZWlscyAwLDAxIFdhdmUgZ2Vmw7ZyZGVydAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAdiZXpLZXkxAgAAABVQcsOkbWllIHd1cmRlIGdlemFobHQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAHYmV6S2V5MgIAAAAVUHLDpG1pZSB3dXJkZSBnZXphaGx0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAACWx3QWRyZXNzZQAAAAAAAB6EgAgFAAAAAWkAAAAKZmVlQXNzZXRJZAUAAAADbmlsCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAEFNDLUF1ZnJ1Zih6UDFtMikJAAEsAAAAAgkAASwAAAACAgAAABhEaWUgQXVzYnJpbmd1bmdzdGVjaG5payAFAAAACWtvb3BEYXRhMQIAAABiIHdpcmQgbWl0IDAsMDEgV2F2ZSBnZWbDtnJkZXJ0ICxhbGxlcmRpbmdzIGxpZWd0IGRlciBOTzNfMzAtNjAgV2VydCBuaWNodCBpbSBnZWbDtnJkZXJ0ZW4gQmVyZWljaC4JAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAHYmV6S2V5MQIAAAAVUHLDpG1pZSB3dXJkZSBnZXphaGx0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAACWx3QWRyZXNzZQAAAAAAAA9CQAgFAAAAAWkAAAAKZmVlQXNzZXRJZAUAAAADbmlsCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAE1NDLUF1ZnJ1Zih6UDFiZXpQMikJAAEsAAAAAgkAASwAAAACAgAAABhEaWUgQXVzYnJpbmd1bmdzdGVjaG5payAFAAAACWtvb3BEYXRhMQIAAABZIHdpcmQgbWl0IDAsMDEgV2F2ZSBnZWbDtnJkZXJ0LCBkaWUgUHLDpG1pZSBmw7xyIGRlbiBOTzNfMzAtNjAgV2VydCB3dXJkZSBiZXJlaXRzIGJlemFobHQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAHYmV6S2V5MQIAAAAVUHLDpG1pZSB3dXJkZSBnZXphaGx0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAACWx3QWRyZXNzZQAAAAAAAA9CQAgFAAAAAWkAAAAKZmVlQXNzZXRJZAUAAAADbmlsAwkBAAAAAiE9AAAAAgUAAAAEYmV6MgIAAAAVUHLDpG1pZSB3dXJkZSBnZXphaGx0AwkAAAAAAAACBQAAAAdsd0RhdGEyBQAAAAlrb29wRGF0YTIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAQU0MtQXVmcnVmKG0xelAyKQkAASwAAAACCQABLAAAAAICAAAAZUxlaWRlciB3aXJkIGlocmUgQXVzYnJpbmd1bmdzdGVjaG5payBha3R1ZWxsIG5pY2h0IGdlZsO2cmRlcnQsIGRlbm5vY2ggd2VyZGVuIE5PM18zMC02MCBXZXJ0ZSB2b24gPj0gCQABpAAAAAEJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAC2tvb3BBZHJlc3NlBQAAAApzZWFyY2hLZXkyAgAAACAgd2VyZGVuIG1pdCAwLDAxIFdhdmUgZ2Vmw7ZyZGVydAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAAdiZXpLZXkyAgAAABVQcsOkbWllIHd1cmRlIGdlemFobHQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAJbHdBZHJlc3NlAAAAAAAAD0JACAUAAAABaQAAAApmZWVBc3NldElkBQAAAANuaWwJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAEbjFuMgIAAABRTGVpZGVyIHdpcmQga2VpbmUgZGVyIGR1cmNoZ2Vmw7xocnRlbiBNYcOfbmFobWVuIHZvbiBpaHJlciBLb29wZXJhdGlvbiBnZWbDtnJkZXJ0BQAAAANuaWwJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAGbjFiZXoyAgAAAHlMZWlkZXIgd2lyZCBpaHJlIEF1c2JyaW5ndW5nc3RlY2huaWsgYWt0dWVsbCBuaWNodCBnZWbDtnJkZXJ0LCBkaWUgUHLDpG1pZSBmw7xyIGRlbiBOTzNfMzAtNjAgV2VydCB3dXJkZSBiZXJlaXRzIGJlemFobHQuBQAAAANuaWwDCQEAAAACIT0AAAACBQAAAARiZXoyAgAAABVQcsOkbWllIHd1cmRlIGdlemFobHQDCQAAZwAAAAIJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAACWx3QWRyZXNzZQUAAAAKc2VhcmNoS2V5MgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAALa29vcEFkcmVzc2UFAAAACnNlYXJjaEtleTIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAATU0MtQXVmcnVmKGJlelAxelAyKQkAASwAAAACCQABLAAAAAICAAAAV0RpZSBQcsOkbWllIGbDvHIgZGllIEF1c2JyaW5ndW5nc3RlY2huaWsgd3VyZGUgYmVyZWl0cyBiZXphaGx0LCBOTzNfMzAtNjAgV2VydGUgdm9uID49IAkAAaQAAAABCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAtrb29wQWRyZXNzZQUAAAAKc2VhcmNoS2V5MgIAAAAhIHdlcmRlbiBtaXQgMCwwMSBXYXZlIGdlZsO2cmRlcnQuCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAAB2JlektleTICAAAAFVByw6RtaWUgd3VyZGUgZ2V6YWhsdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAlsd0FkcmVzc2UAAAAAAAAPQkAIBQAAAAFpAAAACmZlZUFzc2V0SWQFAAAAA25pbAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAAZiZXoxbjICAAAAgkRpZSBQcsOkbWllIGbDvHIgZGllIEF1c2JyaW5ndW5nc3RlY2huaWsgd3VyZGUgYmVyZWl0cyBiZXphaGx0LCB1bmQgbGVpZGVyIGxpZWd0IGRlciBOTzNfMzAtNjAgV2VydCBuaWNodCBpbSBnZWbDtnJkZXJ0ZW4gQmVyZWljaC4FAAAAA25pbAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAAhzY2hvbkJlegIAAAA2QWxsZSBnZWbDtnJkZXJ0ZW4gTWHDn25haG1lbiB3dXJkZW4gYmVyZWl0cyBhdXNnZXphaGx0BQAAAANuaWwJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAALTFd1bmJla2FubnQCAAAAPEZlaGxlcjogQml0dGUgd2VuZGVuIHNpZSBzaWNoIGFuIGRpZSB6dWdlaMO2cmlnZSBLb29wZXJhdGlvbgUAAAADbmlsCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAC2ZhbHNjaGVLb29wAgAAAEJGZWhsZXI6IExlaWRlciB3dXJkZSBuaWNodCBkaWUgenVnZWhvZXJpZ2UgS29vcGVyYXRpb24gYXVzZ2V3w6RobHQFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24GAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgYGmvVN2A==",
    "height": 1793455,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 54KvujXYQfy3sYz8DwRZtAHLurZMWzSpYGoJw3rMS73W
Next: GoAFaW4BMkEzGHduasWo4gfJ7XYiCXjXzgtThCon6jD

Diff: 
Old New Differences
39 39                  then if ((lwData1 == koopData1))
40 40                      then if ((bez2 != "Prämie wurde gezahlt"))
41 41                          then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
42 -                             then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + koopData2) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
42 +                             then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
43 43                              else [StringEntry("SC-Aufruf(zP1m2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert ,allerdings liegt der NO3_30-60 Wert nicht im geförderten Bereich.")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
44 44                          else [StringEntry("SC-Aufruf(zP1bezP2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
45 45                      else if ((bez2 != "Prämie wurde gezahlt"))
46 46                          then if ((lwData2 == koopData2))
47 -                             then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + koopData2) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
47 +                             then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
48 48                              else [StringEntry("n1n2", "Leider wird keine der durchgeführten Maßnahmen von ihrer Kooperation gefördert")]
49 49                          else [StringEntry("n1bez2", "Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt.")]
50 50                  else if ((bez2 != "Prämie wurde gezahlt"))
51 51                      then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
52 -                         then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + koopData2) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
52 +                         then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
53 53                          else [StringEntry("bez1n2", "Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, und leider liegt der NO3_30-60 Wert nicht im geförderten Bereich.")]
54 -                     else [StringEntry("test", (" " + toString(getIntegerValue(koopAdresse, searchKey2)))), StringEntry("schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
54 +                     else [StringEntry("schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
55 55              else [StringEntry("LWunbekannt", "Fehler: Bitte wenden sie sich an die zugehörige Kooperation")]
56 56          else [StringEntry("falscheKoop", "Fehler: Leider wurde nicht die zugehoerige Kooperation ausgewählt")]
57 57      }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 4 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func getData (adr,key) = {
5 5      let data =     match getString(adr, key) {
6 6          case a: String => 
7 7              a
8 8          case _ => 
9 9              ""
10 10      }
11 11      data
12 12      }
13 13  
14 14  
15 15  @Callable(i)
16 16  func KoopSC () = {
17 17      let lwAdresse = addressFromPublicKey(i.callerPublicKey)
18 18      let koopAdresse = addressFromPublicKey(base58'GbnrZCzPFcuJG3qQkSimJedC5c9zbZLzmzVp8hkzxe37')
19 19      let dapp = addressFromPublicKey(base58'G6gPQLsHXcXB4mNCeRfD2nra9dBGiPpeXEKYz1oWTzZ1')
20 20      let searchKey1 = "Nmin-Jahr_2019/2020_Ausbringungstechnik-HF-angepasst"
21 21      let searchKey2 = "Nmin-Jahr_2019/2020_NO3_30-60"
22 22      let koopVergleich = "Kooperationsname"
23 23      let lwData1 = getData(lwAdresse, searchKey1)
24 24      let koopData1 = getData(koopAdresse, searchKey1)
25 25      let bezKey1 = makeString([toString(lwAdresse), searchKey1], "_")
26 26      let bez1 = getData(dapp, bezKey1)
27 27      let lwData2 = getData(lwAdresse, searchKey2)
28 28      let koopData2 = getData(koopAdresse, searchKey2)
29 29      let bezKey2 = makeString([toString(lwAdresse), searchKey2], "_")
30 30      let bez2 = getData(dapp, bezKey2)
31 31      let checkLw = getData(lwAdresse, koopVergleich)
32 32      let checkKoop = getData(koopAdresse, koopVergleich)
33 33      let test = getIntegerValue(koopAdresse, searchKey2)
34 34      let LWadr = "connection_farmer_Farmer1"
35 35      let checkLWadr = getData(koopAdresse, LWadr)
36 36      if ((checkLw == checkKoop))
37 37          then if ((toString(lwAdresse) == checkLWadr))
38 38              then if ((bez1 != "Prämie wurde gezahlt"))
39 39                  then if ((lwData1 == koopData1))
40 40                      then if ((bez2 != "Prämie wurde gezahlt"))
41 41                          then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
42 -                             then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + koopData2) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
42 +                             then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
43 43                              else [StringEntry("SC-Aufruf(zP1m2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert ,allerdings liegt der NO3_30-60 Wert nicht im geförderten Bereich.")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
44 44                          else [StringEntry("SC-Aufruf(zP1bezP2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
45 45                      else if ((bez2 != "Prämie wurde gezahlt"))
46 46                          then if ((lwData2 == koopData2))
47 -                             then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + koopData2) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
47 +                             then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
48 48                              else [StringEntry("n1n2", "Leider wird keine der durchgeführten Maßnahmen von ihrer Kooperation gefördert")]
49 49                          else [StringEntry("n1bez2", "Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt.")]
50 50                  else if ((bez2 != "Prämie wurde gezahlt"))
51 51                      then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
52 -                         then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + koopData2) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
52 +                         then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
53 53                          else [StringEntry("bez1n2", "Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, und leider liegt der NO3_30-60 Wert nicht im geförderten Bereich.")]
54 -                     else [StringEntry("test", (" " + toString(getIntegerValue(koopAdresse, searchKey2)))), StringEntry("schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
54 +                     else [StringEntry("schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
55 55              else [StringEntry("LWunbekannt", "Fehler: Bitte wenden sie sich an die zugehörige Kooperation")]
56 56          else [StringEntry("falscheKoop", "Fehler: Leider wurde nicht die zugehoerige Kooperation ausgewählt")]
57 57      }
58 58  
59 59  
60 60  @Verifier(tx)
61 61  func verify () = match tx {
62 62      case _: DataTransaction => 
63 63          true
64 64      case _: SetScriptTransaction => 
65 65          true
66 66      case _ => 
67 67          true
68 68  }
69 69

Old	New		Differences
39	39		then if ((lwData1 == koopData1))
40	40		then if ((bez2 != "Prämie wurde gezahlt"))
41	41		then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
42		-	then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + ~~koopData2~~) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
	42	+	then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
43	43		else [StringEntry("SC-Aufruf(zP1m2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert ,allerdings liegt der NO3_30-60 Wert nicht im geförderten Bereich.")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
44	44		else [StringEntry("SC-Aufruf(zP1bezP2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
45	45		else if ((bez2 != "Prämie wurde gezahlt"))
46	46		then if ((lwData2 == koopData2))
47		-	then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + ~~koopData2~~) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
	47	+	then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
48	48		else [StringEntry("n1n2", "Leider wird keine der durchgeführten Maßnahmen von ihrer Kooperation gefördert")]
49	49		else [StringEntry("n1bez2", "Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt.")]
50	50		else if ((bez2 != "Prämie wurde gezahlt"))
51	51		then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
52		-	then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + ~~koopData2~~) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
	52	+	then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
53	53		else [StringEntry("bez1n2", "Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, und leider liegt der NO3_30-60 Wert nicht im geförderten Bereich.")]
54		-	else [StringEntry("~~test", (" " + toString(getIntegerValue(koopAdresse, searchKey2)))), StringEntry("~~schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
	54	+	else [StringEntry("schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
55	55		else [StringEntry("LWunbekannt", "Fehler: Bitte wenden sie sich an die zugehörige Kooperation")]
56	56		else [StringEntry("falscheKoop", "Fehler: Leider wurde nicht die zugehoerige Kooperation ausgewählt")]
57	57		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 4 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func getData (adr,key) = {
5	5		let data = match getString(adr, key) {
6	6		case a: String =>
7	7		a
8	8		case _ =>
9	9		""
10	10		}
11	11		data
12	12		}
13	13
14	14
15	15		@Callable(i)
16	16		func KoopSC () = {
17	17		let lwAdresse = addressFromPublicKey(i.callerPublicKey)
18	18		let koopAdresse = addressFromPublicKey(base58'GbnrZCzPFcuJG3qQkSimJedC5c9zbZLzmzVp8hkzxe37')
19	19		let dapp = addressFromPublicKey(base58'G6gPQLsHXcXB4mNCeRfD2nra9dBGiPpeXEKYz1oWTzZ1')
20	20		let searchKey1 = "Nmin-Jahr_2019/2020_Ausbringungstechnik-HF-angepasst"
21	21		let searchKey2 = "Nmin-Jahr_2019/2020_NO3_30-60"
22	22		let koopVergleich = "Kooperationsname"
23	23		let lwData1 = getData(lwAdresse, searchKey1)
24	24		let koopData1 = getData(koopAdresse, searchKey1)
25	25		let bezKey1 = makeString([toString(lwAdresse), searchKey1], "_")
26	26		let bez1 = getData(dapp, bezKey1)
27	27		let lwData2 = getData(lwAdresse, searchKey2)
28	28		let koopData2 = getData(koopAdresse, searchKey2)
29	29		let bezKey2 = makeString([toString(lwAdresse), searchKey2], "_")
30	30		let bez2 = getData(dapp, bezKey2)
31	31		let checkLw = getData(lwAdresse, koopVergleich)
32	32		let checkKoop = getData(koopAdresse, koopVergleich)
33	33		let test = getIntegerValue(koopAdresse, searchKey2)
34	34		let LWadr = "connection_farmer_Farmer1"
35	35		let checkLWadr = getData(koopAdresse, LWadr)
36	36		if ((checkLw == checkKoop))
37	37		then if ((toString(lwAdresse) == checkLWadr))
38	38		then if ((bez1 != "Prämie wurde gezahlt"))
39	39		then if ((lwData1 == koopData1))
40	40		then if ((bez2 != "Prämie wurde gezahlt"))
41	41		then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
42		-	then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + ~~koopData2~~) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
	42	+	then [StringEntry("SC-Aufruf(zP1zP2)", (((("Die Ausbringungstechnik " + koopData1) + " und NO3_30-60 Werte von >= ") + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit jeweils 0,01 Wave gefördert")), StringEntry(bezKey1, "Prämie wurde gezahlt"), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 2000000, i.feeAssetId)]
43	43		else [StringEntry("SC-Aufruf(zP1m2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert ,allerdings liegt der NO3_30-60 Wert nicht im geförderten Bereich.")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
44	44		else [StringEntry("SC-Aufruf(zP1bezP2)", (("Die Ausbringungstechnik " + koopData1) + " wird mit 0,01 Wave gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt")), StringEntry(bezKey1, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
45	45		else if ((bez2 != "Prämie wurde gezahlt"))
46	46		then if ((lwData2 == koopData2))
47		-	then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + ~~koopData2~~) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
	47	+	then [StringEntry("SC-Aufruf(m1zP2)", (("Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, dennoch werden NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
48	48		else [StringEntry("n1n2", "Leider wird keine der durchgeführten Maßnahmen von ihrer Kooperation gefördert")]
49	49		else [StringEntry("n1bez2", "Leider wird ihre Ausbringungstechnik aktuell nicht gefördert, die Prämie für den NO3_30-60 Wert wurde bereits bezahlt.")]
50	50		else if ((bez2 != "Prämie wurde gezahlt"))
51	51		then if ((getIntegerValue(lwAdresse, searchKey2) >= getIntegerValue(koopAdresse, searchKey2)))
52		-	then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + ~~koopData2~~) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
	52	+	then [StringEntry("SC-Aufruf(bezP1zP2)", (("Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, NO3_30-60 Werte von >= " + toString(getIntegerValue(koopAdresse, searchKey2))) + " werden mit 0,01 Wave gefördert.")), StringEntry(bezKey2, "Prämie wurde gezahlt"), ScriptTransfer(lwAdresse, 1000000, i.feeAssetId)]
53	53		else [StringEntry("bez1n2", "Die Prämie für die Ausbringungstechnik wurde bereits bezahlt, und leider liegt der NO3_30-60 Wert nicht im geförderten Bereich.")]
54		-	else [StringEntry("~~test", (" " + toString(getIntegerValue(koopAdresse, searchKey2)))), StringEntry("~~schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
	54	+	else [StringEntry("schonBez", "Alle geförderten Maßnahmen wurden bereits ausgezahlt")]
55	55		else [StringEntry("LWunbekannt", "Fehler: Bitte wenden sie sich an die zugehörige Kooperation")]
56	56		else [StringEntry("falscheKoop", "Fehler: Leider wurde nicht die zugehoerige Kooperation ausgewählt")]
57	57		}
58	58
59	59
60	60		@Verifier(tx)
61	61		func verify () = match tx {
62	62		case _: DataTransaction =>
63	63		true
64	64		case _: SetScriptTransaction =>
65	65		true
66	66		case _ =>
67	67		true
68	68		}
69	69

github/deemru/w8io/169f3d6 
32.79 ms ◑