{{* -*- brindille -*- *}}

{{*
	Supprimer l'association entre une ligne d'immobilisation et	une ligne associée
	@param immo_doc_id : id du doc associé à l'immo
	@param line_id : id de la ligne associée
	@param type : type de ligne associée (amort, credit, cession, exit, ...)
*}}

{{* données de l'immobilisation *}}
{{:include file="_get_immo_data.html" immo_doc_id=$immo_doc_id|intval keep="info_immo, ligne_immo, message"}}
{{if $message != null}}
	{{:error message=$message}}
{{/if}}

{{* chercher la deuxième écriture *}}
{{#select
	id_transaction
	FROM acc_transactions_lines
	WHERE id = :line_id;
	:line_id = $line_id
}}
	{{:assign trans_id=$id_transaction}}
{{else}}
	{{:error message="Écriture non trouvée"}}
{{/select}}

{{*
	chercher les liaisons de l'écriture d'immobilisation
	et supprimer la liaison avec la deuxième écriture
*}}
{{#select
	CASE links.id_related = :immo_trans_id
		WHEN true THEN links.id_transaction
		WHEN false THEN links.id_related
	END as linked_id
	FROM acc_transactions_links as links
	WHERE id_transaction = :immo_trans_id or id_related = :immo_trans_id;
	:immo_trans_id = $ligne_immo.trans_id
	}}
	{{if $linked_id != $trans_id}}
		{{:assign var="linked_transactions." value=$linked_id}}
	{{/if}}
{{/select}}

{{* Enregistrer les liaisons *}}
{{:api
	method="POST"
	path="accounting/transaction/%s/transactions"|args:$ligne_immo.trans_id
	assign="result"
	assign_code="result_code"
	transactions=$linked_transactions
}}

{{* supprimer le doc de liaison entre les lignes *}}
{{:assign link_type=$type|cat:"_link"}}
{{#load type=$link_type
	where="$$.immo_doc_id = :immo_doc_id AND $$.line_id = :line_id"
	:immo_doc_id=$immo_doc_id|intval
	:line_id = $line_id|intval
}}
	{{:delete id=$id}}
{{/load}}

{{if $type == "amort"}}
	{{if $info_immo.status == "amortized"}}
		{{* marquer immo non soldée *}}
		{{:save
			key=$info_immo.key
			status="managed"
		}}
	{{/if}}
{{/if}}