340 lines
8.7 KiB
Plaintext
340 lines
8.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_roapreturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS pagefr AS pg_meniu OF "..\comun\clase\ofundal.vcx"
|
||
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
ErasePage = .T.
|
||
Height = 177
|
||
Name = "pagefr"
|
||
PageCount = 2
|
||
Themes = .F.
|
||
Width = 428
|
||
Page1.Caption = "Configurare"
|
||
Page1.Name = "Page1"
|
||
Page2.Caption = ""
|
||
Page2.Name = "Page2"
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Pagefr1.Page2.Cw3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
AlwaysOnTop = .F.
|
||
BackColor = 255,255,255
|
||
BorderStyle = 0
|
||
ControlBox = .F.
|
||
DoCreate = .T.
|
||
Left = 0
|
||
Name = "princ"
|
||
ShowTips = .T.
|
||
Top = 0
|
||
WindowState = 2
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Image1' AS image WITH ;
|
||
Anchor = 12, ;
|
||
Height = 220, ;
|
||
Left = 182, ;
|
||
Name = "Image1", ;
|
||
Picture = ..\grafice\roapreturi.bmp, ;
|
||
Top = 195, ;
|
||
Width = 556, ;
|
||
ZOrderSet = 2
|
||
*< END OBJECT: BaseClass="image" />
|
||
|
||
ADD OBJECT 'Image2' AS image WITH ;
|
||
Anchor = 11, ;
|
||
BackStyle = 1, ;
|
||
Height = 63, ;
|
||
Left = 0, ;
|
||
Name = "Image2", ;
|
||
Picture = ..\comun\grafice\f1.jpg, ;
|
||
Stretch = 2, ;
|
||
Top = 0, ;
|
||
Width = 804, ;
|
||
ZOrderSet = 0
|
||
*< END OBJECT: BaseClass="image" />
|
||
|
||
ADD OBJECT 'Imagine01' AS imagine WITH ;
|
||
ccod = A03, ;
|
||
Height = 54, ;
|
||
Left = 9, ;
|
||
Name = "Imagine01", ;
|
||
nid_img = 1, ;
|
||
picturedown = lista2.bmp, ;
|
||
pictureup = lista1.bmp, ;
|
||
ToolTipText = "Drepturi de acces la listele de preturi", ;
|
||
Top = 1, ;
|
||
Width = 45
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
||
Anchor = 9, ;
|
||
Caption = "Operator:", ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 255,255,255, ;
|
||
Left = 457, ;
|
||
Name = "lb_utilizator", ;
|
||
Top = 9, ;
|
||
ZOrderSet = 4
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
||
Anchor = 9, ;
|
||
Caption = "nume_utilizator", ;
|
||
FontBold = .T., ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 255,255,255, ;
|
||
Left = 513, ;
|
||
Name = "lb_utilizator1", ;
|
||
Top = 9, ;
|
||
Visible = .F., ;
|
||
ZOrderSet = 5
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'Pagefr1' AS pagefr WITH ;
|
||
ErasePage = .T., ;
|
||
Height = 475, ;
|
||
Left = -1, ;
|
||
Name = "Pagefr1", ;
|
||
Top = 59, ;
|
||
Width = 804, ;
|
||
Page1.Name = "Page1", ;
|
||
Page2.Caption = "Liste de pre<72>uri", ;
|
||
Page2.Name = "Page2"
|
||
*< END OBJECT: ClassLib="ofundal_roapreturi.vcx" BaseClass="pageframe" />
|
||
|
||
ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ;
|
||
Left = 4, ;
|
||
Name = "Cw1", ;
|
||
nid_cw = 1, ;
|
||
ntip = 1, ;
|
||
TabIndex = 3, ;
|
||
Top = 12, ;
|
||
ZOrderSet = 4, ;
|
||
LABEL_ITEM1.Caption = "Catalog de articole", ;
|
||
LABEL_ITEM1.Name = "LABEL_ITEM1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ;
|
||
Height = 20, ;
|
||
Left = 4, ;
|
||
Name = "Cw2", ;
|
||
nid_cw = 2, ;
|
||
ntip = 1, ;
|
||
TabIndex = 1, ;
|
||
Top = 39, ;
|
||
Width = 117, ;
|
||
ZOrderSet = 2, ;
|
||
LABEL_ITEM1.Caption = "Note de v<>nz<6E>ri", ;
|
||
LABEL_ITEM1.Name = "LABEL_ITEM1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pagefr1.Page1.Cw3' AS cw WITH ;
|
||
Height = 31, ;
|
||
Left = 4, ;
|
||
Name = "Cw3", ;
|
||
nid_cw = 3, ;
|
||
ntip = 1, ;
|
||
TabIndex = 1, ;
|
||
Top = 67, ;
|
||
Width = 117, ;
|
||
ZOrderSet = 2, ;
|
||
Label_item1.Caption = "Drepturi de acces la listele de pre<72>uri", ;
|
||
Label_item1.Height = 30, ;
|
||
Label_item1.Left = 5, ;
|
||
Label_item1.Name = "Label_item1", ;
|
||
Label_item1.Top = 1, ;
|
||
Label_item1.Width = 99, ;
|
||
Label_item1.WordWrap = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Pagefr1.Page1.shape1' AS pict_meniu WITH ;
|
||
Anchor = 7, ;
|
||
Height = 420, ;
|
||
Left = 0, ;
|
||
Name = "shape1", ;
|
||
Picture = ..\comun\grafice\f2.jpg, ;
|
||
Top = -4, ;
|
||
Width = 133
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'Pagefr1.Page2.Cw3' AS cw WITH ;
|
||
Height = 20, ;
|
||
Left = 12, ;
|
||
Name = "Cw3", ;
|
||
nid_cw = 1, ;
|
||
ntip = 4, ;
|
||
TabIndex = 4, ;
|
||
Top = 45, ;
|
||
Width = 117, ;
|
||
ZOrderSet = 3, ;
|
||
Label_item1.Caption = "Liste de preturi", ;
|
||
Label_item1.Name = "Label_item1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE RightClick
|
||
Thisform.image1.RightClick()
|
||
ENDPROC
|
||
|
||
PROCEDURE Show
|
||
Lparameters nStyle
|
||
|
||
*!* verifica_drepturi('oprinc','pagefr1')
|
||
|
||
* comentat 15.09.2006
|
||
*!* Local lnScrH,lnScrW
|
||
|
||
*!* _SCREEN.HEIGHT = THISFORM.HEIGHT
|
||
*!* _SCREEN.WIDTH = THISFORM.WIDTH
|
||
|
||
*!* _Screen.AutoCenter=.T.
|
||
*!* _Screen.Refresh
|
||
*!* Thisform.Left=0
|
||
*!* Thisform.Top=0
|
||
|
||
|
||
*****
|
||
Local w,h
|
||
w=_Screen.Width
|
||
h=_Screen.Height
|
||
|
||
This.Width = w
|
||
This.Height = h
|
||
|
||
*!* This.image1.Left=w-This.image1.Width
|
||
*!* This.image1.Top=h-This.image1.Height
|
||
*!* This.lb_utilizator.Top=h-This.lb_utilizator.Height
|
||
*!* This.lb_utilizator1.Top=h-This.lb_utilizator1.Height
|
||
*!* This.image2.Width = w + 180
|
||
|
||
With This.pagefr1
|
||
.Width = w
|
||
.Height = h
|
||
.page1.shape1.Height = h
|
||
ENDWITH
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Image1.RightClick
|
||
Do start_firma In ostartfirma.prg
|
||
|
||
** Initializez gnRon corespunzator lunii in care am intrat
|
||
Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
|
||
lcLunaRon = Substr(gcDataRon,1,2)
|
||
lcAnulRon = Substr(gcDataRon,4,4)
|
||
If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
|
||
lnValue = 2
|
||
Else
|
||
lnValue = 1
|
||
Endif
|
||
|
||
lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
|
||
|
||
lnSucces = goExecutor.oExecute(lcExec)
|
||
If lnSucces < 0
|
||
lcTextEroare = goExecutor.cEroare
|
||
aMessagebox(lcTextEroare,48,"Eroare")
|
||
Return
|
||
Endif
|
||
|
||
Do oinit_optiuni.prg
|
||
**
|
||
|
||
verifica_drepturi('oprinc','pagefr1')
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Imagine01.do_actiune
|
||
LOCAL llCRM
|
||
llCRM = .T.
|
||
DO acces_liste IN omeniu_initializari.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Pagefr1.Page1.Cw1.do_actiune
|
||
Do viz_catalog_articole In oproceduri_articole.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Pagefr1.Page1.Cw2.do_actiune
|
||
* DO viz_note_vanzari IN onom_preturi.prg
|
||
LOCAL llCRM
|
||
llCRM = .T.
|
||
DO configurare_note WITH llCRM IN omeniu_initializari.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Pagefr1.Page1.Cw3.do_actiune
|
||
* DO viz_note_vanzari IN onom_preturi.prg
|
||
LOCAL llCRM
|
||
llCRM = .T.
|
||
DO acces_liste IN omeniu_initializari.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Pagefr1.Page1.RightClick
|
||
Do start_firma In ostartfirma.prg
|
||
|
||
** Initializez gnRon corespunzator lunii in care am intrat
|
||
Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
|
||
lcLunaRon = Substr(gcDataRon,1,2)
|
||
lcAnulRon = Substr(gcDataRon,4,4)
|
||
If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
|
||
lnValue = 2
|
||
Else
|
||
lnValue = 1
|
||
Endif
|
||
|
||
lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
|
||
|
||
lnSucces = goExecutor.oExecute(lcExec)
|
||
If lnSucces < 0
|
||
lcTextEroare = goExecutor.cEroare
|
||
aMessagebox(lcTextEroare,48,"Eroare")
|
||
Return
|
||
Endif
|
||
|
||
Do oinit_optiuni.prg
|
||
**
|
||
|
||
verifica_drepturi('oprinc','pagefr1')
|
||
ENDPROC
|
||
|
||
PROCEDURE Pagefr1.Page2.Click
|
||
Do viz_politici In onom_preturi.prg
|
||
thisform.pagefr1.page1.SetFocus
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Pagefr1.Page2.Cw3.do_actiune
|
||
Do viz_politici In onom_preturi.prg
|
||
*!* thisform.pagefr1.page1.SetFocus
|
||
ENDPROC
|
||
|
||
PROCEDURE Pagefr1.RightClick
|
||
Thisform.image1.RightClick()
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|