romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

#13: formular de facturare unificat - etapa curenta

Browse Source 
Squash al branch-ului de lucru plan13-s2.

Clase: ofacturare (nucleul formularului unificat), ofacturare_comun,
ferestre_cere_date, ocomenzi, caut_ora (lista de preturi in combo-urile de
cautare), omodificari.

Programe: ofacturare impartit - ofacturare_antet, ofacturare_rutare_scriere si
ogrid_latimi sunt fisiere noi; oproceduri_facturare primeste discountul pe linie
si cota standard de TVA cand articolul nu are cota pe politica.

Documentatie: capcana SQLExec no_data_found, conventia de encoding, depanarea
testelor VFP si regulile de lucru - conflictele cu modificarile venite din alte
proiecte sunt rezolvate pastrand ambele parti.

Loguri de rulare a testelor scoase din versionare; testele raman.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01PkyjGyrV2S7932om4kfSiK
This commit is contained in:
Marius Mutu
2026-09-09 21:38:25 +03:00
parent d1d0d7c37f
commit 8e022d332e
259 changed files with 57305 additions and 1576 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
clase/caut_ora.vc2
View File

@@ -717,7 +717,9 @@ DEFINE CLASS ct_clb_cautare AS _container OF "_baza.vcx"
*<DefinedPropArrayMethod>
*m: do_activeaza
*m: do_apeleaza
*m: do_blocheaza_real
*m: do_dezactiveaza
*m: do_reactiveaza_real
*m: do_schimba_explicatia && Schimba caption-ul de la label1.
*p: cconditie && Conditia pentru care se apeleaza procedura din cprocedura.
*p: clista_parametri && Lista parametri pentru procedura din cparametri ( separati prin virgula ).
@@ -797,6 +799,12 @@ DEFINE CLASS ct_clb_cautare AS _container OF "_baza.vcx"
This.clb_tx_cautare.text_simplu1.Refresh()
ENDPROC
PROCEDURE do_blocheaza_real
This.do_dezactiveaza()
This.clb_tx_cautare.text_simplu1.ReadOnly = .T.
This.clb_tx_cautare.text_simplu1.TabStop = .F.
ENDPROC
PROCEDURE do_dezactiveaza
This.lactiv = .F.
This.img_cautare.Visible = .F.
@@ -805,6 +813,12 @@ DEFINE CLASS ct_clb_cautare AS _container OF "_baza.vcx"
This.clb_tx_cautare.text_simplu1.Refresh()
ENDPROC
PROCEDURE do_reactiveaza_real
This.do_activeaza()
This.clb_tx_cautare.text_simplu1.ReadOnly = .F.
This.clb_tx_cautare.text_simplu1.TabStop = .T.
ENDPROC
PROCEDURE do_schimba_explicatia && Schimba caption-ul de la label1.
Lparameters tcExplicatie
This.clb_tx_cautare.lb_SIMPLU1.Caption = Alltrim(tcExplicatie)