*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" 		&& Application class.
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		clastcaption = Microsoft Visual FoxPro
		clasticon = 
		Name = "capplication"
		nformcount = 0
	*</PropValue>
	
	PROCEDURE doform
		LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
		LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
		LOCAL lcFormName,lnFormCount
		
		_screen.visible=.t.
		
		lcFileName=UPPER(ALLTRIM(tcFileName))
		IF EMPTY(lcFileName)
			RETURN .F.
		ENDIF
		lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
		lcFileName=LOWER(FULLPATH(lcFileName))
		IF NOT "."$lcFileName
			lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
		ENDIF
		IF NOT FILE(lcFileName)
			this.FileNotFoundMsgBox(lcFileName)
			RETURN .F.
		ENDIF
		lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
		IF tlNoMultipleInstances
			FOR lnCount = 1 TO this.nFormCount
				IF this.aFormNames[lnCount]==lcFormName AND ;
						TYPE("this.aForms[lnCount]")=="O" AND ;
						NOT ISNULL(this.aForms[lnCount])
					this.aForms[lnCount].Show
					RETURN .F.
				ENDIF
			ENDFOR
		ENDIF
		this.RefreshFormsCollection
		this.nFormCount=this.nFormCount+1
		DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
		this.aFormNames[this.nFormCount]=lcFormName
		IF NOT EMPTY(lcClass)
			SET CLASSLIB TO (lcFileName) ADDITIVE
			this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
			IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
					NOT ISNULL(this.aForms[this.nFormCount])
				this.aForms[this.nFormCount].Show
			ENDIF
		ELSE
			DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
		ENDIF
		lnFormCount=this.nFormCount
		this.RefreshFormsCollection
		IF this.lCascadeForms AND this.nFormCount>=lnFormCount
			oForm=this.aForms[this.nFormCount]
			lnTop=oForm.Top
			lnLeft=oForm.Left
			lcName=oForm.Name
			IF WEXIST(lcName) AND oForm.WindowState#2
				FOR lnCount = 1 TO (this.nFormCount-1)
					oForm2=this.aForms[lnCount]
					IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
						LOOP
					ENDIF
					IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
							WLCOL(lcName)=WLCOL(oForm2.Name)
						lnTop=lnTop+this.nPixelOffset
						lnLeft=lnLeft+this.nPixelOffset
					ENDIF
				ENDFOR
				IF oForm.Top#lnTop
					oForm.Top=lnTop
				ENDIF
				IF oForm.Left#lnLeft
					oForm.Left=lnLeft
				ENDIF
			ENDIF
		ENDIF
		
		*!* modificat 14.12.2004
		*!* liana
		IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
			this.aForms[this.nFormCount].Show 
		ENDIF
		
	ENDPROC

ENDDEFINE

DEFINE CLASS pg_meniu_princ AS pg_meniu OF "ofundal.vcx" 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Pict_liniuta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" />

	*<PropValue>
		ActivePage = 1
		ErasePage = .T.
		Height = 422
		Name = "pg_meniu_princ"
		PageCount = 2
		Width = 401
		Page1.Caption = "Leasing"
		Page1.Name = "Page1"
		Page1.PageOrder = 1
		Page2.Caption = "Furnizori"
		Page2.Name = "Page2"
		Page2.PageOrder = 2
	*</PropValue>

	ADD OBJECT 'Page1.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 11, ;
		Name = "Cw2", ;
		nid_cw = 1, ;
		ntip = 1, ;
		TabIndex = 1, ;
		Top = 37, ;
		Width = 113, ;
		LABEL_ITEM1.Caption = "Contracte", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Cw3' AS cw WITH ;
		Height = 20, ;
		Left = 11, ;
		Name = "Cw3", ;
		nid_cw = 1, ;
		ntip = 1, ;
		TabIndex = 1, ;
		Top = 75, ;
		Width = 113, ;
		LABEL_ITEM1.Caption = "Rapoarte", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ;
		Left = 7, ;
		Name = "Pict_liniuta1", ;
		Picture = ..\..\comun\grafice\f3.jpg, ;
		Top = 63
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
		Left = 2, ;
		Name = "Pict_meniu1", ;
		Picture = ..\grafice\f2.jpg, ;
		Top = 8
		*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Page2.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 11, ;
		Name = "Cw2", ;
		nid_cw = 1, ;
		ntip = 1, ;
		TabIndex = 1, ;
		Top = 37, ;
		Width = 113, ;
		Label_item1.Caption = "Contracte", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw3' AS cw WITH ;
		Height = 20, ;
		Left = 11, ;
		Name = "Cw3", ;
		nid_cw = 1, ;
		ntip = 1, ;
		TabIndex = 1, ;
		Top = 75, ;
		Width = 113, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Pict_liniuta1' AS pict_liniuta WITH ;
		Left = 7, ;
		Name = "Pict_liniuta1", ;
		Picture = ..\grafice\f3.jpg, ;
		Top = 63
		*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ;
		Left = 2, ;
		Name = "Pict_meniu1", ;
		Picture = ..\grafice\f2.jpg, ;
		Top = 8
		*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
	
	PROCEDURE Page1.Cw3.Init
		
		
	ENDPROC

	PROCEDURE Page2.Cw3.Init
		
		
	ENDPROC

ENDDEFINE