romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
2f59024385e87fb99b20b240f7435b300980363f
comun/clase/caut.vc2

1281 lines
29 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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
Reference in New Issue View Git Blame Copy Permalink