From 3767dfc115fe3c5e57b85e4172d46fe35f66b97a Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Mon, 28 Sep 2026 09:17:36 +0300 Subject: [PATCH] sync SVN r18211 --- CLAUDE.md | 5 +++-- Clase/ointroduceri_cont.vc2 | 19 +++++++++++++++++++ 2 files changed, 22 insertions(+), 2 deletions(-) diff --git a/CLAUDE.md b/CLAUDE.md index d4996aa..a174db5 100644 --- a/CLAUDE.md +++ b/CLAUDE.md @@ -230,8 +230,9 @@ Preferintele lui Marius pentru sesiunile pe acest proiect: disc; regula comuna tuturor proiectelor ROA: `COMUN\docs\orchestrare-subagenti.md`. - **Delegare**: modificarile de cod de volum/rutina (aplicarea unei propuneri aprobate din `docs/`, editari pe versiunile text `.??2` + write-back cu `txt2vcx.ps1`, actualizari de - documentatie, rulari de teste) se delega catre **subagenti Sonnet care lucreaza in background** - (Agent tool cu `model: sonnet`, lane-uri paralele unde e posibil), iar sesiunea principala doar + documentatie, rulari de teste) se delega catre **agenti opencode `opencode-go/deepseek-v4.1-flash`** + (executie + review cu acces la cod; Opus doar la escaladare; aprobat 24.09.2026; ghid + `COMUN\docs\opencode_agenti_orchestrare.md`), nu subagenti Sonnet; lane-uri paralele unde e posibil; sesiunea principala doar orchestreaza si monitorizeaza: imparte planul pe lane-uri, transmite constatarile intre agenti, verifica rezultatele (diff, teste, fidelity) si intervine direct doar la deblocari (procese agatate), decizii si verificari. diff --git a/Clase/ointroduceri_cont.vc2 b/Clase/ointroduceri_cont.vc2 index fe038de..bc311c7 100644 --- a/Clase/ointroduceri_cont.vc2 +++ b/Clase/ointroduceri_cont.vc2 @@ -4669,6 +4669,22 @@ DEFINE CLASS frm_introd_compact2007 AS formtermin OF "..\comun\clase\baza.vcx" Else Thisform.calculez(.F.) ENDIF + IF Type('introdc.clipsa') = 'C' + This.AddProperty('oLipsuri', CreateObject('LipsuriNoteContabile', 'introdc', .T.)) && colorarea verifica mereu analiticul, salvarea ramane pe lVerificaAcont + This.NewObject('lblLipsuri', '_label', '_baza.vcx') + This.lblLipsuri.ForeColor = RGB(0,0,0) + This.lblLipsuri.BackStyle = 1 + This.lblLipsuri.BackColor = RGB(255,205,205) + This.lblLipsuri.FontBold = .T. + This.lblLipsuri.MousePointer = 15 + This.lblLipsuri.Visible = .F. + This.lblLipsuri.AutoSize = .T. + This.lblLipsuri.Top = 10 + This.lblLipsuri.Anchor = 8 + Bindevent(This.lblLipsuri, 'Click', This.oLipsuri, 'SaltUrmatoare') + This.oLipsuri.Coloreaza(This.Gridb1) + This.oLipsuri.Verifica(This) + ENDIF GO TOP IN introdc ENDPROC @@ -4902,6 +4918,9 @@ DEFINE CLASS frm_introd_compact2007 AS formtermin OF "..\comun\clase\baza.vcx" PROCEDURE Gridb1.AfterRowColChange LPARAMETERS nColIndex + IF Type('Thisform.oLipsuri') = 'O' + Thisform.oLipsuri.Verifica(Thisform) + ENDIF *!* SELECT introdc *!* IF LEFT(scd,1) = '6' OR LEFT(scc,1) = '7'