romfast/roaimob
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Preluare cont analitic, verificare balanta imobilizari in curs, calcul valoare noua la majorare (2.1.44)

Browse Source 
- preluare_imob: aduce ascd (cont analitic) din nota contabila si il
  populeaza in frm_introducere / frm_introducere_curs la preluare
- verificare_balanta: accepta tip 3 (fara ramura amortizare, comparatie
  pe valoare_ramasa); frm_lista_curs: ntip=3, buton But_verifica1 si
  metoda do_verifica
- frm_op_majorare: recalculul valorii noi de intrare se face pe Valid
  (la InteractiveChange variabila din ControlSource nu e inca scrisa)
- changelog 2.1.44; .gitignore: patch-urile docs/diff_runda* raman local

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01CpPGRsKnGofcJRQJ9euEre
This commit is contained in:
Marius Mutu
2026-07-24 13:46:29 +03:00
parent 6b58e92c13
commit 7364ca2abd
4 changed files with 43 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Clase/oimobilizari.vc2
View File

@@ -2391,6 +2391,9 @@ DEFINE CLASS frm_introducere AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Thisform.clb_dataact.text_simplu1.Value = toMF.dataact
Thisform.clb_valoare.text_simplu1.Value = toMF.valoare
THISFORM.clb_cont.text_SIMPLU1.Value = toMF.cont
If Type('toMF.acont') = 'C'
Thisform.clb_cont.txtAcont.Value = Alltrim(Nvl(toMF.acont,''))
Endif
*!* 16.11.2009
thisform.clb_expl_mf.text_simplu1.Value = ALLTRIM(NVL(toMF.explicatia,''))
thisform.ed_denumire._edbase1.Value = ALLTRIM(NVL(toMF.explicatia,''))
@@ -3240,6 +3243,9 @@ DEFINE CLASS frm_introducere_curs AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Thisform.clb_dataact.text_simplu1.Value = toMF.dataact
Thisform.clb_valoare.text_simplu1.Value = toMF.valoare
THISFORM.clb_cont.text_SIMPLU1.Value = toMF.cont
If Type('toMF.acont') = 'C'
Thisform.clb_acont.text_simplu1.Value = Alltrim(Nvl(toMF.acont,''))
Endif
*!* 16.11.2009
thisform.clb_expl_op.text_simplu1.Value = ALLTRIM(NVL(toMF.explicatia,''))
thisform.ed_denumire._edbase1.Value = ALLTRIM(NVL(toMF.part,''))
@@ -8498,6 +8504,7 @@ DEFINE CLASS frm_lista_curs AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa2" UniqueID="" Timestamp="" />
@@ -8516,7 +8523,7 @@ DEFINE CLASS frm_lista_curs AS _frmbase OF "..\comun\clase\_frm_base.vcx"
FontCharSet = 238
Height = 582
Name = "frm_lista_curs"
ntip = 0
ntip = 3
Width = 793
WindowState = 2
_SHAPE1.Anchor = 10
@@ -8618,6 +8625,13 @@ DEFINE CLASS frm_lista_curs AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Top = 0
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
Anchor = 8, ;
Left = 551, ;
Name = "But_verifica1", ;
Top = 0
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Anchor = 8, ;
Caption = "\<Operatiuni", ;
@@ -9412,6 +9426,11 @@ DEFINE CLASS frm_lista_curs AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Endif
ENDPROC
PROCEDURE do_verifica
*!* 24.07.2026 Claude - buton verificare cu balanta (doar valoare inventar)
Do verificare_balanta With This.nTip In oproceduri_imob.prg
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
@@ -11797,7 +11816,7 @@ DEFINE CLASS frm_op_majorare AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Thisform.clb_datareeval.text_simplu1.Value=this.Value
ENDPROC
PROCEDURE Clb_majorar.Text_simplu1.InteractiveChange
PROCEDURE Clb_majorar.Text_simplu1.Valid
Thisform.Calculeaza()
ENDPROC