#13: formular de facturare unificat - etapa curenta
Squash al branch-ului de lucru plan13-s2. Cod: clasa noua ofacturare_util (geometrie si utilitare de formular), inrolata in roafacturare.prg; meniul "Facturare (nou)" plat, cu reparatia literalului peste limita VFP de 255 de caractere care impiedica compilarea metodei. Livrare: changelog 2.11.19, marcajul de versiune DB pentru scripturile finale din SCRIPTURI_CLAR\2026\09, inventarul livrarii in docs/livrare_13.md si registrul de erori deschise. Documentatia de lucru a etapei (cercetare, rapoarte, handoff-uri, snapshot-uri de scripturi si backup-uri de rollback) a fost scoasa din arbore. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01PkyjGyrV2S7932om4kfSiK
This commit is contained in:
136
Clase/ofacturare_util.vc2
Normal file
136
Clase/ofacturare_util.vc2
Normal file
@@ -0,0 +1,136 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="ofacturare_util.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS frm_cursuri_valutare AS _frmbase OF "_frm_base.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="grd_cursuri" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grd_cursuri.cCurs.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grd_cursuri.cCurs.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grd_cursuri.cNume_val.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grd_cursuri.cNume_val.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grd_cursuri.cMultiplicator.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grd_cursuri.cMultiplicator.Text1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
Caption = "Cursuri valutare"
|
||||
DoCreate = .T.
|
||||
Height = 224
|
||||
Name = "frm_cursuri_valutare"
|
||||
Width = 420
|
||||
WindowType = 1
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Width = 422
|
||||
_shape2.Left = 370
|
||||
_shape2.Name = "_shape2"
|
||||
Lb_titlu_alb_b121.Caption = "Curs valutar"
|
||||
Lb_titlu_alb_b121.FontBold = .T.
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Left = 390
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'grd_cursuri' AS _grdrow WITH ;
|
||||
ColumnCount = 3, ;
|
||||
DeleteMark = .F., ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Height = 180, ;
|
||||
Left = 12, ;
|
||||
Name = "grd_cursuri", ;
|
||||
ScrollBars = 2, ;
|
||||
TabIndex = 1, ;
|
||||
Top = 32, ;
|
||||
Width = 396, ;
|
||||
Column1.ColumnOrder = 3, ;
|
||||
Column1.ControlSource = "curs", ;
|
||||
Column1.FontName = "Arial Narrow", ;
|
||||
Column1.InputMask = (get_mask(14,gnPCurs)), ;
|
||||
Column1.Name = "cCurs", ;
|
||||
Column1.Width = 102, ;
|
||||
Column2.ColumnOrder = 2, ;
|
||||
Column2.ControlSource = "nume_val", ;
|
||||
Column2.FontName = "Arial Narrow", ;
|
||||
Column2.Name = "cNume_val", ;
|
||||
Column2.Width = 130, ;
|
||||
Column3.ColumnOrder = 1, ;
|
||||
Column3.ControlSource = "multiplicator", ;
|
||||
Column3.FontName = "Arial Narrow", ;
|
||||
Column3.InputMask = (get_mask(10,0)), ;
|
||||
Column3.Name = "cMultiplicator", ;
|
||||
Column3.Width = 130
|
||||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'grd_cursuri.cCurs.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Curs", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grd_cursuri.cCurs.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
SelectedBackColor = 0,64,128
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grd_cursuri.cMultiplicator.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Multiplicator", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grd_cursuri.cMultiplicator.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
SelectedBackColor = 100,185,255
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grd_cursuri.cNume_val.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Valuta", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grd_cursuri.cNume_val.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
FontName = "Arial Narrow", ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1", ;
|
||||
SelectedBackColor = 0,64,128
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Init
|
||||
Lparameters tcCursor, tdZiCurs, tnTip
|
||||
Local lcCursor
|
||||
DoDefault()
|
||||
lcCursor = Iif(Empty(tcCursor), 'crscursuri', tcCursor)
|
||||
If !Used(m.lcCursor) Or Reccount(m.lcCursor) = 0
|
||||
This.Release()
|
||||
Return .F.
|
||||
Endif
|
||||
This.grd_cursuri.RecordSource = m.lcCursor
|
||||
If !Empty(Nvl(m.tdZiCurs, {}))
|
||||
This.Lb_titlu_alb_b121.Caption = "Curs valutar (" + Dtoc(m.tdZiCurs) + ")"
|
||||
Else
|
||||
This.Lb_titlu_alb_b121.Caption = "Curs valutar"
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user