Marius Mutu
104c24ec20
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
137 lines
4.6 KiB
Plaintext
137 lines
4.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|