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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: dezactiv
		*m: do_renunt
		*m: do_termin
		*m: inainte_de_do_renunt
		*m: inainte_de_do_termin
		*p: e1
		*p: e2
		*p: e3
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		Caption = ""
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		HalfHeightCaption = .T.
		Height = 217
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "cautalf"
		ShowTips = .T.
		Width = 341
		WindowState = 0
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'CMDTERMIN1' AS cmd_termin WITH ;
		Height = 24, ;
		Left = 245, ;
		Name = "CMDTERMIN1", ;
		TabIndex = 3, ;
		Top = 178, ;
		Width = 80
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		AutoSize = .F., ;
		Caption = "", ;
		FontBold = .T., ;
		Height = 24, ;
		Left = 23, ;
		Name = "Command1", ;
		Picture = ..\grafice\new.bmp, ;
		StatusBarText = "Nume nou", ;
		TabIndex = 6, ;
		ToolTipText = "Nume nou", ;
		Top = 178, ;
		Width = 30
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command2' AS commandbutton WITH ;
		Caption = "", ;
		FontBold = .T., ;
		Height = 24, ;
		Left = 85, ;
		Name = "Command2", ;
		Picture = ..\grafice\edit1.bmp, ;
		StatusBarText = "Modificare", ;
		TabIndex = 4, ;
		ToolTipText = "Modificare", ;
		Top = 178, ;
		Width = 30
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Caption = "", ;
		FontBold = .T., ;
		Height = 24, ;
		Left = 54, ;
		Name = "Command3", ;
		Picture = ..\grafice\delete.bmp, ;
		StatusBarText = "Stergere", ;
		TabIndex = 5, ;
		ToolTipText = "Stergere", ;
		Top = 178, ;
		Width = 30
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		AllowHeaderSizing = .F., ;
		AllowRowSizing = .F., ;
		BackColor = 255,255,255, ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		GridLineColor = 255,255,255, ;
		Height = 108, ;
		Left = 12, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "", ;
		ScrollBars = 2, ;
		TabIndex = 2, ;
		Top = 68, ;
		Width = 315, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ControlSource = "", ;
		Column1.Format = "!", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 209, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ControlSource = "", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Width = 73
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
		Caption = "Denumire", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1' AS pageframe WITH ;
		ActivePage = 27, ;
		ErasePage = .T., ;
		Height = 214, ;
		Left = 3, ;
		Name = "Pageframe1", ;
		PageCount = 27, ;
		TabIndex = 1, ;
		Tabs = .T., ;
		TabStretch = 0, ;
		TabStyle = 0, ;
		Top = 2, ;
		Width = 336, ;
		Page1.Caption = "A", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "B", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "C", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "D", ;
		Page4.Name = "Page4", ;
		Page5.Caption = "E", ;
		Page5.Name = "Page5", ;
		Page6.Caption = "F", ;
		Page6.Name = "Page6", ;
		Page7.Caption = "G", ;
		Page7.Name = "Page7", ;
		Page8.Caption = "H", ;
		Page8.Name = "Page8", ;
		Page9.Caption = "I", ;
		Page9.Name = "Page9", ;
		Page10.Caption = "J", ;
		Page10.Name = "Page10", ;
		Page11.Caption = "K", ;
		Page11.Name = "Page11", ;
		Page12.Caption = "L", ;
		Page12.Name = "Page12", ;
		Page13.Caption = "M", ;
		Page13.Name = "Page13", ;
		Page14.Caption = "N", ;
		Page14.Name = "Page14", ;
		Page15.Caption = "O", ;
		Page15.Name = "Page15", ;
		Page16.Caption = "P", ;
		Page16.Name = "Page16", ;
		Page17.Caption = "Q", ;
		Page17.Name = "Page17", ;
		Page18.Caption = "R", ;
		Page18.Name = "Page18", ;
		Page19.Caption = "S", ;
		Page19.Name = "Page19", ;
		Page20.Caption = "T", ;
		Page20.Name = "Page20", ;
		Page21.Caption = "U", ;
		Page21.Name = "Page21", ;
		Page22.Caption = "V", ;
		Page22.Name = "Page22", ;
		Page23.Caption = "W", ;
		Page23.Name = "Page23", ;
		Page24.Caption = "X", ;
		Page24.Name = "Page24", ;
		Page25.Caption = "Y", ;
		Page25.Name = "Page25", ;
		Page26.Caption = "Z", ;
		Page26.Name = "Page26", ;
		Page27.Caption = " ", ;
		Page27.Name = "Page27"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 143, ;
		Left = 7, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 63, ;
		Width = 325
		*< END OBJECT: BaseClass="shape" />
	
	PROCEDURE dezactiv
		PARAMETERS L
		THISFORM.CMDTERMIN1.ENABLED=L
		if !L 
			THISFORM.COMMAND1.ENABLED=L
			THISFORM.COMMAND2.ENABLED=L
			THISFORM.COMMAND3.ENABLED=L
		ELSE
			THISFORM.COMMAND1.ENABLED=THIS.E1
			THISFORM.COMMAND2.ENABLED=THIS.E2
			THISFORM.COMMAND3.ENABLED=THIS.E3
		ENDIF
			
		
	ENDPROC

	PROCEDURE do_renunt
		IF this.inainte_de_do_renunt()
			gnButon = 2
			pnButon = 2
			Buton = 2
			pnIesire = 2
			this.Release
		ENDIF 
	ENDPROC

	PROCEDURE do_termin
		IF this.inainte_de_do_termin()
			gnButon = 1
			pnButon = 1
			Buton = 1
			pnIesire = 1
			this.Release
		ENDIF 
	ENDPROC

	PROCEDURE inainte_de_do_renunt
		RETURN .t.
	ENDPROC

	PROCEDURE inainte_de_do_termin
		RETURN .t.
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		local c,n1,n2,n3,N4
		
		c=THISFORM.CAPTION
		n1='NUMELE FURNIZORULUI'
		n2='NUMELE CLIENTULUI'
		n3='MODIFICARI FURNIZORI'
		N4='MODIFICARI CLIENTI'
		
		lcTabel = ALLTRIM(thisform.grid1.RecordSource )
		LcCol = lcTabel + '.cod_fiscal'
		
		*!*	IF INLIST(c,n1,n2,n3,N4,'NUMELE GESTIUNII') OR TYPE(lcCol) # 'U'
		*!*		thisform.grid1.column2.visible=.t.
		*!*	endif
		
		do case
			*case inlist(c,n1,n3,n2,n4)
			CASE TYPE(lcCol) # 'U'
			  thisform.grid1.column2.controlsource='cod_fiscal'
			case c='NUMELE GESTIUNII'
			  thisform.grid1.column2.controlsource='GEST'
			  thisform.grid1.column2.HEADER1.CAPTION='Indicativ'
		
		endcase
		
		
		if !inlist(c,'FELUL DOCUMENTULUI',n3,N4)
			THIS.COMMAND3.ENABLED=.F.
			THIS.COMMAND2.ENABLED=.F.
		ENDIF
		*if inlist(c,n3,N4,'NUMELE LUCRARII')
		*	THIS.COMMAND1.ENABLED=.F.
		*ENDIF
		
		THIS.e1=THIS.COMMAND1.ENABLED
		THIS.e2=THIS.COMMAND2.ENABLED
		THIS.e3=THIS.COMMAND3.ENABLED
		
	ENDPROC

	PROCEDURE CMDTERMIN1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF INKEY()=13 THEN
			THIS.CLICK
		ENDIF
	ENDPROC

	PROCEDURE CMDTERMIN1.Valid
		
		
		scatter memvar
		
		
	ENDPROC

	PROCEDURE CMDTERMIN1.When
		if eof() then 
			go top
		endif
		*
	ENDPROC

	PROCEDURE Command1.Click
		
		THISFORM.DEZACTIV(.F.)
		LOCAL c,CS
		c=THISFORM.CAPTION
		CS='onm.text1.controlsource="M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE+'"'
		
		PcControlS = 'M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE
		
		lcTabel = ALLTRIM(THISFORM.GRID1.RECORDSOURCE )
		LcCol = lcTabel + '.cod_fiscal'
		
		APPE BLANK
		*!*	IF INLIST(c,'NUMELE FURNIZORULUI','NUMELE CLIENTULUI')
		IF TYPE(LcCol) # 'U'
			ONM=CREATEOBJECT("NOUMODI_CODF")
			ONM.CAPTION='NUME NOU'
			ONM.text1.CONTROLSOURCE = PcControlS
			ONM.text2.CONTROLSOURCE = 'm.cod_fiscal'
			ONM.SHOW(1)
			IF BUTON = 1
				SELECT (lcTabel)
				APPEND BLANK 
				GATHER MEMVAR 
			ENDIF 
		ELSE
			IF LIKE('*GEST*',c)
				O=CREA('AFGEST')
				O.SHOW(1)
			ENDIF
			ONM=CREATEOBJECT("NOUMODI")
			ONM.CAPTION='NUME NOU'
			&CS
			ONM.SHOW(1)
			SELECT (NUMEBAZA)
			APPEND BLANK
			GATHER FIELDS &NUMECIMP MEMVAR 
		ENDIF
		THISFORM.DEZACTIV(.T.)
		SELECT (lcTabel)
		
		THISFORM.PAGEFRAME1.REFRESH
		
	ENDPROC

	PROCEDURE Command2.Click
		local CS,c
		CS='onm.text1.controlsource="M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE+'"'
		c=thisform.caption
		lcsel = thisform.grid1.RecordSource 
		lcTabel = ALLTRIM(thisform.grid1.RecordSource )
		LcCol = lcTabel + '.cod_fiscal'
		SELECT (lcSel)
		lcsalv = &numecimp
		
		THISFORM.DEZACTIV(.F.)
		
		DO CASE
		 	CASE TYPE(LcCol) # 'U'
			ONM=CREATEOBJECT("NOUMODI_CODF")
			onm.caption='MODIFICARE'
			ONM.LABEL1.CAPTION="Modificati:"
			onm.text1.controlsource = numecimp
			onm.text2.controlsource='m.cod_fiscal'
			ONM.SHOW(1)
			
		  CASE INLIST(C,'MODIFICARI FURNIZORI','MODIFICARI CLIENTI')
			ONM=CREATEOBJECT("modianalit")
			onm.caption='MODIFICARE'
			onm.text1.controlsource='M.NUME'
			onm.text2.controlsource='m.cod_fiscal'
			ONM.SHOW(1)
		
		  OTHERWISE
			ONM=CREATEOBJECT("NOUMODI")
			onm.caption='MODIFICARE'
			&CS
			ONM.LABEL1.CAPTION="Modificati:"
			ONM.SHOW(1)
		
		ENDCASE
		
		IF buton = 1
			SELECT (NUMEBAZA)
			lccond = numecimp + ' =  ALLTRIM(lcsalv)'
			LOCATE FOR &lccond
			IF FOUND()
				GATHER FIELDS &numecimp MEMVAR 
				do mesaj with 'Modificarea s-a efectuat',''
			ENDIF 
		ENDIF 
		SELECT tnomenclator
		go bottom
		
		THISFORM.DEZACTIV(.T.)
		THISFORM.PAGEFRAME1.REFRESH
		
		
	ENDPROC

	PROCEDURE Command3.Click
		local CS
		CS='onm.text1.controlsource="M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE+'"'
		
		THISFORM.DEZACTIV(.F.)
		
		ONM=CREATEOBJECT("NOUMODI")
		onm.caption='STERGERE'
		ONM.LABEL1.CAPTION="Stergeti:"
		&CS
		ONM.TEXT1.READONLY=.T.
		ONM.SHOW(1)
		IF buton = 1
			SELECT (NUMEBAZA)
			lccond = numecimp + ' = m.' + ALLTRIM(numecimp)
			LOCATE FOR &lccond
			IF FOUND()
				DELETE 
			ENDIF 
		ENDIF 
		
		SELECT tnomenclator
		go bottom
		
		THISFORM.DEZACTIV(.T.)
		THISFORM.PAGEFRAME1.REFRESH
	ENDPROC

	PROCEDURE Grid1.Column1.Text1.KeyPress
		LPARAMETERS nKey, nShiftAltCtrl
		LOCAL NP,T
		
			if nkey==13 then
				THISFORM.cmdTERMIN1.SetFocus 
			endif
			
			IF nkey>=97 AND NKEY<=122
				S=UPPER(CHR(NKEY))
				NP=ALLTRIM(STR(NKEY-96))
				T='THISFORM.PAGEFRAME1.ACTIVEPAGE='+NP
				&T
				THISFORM.PAGEFRAME1.REFRESH
			ENDIF
			
			IF nkey>=65 AND NKEY<=90
				S=UPPER(CHR(NKEY))
				NP=ALLTRIM(STR(NKEY-64))
				T='THISFORM.PAGEFRAME1.ACTIVEPAGE='+NP
				&T
				THISFORM.PAGEFRAME1.REFRESH
			ENDIF
			
			IF nkey==32
				S=' '
				THISFORM.PAGEFRAME1.ACTIVEPAGE=27
				THISFORM.PAGEFRAME1.REFRESH
			ENDIF
	ENDPROC

	PROCEDURE Grid1.Init
		LOCAL LB
		CIMP=ALLTRIM(THISFORM.GRID1.COLUMN1.CONTROLSOURCE)
		*!*	L="SET FILTER TO !deleted() and left(" + CIMP + ",2)#'  '"
		*!*	&L
		
	ENDPROC

	PROCEDURE Pageframe1.Init
		PUBLIC S
		S=" "
		
	ENDPROC

	PROCEDURE Pageframe1.Page1.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page10.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page11.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page12.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page13.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page14.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page15.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page16.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page17.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page18.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page19.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page2.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page20.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page21.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page22.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page23.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page24.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page25.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page26.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page27.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page3.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page4.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page5.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page6.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page7.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page8.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Page9.Click
		S=THIS.CAPTION
		THISFORM.REFRESH
	ENDPROC

	PROCEDURE Pageframe1.Refresh
		LOCAL L,L1
		CIMP=ALLTRIM(THISFORM.GRID1.COLUMN1.CONTROLSOURCE)
		L="SET FILTER TO !deleted() and left("+CIMP+",5)#space(5)"
		L1=L+" AND upper(left("+CIMP+",1))==upper(S)"
		
		IF S==" " THEN
			&L
			ELSE
			&L1
		ENDIF
		GO TOP
		thisform.grid1.setfocus
	ENDPROC

