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

16
clase/ferestre_cere_date.vc2
View File

@@ -2725,6 +2725,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Thisform.clb_incasat.Refresh()
thisform.chkPOS.Value = 0
thisform.chkPOS.Valid()
thisform.chkDetaliat.Value = 0
thisform.chkPOS.Visible = .F.
thisform.chkDetaliat.Visible = .F.
@@ -2782,6 +2783,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Thisform.clb_incasat.Refresh()
Thisform.clb_serie_chit.genereazaNumar()
thisform.chkPOS.Value = 0
thisform.chkPOS.Valid()
thisform.chkPOS.Visible = .F.
thisform.chkDetaliat.Value = 0
thisform.chkDetaliat.Visible = .F.
@@ -2811,6 +2813,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Thisform.clb_incasat.Refresh()
thisform.chkPOS.Value = 0
thisform.chkPOS.Valid()
thisform.chkPOS.Visible = .T.
thisform.chkDetaliat.Value = 0
thisform.chkDetaliat.Visible = .T.
@@ -2838,7 +2841,6 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Thisform.lb_simplu1.Visible=.T.
Thisform.cmdModificaBon.Visible=.T. && modifica nr bon fiscal
Thisform.clb_nrchit.text_simplu1.ReadOnly = .T.
thisform.cb_casa._lbbase1.Caption = 'Banca POS'
Thisform.nnrbon = 0
poDate.nr_incasare = 0
Thisform.do_aloca_nr_pos([CLICK])
@@ -2848,6 +2850,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Thisform.clb_incasat.Refresh()
thisform.chkPOS.Value = 1
thisform.chkPOS.Valid()
thisform.chkPOS.Visible = .F.
thisform.chkDetaliat.Value = 0
thisform.chkDetaliat.Visible = .F.
@@ -3024,6 +3027,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
If Type('poGeneratorNumere') = 'O'
poGeneratorNumere.dezaloca_numar(16)
poGeneratorNumere.dezaloca_numar(3)
poGeneratorNumere.dezaloca_numar(26)
Thisform.nnrbon = 0
poDate.nr_incasare = 0
@@ -3108,7 +3112,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
*!* modificare ROAFACTURARE v 2.0.67
If poDate.eProforma = 0
*!* modificare ROAFACTURARE v 2.0.67 ^
If Empty(Nvl(poDate.id_delegat,0)) And Empty(Nvl(poDate.id_masina,0))
If !poDate.lEditare And Empty(Nvl(poDate.id_delegat,0)) And Empty(Nvl(poDate.id_masina,0)) && la editare, nu suprascrie delegatul/masina documentului cu ultimul folosit
poDate.id_delegat = 0
poDate.id_masina = 0
@@ -3146,7 +3150,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Thisform.AutoCenter = .T.
Thisform.Refresh()
If poDate.incasat <> 0
If !poDate.lEditare And poDate.incasat <> 0
Thisform.opt_incasat.Value = 2
Endif
@@ -3162,7 +3166,7 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Else
Thisform.cb_casa._cBBASE1.RowSource = [v_nom_casa.nume,id_part]
Thisform.cb_casa._cBBASE1.RowSourceType = 6
If !Empty(gnid_part_casa)
If !poDate.lEditare And !Empty(gnid_part_casa)
Select v_nom_casa
Locate For id_part = gnid_part_casa
If Found()
@@ -3174,13 +3178,13 @@ DEFINE CLASS frm_alte_date AS _frmbase OF "_frm_base.vcx"
Endif
*!* modificare 01.08 ^
*!* modificare ROAFACTURARE v 2.0.46
If This.opt_incasat.Value = 2
If !poDate.lEditare And This.opt_incasat.Value = 2
poDate.incasat = poDate.totalctva
Endif
*!* modificare ROAFACTURARE v 2.0.46 ^
*!* modificare ROAFACTURARE v 2.0.67
*!* modificare ROACONTRACTE v 2.0.38
IF poDate.tip = 2 AND poDate.afisare_scadenta = 0 AND AT([Scadenta la ],poDate.text_aditional) = 0
IF !poDate.lEditare AND poDate.tip = 2 AND poDate.afisare_scadenta = 0 AND AT([Scadenta la ],poDate.text_aditional) = 0
poDate.text_aditional = [Scadenta la ] + ALLTRIM(STR(poDate.datascad - poDate.dataact)) + [ zile.] + poDate.text_aditional
ENDIF
*!* modificare ROACONTRACTE v 2.0.38 ^