diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg"
index a6462e9..e4b8274 100644
--- "a/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg.pre_runda1.bak"
+++ "b/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg"
@@ -16,7 +16,7 @@ lcSelect = [select id_reg, id_part, denumire, id_pers, pers_contact, data, numar
 
 lcOrder = []
 lcgroup = []
-lcFiltru = [sters=0]
+lcFiltru = [sters=0 and id_reg=(select max(id_reg) from vregistratura where sters=0)]  && *!* 23.07.2026 MM - initial doar ultimul document (P4)
 lcFiltruOriginal = []
 llModParam = .T.
 llAfiseaza = .F.
@@ -103,12 +103,18 @@ Parameters toRegistratura
 Local loRegistratura
 loRegistratura = toRegistratura
 
+*!* 23.07.2026 MM - garda partener NULL/empty (P2), functia intoarce .T./.F.
+If Isnull(loRegistratura.id_part) Or Empty(loRegistratura.id_part)
+	AMESSAGEBOX("Alegeti partenerul inainte de salvare!",0+48,"Atentie")
+	Return .F.
+Endif
+
 Local lcId_reg, lcId_part, lcId_pers, lcData, lcNumar, lcData_intern, lcNumar_intern, lcDescriere, lcObservatii, lcIdUtil
 Local lnSucces
 lnSucces = -1
 
 lcId_reg = Alltrim(Str(loRegistratura.id_reg))
-lcId_part = Alltrim(Str(loRegistratura.id_part))
+lcId_part = Nvl(Alltrim(Str(loRegistratura.id_part)),'NULL')
 lcId_pers = Nvl(Alltrim(Str(loRegistratura.id_pers)),'NULL')
 lcId_responsabil = Nvl(Alltrim(Str(loRegistratura.id_responsabil)),'NULL')
 lcData = Dtos(loRegistratura.Data)
@@ -120,7 +126,7 @@ lcDescriere = Nvl(Alltrim(loRegistratura.descriere),"")
 lcObservatii = Nvl(Alltrim(loRegistratura.observatii)," ")
 lcId_fdoc = Nvl(Alltrim(Str(loRegistratura.id_fdoc)),'NULL')
 lcId_mediu = Nvl(Alltrim(Str(loRegistratura.id_mediu)),'NULL')
-lcNr_pag = Alltrim(Str(loRegistratura.nr_pag))
+lcNr_pag = Nvl(Alltrim(Str(loRegistratura.nr_pag)),'NULL')
 lcIdUtil = Alltrim(Str(gnIdUtil))
 
 lcSql = [begin pack_registratura.modifica_registratura(] + lcId_reg + [,] + lcId_part + [,] + lcId_pers + [,] + lcId_responsabil + ;
@@ -134,6 +140,7 @@ If lnSucces < 0
 	AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
 Endif
 
+Return (lnSucces >= 0)
 Endproc && modifica_reg_dg
 ***-----------------------------------------------------------------------------------------------------------------------------