ENDDEFINE

DEFINE CLASS cautalfa AS cautalf OF "caut.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="tex" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 347
		KeyPreview = .T.
		Name = "cautalfa"
		Width = 511
		Pageframe1.ErasePage = .T.
		Pageframe1.Height = 343
		Pageframe1.Left = 3
		Pageframe1.Name = "Pageframe1"
		Pageframe1.Page1.Name = "Page1"
		Pageframe1.Page10.Name = "Page10"
		Pageframe1.Page11.Name = "Page11"
		Pageframe1.Page12.Name = "Page12"
		Pageframe1.Page13.Name = "Page13"
		Pageframe1.Page14.Name = "Page14"
		Pageframe1.Page15.Name = "Page15"
		Pageframe1.Page16.Name = "Page16"
		Pageframe1.Page17.Name = "Page17"
		Pageframe1.Page18.Name = "Page18"
		Pageframe1.Page19.Name = "Page19"
		Pageframe1.Page2.Name = "Page2"
		Pageframe1.Page20.Name = "Page20"
		Pageframe1.Page21.Name = "Page21"
		Pageframe1.Page22.Name = "Page22"
		Pageframe1.Page23.Name = "Page23"
		Pageframe1.Page24.Name = "Page24"
		Pageframe1.Page25.Name = "Page25"
		Pageframe1.Page26.Name = "Page26"
		Pageframe1.Page27.Name = "Page27"
		Pageframe1.Page3.Name = "Page3"
		Pageframe1.Page4.Name = "Page4"
		Pageframe1.Page5.Name = "Page5"
		Pageframe1.Page6.Name = "Page6"
		Pageframe1.Page7.Name = "Page7"
		Pageframe1.Page8.Name = "Page8"
		Pageframe1.Page9.Name = "Page9"
		Pageframe1.TabIndex = 3
		Pageframe1.Top = 2
		Pageframe1.Width = 513
		Shape1.Height = 281
		Shape1.Left = 7
		Shape1.Name = "Shape1"
		Shape1.Top = 60
		Shape1.Width = 497
		Command3.Enabled = .F.
		Command3.Left = 54
		Command3.Name = "Command3"
		Command3.TabIndex = 6
		Command3.Top = 313
		CMDTERMIN1.Left = 396
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.TabIndex = 4
		CMDTERMIN1.Top = 313
		Command2.Enabled = .F.
		Command2.Left = 85
		Command2.Name = "Command2"
		Command2.TabIndex = 5
		Command2.Top = 313
		Command1.Enabled = .F.
		Command1.Left = 23
		Command1.Name = "Command1"
		Command1.TabIndex = 7
		Command1.ToolTipText = "Nume nou CTRL+N"
		Command1.Top = 313
		Grid1.Column1.Header1.Name = "Header1"
		Grid1.Column1.Name = "Column1"
		Grid1.Column1.Text1.Name = "Text1"
		Grid1.Column1.Width = 365
		Grid1.Column2.Header1.Name = "Header1"
		Grid1.Column2.Name = "Column2"
		Grid1.Column2.Text1.Name = "Text1"
		Grid1.Height = 211
		Grid1.Left = 12
		Grid1.Name = "Grid1"
		Grid1.Panel = 1
		Grid1.TabIndex = 2
		Grid1.Top = 99
		Grid1.Width = 480
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmd_renunt WITH ;
		Height = 24, ;
		Left = 311, ;
		Name = "CMDRENUNT1", ;
		Top = 313, ;
		Visible = .F.
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Contine:", ;
		Height = 17, ;
		Left = 16, ;
		Name = "Label1", ;
		TabIndex = 8, ;
		Top = 74, ;
		Width = 46, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'tex' AS textbox WITH ;
		Alignment = 0, ;
		ControlSource = "tex", ;
		Format = "!t", ;
		Height = 23, ;
		Left = 72, ;
		Name = "tex", ;
		TabIndex = 1, ;
		Top = 70, ;
		Width = 420
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		SET ESCAPE On
		
	ENDPROC

	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		
		IF NKEYCODE=14&&ALT+N
			THISFORM.COMMAND1.CLICK
		ENDIF
		
		
	ENDPROC

	PROCEDURE Release
		SET ESCAPE OFF
		
		
	ENDPROC

	PROCEDURE CMDRENUNT1.Valid
		pnbuton=2
		buton=2
	ENDPROC

	PROCEDURE CMDTERMIN1.Valid
		buton=1
	ENDPROC

	PROCEDURE Command1.Click
		dodefault()
		*!*	IF buton=1
		*!*		VARIAB='M.'+THISFORM.GRID1.COLUMN1.CONTROLSOURCE
		*!*		*WAIT WINDOW VARIAB
		*!*		*TEX1=&VARIAB
		*!*		TEX=&VARIAB
		*!*	ELSE 
		*!*		*TEX1=''
		*!*		TEX=''
		*!*	ENDIF 
		thisform.tex.SetFocus 
		*THISFORM.GRID1.REFRESH
		
	ENDPROC

	PROCEDURE Pageframe1.Init
		PUBLIC S,TEX1
		S=" "
		tex=''
		TEX1=''
		
	ENDPROC

	PROCEDURE Pageframe1.Refresh
		LOCAL L,L1,T
		
		CIMP=THISFORM.GRID1.COLUMN1.CONTROLSOURCE
		
		IF EMPTY(tex)
			T=THISFORM.GRID1.RECORDSOURCE
			L="SET FILTER TO !deleted() and left("+M.CIMP+",5)#space(5)"
			L1=L+" AND upper(left("+M.CIMP+",1))==upper(S)"
		
			SELE &T
			IF S==" " THEN
				&L
			ELSE
				&L1
			ENDIF
		
		ELSE
		*	L='set filter to UPPER(LEFT('+M.CIMP+',LEN(tex)))==upper(tex)'
			L='set filter to upper(tex)$UPPER('+M.CIMP+')'
			&L
		ENDIF
		
		GO TOP
		THISFORM.GRID1.REFRESH
		
	ENDPROC

	PROCEDURE tex.InteractiveChange
		TEX = UPPER(ALLTRIM(this.Value))
		thisform.pageframe1.refresh
		
	ENDPROC

	PROCEDURE tex.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		
		*!*	DO CASE
		*!*	CASE (NKEYCODE>=48 AND NKEYCODE<=57) OR (NKEYCODE>=65 AND NKEYCODE<=90) OR (NKEYCODE>=97 AND NKEYCODE<=122) OR NKEYCODE=32 OR NKEYCODE=46
		*!*		TEX1=upper(TEX1+CHR(NKEYCODE))
		*!*		TEX=TEX1
		*!*	CASE NKEYCODE=127 && or NKEYCODE=7
		*!*		TEX1=LEFT(tex,LEN(tex)-1)
		*!*		TEX=TEX1
		*!*	CASE NKEYCODE=7
		*!*		TEX1=''
		*!*		TEX=TEX1
		*!*		THIS.REFRESH
		*!*	CASE NKEYCODE=13
		*!*		TEX=TEX1
		*!*		THIS.REFRESH
		*!*	ENDCASE
		
		*!*	thisform.pageframe1.refresh
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cautcont AS cautintre OF "caut.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Combo3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 145
		Name = "cautcont"
		Width = 320
		SHAPE1.Height = 67
		SHAPE1.Left = 18
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 8
		SHAPE1.Width = 284
		SHAPE1.ZOrderSet = 0
		Label1.Left = 37
		Label1.Name = "Label1"
		Label1.TabIndex = 6
		Label1.Top = 18
		Label1.ZOrderSet = 1
		Text1.Left = 576
		Text1.Name = "Text1"
		Text1.TabIndex = 4
		Text1.Top = 12
		Text1.Visible = .F.
		Text1.ZOrderSet = 2
		CMDTERMIN1.Left = 216
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.TabIndex = 3
		CMDTERMIN1.Top = 108
		CMDTERMIN1.ZOrderSet = 8
		LABEL2.Left = 37
		LABEL2.Name = "LABEL2"
		LABEL2.TabIndex = 7
		LABEL2.Top = 48
		LABEL2.ZOrderSet = 3
		Text2.Left = 576
		Text2.Name = "Text2"
		Text2.TabIndex = 5
		Text2.Top = 40
		Text2.Visible = .F.
		Text2.ZOrderSet = 4
		CMDRENUNT1.Name = "CMDRENUNT1"
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmd_renunt WITH ;
		Left = 128, ;
		Name = "CMDRENUNT1", ;
		Top = 108
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Combo1' AS combobox WITH ;
		ControlSource = "m.scc", ;
		Height = 24, ;
		Left = 192, ;
		Name = "Combo1", ;
		RowSource = "bal.cont", ;
		RowSourceType = 6, ;
		TabIndex = 2, ;
		Top = 44, ;
		Width = 90, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Combo3' AS combobox WITH ;
		ControlSource = "m.scd", ;
		Height = 24, ;
		Left = 192, ;
		Name = "Combo3", ;
		RowSource = "bal.cont", ;
		RowSourceType = 6, ;
		TabIndex = 1, ;
		Top = 15, ;
		Width = 90, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Label3' AS label WITH ;
		Caption = "Atentie! Nu este verificata corespondenta conturilor!", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 36, ;
		Left = 29, ;
		Name = "Label3", ;
		TabIndex = 8, ;
		Top = 84, ;
		Width = 283, ;
		WordWrap = .T., ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="label" />
	
	PROCEDURE CMDRENUNT1.Valid
		buton=2
	ENDPROC

	PROCEDURE CMDTERMIN1.Click
		if empty(m.scd) or empty(m.scc)
		do mesaj with 'Selectati conturile!',''
		else
		thisform.release
		endif
	ENDPROC

	PROCEDURE Combo1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		public l
		if nkeycode>=49 and nkeycode<=55
		l=nkeycode-48
		sele bal
		set filter to val(left(cont,1))=l
		m.scc=cont
		this.refresh
		endif
	ENDPROC

	PROCEDURE Combo1.Valid
		sele bal
		set filter to
	ENDPROC

	PROCEDURE Combo3.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		public l
		if nkeycode>=49 and nkeycode<=55
		l=nkeycode-48
		sele bal
		set filter to val(left(cont,1))=l
		m.scd=cont
		this.refresh
		endif
		
		
	ENDPROC

	PROCEDURE Combo3.Valid
		sele bal 
		set filter to 
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cautintre AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		Caption = " "
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Height = 109
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "cautintre"
		Width = 340
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmd_renunt WITH ;
		Height = 27, ;
		Left = 81, ;
		Name = "CMDRENUNT1", ;
		Top = 77, ;
		Width = 84
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdtermin1' AS cmd_termin WITH ;
		Height = 27, ;
		Left = 170, ;
		Name = "Cmdtermin1", ;
		TabIndex = 3, ;
		Top = 77, ;
		Width = 84
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "Text1", ;
		FontSize = 11, ;
		Height = 17, ;
		Left = 23, ;
		Name = "Label1", ;
		TabIndex = 4, ;
		Top = 15, ;
		Width = 156
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		Caption = "Text2", ;
		FontSize = 11, ;
		Height = 17, ;
		Left = 23, ;
		Name = "Label2", ;
		TabIndex = 5, ;
		Top = 45, ;
		Width = 156
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 67, ;
		Left = 4, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 5, ;
		Width = 332
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "", ;
		Format = "k", ;
		Height = 22, ;
		Left = 178, ;
		Name = "Text1", ;
		TabIndex = 1, ;
		Top = 14, ;
		Width = 134
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "", ;
		Format = "k", ;
		Height = 22, ;
		Left = 178, ;
		Name = "Text2", ;
		TabIndex = 2, ;
		Top = 42, ;
		Width = 134
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		*local t1,t2
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
	ENDPROC

	PROCEDURE CMDRENUNT1.Click
			DODEFAULT()
		*ELSE
			BUTON=2
			pnbuton=2
			IF TYPE('thisformset')='O'
				THISFORMSET.RELEASE
			ENDIF
			THISFORM.RELEASE
	ENDPROC

	PROCEDURE CMDRENUNT1.Valid
		pnbuton=2
	ENDPROC

	PROCEDURE Cmdtermin1.Click
			DODEFAULT()
		*ELSE
			BUTON=1
			pnbuton=1
			IF TYPE('thisformset')='O'
				THISFORMSET.RELEASE
			ENDIF
			THISFORM.RELEASE
	ENDPROC

	PROCEDURE Text1.Valid
		thisform.text2.value=thisform.text1.value
		
		thisform.text2.refresh
		
	ENDPROC

	PROCEDURE Text2.Valid
		*if thisform.text2.value<thisform.text1.value then
		*	wait wind "Gresit!"
		*	return 0
		*endif
	ENDPROC

