sync SVN r18211

This commit is contained in:
2026-09-28 09:17:36 +03:00
parent f92e62e959
commit 3767dfc115
2 changed files with 22 additions and 2 deletions

View File

@@ -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.

View File

@@ -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'