*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="importroris.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 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="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtNrZile" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />

	*<PropValue>
		Caption = "Import RORIS - ROA"
		DoCreate = .T.
		Height = 144
		Icon = ..\grafice\import_roris.ico
		Left = 0
		Name = "Form1"
		Top = 0
		Width = 351
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		AutoSize = .F., ;
		Caption = "\<Import din RORIS", ;
		Height = 27, ;
		Left = 144, ;
		Name = "Command1", ;
		Top = 24, ;
		Width = 153
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		AutoSize = .F., ;
		Caption = "\<Afiseaza Log", ;
		Height = 27, ;
		Left = 144, ;
		Name = "Command2", ;
		Top = 60, ;
		Width = 153
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		AutoSize = .F., ;
		Caption = "Afiseaza stare job import", ;
		Height = 27, ;
		Left = 144, ;
		Name = "Command3", ;
		Top = 94, ;
		Width = 153
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr. zile import", ;
		Height = 17, ;
		Left = 24, ;
		Name = "Label1", ;
		Top = 8, ;
		Width = 77
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'txtNrZile' AS textbox WITH ;
		Alignment = 3, ;
		Height = 23, ;
		Left = 24, ;
		Name = "txtNrZile", ;
		Top = 26, ;
		Value = 30, ;
		Width = 100
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		_screen.Visible = .T. 
		_screen.Icon= 'D:\ROA\ROAACNPRO\GRAFICE\IMPORT_RORIS.ICO'
		_Screen.Caption = 'ROA Import RORIS - ROA'
	ENDPROC

	PROCEDURE Command1.Click
		Local llSilentios, lnOptiune, lnZile
		llSilentios = .F.
		lnOptiune = 1
		lnZile = Thisform.txtNrZile.Value
		Do importroris_proceduri.prg With m.llSilentios, m.lnOptiune, m.lnZile
	ENDPROC

	PROCEDURE Command2.Click
		Local llSilentios, lnOptiune
		llSilentios = .F.
		lnOptiune = 2
		lnZile = Thisform.txtNrZile.Value
		Do importroris_proceduri.prg With m.llSilentios, m.lnOptiune
		
	ENDPROC

	PROCEDURE Command3.Click
		Local llSilentios, lnOptiune
		llSilentios = .F.
		lnOptiune = 3
		Do importroris_proceduri.prg With m.llSilentios, m.lnOptiune
		
	ENDPROC

ENDDEFINE