126 lines
3.5 KiB
Plaintext
126 lines
3.5 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|