Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
This commit is contained in:
75
Ferestre/ATENTIE1.sc2
Normal file
75
Ferestre/ATENTIE1.sc2
Normal file
@@ -0,0 +1,75 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="atentie1.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS fatentie1 AS fatentie OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 3
|
||||
DoCreate = .T.
|
||||
Height = 84
|
||||
Name = "Fatentie1"
|
||||
Width = 353
|
||||
WindowType = 0
|
||||
Shape1.Height = 75
|
||||
Shape1.Left = 4
|
||||
Shape1.Name = "Shape1"
|
||||
Shape1.Top = 4
|
||||
Shape1.Width = 344
|
||||
IMAGE1.Height = 32
|
||||
IMAGE1.Left = 24
|
||||
IMAGE1.Name = "IMAGE1"
|
||||
IMAGE1.Top = 12
|
||||
IMAGE1.Width = 32
|
||||
Label1.Left = 64
|
||||
Label1.Name = "Label1"
|
||||
Label1.Top = 14
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
||||
AutoSize = .F., ;
|
||||
Caption = "\<OK", ;
|
||||
Height = 24, ;
|
||||
Left = 134, ;
|
||||
Name = "CMDTERMIN1", ;
|
||||
Top = 46, ;
|
||||
Width = 84
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
Caption = "Modificarile sunt ireversibile!", ;
|
||||
FontSize = 12, ;
|
||||
Height = 21, ;
|
||||
Left = 129, ;
|
||||
Name = "Label2", ;
|
||||
Top = 14, ;
|
||||
Width = 200
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
PROCEDURE Deactivate
|
||||
thisform.release
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE LostFocus
|
||||
thisform.release
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
783
Ferestre/Vechi/startfirma.sc2
Normal file
783
Ferestre/Vechi/startfirma.sc2
Normal file
@@ -0,0 +1,783 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "Dataenvironment"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: seriadebaza
|
||||
*p: ttanul
|
||||
*p: ttfirma
|
||||
*p: ttluna
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
AutoCenter = .T.
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 2
|
||||
DoCreate = .T.
|
||||
Height = 474
|
||||
Name = "Ffergen1"
|
||||
Picture =
|
||||
Width = 500
|
||||
WindowType = 1
|
||||
Line1.Name = "Line1"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
|
||||
Left = 305, ;
|
||||
Name = "Cmdrenunt1", ;
|
||||
TabIndex = 12, ;
|
||||
Top = 432
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||
Left = 396, ;
|
||||
Name = "Cmdtermin1", ;
|
||||
TabIndex = 11, ;
|
||||
Top = 432
|
||||
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 255,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Bun Venit! ", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
FontName = "Comic Sans MS", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 18, ;
|
||||
ForeColor = 255,0,0, ;
|
||||
Height = 37, ;
|
||||
Left = 48, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 24, ;
|
||||
Top = 60, ;
|
||||
Width = 128, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label10' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "CONT 2003", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 23, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 39, ;
|
||||
Left = 21, ;
|
||||
Name = "Label10", ;
|
||||
TabIndex = 23, ;
|
||||
Top = 20, ;
|
||||
Width = 185, ;
|
||||
ZOrderSet = 3
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label11' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Anul:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 112, ;
|
||||
Name = "Label11", ;
|
||||
TabIndex = 16, ;
|
||||
Top = 403, ;
|
||||
Width = 44, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label12' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Strada:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 94, ;
|
||||
Name = "Label12", ;
|
||||
TabIndex = 19, ;
|
||||
Top = 296, ;
|
||||
Width = 62, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label13' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Numarul:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 80, ;
|
||||
Name = "Label13", ;
|
||||
TabIndex = 17, ;
|
||||
Top = 321, ;
|
||||
Width = 74, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "CONT 2003", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 23, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 39, ;
|
||||
Left = 22, ;
|
||||
Name = "Label2", ;
|
||||
TabIndex = 13, ;
|
||||
Top = 18, ;
|
||||
Width = 185, ;
|
||||
ZOrderSet = 4
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label3' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Luna contabila:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 30, ;
|
||||
Name = "Label3", ;
|
||||
TabIndex = 20, ;
|
||||
Top = 373, ;
|
||||
Width = 126, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label4' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cod fiscal:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 71, ;
|
||||
Name = "Label4", ;
|
||||
TabIndex = 22, ;
|
||||
Top = 150, ;
|
||||
Width = 87, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Nr. Inreg. R.C.:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 32, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 14, ;
|
||||
Top = 177, ;
|
||||
Width = 123, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label6' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Banca:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 97, ;
|
||||
Name = "Label6", ;
|
||||
TabIndex = 21, ;
|
||||
Top = 204, ;
|
||||
Width = 59, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label7' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Cont bancar:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 49, ;
|
||||
Name = "Label7", ;
|
||||
TabIndex = 15, ;
|
||||
Top = 230, ;
|
||||
Width = 106, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label8' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Localitatea:", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 60, ;
|
||||
Name = "Label8", ;
|
||||
TabIndex = 18, ;
|
||||
Top = 269, ;
|
||||
Width = 97, ;
|
||||
ZOrderSet = 20
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label9' AS label WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackColor = 0,0,0, ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Numele firmei: ", ;
|
||||
FontBold = .T., ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontShadow = .F., ;
|
||||
FontSize = 12, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Height = 22, ;
|
||||
Left = 42, ;
|
||||
Name = "Label9", ;
|
||||
TabIndex = 25, ;
|
||||
Top = 122, ;
|
||||
Width = 122, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 458, ;
|
||||
Left = 10, ;
|
||||
Name = "Shape1", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 8, ;
|
||||
Width = 480, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 0, ;
|
||||
Left = 10, ;
|
||||
Name = "Shape2", ;
|
||||
SpecialEffect = 0, ;
|
||||
Top = 356, ;
|
||||
Width = 480, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.cod_fiscal", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 2, ;
|
||||
Top = 148, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||
Alignment = 1, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.numar", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text10", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 8, ;
|
||||
Top = 319, ;
|
||||
Value = , ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.luU", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 9, ;
|
||||
ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ;
|
||||
Top = 371, ;
|
||||
Value = , ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.an", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text3", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 10, ;
|
||||
ToolTipText = "Introduceti anul (inclusiv secolul).", ;
|
||||
Top = 401, ;
|
||||
Value = , ;
|
||||
Width = 102, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.flung", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K!", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text4", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 1, ;
|
||||
ToolTipText = "Introduceti numele complet al noii firme", ;
|
||||
Top = 120, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.reg_com", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K!", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text5", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 3, ;
|
||||
Top = 175, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.banca", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K!", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text6", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 4, ;
|
||||
Top = 202, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||
Alignment = 1, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.cont_banca", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text7", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 5, ;
|
||||
Top = 228, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.localitate", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K!", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text8", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 6, ;
|
||||
Top = 267, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 26
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||
Alignment = 0, ;
|
||||
BackColor = 254,255,240, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 1, ;
|
||||
ControlSource = "m.strada", ;
|
||||
FontName = "BankGothic Md BT", ;
|
||||
FontSize = 11, ;
|
||||
Format = "K!", ;
|
||||
Height = 23, ;
|
||||
Left = 192, ;
|
||||
Name = "Text9", ;
|
||||
ReadOnly = .F., ;
|
||||
TabIndex = 7, ;
|
||||
Top = 293, ;
|
||||
Value = , ;
|
||||
Width = 225, ;
|
||||
ZOrderSet = 25
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE Activate
|
||||
*public m.luU,M.FSCURT
|
||||
m.luU=alltrim(STR(MONTH(DATE())))
|
||||
m.luu=right(alltrim('0'+m.luu),2)
|
||||
|
||||
*M.AN=ALLTRIM(STR(YEAR(DATE())))
|
||||
M.AN=STR(YEAR(DATE()),4)
|
||||
m.nl=m.luu
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE seriadebaza
|
||||
LOCAL SB,SN,I,T,TIPAR
|
||||
STORE '' TO SB,SN
|
||||
T=RAND(-1)
|
||||
*TIPAR='VOICUIONEMIL'
|
||||
|
||||
DO seriadebaza IN proceduri.prg
|
||||
|
||||
|
||||
*!* FOR I=1 TO 5
|
||||
*!* SB=SB+LITERA()
|
||||
*!* NEXT
|
||||
|
||||
*!* SELE CUL
|
||||
*!* REPL RED WITH SB
|
||||
*!* SN=GREEN
|
||||
|
||||
|
||||
*!* IF SUBSTR(SN,3,1)=SUBSTR(SB,1,1) AND;
|
||||
*!* SUBSTR(SN,6,1)=SUBSTR(SB,2,1) AND;
|
||||
*!* SUBSTR(SN,9,1)=SUBSTR(SB,3,1) AND;
|
||||
*!* SUBSTR(SN,12,1)=SUBSTR(SB,4,1) AND;
|
||||
*!* SUBSTR(SN,15,1)=SUBSTR(SB,5,1) AND;
|
||||
*!* SUBSTR(SN,VAL(M.NL)+floor((VAL(M.NL)-1)/2),1)=SUBSTR(TIPAR,VAL(M.NL),1)
|
||||
*!* *DO MESAJ WITH 'Seria este corecta',''
|
||||
*!* RETURN
|
||||
*!* ELSE
|
||||
|
||||
*!* FOR I=1 TO 17
|
||||
*!* SN=SN+LITERA()
|
||||
*!* NEXT
|
||||
|
||||
*!* FOR I=1 TO 5
|
||||
*!* SN=STUFF(SN, I*3, 1, SUBSTR(SB,I,1))
|
||||
*!* NEXT
|
||||
*!* SN=STUFF(SN, VAL(M.NL)+floor((VAL(M.NL)-1)/2), 1, SUBSTR(TIPAR,VAL(M.NL),1))
|
||||
|
||||
*!* SELE CUL
|
||||
*!* REPL GREEN WITH SN
|
||||
*!* ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cmdtermin1.Click
|
||||
*DO NOT RELEASE
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cmdtermin1.Valid
|
||||
PUBLIC LAN,LLUN
|
||||
LOCAL I,J,NI
|
||||
LAN='AN'+M.AN
|
||||
LLUN='DATE'+M.NL
|
||||
I=.F.
|
||||
|
||||
*SCRIE NUMELE SCURT AL FIRMEI___________________
|
||||
sele firma
|
||||
M.firma=upper(alltrim(m.flung))
|
||||
M.FSCURT=M.FIRMA
|
||||
M.fscurt=upper(alltrim(m.fSCURT))+space(7)
|
||||
M.fscurt=ALLTRIM(LEFT(ALLTRIM(M.fscurt),8))
|
||||
M.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________')
|
||||
|
||||
tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+;
|
||||
'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+;
|
||||
'> exista deja! '+;
|
||||
'Este important ca primele 8 caractere sa fie diferite de <'
|
||||
IF LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)!=LEFT(m.fscurt+"________",8)
|
||||
ttt=LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.fscurt+"________",8)+'>.'
|
||||
ELSE
|
||||
ttt=LEFT(m.fscurt+"________",8)+'>.'
|
||||
endif
|
||||
|
||||
*!* SCAN
|
||||
*!* IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) OR UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) THEN
|
||||
*!* I=.T.
|
||||
*!* omm=crea('textmare')
|
||||
*!* omm.label2.caption=tt+ttt
|
||||
*!* omm.show(1)
|
||||
*!* RETURN
|
||||
*!* ENDIF
|
||||
*!* ENDSCAN
|
||||
SCAN
|
||||
IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA))
|
||||
I=.T.
|
||||
omm=crea('textmare')
|
||||
omm.label2.caption='Numele noii firme nu trebuie sa coincida cu numele altor firme.'
|
||||
omm.show(1)
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDSCAN
|
||||
|
||||
SCAN
|
||||
IF UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt))
|
||||
I=.T.
|
||||
m.fscurt=LEFT(m.fscurt,2)+LEFT(STRTRAN(TIME(),':',''),6)
|
||||
exit
|
||||
ENDIF
|
||||
ENDSCAN
|
||||
|
||||
|
||||
|
||||
*DACA FIRMA NU EXISTA DEJA_______________
|
||||
IF !I
|
||||
appe blank
|
||||
NFSCURT=M.FSCURT
|
||||
m.calefirm=dirgen+'\'+nfscurt
|
||||
calefirma=m.calefirm
|
||||
*m.loctempo='C:\CONTAFIN\TEMP\'
|
||||
GATHER MEMVAR
|
||||
repl permis with '*'
|
||||
REPL locTEMPO WITH '&DIRGEN\'
|
||||
|
||||
*CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________
|
||||
set defa to c:
|
||||
if !directory('contafin')
|
||||
md contafin
|
||||
endif
|
||||
set defa to c:\contafin
|
||||
if !directory('temp')
|
||||
md temp
|
||||
endif
|
||||
set defa to c:\contafin\temp
|
||||
MD &NFSCURT
|
||||
set defa to c:\contafin\temp\&nfscurt
|
||||
md tempo
|
||||
SET DEFA TO &DIRGEN
|
||||
|
||||
SET DEFA TO &DIRGEN
|
||||
MD &NFSCURT
|
||||
CD &NFSCURT
|
||||
MD DATEAN
|
||||
MD LUNA
|
||||
MD TEMPO
|
||||
MD &LAN
|
||||
CD &LAN
|
||||
MD &LLUN
|
||||
*COPIEZ FISIERELE STANDARD__________________
|
||||
close database
|
||||
SET DEFA TO &DIRGEN
|
||||
COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.*
|
||||
COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.*
|
||||
COPY FILE _ALFA\TEMPO\*.* TO &NFSCURT\TEMPO\*.*
|
||||
COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.*
|
||||
COPY FILE _ALFA\TEMPO\*.* TO c:\contafin\temp\&NFSCURT\TEMPO\*.*
|
||||
|
||||
|
||||
*SCRIU IN CALENDAR___________________
|
||||
DIRFIRM=DIRGEN+NFSCURT
|
||||
sele 0
|
||||
USE &calefirma\DATEAN\CALENDAR alias cal
|
||||
APPE BLANK
|
||||
REPL NL WITH M.NL
|
||||
REPL AN WITH M.AN
|
||||
REPL SCONT WITH .T.
|
||||
M.antet=ALLTRIM(M.FLUNG)
|
||||
|
||||
THISFORM.RELEASE
|
||||
*____________
|
||||
ENDIF
|
||||
|
||||
DO TOTV
|
||||
|
||||
THISFORM.SERIADEBAZA
|
||||
|
||||
SELE LUNILEAN
|
||||
SEEK (M.NL)
|
||||
M.LUNA=NUMELUNA
|
||||
|
||||
*schimb titlul__________________
|
||||
capapl="CONT2000 Firma "+UPPER(rTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN
|
||||
goApp.SetCaption(capapl)
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text2.Valid
|
||||
m.nl=RIGHT('0'+ALLTRIM(m.lUU),2)
|
||||
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text3.Valid
|
||||
M.AN=ALLTRIM(THIS.VALUE)
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text4.MouseMove
|
||||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text4.Valid
|
||||
if alltrim(m.flung)=="" then
|
||||
wait wind "Introduceti numele firmei!"
|
||||
return 0
|
||||
endif
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Text4.When
|
||||
*thisform.label8.caption=thisform.ttFIRMA
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
43
Ferestre/frm_dg_date_generale.sc2
Normal file
43
Ferestre/frm_dg_date_generale.sc2
Normal file
@@ -0,0 +1,43 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_date_generale.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_dg_date_generale1 AS frm_dg_date_generale OF "..\clase\ferestre_registratura.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Name = "Frm_dg_date_generale1"
|
||||
Shape7.Name = "Shape7"
|
||||
_shape1.Name = "_shape1"
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
_shape2.Name = "_shape2"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
ck_semnat.Alignment = 0
|
||||
ck_semnat.Name = "ck_semnat"
|
||||
txtData_intern.Name = "txtData_intern"
|
||||
LABEL4.Name = "LABEL4"
|
||||
txtDescriere.Name = "txtDescriere"
|
||||
Label6.Name = "Label6"
|
||||
txtNumar_intern.Name = "txtNumar_intern"
|
||||
LABEL9.Name = "LABEL9"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
47
Ferestre/frm_dg_link.sc2
Normal file
47
Ferestre/frm_dg_link.sc2
Normal file
@@ -0,0 +1,47 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_link.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_dg_link1 AS frm_dg_link OF "..\clase\ferestre_registratura.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Name = "Frm_dg_link1"
|
||||
_shape1.Name = "_shape1"
|
||||
_shape2.Name = "_shape2"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
grid_linkuri.COLUMN1.HEADER1.Name = "HEADER1"
|
||||
grid_linkuri.COLUMN1.Name = "COLUMN1"
|
||||
grid_linkuri.COLUMN1.Text1.Name = "Text1"
|
||||
grid_linkuri.COLUMN2.HEADER1.Name = "HEADER1"
|
||||
grid_linkuri.COLUMN2.Name = "COLUMN2"
|
||||
grid_linkuri.COLUMN2.Text1.Name = "Text1"
|
||||
grid_linkuri.COLUMN3.HEADER1.Name = "HEADER1"
|
||||
grid_linkuri.COLUMN3.Name = "COLUMN3"
|
||||
grid_linkuri.COLUMN3.Text1.Name = "Text1"
|
||||
grid_linkuri.Name = "grid_linkuri"
|
||||
BUT_NOU1.Name = "BUT_NOU1"
|
||||
BUT_STERGE1.Name = "BUT_STERGE1"
|
||||
But_edit1.Name = "But_edit1"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
35
Ferestre/frm_dg_observatii.sc2
Normal file
35
Ferestre/frm_dg_observatii.sc2
Normal file
@@ -0,0 +1,35 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_observatii.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_dg_observatii1 AS frm_dg_observatii OF "..\clase\ferestre_registratura.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Name = "Frm_dg_observatii1"
|
||||
_shape1.Name = "_shape1"
|
||||
_shape2.Name = "_shape2"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Edit1.Name = "Edit1"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
50
Ferestre/frm_dg_referinte.sc2
Normal file
50
Ferestre/frm_dg_referinte.sc2
Normal file
@@ -0,0 +1,50 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_referinte.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 0
|
||||
Left = 0
|
||||
Name = "Dataenvironment"
|
||||
Top = 0
|
||||
Width = 0
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_dg_obiectul1 AS frm_dg_referinte OF "..\clase\ferestre_registratura.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Name = "Frm_dg_obiectul1"
|
||||
_shape1.Name = "_shape1"
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Visible = .F.
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
BUT_NOU1.Name = "BUT_NOU1"
|
||||
BUT_NOU1.Visible = .F.
|
||||
BUT_STERGE1.Name = "BUT_STERGE1"
|
||||
BUT_STERGE1.Visible = .F.
|
||||
grid_referinte.COLUMN1.Header1.Name = "Header1"
|
||||
grid_referinte.COLUMN1.Name = "COLUMN1"
|
||||
grid_referinte.COLUMN1.Text1.Name = "Text1"
|
||||
grid_referinte.COLUMN1.Text1.Visible = .T.
|
||||
grid_referinte.COLUMN1.Visible = .T.
|
||||
grid_referinte.Column2.Header1.Name = "Header1"
|
||||
grid_referinte.Column2.Name = "Column2"
|
||||
grid_referinte.Column2.Text1.Name = "Text1"
|
||||
grid_referinte.Column2.Text1.Visible = .T.
|
||||
grid_referinte.Column2.Visible = .T.
|
||||
grid_referinte.Name = "grid_referinte"
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
410
Ferestre/fundal.sc2
Normal file
410
Ferestre/fundal.sc2
Normal file
@@ -0,0 +1,410 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS dataenvironment AS dataenvironment
|
||||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||
|
||||
*<PropValue>
|
||||
DataSource = .NULL.
|
||||
Height = 200
|
||||
Left = 1
|
||||
Name = "Dataenvironment"
|
||||
Top = 220
|
||||
Width = 520
|
||||
*</PropValue>
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS form1 AS form
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: arata_meniu_fluna
|
||||
*m: statusbarclick
|
||||
*p: ostatusbar
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
AlwaysOnBottom = .T.
|
||||
AutoCenter = .T.
|
||||
BackColor = 255,255,255
|
||||
BorderStyle = 0
|
||||
Caption = ""
|
||||
Closable = .F.
|
||||
ControlBox = .F.
|
||||
DoCreate = .T.
|
||||
Enabled = .T.
|
||||
FillColor = 0,0,0
|
||||
HalfHeightCaption = .F.
|
||||
Height = 429
|
||||
MaxButton = .F.
|
||||
MinButton = .F.
|
||||
Movable = .F.
|
||||
Name = "Form1"
|
||||
ostatusbar =
|
||||
Picture = ..\..\
|
||||
ShowTips = .T.
|
||||
Themes = .F.
|
||||
Width = 797
|
||||
WindowState = 2
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
|
||||
ErasePage = .T., ;
|
||||
Height = 457, ;
|
||||
Left = -2, ;
|
||||
Name = "_pgfrmbase1", ;
|
||||
Top = 61, ;
|
||||
Page1.Cw1.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw1.Name = "Cw1", ;
|
||||
Page1.Cw2.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw2.Name = "Cw2", ;
|
||||
Page1.Cw4.Label_item1.Name = "Label_item1", ;
|
||||
Page1.Cw4.Name = "Cw4", ;
|
||||
Page1.Name = "Page1", ;
|
||||
Page1.shape1.Name = "shape1", ;
|
||||
Page2.Ct_registratura1.But_excel1.Name = "But_excel1", ;
|
||||
Page2.Ct_registratura1.But_listare1.Name = "But_listare1", ;
|
||||
Page2.Ct_registratura1.But_nou1.Name = "But_nou1", ;
|
||||
Page2.Ct_registratura1.But_sterge1.Name = "But_sterge1", ;
|
||||
Page2.Ct_registratura1.Ck_data.Alignment = 0, ;
|
||||
Page2.Ct_registratura1.Ck_data.Name = "Ck_data", ;
|
||||
Page2.Ct_registratura1.Ck_numar.Alignment = 0, ;
|
||||
Page2.Ct_registratura1.Ck_numar.Name = "Ck_numar", ;
|
||||
Page2.Ct_registratura1.Ck_nume.Alignment = 0, ;
|
||||
Page2.Ct_registratura1.Ck_nume.Name = "Ck_nume", ;
|
||||
Page2.Ct_registratura1.ck_sters.Alignment = 0, ;
|
||||
Page2.Ct_registratura1.ck_sters.Name = "ck_sters", ;
|
||||
Page2.Ct_registratura1.Ck_tipdoc.Alignment = 0, ;
|
||||
Page2.Ct_registratura1.Ck_tipdoc.Name = "Ck_tipdoc", ;
|
||||
Page2.Ct_registratura1.Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
Page2.Ct_registratura1.Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
|
||||
Page2.Ct_registratura1.Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
|
||||
Page2.Ct_registratura1.Cmd_cauta1.Name = "Cmd_cauta1", ;
|
||||
Page2.Ct_registratura1.Cmd_reset1.Name = "Cmd_reset1", ;
|
||||
Page2.Ct_registratura1.Gridsort1.Name = "Gridsort1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAre_obs.Check1.Alignment = 0, ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAre_obs.Check1.Name = "Check1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAre_obs.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAre_obs.Name = "cAre_obs", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAvizat.Check1.Alignment = 0, ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAvizat.Check1.Name = "Check1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAvizat.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cAvizat.Name = "cAvizat", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cData_ctr.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cData_ctr.Name = "cData_ctr", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cData_ctr.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cData_intern.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cData_intern.Name = "cData_intern", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cData_intern.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cDescriere.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cDescriere.Name = "cDescriere", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cDescriere.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cFel_document.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cFel_document.Name = "cFel_document", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cFel_document.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cIE.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cIE.Name = "cIE", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cIE.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Name = "cMediu_transmisie", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNresp.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNresp.Name = "cNresp", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNresp.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Name = "cNr_ctr", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNr_pag.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNr_pag.Name = "cNr_pag", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNr_pag.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Name = "cNumar_intern", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNume.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNume.Name = "cNume", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cNume.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN12.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN12.Name = "COLUMN12", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN12.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN13.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN13.Name = "COLUMN13", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN13.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN14.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN14.Name = "COLUMN14", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN14.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN15.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN15.Name = "COLUMN15", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN15.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN16.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN16.Name = "COLUMN16", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN16.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN17.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN17.Name = "COLUMN17", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN17.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN22.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN22.Name = "COLUMN22", ;
|
||||
Page2.Ct_registratura1.grid_registratura.COLUMN22.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.Column23.Command1.Name = "Command1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.Column23.Command2.Name = "Command2", ;
|
||||
Page2.Ct_registratura1.grid_registratura.Column23.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.Column23.Name = "Column23", ;
|
||||
Page2.Ct_registratura1.grid_registratura.Column23.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cPers_contact.Header1.Name = "Header1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cPers_contact.Name = "cPers_contact", ;
|
||||
Page2.Ct_registratura1.grid_registratura.cPers_contact.Text1.Name = "Text1", ;
|
||||
Page2.Ct_registratura1.grid_registratura.Name = "grid_registratura", ;
|
||||
Page2.Ct_registratura1.Name = "Ct_registratura1", ;
|
||||
Page2.Ct_registratura1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
|
||||
Page2.Ct_registratura1._lbbase1.Name = "_lbbase1", ;
|
||||
Page2.Ct_registratura1._shape1.Name = "_shape1", ;
|
||||
Page2.Name = "Page2", ;
|
||||
Page3.CT_DATE_GENERALE1.Name = "CT_DATE_GENERALE1", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Name = "outlook2003bar1", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Height = 16, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Width = 16, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.Name = "MenuButton", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.Name = "overflowpanel", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panel.Name = "Panel", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.ErasePage = .T., ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Height = 328, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Name = "Panes", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Name = "pane1", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Height = 328, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Left = 0, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Name = "Olecontrol1", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Top = 0, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Width = 198, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Height = 150, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Name = "Olecontrol2", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Width = 200, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane2.Name = "pane2", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane3.Name = "pane3", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane4.Name = "pane4", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Top = 33, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Height = 3, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Name = "imgSplitter", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Width = 35, ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.Name = "SplitBar", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Splitter.Name = "Splitter", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.lblCaption.Name = "lblCaption", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.linBorder.Name = "linBorder", ;
|
||||
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.Name = "Title", ;
|
||||
Page3.CT_PART_NR_DATA1.cmdDenumire.Name = "cmdDenumire", ;
|
||||
Page3.CT_PART_NR_DATA1.Command2.Name = "Command2", ;
|
||||
Page3.CT_PART_NR_DATA1.Label3.Name = "Label3", ;
|
||||
Page3.CT_PART_NR_DATA1.Label4.Name = "Label4", ;
|
||||
Page3.CT_PART_NR_DATA1.Label9.Name = "Label9", ;
|
||||
Page3.CT_PART_NR_DATA1.Name = "CT_PART_NR_DATA1", ;
|
||||
Page3.CT_PART_NR_DATA1.txtClient.Name = "txtClient", ;
|
||||
Page3.CT_PART_NR_DATA1.txtData_ctr.Name = "txtData_ctr", ;
|
||||
Page3.CT_PART_NR_DATA1.txtNumar.Name = "txtNumar", ;
|
||||
Page3.Name = "Page3"
|
||||
*< END OBJECT: ClassLib="..\clase\ofundal_registratura.vcx" BaseClass="pageframe" />
|
||||
|
||||
ADD OBJECT 'Image1' AS image WITH ;
|
||||
Anchor = 12, ;
|
||||
Height = 220, ;
|
||||
Left = 228, ;
|
||||
Name = "Image1", ;
|
||||
Picture = ..\grafice\roaregistratura.bmp, ;
|
||||
Stretch = 0, ;
|
||||
Top = 204, ;
|
||||
Width = 556
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Image2' AS image WITH ;
|
||||
Anchor = 10, ;
|
||||
Height = 64, ;
|
||||
Left = -11, ;
|
||||
Name = "Image2", ;
|
||||
Picture = ..\comun\grafice\f1.jpg, ;
|
||||
Stretch = 2, ;
|
||||
Top = -1, ;
|
||||
Width = 851
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Imagine01' AS imagine WITH ;
|
||||
ccod = A01, ;
|
||||
Height = 48, ;
|
||||
Left = 13, ;
|
||||
Name = "Imagine01", ;
|
||||
nid_img = 1, ;
|
||||
ntip = 4, ;
|
||||
picturedown = clie2.bmp, ;
|
||||
pictureup = clie1.bmp, ;
|
||||
ToolTipText = "Vizualizare parteneri", ;
|
||||
Top = 0, ;
|
||||
Width = 60
|
||||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Operator:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label1", ;
|
||||
Top = 381, ;
|
||||
Width = 53
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label2' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Nivel de acces:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 17, ;
|
||||
Left = 7, ;
|
||||
Name = "Label2", ;
|
||||
Top = 401, ;
|
||||
Width = 85
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
||||
Anchor = 4, ;
|
||||
Caption = "Operator:", ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Left = 571, ;
|
||||
Name = "lb_utilizator", ;
|
||||
Top = 8
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
||||
Anchor = 4, ;
|
||||
Caption = "nume_utilizator", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 255,255,255, ;
|
||||
Left = 625, ;
|
||||
Name = "lb_utilizator1", ;
|
||||
Top = 8, ;
|
||||
Visible = .F.
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "utilizator", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 23, ;
|
||||
Left = 62, ;
|
||||
Name = "Text1", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 380, ;
|
||||
Width = 147
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "m.nivel", ;
|
||||
FontBold = .T., ;
|
||||
FontItalic = .T., ;
|
||||
ForeColor = 0,0,128, ;
|
||||
Height = 23, ;
|
||||
Left = 93, ;
|
||||
Name = "Text2", ;
|
||||
ReadOnly = .T., ;
|
||||
TabStop = .F., ;
|
||||
Top = 400, ;
|
||||
Width = 28
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE arata_meniu_fluna
|
||||
Do start_firma In ostartfirma.prg
|
||||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||
With Thisform._pgfrmbase1.page2.ct_registratura1
|
||||
.do_initializeaza_cursor()
|
||||
.grid_registratura.SetFocus()
|
||||
Endwith
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE RightClick
|
||||
Thisform.arata_meniu_fluna()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Show
|
||||
Lparameters nStyle
|
||||
DoDefault(nStyle)
|
||||
This.AlwaysOnBottom = .T.
|
||||
|
||||
Thisform.arata_meniu_fluna()
|
||||
primadata = .F.
|
||||
Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
|
||||
Thisform.lb_utilizator1.Visible=.T.
|
||||
Do lansare_toolbar In oproceduri_comune.prg
|
||||
DO lansare_help IN oproceduri_comune.prg
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE statusbarclick
|
||||
Thisform.oStatusBar.newtooltip()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Image1.RightClick
|
||||
Thisform.arata_meniu_fluna()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Imagine01.do_actiune
|
||||
Thisform._pgfrmbase1.page1.cw1.do_actiune()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE lb_utilizator.RightClick
|
||||
Thisform.arata_meniu_fluna()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE lb_utilizator1.RightClick
|
||||
Thisform.arata_meniu_fluna()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page1.Activate
|
||||
DODEFAULT()
|
||||
Thisform.image1.Visible = .T.
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page1.RightClick
|
||||
Thisform.arata_meniu_fluna()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page2.Activate
|
||||
DODEFAULT()
|
||||
Thisform.image1.Visible = .F.
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page2.RightClick
|
||||
Thisform.arata_meniu_fluna()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page3.Activate
|
||||
DODEFAULT()
|
||||
Thisform.image1.Visible = .F.
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _pgfrmbase1.Page3.RightClick
|
||||
Thisform.arata_meniu_fluna()
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user