[
"autonomous agent",
{
"bounce_fees": {
"base": 25000
},
"init": "{
$nom_AA = 'Portal';
$_AUT_000 = 'XD7FVUM442NPIIMLRIT2FYWJEDQ4ILLJ';
$_Registre = 'INUEIZZF4XIHFBDYURL3GZCLNV3MOBKW';
// Principals
$adr__ = trigger.address;
$args = trigger.data;
$unitat = trigger.output[[ asset != base ]].asset;
$resp_unit = trigger.data.resp_unit;
$qt = trigger.output[[ asset = $unitat ]];
$dades = {};
$registre = {};
// Abreviacions
$admin = $args.admin;
$proces = $args.proces;
$ref = $args.ref;
$val = $args.val;
$idprop = $args.idprop;
$adr = $args.adr;
$estat = $args.estat;
$qt_args = $args.qt;
// Funcions
$__dada = $refval =>
data_feed[[ oracles = $_Registre, feed_name = $refval, ifnone = false ]];
// Retorna missatge referenciat
$_Missatges = $args._Missatges otherwise $__dada( '_Missatges' );
$__msg = $ordmsg => var[ $_Missatges ][ 'Portal_' || $ordmsg ];
// Retorna valor argument lliurat si el troba. Altrament, rebota.
$__arg = $arg =>
$args[ $arg ] otherwise
//bounce( "Cal proporcionar el valor de: " || $arg );
bounce( 'Cal proporcionar el valor de: ' || $arg );
// Provisions
$provisio = $__dada( 'Provisio' ) otherwise 2000;
$romanent_minim = $__dada( 'Romanent_Minim' ) otherwise 10000;
$__provisio = $rf => {
$romanent = balance[ $rf ][ base ];
$romanent < $romanent_minim ?
$provisio * 10 :
$romanent > $romanent_minim * 5 ?
$provisio / 10 :
$provisio
};
// Identificacions
$actuant_es_AUT_000 = $adr__ == $_AUT_000;
$_AUT_0 = $__dada( '_AUT_0' ) otherwise '';
$_AUT_A = $__dada( '_AUT_A' ) otherwise '';
$_AUT_B = $__dada( '_AUT_B' ) otherwise '';
$_AUT_C = $__dada( '_AUT_C' ) otherwise '';
$actuant_es_AUT =
( $actuant_es_AUT_000 AND $_AUT_0 == '' )
OR $adr__ == $_AUT_0
OR $adr__ == $_AUT_A
OR $adr__ == $_AUT_B
OR $adr__ == $_AUT_C;
// Admin
if ( $admin ) {
// Autorització
if ( ! $actuant_es_AUT ) bounce( 'No autoritzada' );
// _AUT_000 pot saltar-se procés validació mentre no existeixi _AUT_0
$excepcio_inicial = $actuant_es_AUT_000 AND ! $_AUT_0;
$ordinal_proces = $__dada( 'ordinal_' || $proces ) + 1;
if ( ! $excepcio_inicial ) {
if ( !! $args.operacio AND $args.operacio == 'confirmacio' ) {
// La proposta ha d'existir
$temps_idprop = $__dada( $idprop )
otherwise bounce( "No hi ha cap proposta amb aquesta ref" );
// La confirmació l'ha de fer una AUT diferent a la proposant
if ( $__dada( $idprop || '_proposant' ) == $adr__ )
bounce( "El procés de confirmació l'ha d'endegar una altra AUT" );
// La confirmació només es pot fer quan ha transcorregut el lapse especificat
if ( $__dada( 'Lapse' ) > timestamp - $temps_idprop )
bounce( "Encara no es pot confirmar la proposta" );
// La proposta no pot constar com a refusada
if ( !! $__dada( 'refus_' || $idprop ))
bounce( "La proposta ha estat refusada" );
// La proposta ha de constar com a validada
if ( ! $__dada( 'validacio_' || $idprop ))
bounce( "La proposta encara no ha estat validada" );
$dades[ 'confirmacio_' || $idprop ] = timestamp;
$dades[ 'confirmacio_' || $idprop || '_confirmant' ] = $adr__;
$operacio = 'confirmacio';
} else {
$ordinal_proposta = $__dada( 'ordinal_proposta' ) + 1;
$nova_idprop = 'proposta_' || $ordinal_proposta;
$dades[ 'ordinal_proposta' ] = $ordinal_proposta;
$dades[ $nova_idprop ] = timestamp;
$dades[ $nova_idprop || '_proposant' ] = $adr__;
$dades[ $nova_idprop || '_proces' ] = $proces;
$operacio = 'proposta';
}
} else {
$ordinal_drecera = $__dada( 'ordinal_drecera' ) + 1;
$nova_iddrec = 'drecera_' || $ordinal_drecera;
$dades[ 'ordinal_drecera' ] = $ordinal_drecera;
$dades[ 'ordinal_' || $proces ] = $ordinal_proces;
$dades[ $nova_iddrec ] = timestamp;
$dades[ $nova_iddrec || '_actuant' ] = $adr__;
$operacio = 'drecera';
}
}
// Valors funcionals
$_Accions = $__dada( '_Accions' );
$_Convocatories = $__dada( '_Convocatories' );
$_Pronunciaments = $__dada( '_Pronunciaments' );
$_Validacio_TEST = $__dada( '_Validacio_TEST' );
$_Getons = $__dada( '_Getons' );
$_Implicacions = $__dada( '_Implicacions' );
$_Implementacions = $__dada( '_Implementacions' );
$_Emissions = $__dada( '_Emissions' );
$id_estels = $__dada( 'Estels' );
$escala_actual = $__dada( 'escala_actual' );
$cicle_actual = $__dada( 'cicle_actual' );
$provisio_registre = $__provisio( $_Registre );
$geto = $args.geto otherwise 'Estels';
$estat_geto =
$geto == 'Estels' ?
'operatiu' :
$__dada( $geto || '_estat' ) otherwise '';
// Operativitat getó
if( $estat_geto != 'operatiu' AND
$proces != 'estat_geto' AND
$proces != 'inscripcio'
)
bounce( 'Getó desconegut o no operatiu' );
}",
"messages": {
"cases": [
{
"if": "{ $admin AND $proces == 'definicio' }",
"init": "{
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_ref' ] = $ref;
$dades[ $nova_idprop || '_val' ] = $val;
} else {
$nova_ref = $__dada( $idprop || '_ref' ) otherwise $ref;
$nou_val = $__dada( $idprop || '_val' ) otherwise $val;
$dades[ $nova_ref ] = $nou_val;
}
$registre.dades = $dades;
}",
"messages": [
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio_registre }"
}
]
}
},
{
"app": "state",
"state": "{
response[ 'Nova ref' ] = $nova_ref otherwise $ref;
response[ 'Nou valor' ] = $nou_val otherwise $val;
response[ 'Proposta' ] = $nova_idprop otherwise $idprop otherwise 'drecera';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $proces == 'acces_accions' }",
"init": "{
$ACC = $__arg( 'accio' );
$activacio_inicial = $ACC == 'Activacio' AND $geto == 'Estels';
$ref_unitat = $__dada( 'geto_' || $unitat );
$estat_unitat =
$unitat == $id_estels OR $__dada( $ref_unitat || '_estat' ) == 'operatiu' ?
'operatiu' :
bounce( ' Unitat ' || $unitat || ' desconeguda o getó no operatiu' );
// Comprova si adreça activada per operar amb getó especificat
$__activada = ( $refe, $adre ) =>
!! $__dada( 'activacio_' || $refe || '_' || $adre ) ?
true :
bounce( 'Adreça no activada per a ' || $refe );
// Control adr__ activada
if ( $ACC == 'Activacio') {
if ( $geto != 'Estels' )
$activa_x_estels = $__activada( 'Estels', $adr__ );
} else {
$activa_x_estels = $__activada( 'Estels', $adr__ );
if ( $geto != 'Estels' )
$activa_x_geto = $__activada( $geto, $adr__ );
}
// Consulta si acció restringida
$__accRestringida = $ac => {
$geto == 'Estels' ?
false :
$__dada( $geto || '_' || $ac || 'ns_restringides' )
};
// Si acció restringida per al getó especificat, comprova si adreça capacitada
$__capacitada = ( $ac, $ad ) => {
$capacitacio = $__dada( $geto || '_' || $ac || '_' || $ad ) otherwise '';
$__accRestringida( $ac ) AND $capacitacio != 'capacitada' ?
bounce( 'Acció restringida i adreça no capacitada' ) :
true
};
$adr__capacitada = $__capacitada( $ACC, $adr__ );
// Les contribucions només es poden fer en Estels
if ( $ACC == 'Contribucio' AND $geto != 'Estels' )
bounce( 'Les contribucions només es poden fer en Estels' );
// Tractament específic de les Transfers
if ( $ACC == 'Transfer' ) {
$receptora = $__arg( 'receptora' );
$receptora_activada =
$__activada( 'Estels', $receptora )
AND $__activada( $geto, $receptora );
$receptora_capacitada = $__capacitada( 'recepcio', $receptora );
$ref_subscripcio = 'subscripcio_' || $geto || '_' || $receptora;
$ord_subscripcio = $__dada( $ref_subscripcio );
$ref_renovacio = 'renovacio_' || $geto || '_' || $receptora;
$ord_renovacio = $__dada( $ref_renovacio );
$cicle_renovacio = $__dada( $ord_renovacio || '_cicle' );
$receptora_renovada =
!! $cicle_renovacio
AND $cicle_renovacio == $cicle_actual;
if ( $ord_subscripcio AND $receptora_renovada ) {
$percent_donacio = $__dada( $ord_subscripcio || '_dona' );
$args.qt_donacio = floor( $qt * $percent_donacio / 100 );
$qt_accio = $qt - $args.qt_donacio;
}
}
//...
//$args.dades = $dades;
$args._Registre = $_Registre;
$args.geto = $geto;
$args.qt_accio = $qt_accio otherwise $qt;
}",
"messages": [
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Accions }",
"amount": "{ $__provisio( $_Accions ) }"
}
]
}
},
{
"if": "{ $ACC == 'Transfer' }",
"app": "payment",
"payload": {
"asset": "{ $unitat }",
"outputs": [
{
"address": "{ $receptora }",
"amount": "{ $args.qt_accio }"
}
]
}
},
{
"app": "state",
"state": "{
if ( !! $receptora )
response[ 'Transfer a' ] =
$receptora || " de " || $args.qt_accio || " " || $geto;
response[ 'Procés' ] = $proces;
response[ 'Romanent en Estels' ] = balance[ $id_estels ] || ' Estels';
}"
}
]
},
{
"if": "{
$proces == 'assignacio' OR
$proces == 'conversio' OR
$proces == 'retribucio'
}",
"init": "{
if ( $admin AND $proces == 'assignacio' ) {
$ref_assignacio = 'assignacio_' || $args.requeriment;
$rebedora = $args.rebedora;
$qt_assignacio = $__dada( $idprop || '_qt' ) otherwise $qt_args;
if ( !! $__dada( $ref_assignacio ))
bounce( 'Assignació ja realitzada' );
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_rebedora' ] = $rebedora;
$dades[ $nova_idprop || '_resolucio' ] = $args.resolucio;
$dades[ $nova_idprop || '_requeriment' ] = $args.requeriment;
$dades[ $nova_idprop || '_qt' ] = $qt_args;
$dades[ $nova_idprop || '_unitat' ] = $args.unitat;
} else {
$ord_assignacio = 'assignacio_' || $ordinal_proces;
$id_unitat = $__dada( $idprop || '_unitat' ) otherwise $args.unitat;
$dades[ $ref_assignacio ] = 'conversio_' || $ordinal_proces;
$dades[ $ord_assignacio || '_data' ] = timestamp;
$dades[ $ord_assignacio || '_unitat' ] = $id_unitat;
$dades[ $ord_assignacio || '_rebedora' ] =
$__dada( $idprop || '_rebedora' ) otherwise $rebedora;
$dades[ $ord_assignacio || '_resolucio' ] =
$__dada( $idprop || '_resolucio' ) otherwise $args.resolucio;
$dades[ $ord_assignacio || '_requeriment' ] =
$__dada( $idprop || '_requeriment' ) otherwise $args.requeriment;
$dades[ $ord_assignacio || '_qt' ] = $qt_assignacio;
$total_assignacions = $__dada( 'total_assignacions' ) otherwise 0;
$dades[ 'total_assignacions' ] = $total_assignacions + $qt_assignacio;
}
$payment = [ $id_unitat, $rebedora, $qt_args ];
$realitzable = $operacio != 'proposta';
}
if ( $proces == 'conversio' ) {
$qt_dipositada = $__dada( $ref || '_qt' );
if ( ! $qt_dipositada )
bounce( 'Dipòsit desconegut' );
$qt_conversio = $__dada( $ref || '_qt_conversio' );
$geto_diposit = $__dada( $ref || '_geto_diposit' );
$cicle_conversio = $__dada( $ref || '_cicle_conversio' );
$ord_renovacio = $__dada( 'renovacio_' || $geto_diposit || '_' || $adr__ );
$cicle_renovat = $__dada( $ord_renovacio || '_cicle' );
$id_unitat = $geto_diposit == $id_estels ? "base" : $id_estels;
$ref_conversio = 'conversio_' || $ref;
$ord_conversio = 'conversio_' || $ordinal_proces;
if ( $adr__ != $__dada( $ref || '_dipositant' ))
bounce( "L'adreça receptora ha de ser la dipositant" );
if ( !! $__dada( $ref_conversio ))
bounce( 'Aquest dipòsit ja ha estat convertit' );
if ( $cicle_conversio > $cicle_actual )
bounce( "Encara no és l'hora" );
if ( $cicle_renovat < $cicle_actual )
bounce( "No renovada en " || $geto_diposit || " per al cicle actual: " || $cicle_actual );
$dades[ $ref_conversio ] = $ord_conversio;
$dades[ $ord_conversio || '_data' ] = timestamp;
$dades[ $ord_conversio || '_qt' ] = $qt_conversio;
$dades[ $ord_conversio || '_unitat' ] = $id_unitat;
$dades[ $ord_conversio || '_rebedora' ] = $adr__;
$ref_total_conversions = 'total_conversions_' || $geto_diposit;
$total_conversions = $__dada( $ref_total_conversions ) otherwise 0;
$dades[ $ref_total_conversions ] = $total_conversions + $qt_dipositada;
$ref_total_taxes = 'total_taxes_' || $geto_diposit;
$total_taxes = $__dada( $ref_total_taxes ) otherwise 0;
$dades[ $ref_total_taxes ] = $total_taxes + $qt_dipositada - $qt_conversio;
$payment = [ $id_unitat, $adr__, $qt_conversio ];
$realitzable = true;
}
if ( $proces == 'retribucio' ) {
$ord_retribucio = 'retribucio_' || $ordinal_proces;
if ( $ref == 'aportacio_activacio' ) {
$ord_activacio = $__dada( 'activacio_estels_' || $adr__ )
otherwise bounce( 'Activació inexistent' );
$import = $__dada( 'activacio_estels_' || $ord_activacio || '_qt' );
$escala = $__dada( 'activacio_estels_' || $ord_activacio || '_escala' );
$interval = $__dada( 'activacio_estels_' || $ord_activacio || '_interval' );
$ref_retribucio = 'retribucio_' || $adr__ || '_escala_' || $escala_actual;
} else {
$import = $__dada( $ref || '_qt' ) otherwise bounce( 'Contribució desconeguda' );
$escala = $__dada( $ref || '_escala' );
$interval = $__dada( $ref || '_interval' );
if ( $adr__ != $__dada( $ref || '_contribuidora' ))
bounce( "Només l'adreça contribuïdora pot rebre la retribució" );
$ref_retribucio = 'retribucio_' || $ref || '_escala_' || $escala_actual;
$dades[ $ord_retribucio || '_rebedora' ] = $adr__;
}
// La retribució hi és pendent
if ( !! $__dada( $ref_retribucio ))
bounce( "Ja ha estat retribuïda per a l'escala actual" );
// Cal que s'hagi produït un salt d'escala
if ( $escala_actual == $escala )
bounce( "Cal que es produeixi un salt d'escala" );
// Cal que hagi passat igual o més temps entre la data del salt d'escala i la de la
//retribució que entre la data del salt d'escala de la contribucio i la data d'aquesta
$diferencia_intervals = $__dada( 'interval_escala' ) - $interval;
if ( $diferencia_intervals < 0 )
bounce( "Encara no és l'hora. Falten: " || $diferencia_intervals || ' segons' );
// Determina la qt de la retribucio
$qt_retribucio = $import * ( $escala_actual - $escala );
//...
$dades[ $ref_retribucio ] = 'retribucio_' || $ord_retribucio;
$dades[ $ord_retribucio || '_data' ] = timestamp;
$dades[ $ord_retribucio || '_qt' ] = $qt_retribucio;
$total_retribucions = $__dada( 'total_retribucions' ) otherwise 0;
$dades[ 'total_retribucions' ] = $total_retribucions + $qt_retribucio;
$payment = [ $id_estels, $adr__, $qt_retribucio ];
$realitzable = true;
}
$registre.dades = $dades;
}",
"messages": [
{
"if": "{ $realitzable }",
"app": "payment",
"payload": {
"asset": "{ $payment[0] }",
"outputs": [
{
"address": "{ $payment[1] }",
"amount": "{ $payment[2] }"
}
]
}
},
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio_registre }"
}
]
}
},
{
"app": "state",
"state": "{
if ( $proces == 'assignacio' ) {
response[ 'Proposta' ] =
$nova_idprop otherwise $ref otherwise 'drecera';
response[ 'Quantitat' ] = $qt_args;
response[ 'Operació' ] = $operacio;
}
if ( $proces == 'retribucio' ) {
response[ 'Escala Actual' ] = $escala_actual;
}
response[ 'Rebedora' ] = $rebedora otherwise $adr__;
response[ 'Unitat' ] = $id_unitat otherwise $payment[0];
response[ 'Ref procés' ] =
$ref_assignacio otherwise $ref_conversio otherwise $ref_retribucio;
response[ 'Procés' ] = $proces;
}"
}
]
},
{
"if": "{
( $proces == 'validacio_directa_TEST' AND $actuant_es_AUT )
OR ( $admin AND $proces == 'convocatoria' )
OR $proces == 'pronunciament'
}",
"init": "{
$args._Registre = $_Registre;
if ( $proces == 'pronunciament' ) $adr_aa = $_Pronunciaments;
if ( $proces == 'convocatoria' ) $adr_aa = $_Convocatories;
if ( $proces == 'validacio_directa_TEST' ) $adr_aa = $_Validacio_TEST;
}",
"messages": [
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $adr_aa }",
"amount": "{ $__provisio( $adr_aa ) }"
}
]
}
},
{
"if": "{ $proces == 'convocatoria' }",
"app": "payment",
"payload": {
"asset": "{ $id_estels }",
"outputs": [
{
"address": "{ $_Convocatories }",
"amount": "{ 20 }"
}
]
}
}
]
},
{
"if": "{ $proces == 'generacio' }",
"init": "{
$ref_generacio = 'generacio_' || $__dada( 'ordinal_generacio' ) + 1;
$dades[ $ref_generacio || '_data' ] = timestamp;
$dades[ $ref_generacio || '_proposant' ] = $adr__;
$registre.dades = $dades;
}",
"messages": [
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Implementacions }",
"amount": "{ $__provisio( $_Implementacions ) }"
}
]
}
},
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio }"
}
]
}
},
{
"app": "state",
"state": "{
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'configuracio' }",
"init": "{
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_proposant' ] = $adr__;
}
else {
$ref_configuracio = 'configuracio_' || $__dada( 'ordinal_configuracio' ) + 1;
$proposant = $__dada( $idprop || '_proposant' ) otherwise $adr__;
$dades[ $ref_configuracio || '_data' ] = timestamp;
$dades[ $ref_configuracio || '_confirmant' ] = $adr__;
$dades[ $ref_configuracio || '_proposant' ] = $proposant;
}
$registre.dades = $dades;
}",
"messages": [
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Implementacions }",
"amount": "{ $__provisio( $_Implementacions ) }"
}
]
}
},
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio }"
}
]
}
},
{
"app": "state",
"state": "{
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'inscripcio' }",
"init": "{
// Ha de constar com a pendent d'inscripció
if ( $estat_geto != 'pendent_inscripcio' )
bounce( "Aquest getó no consta com a pendent d'inscrpció" );
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_estat' ] = 'operatiu';
$dades[ $nova_idprop || '_proposant' ] = $adr__;
}
else {
$dades[ $geto || '_estat' ] = 'operatiu';
$dades[ $geto || '_confirmant' ] = $adr__;
$dades[ $geto || '_proposant' ] =
$operacio == 'confirmacio' ?
$__dada( $idprop || '_proposant' ) :
$adr__;
}
$registre.dades = $dades;
}",
"messages": [
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio }"
}
]
}
},
{
"app": "state",
"state": "{
response[ 'Nou estat ' || $geto ] = 'operatiu';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'estat_geto' }",
"init": "{
// El getó ha d'existir
if ( ! $__dada( $geto || '_id' ))
bounce( 'Getó inexistent' );
// No ha de constar com a pendent d'inscripció
if ( $estat_geto == 'pendent_inscripcio' )
bounce( "Aquest getó consta com a pendent d'inscrpció" );
//...
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_geto' ] = $geto;
$dades[ $nova_idprop || '_estat' ] = $estat;
} else {
$nou_estat = $__dada( $idprop || '_estat' ) otherwise $estat;
$dades[ $geto || '_estat' ] = $nou_estat;
}
$registre.dades = $dades;
}",
"messages": [
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio_registre }"
}
]
}
},
{
"app": "state",
"state": "{
response[ 'Nou estat' || $geto ] = $nou_estat otherwise $estat;
response[ 'Proposta' ] = $nova_idprop otherwise $ref otherwise 'drecera';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'emissio' }",
"init": "{
// S'hi han d'aportar Estels
$estels = $__dada( 'Estels' );
if ( $unitat != $id_estels )
bounce( 'Cal aportar-hi Estels' );
// La quantitat ha de ser superior a la mínima establerta
$minim = $__dada( 'Generacio_Minima' );
if ( $qt < $minim )
bounce( 'Cal aportar-hi si més no ' || $minim || ' Estels' );
// Retorna una dada del getó
$__dada_geto = $refval => $__dada( $geto || '_' || $refval );
// Només les admins...
$_Aut_A = $__dada_geto( '_AUT_A' ) otherwise '';
$_Aut_B = $__dada_geto( '_AUT_B' ) otherwise '';
$_Aut_C = $__dada_geto( '_AUT_C' ) otherwise '';
$autoritzacio =
$_Aut_A == $adr__ OR $_Aut_B == $adr__ OR $_Aut_C == $adr__;
if ( ! $autoritzacio )
bounce( 'No autoritzada per administrar el getó' );
$idgeto = $__dada_geto( 'id' );
$_FOP = $__dada( '_FOP' );
$factor_conversio = $__dada_geto( 'factor_conversio' );
$total_emissio = $qt * $factor_conversio;
// No es pot excedir el topall d'emissions establert
$total_convertits =
$__dada( 'Total_estels_convertits_' || $geto ) otherwise 0;
$nou_total = $total_convertits + $qt;
$dades[ 'Total_estels_convertits_' || $geto ] = $nou_total;
$ordinal_emissio = $__dada( 'ordinal_emissio' ) + 1;
$ref_emissio = 'emissio_' || $ordinal_emissio;
$dades[ $ref_emissio || '_data' ] = timestamp;
$dades[ $ref_emissio || '_geto' ] = $geto;
$dades[ $ref_emissio || '_estels' ] = $qt;
$dades[ $ref_emissio || '_emesos' ] = $total_emissio;
$dades[ $ref_emissio || '_emissora' ] = $adr__;
$registre.dades = $dades;
$args.idgeto = $idgeto;
$args._FOP = $__dada_geto( '_FOP' );
$args.total_emissio = $total_emissio;
$args._Registre = $_Registre;
}",
"messages": [
{
"app": "data",
"payload": "{ $args || $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio }"
},
{
"address": "{ $_Emissions }",
"amount": "{ $__provisio( $_Emissions ) }"
}
]
}
},
{
"app": "payment",
"payload": {
"asset": "{ $unitat }",
"outputs": [
{
"address": "{ $_Emissions }",
"amount": "{ 1 }"
},
{
"address": "{ $_FOP }",
"amount": "{ $qt - 1 }"
}
]
}
},
{
"app": "state",
"state": "{
response[ 'Getó' ] = $geto;
response[ 'Emissió' ] = $ordinal_emissio;
response[ 'Adreça emissora' ] = $adr__;
response[ 'FOP destinatari' ] = $_FOP;
response[ 'Unitats del getó emeses' ] = $total_emissio;
response[ 'Factor de conversió' ] = $factor_conversio;
response[ 'Estels convertits' ] = $qt;
response[ "Total d'Estels convertits" ] = $total_convertits;
response[ 'Procés' ] = $proces;
}"
}
]
},
{
"if": "{ $admin AND $args.admin_geto }",
"init": "{
$args.operacio = $operacio;
$args.nova_idprop = $nova_idprop;
$args.idprop = $idprop;
$args.ordinal_proces = $ordinal_proces;
}",
"messages": [
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Getons }",
"amount": "{ $__provisio( $_Getons ) }"
}
]
}
}
]
},
{
"if": "{
$admin AND $args.admin_vincles
OR $proces == 'nova_isox'
OR $proces == 'nou_estat_isox'
OR $proces == 'nova_delegacio'
OR $proces == 'final_delegacio'
}",
"init": "{
if( $args.admin_vincles ) {
$args.operacio = $operacio;
$args.nova_idprop = $nova_idprop;
$args.idprop = $idprop;
}
}",
"messages": [
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Implicacions }",
"amount": "{ $__provisio( $_Implicacions ) }"
}
]
}
}
]
}
]
}
}
]