1723 lines
43 KiB
Plaintext
1723 lines
43 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000-3.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS danuinchid AS sigur OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 168
|
|
Name = "danuinchid"
|
|
Width = 419
|
|
SEIP1.Height = 158
|
|
SEIP1.Left = 7
|
|
SEIP1.Name = "SEIP1"
|
|
SEIP1.Top = 5
|
|
SEIP1.Width = 405
|
|
Image1.Height = 32
|
|
Image1.Left = 23
|
|
Image1.Name = "Image1"
|
|
Image1.Top = 21
|
|
Image1.Width = 32
|
|
Label1.Caption = "Doriti sa inchideti luna contabila curenta?"
|
|
Label1.Left = 60
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 97
|
|
Label2.AutoSize = .F.
|
|
Label2.Caption = "Daca inchideti aceasta luna, datele/documentele aferente vor putea fi vizualizate, dar nu si modificate. De asemenea nu vor fi permise noi introduceri de date/documente in aceasta luna contabila."
|
|
Label2.FontSize = 10
|
|
Label2.Height = 67
|
|
Label2.Left = 76
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 14
|
|
Label2.Visible = .T.
|
|
Label2.Width = 324
|
|
Label2.WordWrap = .T.
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Imbuton1.Height = 29
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 27
|
|
CMDTERMIN1.Left = 373
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 130
|
|
Label3.Left = 328
|
|
Label3.Name = "Label3"
|
|
Label3.Top = 136
|
|
Nu1.Command1.Name = "Command1"
|
|
Nu1.Imbuton1.Height = 27
|
|
Nu1.Imbuton1.Name = "Imbuton1"
|
|
Nu1.Imbuton1.Width = 51
|
|
Nu1.Left = 210
|
|
Nu1.Name = "Nu1"
|
|
Nu1.Top = 123
|
|
Da1.Command1.Name = "Command1"
|
|
Da1.Imbuton1.Height = 27
|
|
Da1.Imbuton1.Name = "Imbuton1"
|
|
Da1.Imbuton1.Width = 51
|
|
Da1.Left = 158
|
|
Da1.Name = "Da1"
|
|
Da1.Top = 123
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS optiuni AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="TITLU1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.SEIP1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.V" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.Seip2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.A" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.Seip3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.C" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.Seip4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.D" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P1.Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Seip2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.SEIP1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.B" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.o378" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.o411" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Text12" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label9" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.P2.Label11" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.PR.SEIP1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.PR.r1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.PR.Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.PR.Seip2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.PR.r2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.PR.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.p3.Seip2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.p3.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.p3.FBON" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.p3.Seip3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.p3.Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="P.p3.FNIR" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDLIST1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: a
|
|
*p: a378
|
|
*p: a411
|
|
*p: b
|
|
*p: c
|
|
*p: cuanalitice
|
|
*p: d
|
|
*p: fb
|
|
*p: fn
|
|
*p: r1
|
|
*p: r2
|
|
*p: v
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
a = 1
|
|
a378 = 1
|
|
a411 = 1
|
|
b = 1
|
|
c = 1
|
|
d = 2
|
|
DoCreate = .T.
|
|
fb = 2
|
|
fn = 2
|
|
Height = 391
|
|
Name = "optiuni"
|
|
r1 = 1
|
|
r2 = 1
|
|
v = 1
|
|
Width = 494
|
|
Line1.Name = "Line1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDLIST1' AS cmdlist WITH ;
|
|
Caption = "\<FISIER", ;
|
|
Left = 288, ;
|
|
Name = "CMDLIST1", ;
|
|
Top = 355
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Left = 396, ;
|
|
Name = "CMDTERMIN1", ;
|
|
Top = 355
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'P' AS pageframe WITH ;
|
|
ErasePage = .T., ;
|
|
Height = 315, ;
|
|
Left = 14, ;
|
|
Name = "P", ;
|
|
PageCount = 4, ;
|
|
TabStyle = 1, ;
|
|
Top = 33, ;
|
|
Width = 468, ;
|
|
Page1.Caption = "Gestiuni", ;
|
|
Page1.Name = "P1", ;
|
|
Page1.PageOrder = 2, ;
|
|
Page2.Caption = "Contabilizare", ;
|
|
Page2.Enabled = .T., ;
|
|
Page2.Name = "P2", ;
|
|
Page2.PageOrder = 3, ;
|
|
Page3.Caption = "Retea", ;
|
|
Page3.Name = "PR", ;
|
|
Page3.PageOrder = 1, ;
|
|
Page4.Caption = "Formulare", ;
|
|
Page4.Name = "p3", ;
|
|
Page4.PageOrder = 4
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'P.P1.A' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.A", ;
|
|
Height = 48, ;
|
|
Left = 353, ;
|
|
Name = "A", ;
|
|
Top = 76, ;
|
|
Value = 1, ;
|
|
Width = 48, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Da", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 34, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Nu", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Width = 34
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.P1.C' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.C", ;
|
|
Height = 48, ;
|
|
Left = 353, ;
|
|
Name = "C", ;
|
|
Top = 136, ;
|
|
Value = 1, ;
|
|
Width = 91, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Denumire", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 73, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Cod material", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Width = 89
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.P1.D' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "thisform.d", ;
|
|
Height = 48, ;
|
|
Left = 353, ;
|
|
Name = "D", ;
|
|
Top = 210, ;
|
|
Value = 2, ;
|
|
Width = 91, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Da", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 0, ;
|
|
Option1.Width = 34, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Nu", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Value = 1, ;
|
|
Option2.Width = 34
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.P1.Label1' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Se foloseste evidentierea in valuta a preturilor de achizitie si de vanzare?", ;
|
|
Height = 36, ;
|
|
Left = 32, ;
|
|
Name = "Label1", ;
|
|
Top = 22, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P1.Label2' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Se folosesc coeficienti variabili de adaos comercial?", ;
|
|
Height = 36, ;
|
|
Left = 32, ;
|
|
Name = "Label2", ;
|
|
Top = 81, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P1.Label3' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "In listele nomenclatoare este utila cautarea cu prioritate dupa denumire sau codul de material?", ;
|
|
Height = 36, ;
|
|
Left = 32, ;
|
|
Name = "Label3", ;
|
|
Top = 141, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P1.Label4' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "La achizitia de marfa, cu discount de la furnizor, este necesar ca discount-ul sa se distribuie pe unitatea de produs (intrarea in gestiune sa fie la pretul de achizitie diminuat) ?", ;
|
|
Height = 61, ;
|
|
Left = 32, ;
|
|
Name = "Label4", ;
|
|
Top = 202, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P1.SEIP1' AS seip WITH ;
|
|
Height = 53, ;
|
|
Left = 15, ;
|
|
Name = "SEIP1", ;
|
|
Top = 15, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.P1.Seip2' AS seip WITH ;
|
|
Height = 53, ;
|
|
Left = 15, ;
|
|
Name = "Seip2", ;
|
|
Top = 74, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.P1.Seip3' AS seip WITH ;
|
|
Height = 53, ;
|
|
Left = 15, ;
|
|
Name = "Seip3", ;
|
|
Top = 134, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.P1.Seip4' AS seip WITH ;
|
|
Height = 80, ;
|
|
Left = 15, ;
|
|
Name = "Seip4", ;
|
|
Top = 195, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.P1.V' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.V", ;
|
|
Height = 48, ;
|
|
Left = 353, ;
|
|
Name = "V", ;
|
|
Top = 17, ;
|
|
Value = 1, ;
|
|
Width = 48, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Da", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 34, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Nu", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Width = 34
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.P2.B' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.B", ;
|
|
Height = 48, ;
|
|
Left = 354, ;
|
|
Name = "B", ;
|
|
Top = 28, ;
|
|
Value = 1, ;
|
|
Width = 48, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Da", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 34, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Nu", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Width = 34
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.P2.Label1' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Este necesar ca operatorul sa vada verificarea inregistrarilor contabile, pe masura ce acestea se efectueaza?", ;
|
|
Height = 50, ;
|
|
Left = 33, ;
|
|
Name = "Label1", ;
|
|
Top = 35, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label10' AS label WITH ;
|
|
Caption = "378", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 239, ;
|
|
Name = "Label10", ;
|
|
Top = 124, ;
|
|
Width = 40
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label11' AS label WITH ;
|
|
Caption = "411", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 300, ;
|
|
Name = "Label11", ;
|
|
Top = 125, ;
|
|
Width = 40
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label2' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Se lucreaza cu conturi analitice de gestiune:", ;
|
|
Height = 24, ;
|
|
Left = 33, ;
|
|
Name = "Label2", ;
|
|
Top = 94, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label3' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Marfa en-gros", ;
|
|
Height = 24, ;
|
|
Left = 30, ;
|
|
Name = "Label3", ;
|
|
Top = 149, ;
|
|
Width = 288, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label4' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Marfa cu amanuntul", ;
|
|
Height = 24, ;
|
|
Left = 30, ;
|
|
Name = "Label4", ;
|
|
Top = 171, ;
|
|
Width = 288, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label5' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Marfa in custodie", ;
|
|
Height = 24, ;
|
|
Left = 30, ;
|
|
Name = "Label5", ;
|
|
Top = 193, ;
|
|
Width = 288, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label6' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Marfa in gestiune valorica", ;
|
|
Height = 24, ;
|
|
Left = 30, ;
|
|
Name = "Label6", ;
|
|
Top = 212, ;
|
|
Width = 288, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label7' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Se folosesc analiticele corespondente pt. 378:", ;
|
|
Height = 24, ;
|
|
Left = 21, ;
|
|
Name = "Label7", ;
|
|
Top = 295, ;
|
|
Visible = .F., ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label8' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Se folosesc analiticele corespondente pt. 411:", ;
|
|
Height = 24, ;
|
|
Left = 21, ;
|
|
Name = "Label8", ;
|
|
Top = 316, ;
|
|
Visible = .F., ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.Label9' AS label WITH ;
|
|
Caption = "371", ;
|
|
FontBold = .T., ;
|
|
Height = 17, ;
|
|
Left = 185, ;
|
|
Name = "Label9", ;
|
|
Top = 124, ;
|
|
Width = 40
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.P2.o378' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.a378", ;
|
|
Height = 24, ;
|
|
Left = 295, ;
|
|
Name = "o378", ;
|
|
Top = 288, ;
|
|
Value = 1, ;
|
|
Visible = .F., ;
|
|
Width = 96, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Da", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 34, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Nu", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 48, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 6, ;
|
|
Option2.Width = 34
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.P2.o411' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.a411", ;
|
|
Height = 24, ;
|
|
Left = 295, ;
|
|
Name = "o411", ;
|
|
Top = 309, ;
|
|
Value = 1, ;
|
|
Visible = .F., ;
|
|
Width = 96, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Da", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 34, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Nu", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 48, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 6, ;
|
|
Option2.Width = 34
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.P2.SEIP1' AS seip WITH ;
|
|
Height = 57, ;
|
|
Left = 16, ;
|
|
Name = "SEIP1", ;
|
|
Top = 26, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.P2.Seip2' AS seip WITH ;
|
|
Height = 168, ;
|
|
Left = 16, ;
|
|
Name = "Seip2", ;
|
|
Top = 89, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.P2.Text1' AS textbox WITH ;
|
|
ControlSource = "c371engros", ;
|
|
Height = 22, ;
|
|
Left = 180, ;
|
|
Name = "Text1", ;
|
|
Top = 145, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text10' AS textbox WITH ;
|
|
ControlSource = "c411endetail", ;
|
|
Height = 22, ;
|
|
Left = 297, ;
|
|
Name = "Text10", ;
|
|
Top = 166, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text11' AS textbox WITH ;
|
|
ControlSource = "c411custodie", ;
|
|
Height = 22, ;
|
|
Left = 297, ;
|
|
Name = "Text11", ;
|
|
Top = 187, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text12' AS textbox WITH ;
|
|
ControlSource = "c411gestvalorica", ;
|
|
Height = 22, ;
|
|
Left = 297, ;
|
|
Name = "Text12", ;
|
|
Top = 208, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text2' AS textbox WITH ;
|
|
ControlSource = "c371endetail", ;
|
|
Height = 22, ;
|
|
Left = 180, ;
|
|
Name = "Text2", ;
|
|
Top = 166, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text3' AS textbox WITH ;
|
|
ControlSource = "c371custodie", ;
|
|
Height = 22, ;
|
|
Left = 180, ;
|
|
Name = "Text3", ;
|
|
Top = 187, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text4' AS textbox WITH ;
|
|
ControlSource = "c371gestvalorica", ;
|
|
Height = 22, ;
|
|
Left = 180, ;
|
|
Name = "Text4", ;
|
|
Top = 208, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text5' AS textbox WITH ;
|
|
ControlSource = "c378engros", ;
|
|
Height = 22, ;
|
|
Left = 237, ;
|
|
Name = "Text5", ;
|
|
Top = 145, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text6' AS textbox WITH ;
|
|
ControlSource = "c378endetail", ;
|
|
Height = 22, ;
|
|
Left = 237, ;
|
|
Name = "Text6", ;
|
|
Top = 166, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text7' AS textbox WITH ;
|
|
ControlSource = "c378custodie", ;
|
|
Height = 22, ;
|
|
Left = 237, ;
|
|
Name = "Text7", ;
|
|
Top = 187, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text8' AS textbox WITH ;
|
|
ControlSource = "c378gestvalorica", ;
|
|
Height = 22, ;
|
|
Left = 237, ;
|
|
Name = "Text8", ;
|
|
Top = 208, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.P2.Text9' AS textbox WITH ;
|
|
ControlSource = "c411engros", ;
|
|
Height = 22, ;
|
|
Left = 297, ;
|
|
Name = "Text9", ;
|
|
Top = 145, ;
|
|
Width = 50
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'P.p3.FBON' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.FB", ;
|
|
Height = 48, ;
|
|
Left = 352, ;
|
|
Name = "FBON", ;
|
|
Top = 21, ;
|
|
Value = 2, ;
|
|
Width = 87, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "De Achizitie", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 0, ;
|
|
Option1.Width = 81, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "De Vanzare", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Value = 1, ;
|
|
Option2.Width = 81
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.p3.FNIR' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.FN", ;
|
|
Height = 48, ;
|
|
Left = 352, ;
|
|
Name = "FNIR", ;
|
|
Top = 88, ;
|
|
Value = 2, ;
|
|
Width = 48, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "Da", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 0, ;
|
|
Option1.Width = 34, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "Nu", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Value = 1, ;
|
|
Option2.Width = 34
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.p3.Label2' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Pe formularul de bon de consum se vor inscrie preturile de vanzare sau achizitie a marfii? ", ;
|
|
Height = 50, ;
|
|
Left = 31, ;
|
|
Name = "Label2", ;
|
|
Top = 25, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.p3.Label3' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Formular de NIR standard:", ;
|
|
Height = 38, ;
|
|
Left = 31, ;
|
|
Name = "Label3", ;
|
|
Top = 91, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.p3.Seip2' AS seip WITH ;
|
|
Height = 57, ;
|
|
Left = 14, ;
|
|
Name = "Seip2", ;
|
|
Top = 16, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.p3.Seip3' AS seip WITH ;
|
|
Height = 57, ;
|
|
Left = 14, ;
|
|
Name = "Seip3", ;
|
|
Top = 83, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.PR.Label1' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Programul este instalat si functioneaza in retea sau pe o singura statie?", ;
|
|
Height = 36, ;
|
|
Left = 34, ;
|
|
Name = "Label1", ;
|
|
Top = 33, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.PR.Label2' AS label WITH ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Cate persoane utilizeaza programul?", ;
|
|
Height = 36, ;
|
|
Left = 34, ;
|
|
Name = "Label2", ;
|
|
Top = 97, ;
|
|
Width = 276, ;
|
|
WordWrap = .T.
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'P.PR.r1' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.r1", ;
|
|
Height = 48, ;
|
|
Left = 310, ;
|
|
Name = "r1", ;
|
|
Top = 27, ;
|
|
Value = 1, ;
|
|
Width = 75, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "In \<Retea", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 64, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "\<Local", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Width = 48
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.PR.r2' AS optiongroup WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 2, ;
|
|
ControlSource = "THISFORM.r2", ;
|
|
Height = 48, ;
|
|
Left = 310, ;
|
|
Name = "r2", ;
|
|
Top = 91, ;
|
|
Value = 1, ;
|
|
Width = 126, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.Caption = "\<Mai multi operatori", ;
|
|
Option1.Height = 17, ;
|
|
Option1.Left = 2, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 6, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 119, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.Caption = "\<Un singur operator", ;
|
|
Option2.Height = 17, ;
|
|
Option2.Left = 2, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 30, ;
|
|
Option2.Width = 121
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'P.PR.SEIP1' AS seip WITH ;
|
|
Height = 53, ;
|
|
Left = 17, ;
|
|
Name = "SEIP1", ;
|
|
Top = 26, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'P.PR.Seip2' AS seip WITH ;
|
|
Height = 53, ;
|
|
Left = 17, ;
|
|
Name = "Seip2", ;
|
|
Top = 90, ;
|
|
Width = 432
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'TITLU1' AS titlu WITH ;
|
|
Caption = "OPTIUNI", ;
|
|
Left = 13, ;
|
|
Name = "TITLU1", ;
|
|
Top = 7
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
thisform.p.pr.pageorder=1
|
|
thisform.p.p1.pageorder=2
|
|
thisform.p.p2.pageorder=3
|
|
thisform.p.p3.pageorder=4
|
|
|
|
|
|
sele optiuni
|
|
loca for optiune='VALUTA'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'VALUTA'
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.V=IIF(DA,1,2)
|
|
|
|
sele optiuni
|
|
loca for optiune='ADAOS PROCENTUAL'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'ADAOS PROCENTUAL'
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.A=IIF(DA,1,2)
|
|
|
|
sele optiuni
|
|
loca for optiune='CAUTCOD'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'CAUTCOD'
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.C=VALOARE
|
|
|
|
sele optiuni
|
|
loca for optiune='DISC. DISTRIB'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'DISC. DISTRIB'
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.D=VALOARE
|
|
|
|
sele optiuni
|
|
loca for optiune='AFIS CONTAB'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'AFIS CONTAB'
|
|
REPL DA WITH .T.
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.B=IIF(DA,1,2)
|
|
|
|
sele optiuni
|
|
loca for optiune='RETEA'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'RETEA'
|
|
REPL DA WITH .T.
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.R1=IIF(DA,1,2)
|
|
|
|
sele optiuni
|
|
loca for optiune='MULTI OP'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'MULTI OP'
|
|
REPL DA WITH .T.
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.R2=IIF(DA,1,2)
|
|
|
|
sele optiuni
|
|
loca for optiune='BON ACHI'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'BON ACHI'
|
|
REPL DA WITH .F.
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.FB=IIF(DA,1,2)
|
|
|
|
sele optiuni
|
|
loca for optiune='NIR STANDARD'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'NIR STANDARD'
|
|
REPL DA WITH .F.
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.FN=IIF(DA,1,2)
|
|
|
|
|
|
sele optiuni
|
|
loca for optiune='A378'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'A378'
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.A378=IIF(DA,1,2)
|
|
|
|
sele optiuni
|
|
loca for optiune='A411'
|
|
IF !FOUND()
|
|
APPE BLAN
|
|
REPL OPTIUNE WITH 'A411'
|
|
*RETRY
|
|
ENDIF
|
|
THISFORM.A411=IIF(DA,1,2)
|
|
|
|
|
|
DO CITESTE_ANALITICE IN PROCEDURI.PRG
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDLIST1.Click
|
|
SELE OPTIUNI
|
|
BROW
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
sele optiuni
|
|
loca for optiune='VALUTA'
|
|
REPL DA WITH IIF(THISFORM.V=1,.T.,.F.)
|
|
|
|
|
|
sele optiuni
|
|
loca for optiune='ADAOS PROCENTUAL'
|
|
REPL DA WITH IIF(THISFORM.A=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='CAUTCOD'
|
|
REPL VALOARE WITH THISFORM.C
|
|
|
|
sele optiuni
|
|
loca for optiune='DISC. DISTRIB'
|
|
REPL VALOARE WITH THISFORM.D
|
|
|
|
sele optiuni
|
|
loca for optiune='AFIS CONTAB'
|
|
REPL DA WITH IIF(THISFORM.B=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='RETEA'
|
|
REPL DA WITH IIF(THISFORM.R1=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='MULTI OP'
|
|
REPL DA WITH IIF(THISFORM.R2=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='BON ACHI'
|
|
REPL DA WITH IIF(THISFORM.FB=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='NIR STANDARD'
|
|
REPL DA WITH IIF(THISFORM.FN=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='A378'
|
|
REPL DA WITH IIF(THISFORM.A378=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='A411'
|
|
REPL DA WITH IIF(THISFORM.A411=1,.T.,.F.)
|
|
|
|
sele optiuni
|
|
loca for optiune='371ENGROS'
|
|
REPL EXPLICATIA WITH C371ENGROS
|
|
sele optiuni
|
|
loca for optiune='371ENDETAIL'
|
|
REPL EXPLICATIA WITH C371ENDETAIL
|
|
sele optiuni
|
|
loca for optiune='371CUSTODIE'
|
|
REPL EXPLICATIA WITH C371CUSTODIE
|
|
sele optiuni
|
|
loca for optiune='371GESTVALORICA'
|
|
REPL EXPLICATIA WITH C371GESTVALORICA
|
|
|
|
sele optiuni
|
|
loca for optiune='378ENGROS'
|
|
REPL EXPLICATIA WITH C378ENGROS
|
|
sele optiuni
|
|
loca for optiune='378ENDETAIL'
|
|
REPL EXPLICATIA WITH C378ENDETAIL
|
|
sele optiuni
|
|
loca for optiune='378CUSTODIE'
|
|
REPL EXPLICATIA WITH C378CUSTODIE
|
|
sele optiuni
|
|
loca for optiune='378GESTVALORICA'
|
|
REPL EXPLICATIA WITH C378GESTVALORICA
|
|
|
|
sele optiuni
|
|
loca for optiune='411ENGROS'
|
|
REPL EXPLICATIA WITH C411ENGROS
|
|
sele optiuni
|
|
loca for optiune='411ENDETAIL'
|
|
REPL EXPLICATIA WITH C411ENDETAIL
|
|
sele optiuni
|
|
loca for optiune='411CUSTODIE'
|
|
REPL EXPLICATIA WITH C411CUSTODIE
|
|
sele optiuni
|
|
loca for optiune='411GESTVALORICA'
|
|
REPL EXPLICATIA WITH C411GESTVALORICA
|
|
|
|
|
|
THISFORM.RELEASE
|
|
ENDPROC
|
|
|
|
PROCEDURE P.P1.Activate
|
|
THIS.v.REFRESH
|
|
THIS.a.REFRESH
|
|
THIS.c.REFRESH
|
|
THIS.D.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE P.P2.Activate
|
|
THIS.B.REFRESH
|
|
THIS.o378.REFRESH
|
|
THIS.o411.REFRESH
|
|
THIS.TEXT1.REFRESH
|
|
THIS.TEXT2.REFRESH
|
|
THIS.TEXT3.REFRESH
|
|
THIS.TEXT4.REFRESH
|
|
THIS.TEXT5.REFRESH
|
|
THIS.TEXT6.REFRESH
|
|
THIS.TEXT7.REFRESH
|
|
THIS.TEXT8.REFRESH
|
|
THIS.TEXT9.REFRESH
|
|
THIS.TEXT10.REFRESH
|
|
THIS.TEXT11.REFRESH
|
|
THIS.TEXT12.REFRESH
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE P.p3.Activate
|
|
THIS.FNIR.REFRESH
|
|
THIS.FBON.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE P.PR.Activate
|
|
THIS.R1.REFRESH
|
|
THIS.R2.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS seleluna AS ffergen OF "..\..\sal2000\clase\ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Seip1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Combo2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: aa
|
|
*p: ll
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
aa =
|
|
DoCreate = .T.
|
|
Height = 135
|
|
ll =
|
|
Name = "seleluna"
|
|
Width = 242
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Left = 132, ;
|
|
Name = "CMDTERMIN1", ;
|
|
Top = 84, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Combo1' AS combobox WITH ;
|
|
BoundColumn = 2, ;
|
|
BoundTo = .T., ;
|
|
ColumnCount = 2, ;
|
|
ControlSource = "", ;
|
|
Height = 24, ;
|
|
Left = 24, ;
|
|
Name = "Combo1", ;
|
|
RowSource = "nl,an", ;
|
|
RowSourceType = 6, ;
|
|
Style = 2, ;
|
|
Top = 48, ;
|
|
Width = 72, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Combo2' AS combobox WITH ;
|
|
ControlSource = "luna", ;
|
|
Height = 24, ;
|
|
Left = 264, ;
|
|
Name = "Combo2", ;
|
|
RowSource = "calendar.nl", ;
|
|
RowSourceType = 6, ;
|
|
Style = 2, ;
|
|
Top = 72, ;
|
|
Visible = .F., ;
|
|
Width = 60, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
Caption = "Selectati anul si luna de inceput:", ;
|
|
Height = 13, ;
|
|
Left = 24, ;
|
|
Name = "Label1", ;
|
|
Top = 24, ;
|
|
Width = 192, ;
|
|
ZOrderSet = 2
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Caption = " ", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 136, ;
|
|
Name = "Label2", ;
|
|
Top = 52, ;
|
|
Width = 27
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
Caption = " ", ;
|
|
FontItalic = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 171, ;
|
|
Name = "Label3", ;
|
|
Top = 52, ;
|
|
Width = 40
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Seip1' AS seip WITH ;
|
|
Height = 108, ;
|
|
Left = 12, ;
|
|
Name = "Seip1", ;
|
|
Top = 12, ;
|
|
Width = 216, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
PROCEDURE Init
|
|
thisform.ll=m.nl
|
|
thisform.aa=m.an
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Valid
|
|
m.an=thisform.aa
|
|
m.nl=thisform.ll
|
|
ENDPROC
|
|
|
|
PROCEDURE Combo1.Valid
|
|
sele calendar
|
|
anul=an
|
|
luna=nl
|
|
thisform.label2.caption=luna
|
|
thisform.label3.caption=anul
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS seriaper AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Seip2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SEIP1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="TITLU1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERP1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERP2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERP3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERP4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERA1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERA4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERA2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="SERA3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlu6" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: a1
|
|
*p: a2
|
|
*p: a3
|
|
*p: a4
|
|
*p: p1
|
|
*p: p2
|
|
*p: p3
|
|
*p: p4
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
a1 =
|
|
a2 =
|
|
a3 =
|
|
a4 =
|
|
DoCreate = .T.
|
|
Height = 229
|
|
Name = "seriaper"
|
|
p1 =
|
|
p2 =
|
|
p3 =
|
|
p4 =
|
|
Width = 618
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
|
|
Left = 540, ;
|
|
Name = "CMDRENUNT1", ;
|
|
TabIndex = 23, ;
|
|
Top = 192, ;
|
|
ZOrderSet = 9, ;
|
|
IMBUTON1.Height = 26, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 26, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Left = 575, ;
|
|
Name = "CMDTERMIN1", ;
|
|
TabIndex = 22, ;
|
|
Top = 192, ;
|
|
ZOrderSet = 8, ;
|
|
IMBUTON1.Height = 29, ;
|
|
IMBUTON1.Name = "IMBUTON1", ;
|
|
IMBUTON1.Width = 27, ;
|
|
COMMAND1.Name = "COMMAND1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Seria precedenta:", ;
|
|
Height = 17, ;
|
|
Left = 36, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 8, ;
|
|
Top = 57, ;
|
|
Width = 99, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Va rugam solicitati seria periodica:", ;
|
|
Height = 17, ;
|
|
Left = 36, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 9, ;
|
|
Top = 105, ;
|
|
Width = 191, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Va multumim.", ;
|
|
Height = 17, ;
|
|
Left = 36, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 10, ;
|
|
Top = 139, ;
|
|
Width = 78, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Tel./Fax: 0241-541000, Tel.: 0241-606557", ;
|
|
Height = 17, ;
|
|
Left = 36, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 11, ;
|
|
Top = 178, ;
|
|
Width = 230, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = " Pentru informatii sunati la firma ROMFAST S.R.L. CONSTANTA", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 33, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 13, ;
|
|
Top = 157, ;
|
|
Width = 375, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'SEIP1' AS seip WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 36, ;
|
|
Left = 24, ;
|
|
Name = "SEIP1", ;
|
|
Top = 45, ;
|
|
Width = 576, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Seip2' AS seip WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 36, ;
|
|
Left = 24, ;
|
|
Name = "Seip2", ;
|
|
Top = 93, ;
|
|
Width = 576, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'SERA1' AS textbox WITH ;
|
|
ControlSource = "THISFORM.A1", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 277, ;
|
|
Name = "SERA1", ;
|
|
TabIndex = 18, ;
|
|
Top = 101, ;
|
|
Width = 63, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'SERA2' AS textbox WITH ;
|
|
ControlSource = "THISFORM.A2", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 363, ;
|
|
Name = "SERA2", ;
|
|
TabIndex = 19, ;
|
|
Top = 101, ;
|
|
Width = 51, ;
|
|
ZOrderSet = 22
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'SERA3' AS textbox WITH ;
|
|
ControlSource = "THISFORM.A3", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 438, ;
|
|
Name = "SERA3", ;
|
|
TabIndex = 20, ;
|
|
Top = 101, ;
|
|
Width = 51, ;
|
|
ZOrderSet = 24
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'SERA4' AS textbox WITH ;
|
|
ControlSource = "THISFORM.A4", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 511, ;
|
|
Name = "SERA4", ;
|
|
TabIndex = 21, ;
|
|
Top = 101, ;
|
|
Width = 51, ;
|
|
ZOrderSet = 26
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'SERP1' AS textbox WITH ;
|
|
ControlSource = "THISFORM.P1", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 277, ;
|
|
Name = "SERP1", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 14, ;
|
|
TabStop = .F., ;
|
|
Top = 53, ;
|
|
Width = 63, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'SERP2' AS textbox WITH ;
|
|
ControlSource = "THISFORM.P2", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 363, ;
|
|
Name = "SERP2", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 15, ;
|
|
TabStop = .F., ;
|
|
Top = 53, ;
|
|
Width = 51, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'SERP3' AS textbox WITH ;
|
|
ControlSource = "THISFORM.P3", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 438, ;
|
|
Name = "SERP3", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 16, ;
|
|
TabStop = .F., ;
|
|
Top = 53, ;
|
|
Width = 51, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'SERP4' AS textbox WITH ;
|
|
ControlSource = "THISFORM.P4", ;
|
|
FontName = "Courier New", ;
|
|
FontSize = 12, ;
|
|
Format = "!", ;
|
|
Height = 23, ;
|
|
Left = 511, ;
|
|
Name = "SERP4", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 17, ;
|
|
TabStop = .F., ;
|
|
Top = 53, ;
|
|
Width = 51, ;
|
|
ZOrderSet = 19
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'TITLU1' AS titlu WITH ;
|
|
Caption = "SERIA PERIODICA", ;
|
|
ForeColor = 0,64,128, ;
|
|
Left = 36, ;
|
|
Name = "TITLU1", ;
|
|
TabIndex = 1, ;
|
|
Top = 14, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Titlu2' AS titlu WITH ;
|
|
Caption = "_", ;
|
|
Left = 345, ;
|
|
Name = "Titlu2", ;
|
|
TabIndex = 6, ;
|
|
Top = 48, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Titlu3' AS titlu WITH ;
|
|
Caption = "_", ;
|
|
Left = 420, ;
|
|
Name = "Titlu3", ;
|
|
TabIndex = 2, ;
|
|
Top = 48, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Titlu4' AS titlu WITH ;
|
|
Caption = "_", ;
|
|
Left = 495, ;
|
|
Name = "Titlu4", ;
|
|
TabIndex = 4, ;
|
|
Top = 48, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Titlu5' AS titlu WITH ;
|
|
Caption = "_", ;
|
|
Left = 345, ;
|
|
Name = "Titlu5", ;
|
|
TabIndex = 3, ;
|
|
Top = 96, ;
|
|
ZOrderSet = 21
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Titlu6' AS titlu WITH ;
|
|
Caption = "_", ;
|
|
Left = 420, ;
|
|
Name = "Titlu6", ;
|
|
TabIndex = 5, ;
|
|
Top = 96, ;
|
|
ZOrderSet = 23
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Titlu7' AS titlu WITH ;
|
|
Caption = "_", ;
|
|
Left = 495, ;
|
|
Name = "Titlu7", ;
|
|
TabIndex = 7, ;
|
|
Top = 96, ;
|
|
ZOrderSet = 25
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
SELE cul
|
|
GO TOP
|
|
|
|
IF red='ABCDE'
|
|
DO seriadebaza IN proceduri_comune.prg
|
|
ENDIF
|
|
|
|
seriainst=red
|
|
seriaprec=green
|
|
|
|
THISFORM.p1=SUBSTR(seriaprec,1,5)
|
|
THISFORM.p2=SUBSTR(seriaprec,6,4)
|
|
THISFORM.p3=SUBSTR(seriaprec,10,4)
|
|
THISFORM.p4=SUBSTR(seriaprec,14,4)
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.Click
|
|
LOCAL T
|
|
T=THISFORM
|
|
serianou=ALLT(T.a1)+ALLT(T.a2)+ALLT(T.a3)+ALLT(T.a4)
|
|
|
|
SELE CUL
|
|
IF FLOCK()
|
|
REPL BLUE WITH GREEN
|
|
REPL GREEN WITH serianou
|
|
IF SERIA_LUNARA_E_CORECTA()
|
|
luna_neplatita=.F.
|
|
THISFORM.RELEASE
|
|
ELSE
|
|
DO MESAJ WITH 'Seria introdusa este incorecta!',''
|
|
luna_neplatita=.T.
|
|
REPL GREEN WITH BLUE
|
|
REPL BLUE WITH SPACE(17)
|
|
ENDIF
|
|
ENDIF
|
|
UNLOCK
|
|
ENDPROC
|
|
|
|
PROCEDURE CMDTERMIN1.COMMAND1.Click
|
|
local t
|
|
t=thisform
|
|
serianou=allt(t.a1)+allt(t.a2)+allt(t.a3)+allt(t.a4)
|
|
|
|
SELE CUL
|
|
IF FLOCK()
|
|
REPL BLUE WITH GREEN
|
|
REPL GREEN WITH SERIANOU
|
|
IF SERIA_LUNARA_E_CORECTA()
|
|
luna_neplatita=.f.
|
|
THISFORM.RELEASE
|
|
ELSE
|
|
DO MESAJ WITH 'Seria introdusa este incorecta!',''
|
|
luna_neplatita=.t.
|
|
repl green with blue
|
|
repl blue with space(17)
|
|
ENDIF
|
|
ENDIF
|
|
unlock
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|