ENDDEFINE

DEFINE CLASS cautlitere AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		Caption = ""
		ControlBox = .F.
		DoCreate = .T.
		Height = 87
		Name = "cautlitere"
		Width = 356
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmd_renunt WITH ;
		Height = 27, ;
		Left = 86, ;
		Name = "CMDRENUNT1", ;
		Top = 52, ;
		Width = 84
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmdtermin1' AS cmd_termin WITH ;
		Left = 186, ;
		Name = "Cmdtermin1", ;
		TabIndex = 2, ;
		Top = 52
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "Tastati primele litere: ", ;
		FontSize = 11, ;
		Height = 17, ;
		Left = 24, ;
		Name = "Label1", ;
		TabIndex = 3, ;
		Top = 17, ;
		Width = 156
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 36, ;
		Left = 3, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 7, ;
		Width = 349
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "litere", ;
		Format = "k!", ;
		Height = 24, ;
		Left = 178, ;
		Name = "Text1", ;
		TabIndex = 1, ;
		Top = 14, ;
		Width = 134
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE CMDRENUNT1.Valid
		pnbuton=2
	ENDPROC

	PROCEDURE Text1.Valid
		LOCAL L
				L=THIS.CONTROLSOURCE+'=ALLTRIM('+THIS.CONTROLSOURCE+')'
				&L
	ENDPROC

ENDDEFINE