[
"autonomous agent",
{
"bounce_fees": {
"base": 25000
},
"init": "{
$nom_AA = 'Portal';
$_AUT_000 = 'XD7FVUM442NPIIMLRIT2FYWJEDQ4ILLJ';
//$_Registre = 'T32YNVTGHWFY3P64GVLSURLQWIMBJ4FD';
$_Registre = trigger.data[ '_Registre' ]; // * només x tests
// 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 valor argument lliurat si el troba. Altrament, rebota.
$__arg = $arg =>
$args[ $arg ] otherwise
bounce ( "Cal proporcionar el valor de: " || $arg );
// Retorna ordinal
$__ordinal = $rf => {
$ord = $__dada( 'ordinal_' || $rf );
$ord ? $ord + 1 : 1
};
// Provisions
$provisio = $__dada( 'Provisio' ) otherwise 2000;
$romanent_minim = $__dada( 'Romanent_Minim' ) otherwise 10000;
$__provisio = $rf => {
$romanent = balance[ $rf ][ base ];
$romanent > $romanent_minim ?
$provisio :
$provisio * 10
};
/*
$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;
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 {
$ord_prop = $__ordinal( $proces );
$nova_idprop = 'prop_' || $proces || '_' || $ord_prop;
$dades[ 'ordinal_' || $proces ] = $ord_prop;
$dades[ $nova_idprop ] = timestamp;
$dades[ $nova_idprop || '_proposant' ] = $adr__;
$operacio = 'proposta';
}
} else {
$ord_prop = $__ordinal( $proces );
$nova_iddrec = 'drecera_' || $proces || '_' || $ord_prop;
$dades[ 'ordinal_' || $proces ] = $ord_prop;
$dades[ $nova_iddrec ] = timestamp;
$dades[ $nova_iddrec || '_actuant' ] = $adr__;
$operacio = 'drecera';
}
}
// Valors funcionals
$_Accions = $__dada( '_Accions' );
$_Validadores = $__dada( '_Validadores' );
$_Convocatories = $__dada( '_Convocatories' );
$_Pronunciaments = $__dada( '_Pronunciaments' );
$_Validacio_TEST = $__dada( '_Validacio_TEST' );
$_Getons = $__dada( '_Getons' );
$_Inicialitzacio = $__dada( '_Inicialitzacio' );
$_Emissions = $__dada( '_Emissions' );
$id_estels = $__dada( 'Estels' );
$escala_actual = $__dada( 'escala_actual' );
$cicle_actual = $__dada( 'cicle_actual' );
$provisio_registre = $__provisio( $_Registre );
$nomgeto = $args.nomgeto;
$refgeto = !! $nomgeto ? 'geto_' || $nomgeto : 'estels';
$estat_geto = $__dada( $refgeto || '_estat' ) otherwise '';
// Operativitat getó
if( $refgeto != 'estels' AND
( $estat_geto != 'operatiu' AND
$proces != 'estat_geto' AND
$proces != 'inscripcio'
) )
bounce ( 'Getó inexistent 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' );
$ref_unitat =
$unitat == $id_estels ?
'estels' :
$__dada( 'refgeto_' || $unitat );
$estat_unitat =
$unitat == $id_estels ?
'operatiu' :
$__dada( $ref_unitat || '_estat' ) == 'operatiu' ?
'operatiu' :
bounce ( 'Getó inexistent o no operatiu' );
// Comprova si adreça activada per operar amb getó especificat
$__activada = ( $adre, $refe ) =>
!! $__dada( 'activacio_' || $adre || '_en_' || $refe ) ?
true :
bounce ( 'Adreça no activada per a ' || $refe );
// Control adr__ activada
if ( $ACC == 'Activacio') {
if ( $refgeto != 'estels' )
$activa_x_estels = $__activada( $adr__, 'estels' );
} else {
$activa_x_estels = $__activada( $adr__, 'estels' );
if ( $refgeto != 'estels' )
$activa_x_geto = $__activada( $adr__, $refgeto );
}
// Consulta si acció restringida
$__accRestringida = $ac => {
$refgeto == 'estels' ?
false :
$__dada( $refgeto || '_' || $ac || 'ns_restringides' )
};
// Si acció restringida per al getó especificat, comprova si adreça capacitada
$__capacitada = ( $ac, $ad ) => {
$capacitacio =
$__dada( 'capacitacio_' || $refgeto || '_' || $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 $refgeto != '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( $receptora, 'estels' )
AND $__activada( $receptora, $refgeto );
$receptora_capacitada = $__capacitada( 'recepcio', $receptora );
$ref_subscripcio = 'subscripcio_' || $receptora || '_en_' || $refgeto;
$receptora_subscrita = !! $__dada( $ref_subscripcio );
$ref_renovacio = 'renovacio_' || $receptora || '_en_' || $refgeto;
$cicle_renovacio = $__dada( $ref_renovacio || '_cicle' );
$receptora_renovada =
!! $cicle_renovacio
AND $cicle_renovacio == $cicle_actual;
if ( $receptora_subscrita AND $receptora_renovada ) {
$percent_derivacio = $__dada( $ref_subscripcio || '_derivacio' );
$args.qt_derivacio = floor( $qt * $percent_derivacio / 100 );
$qt_accio = $qt - $args.qt_derivacio;
}
}
//...
$args.dades = $dades;
$args._Registre = $_Registre;
$args.refgeto = $refgeto;
$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 || " " || $refgeto;
response[ 'Procés' ] = $proces;
response[ 'Romanent en bytes' ] = balance[ base ] || ' bytes';
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;
$destinataria = $args.destinataria;
$qt_assignacio = $__dada( $idprop || '_qt' ) otherwise $qt_args;
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_destinataria' ] = $destinataria;
$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 {
$id_unitat = $__dada( $idprop || '_unitat' ) otherwise $args.unitat;
$dades[ $ref_assignacio || '_unitat' ] = $id_unitat;
$dades[ $ref_assignacio || '_destinataria' ] =
$__dada( $idprop || '_destinataria' ) otherwise $destinataria;
$dades[ $ref_assignacio || '_resolucio' ] =
$__dada( $idprop || '_resolucio' ) otherwise $args.resolucio;
$dades[ $ref_assignacio || '_requeriment' ] =
$__dada( $idprop || '_requeriment' ) otherwise $args.requeriment;
$dades[ $ref_assignacio || '_qt' ] = $qt_assignacio;
$total_assignacions = $__dada( 'total_assignacions' ) otherwise 0;
$dades[ 'total_assignacions' ] = $total_assignacions + $qt_assignacio;
}
$payment = [ $id_unitat, $destinataria, $qt_args ];
$realitzable = $operacio != 'proposta';
}
if ( $proces == 'conversio' ) {
$qt_dipositada = $__dada( $__arg( 'ref' ))
otherwise bounce ( 'Dipòsit inexistent' );
$qt_conversio = $__dada( $ref || '_qt_conversio' );
$geto_diposit = $__dada( $ref || '_geto_diposit' );
$cicle_conversio = $__dada( $ref || '_cicle_conversio' );
$cicle_renovat = $__dada( 'renovacio_' || $adr__ || '_en_' || $geto_diposit || '_cicle' );
$id_unitat = $geto_diposit == $id_estels ? "base" : $id_estels;
$ref_conversio = 'conversio_' || $ref;
if ( $adr__ != $__dada( $ref || '_dipositant' ))
bounce ( "L'adreça receptora ha de ser la dipositant" );
if ( !! $__dada( $ref_conversio || '_data' ))
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 || '_data' ] = timestamp;
$dades[ $ref_conversio || '_qt' ] = $qt_conversio;
$dades[ $ref_conversio || '_unitat' ] = $id_unitat;
$dades[ $ref_conversio || '_destinataria' ] = $adr__;
$ref_total_conversions = 'total_conversions_de_' || $geto_diposit;
$total_conversions = $__dada( $ref_total_conversions ) otherwise 0;
$dades[ $ref_total_conversions ] = $total_conversions + $qt_dipositada;
$ref_total_taxes = 'total_taxes_de_' || $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' ) {
if ( $ref == 'aportacio_activacio' ) {
$import = $__dada( 'activacio_' || $adr__ || '_en_estels_qt' )
otherwise bounce ( 'Activació inexistent' );
$escala = $__dada( 'activacio_' || $adr__ || '_en_estels_escala' );
$interval = $__dada( 'activacio_' || $adr__ || '_en_estels_interval' );
$ref_retribucio = 'retribucio_activacio_' || $adr__ || '_escala_' || $escala_actual;
} else {
$import = $__dada( $ref ) otherwise bounce ( 'Contribució inexistent' );
$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;
}
// La retribució hi és pendent
$ref_retribucio = 'retribucio_' || $ref || '_escala_' || $escala_actual;
if ( !! $__dada( $ref_retribucio || '_data' ) )
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 || '_data' ] = timestamp;
$dades[ $ref_retribucio || '_qt' ] = $qt_retribucio;
$dades[ $ref_retribucio || '_destinataria' ] = $adr__;
$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[ 'Destinataria' ] = $destinataria 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": "{
( $admin AND $proces == 'estat_isox' ) OR
$proces == 'nou_isox' OR
$proces == 'nova_delegacio' OR
$proces == 'final_delegacio'
}",
"messages": [
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Validadores }",
"amount": "{ $__provisio( $_Validadores ) }"
}
]
}
}
]
},
{
"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": "{ $admin AND $args.admin_vincles }",
"init": "{
$tipus_vincle = $__dada( $idprop || '_tipus' ) otherwise $__arg( 'tipus' );
$_vincle = $__dada( $idprop || '_adr' ) otherwise $__arg( 'adr' );
$nom_vincle = $__dada( $idprop || '_nom' ) otherwise $__arg( 'nom' );
$ref_vincle = $tipus_vincle || '_' || $_vincle;
$registrat = !! $__dada( $ref_vincle );
if ( $proces == 'nou_vincle' ) {
// No ha d'estar registrat
if ( $registrat )
bounce ( "Ja n'hi ha un amb aquesta adreça" );
// El nom ha de ser únic
$nom_registrat = $__dada( $tipus_vincle || '_' || $nom_vincle );
if ( !! $nom_registrat AND $nom_registrat != '---' )
bounce ( "Ja n'hi ha un amb aquest nom" );
//...
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_adr' ] = $adr;
$dades[ $nova_idprop || '_nom' ] = $args.nom;
} else {
$ord_vincle = $__ordinal( $tipus_vincle );
$dades[ $ref_vincle || '_ordinal' ] = $ord_vincle;
$dades[ $ref_vincle || '_adr' ] = $_vincle;
$dades[ $ref_vincle || '_nom' ] = $nom_vincle;
$dades[ $ref_vincle || '_estat' ] = 'operatiu';
$dades[ $tipus_vincle || '_' || $nom_vincle ] = $ref_vincle;
$dades[ $tipus_vincle || '_' || $ord_vincle ] = $ref_vincle;
$dades[ 'ordinal_' || $tipus_vincle ] = $ord_vincle;
}
}
if ( $proces == 'estat_vincle' ) {
// Ha d'estar registrat
if ( ! $registrat )
bounce ( "No n'hi ha cap amb aquesta adreça" );
//...
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_adr' ] = $adr;
$dades[ $nova_idprop || '_estat' ] = $estat;
} else {
$nou_estat = $__dada( $idprop || '_estat' ) otherwise $estat;
$dades[ $ref_vincle || '_estat' ] = $nou_estat;
$dades[ $tipus_vincle || '_' || $nom_vincle ] =
$nou_estat == 'opereatiu' ? $ref_vincle : '---';
}
}
$registre.dades = $dades;
}",
"messages": [
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Registre }",
"amount": "{ $provisio_registre }"
}
]
}
},
{
"app": "state",
"state": "{
if ( !! $nou_estat )
response[ 'Nou estat ' || $ref_vincle ] = $nou_estat;
response[ 'Proposta' ] = $nova_idprop otherwise $ref otherwise 'drecera';
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[ $refgeto || '_estat' ] = 'operatiu';
$dades[ $refgeto || '_confirmant' ] = $adr__;
$dades[ $refgeto || '_proposant' ] =
$operacio == 'confirmacio' ?
$__dada( $nova_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 ' || $refgeto ] = 'operatiu';
response[ 'Procés' ] = $proces;
response[ 'Operació' ] = $operacio;
}"
}
]
},
{
"if": "{ $admin AND $proces == 'estat_geto' }",
"init": "{
// El getó ha d'existir
if ( ! $__dada( $refgeto || '_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 || '_nom' ] = $args.nom;
$dades[ $nova_idprop || '_estat' ] = $estat;
} else {
$nou_estat = $__dada( $idprop || '_estat' ) otherwise $estat;
$dades[ $refgeto || '_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' || $refgeto ] = $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( $refgeto || '_' || $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_' || $refgeto ) otherwise 0;
$nou_total = $total_convertits + $qt;
$dades[ 'Total_estels_convertits_' || $refgeto ] = $nou_total;
$ordinal_emissio = $__ordinal( 'emissio' );
$ref_emissio = 'emissio_' || $ordinal_emissio;
$dades[ $ref_emissio || '_data' ] = timestamp;
$dades[ $ref_emissio || '_geto' ] = $refgeto;
$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ó' ] = $refgeto;
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 estels convertits' ] = $total_convertits;
response[ 'Procés' ] = $proces;
}"
}
]
},
{
"if": "{ $admin AND $args.admin_geto }",
"init": "{
$args.operacio = $operacio;
$args.idprop = $nova_idprop;
}",
"messages": [
{
"app": "data",
"payload": "{ $args }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $_Getons }",
"amount": "{ $__provisio( $_Getons ) }"
}
]
}
}
]
}
]
}
}
]