Definition: [
"autonomous agent",
{
"init": "{\r
$nom_AA = 'Accions';\r
$darrera_versio = '0000000000';\r
//$_Portal_original = '0000000000'; \r
$_Portal_original = trigger.address; //Hauria de ser fix amb adr darrer Portal \r
\r
$_Portal = var[ 'nou_portal' ] otherwise $_Portal_original;\r
\r
if ( $_Portal != trigger.address )\r
{ bounce ( 'Portal no habilitat' ); }\r
\r
// Principals\r
$args = trigger.data;\r
$adr__ = trigger.initial_address;\r
$idgeto = trigger.output[[ asset != base ]].asset;\r
$qt = trigger.output[[ asset = $idgeto ]];\r
\r
$dades_portal = var[ $_Portal ][ 'dades' ];\r
$generics = $dades_portal.generics;\r
$_estels = $generics._estels;\r
//$_FOP = $generics._FOP;\r
$_FOP = $_Portal;\r
$getons = var[ $generics._Getons ][ 'Getons' ];\r
$geto = $getons[ $idgeto ];\r
$es_en_getons = $idgeto != $_estels;\r
\r
$dades = var[ 'Dades' ] otherwise {};\r
$basiques = $dades.basiques;\r
$totals = $dades.totals;\r
$ordinals = $dades.ordinals otherwise {};\r
$cicle_actual = $basiques.cicle_actual;\r
\r
$params = $es_en_getons ? $geto.variables : $generics;\r
\r
\r
// Funcions\r
$__ordinal = $rf => $ordinals[ $rf ] ? $ordinals[ $rf ] + 1 : 1;\r
\r
// Si no s'ha lliurat l'argument especificat bota l'accés\r
$__arg = $arg =>\r
$args[ $arg ] otherwise \r
bounce( "Cal proporcionar el valor de: " || $arg );\r
\r
// Consulta si acció restringida\r
$__accRestringida = $acc => {\r
$es_en_getons ?\r
$geto.capacitacions [ $acc || 'ns_restringides' ] :\r
false\r
};\r
\r
// Si acció restringida per al getó especificat, comprova si adreça capacitada\r
$__capacitada = ( $acc, $adr ) => {\r
$__accRestringida( $acc ) \r
AND $geto.capacitacions[ $acc ][ $adr ].estat != 'capacitada' ?\r
bounce( 'Adreça no capacitada per a aquesta acció' ) :\r
true\r
};\r
\r
// Comprova si adreça activada per operar amb getó especificat\r
$__activada = ( $adr, $id_geto ) => {\r
var[ 'activacio_' || $adr || '_en_' || $id_geto ] ?\r
true :\r
bounce( ': Adreça no activada per a ' || $id_geto )\r
};\r
\r
// Comprova si qt proporcionada cobreix import especificat\r
$__qtSuficient = $ref =>\r
$params[ $ref ] > $qt ?\r
bounce( ": L'" || $ref || " és de " || $params[ $ref ] ) :\r
true;\r
\r
// Comprova si adreça consta com a subscrita\r
$__subscrita = $adr => {\r
$subscripcio = var[ 'subscripcio_' || $adr || '_en_' || $idgeto ];\r
$subscripcio ?\r
true :\r
bounce( ": Adreça no subscrita per a " || $idgeto ) };\r
\r
// Comprova si la subscripció ha estat renovada per al cicle actual\r
$__renovada = $adr => {\r
$renovacio = var[ 'renovacio_' || $adr || '_' || $idgeto ];\r
! $renovacio OR $cicle_actual > $renovacio ?\r
bounce( ": Subscripció de l'adreça no renovada per a " || $idgeto )\r
: $__subscrita( $adr ) };\r
\r
\r
// Consulta si hi ha cap avís per a adr__\r
$avis = $geto.avisos[ $adr__ ];\r
$avis_es_actual = $avis.temps + ( $generics.Lapse * 2 ) < timestamp;\r
if ( $avis AND $avis.rebot AND $avis_es_actual )\r
{ bounce ( $avis.text ); }\r
\r
\r
// Accions\r
$ACC = $__arg( 'accio' );\r
$_receptora = $ACC == 'Transfer' ? $__arg( 'receptora' ) : $_FOP;\r
\r
// Control adr__ activa\r
// Tret de l'activació per a Estels, per a la resta d'accions cal\r
// que l'adr__ actuant consti com a activada per operar amb Estels \r
if ( $es_en_getons ) {\r
$__activada( $adr__, $_estels );\r
if ( $ACC != 'Activacio' ) \r
{ $__activada( $adr__, $idgeto ); }\r
}\r
else if ( $ACC != 'Activacio' )\r
{ $__activada( $adr__, $_estels ); }\r
\r
// Activacio\r
if ( $ACC == 'Activacio' ) {\r
$condicions =\r
! $es_en_getons ?\r
$__activada( $adr__, $_estels ) ?\r
bounce( ': Adreça ja activada' ) :\r
true :\r
true\r
AND $__capacitada( 'activacio', $adr__ )\r
AND $__qtSuficient( 'Import_Activacio' )\r
AND $__arg( 'nom' );\r
}\r
\r
// Transfer\r
if ( $ACC == 'Transfer' ) {\r
$condicions =\r
$__activada( $_receptora, $_estels )\r
AND $__activada( $_receptora, $idgeto )\r
AND $es_en_getons ? $__capacitada( 'recepcio', $_receptora ) : true\r
AND $__subscrita( $adr__ ) ? $__renovada( $_receptora ) : true;\r
$subscripcio = var[ 'subscripcio_' || $_receptora || '_en_' || $idgeto ];\r
$derivacio = $qt * $subscripcio.derivacio / 100;\r
$qt_def = $subscripcio ? $qt - $derivacio : $qt;\r
} else {\r
$qt_def = $qt;\r
}\r
\r
// Renovacio\r
if ( $ACC == 'Renovacio' ) {\r
$condicions =\r
$__subscrita( $adr__ )\r
AND $__qtSuficient( 'Import_Renovacio' );\r
\r
$cicle_renovat = var[ 'renovacio_' || $adr__ || '_en_' || $idgeto ];\r
if ( $cicle_actual > 1\r
AND $cicle_renovat\r
AND $cicle_actual == $cicle_renovat )\r
{ bounce( ': Cicle ja renovat' ); }\r
}\r
\r
// Subscripcio\r
if ( $ACC == 'Subscripcio' ) {\r
$condicions =\r
$__capacitada( 'subscripcio', $adr__ )\r
AND $__subscrita( $adr__ ) ? bounce( ': Adreça ja subscrita' ) : ''\r
AND $__qtSuficient( 'Import_Subscripcio' )\r
AND $__arg( 'nom' ) \r
AND $__arg( 'derivacio' );\r
}\r
\r
// Diposit\r
if ( $ACC == 'Diposit' ) {\r
$condicions =\r
$__capacitada( 'conversio', $adr__ )\r
AND $__renovada( $adr__ );\r
\r
$taxa_conversio = $params[ 'Taxa_Conversio' ];\r
$cicles_diposit = $params[ 'Cicles_Diposit' ];\r
$cicle_conversio = $cicle_actual + $cicles_diposit;\r
$taxa = round( $qt * $taxa_conversio / 100, 0 );\r
$qt_conversio = $qt - $taxa;\r
}\r
\r
// Contribucio\r
if ( $ACC == 'Contribucio' )\r
{ \r
// Ha de ser exclusivament en Estels\r
$__arg( 'ref' ); \r
}\r
\r
}",
"messages": [
{
"app": "payment",
"payload": {
"asset": "{ $geto }",
"outputs": [
{
"address": "{ $_receptora }",
"amount": "{ $qt_def }"
}
]
}
},
{
"if": "{ $derivacio }",
"app": "payment",
"payload": {
"asset": "{ $geto }",
"outputs": [
{
"address": "{ $_FOP }",
"amount": "{ $derivacio }"
}
]
}
},
{
"app": "state",
"state": "{\r
$ordinal = $__ordinal( $ACC );\r
\r
if ( $avis AND $avis_es_actual )\r
{ response[ 'AVÍS: ' ] = $avis.text; }\r
\r
// Registre Totals\r
$seccRef = 'total_' || $ACC || '_';\r
$ref_en = $seccRef || '_en_' || $geto;\r
$ref_de = $seccRef || '_de_' || $adr__ || '_en_' || $geto;\r
$ref_a = $seccRef || '_a_' || $_receptora || '_en_' || $geto;\r
$ref_de_a = $seccRef || '_de_' || $adr__ || '_a_' || $_receptora || '_en_' || $geto;\r
$totals[ $ref_en ] = $totals[ $ref_en ] + $qt;\r
$totals[ $ref_de ] = $totals[ $ref_de ] + $qt;\r
$totals[ $ref_a ] = $totals[ $ref_a ] + $qt;\r
$totals[ $ref_de_a ] = $totals[ $ref_de_a ] + $qt;\r
\r
response[ 'Totals en: ' ] = $geto;\r
$seccResp = 'Total ' || $ACC;\r
response[ 'Totals en: ' ] = $idgeto;\r
response[ $seccResp ] = $totals[ $ref_en ];\r
response[ $seccResp || ' de ' || $adr__ ] = $totals[ $ref_de ];\r
response[ $seccResp || ' a ' || $_receptora ] = $totals[ $ref_a ];\r
response[ $seccResp || ' de ' || $adr__ || ' a ' || $_receptora ] = $totals[ $ref_de_a ];\r
\r
// Registre Derivacions\r
if ( $__subscrita( $_receptora ) ) {\r
$ref_derivs_en = 'total_Derivacions_en_' || $geto;\r
$ref_derivs_de = 'total_Derivacions_de_' || $_receptora || '_en_' || $geto;\r
$totals[ $ref_derivs_en ] = $totals[ $ref_derivs_en ] + $derivacio;\r
$totals[ $ref_derivs_de ] = $totals[ $ref_derivs_de ] + $derivacio;\r
\r
response[ 'Total Derivacions ' ] = $totals[ $ref_derivs_en ];\r
response[ 'Total Derivacions de ' || $_receptora ] = $totals[ $ref_derivs_de ];\r
}\r
\r
// Gestió Cicles\r
if ( ! $cicle_actual ) {\r
$nou_cicle = 1;\r
$nova_data = timestamp;\r
$nova_data_cicle_anterior = 0;\r
$interval = 0;\r
$escala = 1;\r
} else {\r
$data_cicle_actual = $basiques.data_cicle_actual;\r
$data_cicle_anterior = $basiques.data_cicle_anterior;\r
$interval = timestamp - $data_cicle_actual;\r
if ( $generics[ 'Interval' ] < $interval ) {\r
$nou_cicle = $cicle_actual + 1;\r
$nova_data = timestamp;\r
$nova_data_cicle_anterior = $data_cicle_actual;\r
$total_derivacions = $totals[ 'total_Transfers_a_' || $_FOP || '_en_' || $_estels ];\r
if ( ! $total_derivacions ) { $nova_escala = 1; }\r
else { $nova_escala = length( $total_derivacions ) -1; }\r
} else {\r
$nou_cicle = $cicle_actual;\r
$nova_data = $data_cicle_actual;\r
$nova_data_cicle_anterior = $data_cicle_anterior;\r
$nova_escala = $basiques.escala_actual;\r
}\r
}\r
$basiques.cicle_actual = $nou_cicle;\r
$basiques.data_cicle_actual = $nova_data;\r
$basiques.data_cicle_anterior = $nova_data_cicle_anterior;\r
$basiques.escala_actual = $nova_escala;\r
\r
response[ 'cicle actual' ] = $nou_cicle;\r
response[ 'data cicle actual' ] = timestamp_to_string( $nova_data );\r
response[ 'data cicle anterior' ] = timestamp_to_string( $nova_data_cicle_anterior );\r
response[ 'escala actual' ] = $nova_escala;\r
response[ 'interval' ] = $interval;\r
\r
\r
// Registre Activacions\r
if ( $ACC == 'Activacio' ) {\r
$activacio =\r
{\r
nom: $args.nom,\r
qt: $qt_def,\r
cicle: $nou_cicle,\r
ordinal: $ordinal,\r
escala : $es_en_getons ? 100 : var[ 'escala_actual' ]\r
}; \r
$dades.activacions[ 'activacio_' || $adr__ || '_en_' || $idgeto ] = $activacio;\r
response[ 'Resultat: ' ] =\r
"Activació #" || $ordinal || " amb nom: " || $args.nom\r
|| " de l'adr " || $adr__ || " per operar amb " || $idgeto;\r
}\r
\r
// Registre Subscripcions\r
if ( $ACC == 'Subscripcio' ) {\r
$dades.subscripcions[ 'subscripcio_' || $adr__ || '_en_' || $idgeto ] =\r
{\r
nom: $args.nom,\r
cicle: $nou_cicle,\r
ordinal: $ordinal,\r
derivacio: $args.derivacio,\r
};\r
response[ 'Resultat: ' ] = \r
"Subscripció #" || $ordinal || " amb nom: " \r
|| $args.nom || " de l'adr " || $adr__ || " per al cicle "\r
|| $nou_cicle || 'per operar amb ' || $idgeto;\r
}\r
\r
// Registre Renovacions\r
if ( $ACC == 'Renovacio' ) {\r
$dades.renovacions[ 'renovacio_' || $adr__ || '_en_' || $idgeto ] = $cicle_actual;\r
response[ 'Resultat: ' ] =\r
"Renovació de la subscripció per al cicle " || $cicle_actual\r
|| " de l'adr " || $adr__ || ' en ' || $idgeto;\r
}\r
\r
// Registre Dipòsits\r
if ( $ACC == 'Diposit' ) {\r
$ref = 'diposit_' || $ordinal || '_en_' || $idgeto;\r
$dades.diposits.darrer_diposit = $ref; // Per als TESTS\r
$dades.diposits[ $ref ] =\r
{\r
dipositant: $adr__,\r
qt_diposit: $qt,\r
qt_conversio: $qt_conversio,\r
cicle_conversio: $cicle_conversio,\r
taxa: $taxa_conversio,\r
temps: timestamp,\r
cicle: $nou_cicle,\r
geto_diposit: $idgeto,\r
};\r
response[ 'Ref dipòsit' ] = $ref;\r
response[ 'Dipositant' ] = $adr__;\r
response[ 'Qt dipòsit' ] = $qt;\r
response[ 'Qt conversió' ] = $qt_conversio;\r
response[ 'Taxa' ] = $taxa_conversio;\r
response[ 'Data dipòsit' ] = timestamp_to_string( timestamp );\r
response[ 'Cicle dipòsit' ] = $nou_cicle;\r
response[ 'Cicle conversió' ] = $nou_cicle + $cicle_conversio;\r
}\r
\r
// Registre Contribucions\r
if ( $ACC == 'Contribucio' ) {\r
$ref = 'contribucio_' || $ordinal;\r
$dades.contribucions[ $ref ] =\r
{\r
contribuidora: $adr__,\r
qt: $qt,\r
temps: timestamp,\r
cicle: $nou_cicle,\r
escala: $basiques.escala_actual,\r
};\r
response[ 'Ref contribucio' ] = $ref;\r
response[ 'Contribuidora' ] = $adr__;\r
response[ 'Qt' ] = $qt;\r
response[ 'Cicle actual' ] = $nou_cicle;\r
response[ 'Escala actual' ] = $basiques.escala_actual;\r
}\r
\r
\r
// -- Nou Portal\r
if ( $args.nou_portal ) {\r
var[ 'anterior_portal' ] = var[ 'nou_portal' ];\r
var[ 'nou_portal' ] = $args.nou_portal;\r
response[ 'Nou portal de _Getons ' ] = $args.nou_portal;\r
}\r
\r
\r
// -- Actualització dades\r
if ( $args.copia_dades ) {\r
\r
$dades_darrera_versio = var[ $darrera_versio ][ 'dades' ];\r
\r
if ( ! $args.totes ) {\r
$__valvar = $refvar => {\r
$dades[ $refvar ] =\r
$args[ $refvar ] ?\r
$dades_darrera_versio[ $refvar ] :\r
{};\r
};\r
\r
$refs = [\r
'basiques', 'totals', 'activacions', 'subscripcions', \r
'renovacions', 'diposits', 'contribucions', 'ordinals'\r
];\r
\r
$valora = map( $refs, 8, $__valvar );\r
}\r
} else {\r
$dades.basiques = $basiques;\r
$dades.totals = $totals;\r
$dades.ordinals = $ordinals;\r
}\r
\r
var[ 'dades' ] = $args.totes ? $dades_darrera_versio : $dades;\r
response[ 'acció realitzada' ] = $ACC;\r
}"
}
]
}
]