From 77fa5f353ab5924ae8767228c2d25cfcde05a092 Mon Sep 17 00:00:00 2001
From: Jean-Christophe Engel <lesanges@zaclys.net>
Date: Wed, 17 Jun 2026 11:25:42 +0200
Subject: [PATCH] Ajout suppression doc orphelins (attach_amort, save_amort)

---
 attach_amort.html |  8 +++++++-
 save_amort.html   | 27 +++++++++------------------
 2 files changed, 16 insertions(+), 19 deletions(-)

diff --git a/attach_amort.html b/attach_amort.html
index 738a3c0..61a5a1a 100644
--- a/attach_amort.html
+++ b/attach_amort.html
@@ -93,6 +93,12 @@
 		{{:error message="Le montant de l'amortissement (%s) dépasse la valeur résiduelle de l'immobilisation (%s)"|args:$ma:$vnc}}
 	{{/if}}
 
+	{{*
+		supprimer les documents qui pointent sur une ligne d'amortissement absente
+		cas de la suppression manuelle d'un amortissement
+	*}}
+	{{:include file="_remove_orphan_docs.tpl"}}
+
 	{{* Lier l'écriture d'amortissement à l'écriture d'immobilisation *}}
 	{{:include file="_common_attach.html" immo_doc_id=$_GET.immo_doc_id trans_id=$amort_line.trans_id}}
 
@@ -114,7 +120,7 @@
 		}}
 	{{/load}}
 
-	{{* À VÉRIFIER immo soldée ? *}}
+	{{* immo soldée ? *}}
 	{{if $total_amort == $montant_immo}}
 		{{:assign status="amortized"}}
 		{{:save
diff --git a/save_amort.html b/save_amort.html
index 224d52e..9705bf9 100644
--- a/save_amort.html
+++ b/save_amort.html
@@ -148,6 +148,12 @@
 		{{:error message="Le montant indiqué « %s » dépasse le solde à amortir « %s »"|args:$montant:$solde}}
 	{{/if}}
 
+	{{*
+		supprimer les documents qui pointent sur une ligne d'amortissement absente
+		cas de la suppression manuelle d'un amortissement
+	*}}
+	{{:include file="_remove_orphan_docs.tpl"}}
+
 	{{* enregistrer l'écriture *}}
 	{{:assign
 		var="lines."
@@ -161,7 +167,6 @@
 		account=$credit_account|keys|value:0
 		id_project=$ligne_immo.id_project
 	}}
-
 	{{:api
 		method="POST"
 		path="accounting/transaction"
@@ -178,20 +183,6 @@
 	{{* enregistrer la liaison des lignes *}}
 	{{#foreach from=$result.lines item="line"}}
 		{{if $line.account_code == $credit_account|keys|value:0}}
-			{{* TODO VOIR SI CORRECT ET UTILE *}}
-			{{*
-				vérifier la présence d'un doc avec cette ligne d'amortissement
-				(cas de la suppression manuelle d'un amortissement)
-			*}}
-
-			{{#load type="amort_link" where="$$.amort_line_id = :amort_line_id" :amort_line_id=$line.id debug=true assign="info_amort"}}
-				{{:debug info_amort=$info_amort}}
-				{{:assign uuid=$key}}
-				{{:break}}
-			{{else}}
-				{{:assign uuid=""|uuid}}
-			{{/load}}
-{{:debug uuid=$uuid}}
 			{{:save
 				key=""|uuid
 				type="amort_link"
@@ -205,14 +196,14 @@
 
 	{{* immo soldée ? *}}
 	{{if $_POST.montant|trim|money_int == $solde}}
-		{{:assign var="info_immo.status" value="amortized"}}
+		{{:assign status="amortized"}}
 		{{:save
 			key=$info_immo.key
-			status=$info_immo.status
+			status=$status
 		}}
 	{{/if}}
 
-	{{:redirect force="amortization.html?immo_doc_id=%s&type_immo=%s&ok=1&msg=amortissement"|args:$_GET.immo_doc_id:$info_immo.status}}
+	{{:redirect force="amortization.html?immo_doc_id=%s&type_immo=%s&ok=1&msg=amortissement"|args:$_GET.immo_doc_id:$status}}
 {{/form}}
 
 {{:admin_header title="Ajout amortissement" custom_css="./style.css" current="module_amortization"}}