Import initial: surse ROASTART + text FoxBin2Prg in arbore
Binarele VFP raman pe SVN si sunt git-ignored; COMUN e gestionat separat. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01A5okKjUKMM5Xk1egq2w81P
This commit is contained in:
54
Clase/appwiz_start.vc2
Normal file
54
Clase/appwiz_start.vc2
Normal file
@@ -0,0 +1,54 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="appwiz_start.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS wzapplication AS wzapplication OF "..\comun\clase\appwiz.vcx"
|
||||
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "wzapplication"
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE onshutdown
|
||||
Lparameters tlSilent
|
||||
Local lnRaspuns
|
||||
*!* On Shutdown
|
||||
*!* On Error
|
||||
*!* Clear Events
|
||||
*!* If _vfp.StartMode <> 0
|
||||
*!* Quit
|
||||
*!* Endif
|
||||
If !tlSilent
|
||||
lnRaspuns = aMessagebox("Dori<72>i s<> p<>r<EFBFBD>si<73>i aplica<63>ia ROA START?",0+4+32,"Confirmare")
|
||||
Else
|
||||
lnRaspuns = 6
|
||||
Endif
|
||||
If lnRaspuns==6
|
||||
deconectare()
|
||||
If Type("goApp.aforms[1]") = "O" And !Isnull(goApp.aforms[1])
|
||||
*!* daca ma loghez, schimb utilizatorul si apas "Renunta", atunci imi da eroare daca nu am si conditia !isnull
|
||||
Unbindevents(_Screen,[Resize],goApp.aforms[1],[minimizeaza])
|
||||
goApp.aforms[1].Release()
|
||||
Endif
|
||||
Unbindevents(_vfp.HWnd,0xA123)
|
||||
On Shutdown
|
||||
On Error
|
||||
Clear Events
|
||||
If _vfp.StartMode <> 0
|
||||
Quit
|
||||
Endif
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE restart
|
||||
This.SetCaption("ROA Romfast Applications")
|
||||
If Type("goApp.aforms[1]") = "O" AND !ISNULL(goApp.aforms[1])
|
||||
Unbindevents(_Screen,[Resize],goApp.aforms[1],[minimizeaza])
|
||||
Endif
|
||||
Unbindevents(_vfp.HWnd,0xA123)
|
||||
DoDefault()
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
1126
Clase/ofundal_start.vc2
Normal file
1126
Clase/ofundal_start.vc2
Normal file
File diff suppressed because it is too large
Load Diff
958
Clase/ostart.vc2
Normal file
958
Clase/ostart.vc2
Normal file
@@ -0,0 +1,958 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="ostart.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS cus_odata_drepturi AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
|
||||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: gu
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
gu =
|
||||
Name = "cus_odata_drepturi"
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE make_sql
|
||||
Lparameters toRec,tnId,tcGU,tcVar
|
||||
|
||||
|
||||
lcActiune = Alltrim(This.cActiune)
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'DELETE')
|
||||
lcId = Alltrim(Str(tnID))
|
||||
IF !EMPTY(tcvar)
|
||||
lcval = ALLTRIM(STR(toRec.&lcvar))
|
||||
ENDIF
|
||||
*!* lcidutil = ALLTRIM(STR(toRec.id_util))
|
||||
IF tcGU == "GRUP"
|
||||
lci = "id_gd"
|
||||
lcidutil = ALLTRIM(STR(toRec.id_grup))
|
||||
lcgu = "id_grup"
|
||||
ELSE
|
||||
lcidutil = ALLTRIM(STR(toRec.id_util))
|
||||
lci = "id_ud"
|
||||
lcgu = "id_util"
|
||||
ENDIF
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||||
lnidgu = ALLTRIM(STR(tnID))
|
||||
*!* IF tcGU == "GRUP"
|
||||
*!* lcIdGU = ALLTRIM(STR(torec.id_grup))
|
||||
*!* ELSE
|
||||
*!* lcIdGU = ALLTRIM(STR(torec.id_util))
|
||||
*!* ENDIF
|
||||
lcIdProg = Alltrim(Str(torec.id_prog))
|
||||
lcIdNiv = ALLTRIM(STR(torec.id_nivel))
|
||||
lcIDFirma = ALLTRIM(STR(torec.id_firma))
|
||||
|
||||
Endif
|
||||
|
||||
|
||||
Do Case
|
||||
Case lcActiune = "INSERT"
|
||||
IF tcGU == "GRUP"
|
||||
lcSql = [INSERT INTO GRUP_DREPT (id_grup,id_prog,id_firma,id_nivel) VALUES (] + lnIdGU + [,] + lcIdProg + [,] + lcIDFirma + [,] + lcIdNiv + [)]
|
||||
ELSE
|
||||
lcSql = [INSERT INTO UTIL_DREPT (id_util,id_prog,id_firma,id_nivel) VALUES (] + lnIdGU + [,] + lcIdProg + [,] + lcIDFirma + [,] + lcIdNiv + [)]
|
||||
ENDIF
|
||||
Case lcActiune = "UPDATE"
|
||||
|
||||
lcSql = [UPDATE ] + tcGU + [_DREPT SET id_prog = ] + lcIdProg + [,id_firma = ] + lcIDFirma + [,ID_NIVEL = ] + lcIdNiv +;
|
||||
[ where ] + lci + [ = ] + lcID
|
||||
|
||||
Case lcActiune = "DELETE"
|
||||
|
||||
IF !EMPTY(lcvar)
|
||||
lcSql = [delete from ] + tcGU + [_DREPT where ] + lcgu + [=] + lcIdUtil + [ and ] + lcvar + [=] + lcval &&id_prog sau id_firma
|
||||
ELSE
|
||||
lcSql = [delete from ] + tcGU + [_DREPT where ] + lci + [=] + lcId && Sterge Linia curenta
|
||||
ENDIF
|
||||
|
||||
Endcase
|
||||
*!* STRTOFILE(LCSQL,'C:\DELETE.SQL')
|
||||
This.csql = lcSql
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE salvare
|
||||
Lparameters toRec,tnID,tcGU,tcVar
|
||||
|
||||
Private llSucces, lnSucces
|
||||
|
||||
llSucces = .T.
|
||||
lnSucces = -1
|
||||
lcActiune = Upper(Alltrim(This.cactiune))
|
||||
lcMesaj = ''
|
||||
lcTitlu = ''
|
||||
Do Case
|
||||
Case lcActiune = "INSERT"
|
||||
lcMesaj = "Doriti sa adaugati inregistrarea?"
|
||||
lcTitlu = "Adaugare"
|
||||
lnOptiuni = 4 + 32
|
||||
Case lcActiune = "UPDATE"
|
||||
lcMesaj = "Doriti sa salvati modificarile?"
|
||||
lcTitlu = "Modificare"
|
||||
lnOptiuni = 4 + 32
|
||||
Case lcActiune = "DELETE"
|
||||
lcMesaj = "Doriti sa stergeti inregistrarea?"
|
||||
lcTitlu = "Stergere"
|
||||
lnOptiuni = 4 + 32 + 512
|
||||
Endcase
|
||||
|
||||
|
||||
If aMessagebox(lcMesaj,lnOptiuni,lcTitlu) = 6
|
||||
PNIESIRE=1
|
||||
If This.validare()
|
||||
|
||||
This.make_sql(toRec,tnID,tcGU,tcVar)
|
||||
|
||||
lcSql = Upper(Alltrim(This.csql))
|
||||
|
||||
llConditie = 'INSERT'$lcSql Or 'UPDATE'$lcSql Or 'DELETE'$lcSql Or 'BEGIN'$lcSql
|
||||
|
||||
If llConditie
|
||||
lnSucces = SQLEXEC(gnHandle,lcSql)
|
||||
Endif
|
||||
|
||||
If lnSucces < 0
|
||||
RELEASE laEroare
|
||||
AERROR(laEroare)
|
||||
|
||||
lcTextEroare = ''
|
||||
IF TYPE('laEroare')!= "U"
|
||||
lcTextEroare = laEroare(3)
|
||||
ENDIF
|
||||
|
||||
RELEASE laEroare
|
||||
|
||||
Do Case
|
||||
Case lcActiune = "INSERT"
|
||||
lcMesaj = "Inregistrarea nu a fost adaugata." + CHR(13) + CHR(10) + lcTextEroare
|
||||
lcTitlu = "Adaugare"
|
||||
Case lcActiune = "UPDATE"
|
||||
lcMesaj = "Inregistrarea nu a fost modificata." + CHR(13) + CHR(10) + lcTextEroare
|
||||
lcTitlu = "Modificare"
|
||||
Case lcActiune = "DELETE"
|
||||
lcMesaj = "Inregistrarea nu a fost stearsa." + CHR(13) + CHR(10) + lcTextEroare
|
||||
lcTitlu = "Stergere"
|
||||
ENDCASE
|
||||
|
||||
aMessagebox(lcMesaj,0+48,lcTitlu)
|
||||
llSucces = .F.
|
||||
Endif
|
||||
If lnSucces >=1 AND lcActiune = "DELETE"
|
||||
lcMesaj = "Inregistrarea a fost stearsa."
|
||||
lcTitlu = "Stergere"
|
||||
aMessagebox(lcMesaj,0+64,lcTitlu)
|
||||
Endif
|
||||
ENDIF
|
||||
ELSE
|
||||
PNIESIRE=2
|
||||
ENDIF
|
||||
|
||||
|
||||
Return llSucces
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS cus_odata_firma AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx"
|
||||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Name = "cus_odata_firma"
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE make_sql
|
||||
Lparameters toRec,tnId
|
||||
|
||||
lcActiune = Alltrim(This.cActiune)
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'DELETE')
|
||||
lcId = Alltrim(Str(tnId))
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||||
|
||||
lcfirma = Nvl(STRTRAN(Alltrim(Upper(toRec.firma)),['],['']),"")
|
||||
lcfscurt = Nvl(STRTRAN(Alltrim(Upper(toRec.fscurt)),['],['']),"")
|
||||
lcCodF = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"")
|
||||
lcregc = Nvl(STRTRAN(Alltrim(Upper(toRec.reg_comert)),['],['']),"")
|
||||
lcbanca1 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca1)),['],['']),"")
|
||||
lccontb1 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca1)),['],['']),"")
|
||||
lcbanca2 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca2)),['],['']),"")
|
||||
lccontb2 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca2)),['],['']),"")
|
||||
lcBanca3 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca3)),['],['']),"")
|
||||
lccontb3 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca3)),['],['']),"")
|
||||
lcadresa = Nvl(STRTRAN(Alltrim(Upper(toRec.adresa)),['],['']),"")
|
||||
lcCodFirma = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_firma)),['],['']),"")
|
||||
lnpersj = NVL(ALLTRIM(STR(toRec.persoana_juridica)),"0")
|
||||
lncodang = NVL(ALLTRIM(STR(toRec.codang)),"0")
|
||||
lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.nume)),['],['']),"")
|
||||
lcprenume = Nvl(STRTRAN(Alltrim(Upper(toRec.prenume)),['],['']),"")
|
||||
lctel = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon)),['],['']),"")
|
||||
lcfax = Nvl(STRTRAN(Alltrim(Upper(toRec.fax)),['],['']),"")
|
||||
lcemail = Nvl(STRTRAN(Alltrim(Upper(toRec.email)),['],['']),"")
|
||||
lcoasp = Nvl(STRTRAN(Alltrim(Upper(toRec.oasp)),['],['']),"")
|
||||
lncapsv =NVL(ALLTRIM(STR(toRec.capital_soc_var,16,2)),"0")
|
||||
lncapss =NVL(ALLTRIM(STR(toRec.capital_soc_sub,16,2)),"0")
|
||||
lcpctl = Nvl(STRTRAN(Alltrim(Upper(toRec.punct_luc)),['],['']),"")
|
||||
lccaen = Nvl(STRTRAN(Alltrim(Upper(toRec.caen)),['],['']),"")
|
||||
lcschema = Nvl(STRTRAN(Alltrim(Upper(toRec.schema)),['],['']),"")
|
||||
lnidm = NVL(ALLTRIM(STR(toRec.id_mama)),"0")
|
||||
lnmama = NVL(ALLTRIM(STR(toRec.mama)),"0")
|
||||
lcsucursala = Nvl(STRTRAN(Alltrim(Upper(toRec.sucursala)),['],['']),"")
|
||||
lnidl = NVL(ALLTRIM(STR(toRec.id_loc)),"0")
|
||||
|
||||
Endif
|
||||
|
||||
|
||||
Do Case
|
||||
*!* Case lcActiune = "INSERT"
|
||||
|
||||
*!* lcSql = [INSERT INTO programe (NUME,director,caption,instalat,ordine) VALUES ('] + lcnume + [','] + lcdirector +[','] + ;
|
||||
*!* lcaption + [',] + lninstalat + [,] + lnordine + [)]
|
||||
|
||||
Case lcActiune = "UPDATE"
|
||||
|
||||
lcSql = [UPDATE nom_firme SET firma = '] + lcfirma + [',fscurt = '] + lcfscurt + [',cod_fiscal = '] + ;
|
||||
lcCodF + [',reg_comert = '] + lcregc + [',banca1 = '] + lcbanca1 + [',cont_banca1 = '] + lccontb1 + ;
|
||||
[',banca2 = '] + lcbanca2 + [',cont_banca2 = '] + lccontb2 + [',banca3 = '] + lcbanca3 + ;
|
||||
[',cont_banca3 = '] + lccontb3 + [',adresa = '] + lcadresa + [',cod_firma = '] + lcCodFirma + ;
|
||||
[',persoana_juridica = ] + lnpersj + [,codang = ] + lncodang + [,nume = '] + lcnume + ;
|
||||
[',prenume = '] + lcprenume + [',telefon = '] + lctel + [',fax = '] + lcfax + ;
|
||||
[',email = '] + lcemail + [',oasp = '] + lcoasp + [',capital_soc_var = ] + lncapsv + ;
|
||||
[,capital_soc_sub = ] + lncapss + [,punct_luc = '] + lcpctl + [',caen = '] + lccaen + ;
|
||||
[',id_mama = ] + lnidm + [,mama = ] + lnmama + [,sucursala = '] + lcsucursala + [',id_loc = ] + lnidl +;
|
||||
[ where id_firma = ] + lcId
|
||||
|
||||
*!* Case lcActiune = "DELETE"
|
||||
*!*
|
||||
*!* lcSql = [update programe set sters=1 where id_prog = ] + lcId
|
||||
Endcase
|
||||
*!* STRTOFILE(LCSQL,'C:\DELETE.SQL')
|
||||
This.csql = lcSql
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_login AS _frmnotitle OF "..\comun\clase\_frm_base.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="cntEngleza" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="cntRomana" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_operator" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_parola" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cb_server" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_login1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cmd_logoff1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lb_stare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Odbcreg1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="ImageRomana" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="ImageEngleza" UniqueID="" Timestamp="" />
|
||||
|
||||
#INCLUDE "..\comun\include\security.h"
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: getlastserver
|
||||
*m: populate_host
|
||||
*m: setlastserver
|
||||
*p: cnume
|
||||
*p: cparola
|
||||
*p: nnrincerc
|
||||
*p: _memberdata && XML Metadata for customizable properties
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
cnume =
|
||||
cparola =
|
||||
DoCreate = .T.
|
||||
Name = "frm_login"
|
||||
nnrincerc = 0
|
||||
Picture = ..\grafice\roastart.bmp
|
||||
_memberdata = <VFPData>
|
||||
<memberdata name="getlastserver" display="getLastServer"/>
|
||||
<memberdata name="setlastserver" display="setLastServer"/>
|
||||
</VFPData>
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Cb_server' AS cb_tx_simplu WITH ;
|
||||
BorderWidth = 0, ;
|
||||
Left = 42, ;
|
||||
Name = "Cb_server", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 52, ;
|
||||
ZOrderSet = 4, ;
|
||||
_CBBASE1.Name = "_CBBASE1", ;
|
||||
_LBBASE1.Caption = "Server", ;
|
||||
_LBBASE1.FontBold = .T., ;
|
||||
_LBBASE1.Name = "_LBBASE1"
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_operator' AS clb_tx_simplu WITH ;
|
||||
BorderWidth = 0, ;
|
||||
Left = 42, ;
|
||||
Name = "Clb_operator", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 144, ;
|
||||
ZOrderSet = 2, ;
|
||||
Text_simplu1.AutoComplete = 3, ;
|
||||
Text_simplu1.ControlSource = "thisform.cnume", ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Lb_simplu1.Caption = "Operator", ;
|
||||
Lb_simplu1.FontBold = .T., ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_parola' AS clb_tx_simplu WITH ;
|
||||
BorderWidth = 0, ;
|
||||
Left = 42, ;
|
||||
Name = "Clb_parola", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 177, ;
|
||||
ZOrderSet = 3, ;
|
||||
Text_simplu1.ControlSource = "thisform.cparola", ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.PasswordChar = "*", ;
|
||||
Lb_simplu1.Caption = "Parol<6F>", ;
|
||||
Lb_simplu1.FontBold = .T., ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Cmd_login1' AS cmd_login WITH ;
|
||||
Caption = "\<Intr<74>", ;
|
||||
Left = 180, ;
|
||||
Name = "Cmd_login1", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 216, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Cmd_logoff1' AS cmd_logoff WITH ;
|
||||
Caption = "\<Renun<75><6E>", ;
|
||||
Left = 276, ;
|
||||
Name = "Cmd_logoff1", ;
|
||||
TabIndex = 5, ;
|
||||
Top = 216, ;
|
||||
ZOrderSet = 6
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'cntEngleza' AS container WITH ;
|
||||
BorderColor = 0,64,128, ;
|
||||
BorderWidth = 2, ;
|
||||
Height = 20, ;
|
||||
Left = 41, ;
|
||||
Name = "cntEngleza", ;
|
||||
Top = 223, ;
|
||||
Visible = .F., ;
|
||||
Width = 32, ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'cntRomana' AS container WITH ;
|
||||
BorderColor = 0,64,128, ;
|
||||
BorderWidth = 2, ;
|
||||
Height = 20, ;
|
||||
Left = 7, ;
|
||||
Name = "cntRomana", ;
|
||||
Top = 223, ;
|
||||
Visible = .F., ;
|
||||
Width = 32, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'ImageEngleza' AS image WITH ;
|
||||
Height = 16, ;
|
||||
Left = 43, ;
|
||||
MousePointer = 15, ;
|
||||
Name = "ImageEngleza", ;
|
||||
Picture = ..\comun\grafice\gb.gif, ;
|
||||
Stretch = 2, ;
|
||||
ToolTipText = "Limba engleza", ;
|
||||
Top = 225, ;
|
||||
Width = 28, ;
|
||||
ZOrderSet = 10
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'ImageRomana' AS image WITH ;
|
||||
BorderStyle = 0, ;
|
||||
Height = 16, ;
|
||||
Left = 9, ;
|
||||
MousePointer = 15, ;
|
||||
Name = "ImageRomana", ;
|
||||
Picture = ..\comun\grafice\ro.gif, ;
|
||||
Stretch = 2, ;
|
||||
ToolTipText = "Limba romana", ;
|
||||
Top = 225, ;
|
||||
Width = 28, ;
|
||||
ZOrderSet = 9
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'lb_stare' AS lb_titlu_albastru_b12 WITH ;
|
||||
Caption = "NECONECTAT", ;
|
||||
Left = 24, ;
|
||||
Name = "lb_stare", ;
|
||||
Top = 12, ;
|
||||
ZOrderSet = 7
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Odbcreg1' AS odbcreg WITH ;
|
||||
Left = 24, ;
|
||||
Name = "Odbcreg1", ;
|
||||
Top = 190
|
||||
*< END OBJECT: ClassLib="..\comun\clase\registry.vcx" BaseClass="custom" />
|
||||
|
||||
PROCEDURE do_login
|
||||
*!* 21.06.2012
|
||||
*!* marius.mutu
|
||||
*!* tratare utilizatori ADMIN -1, SUPER -2
|
||||
|
||||
lcHost = Upper(Alltrim(Thisform.cb_server._cbbase1.Value))
|
||||
lcSchema = ""
|
||||
lcPassword = ""
|
||||
lcIsCrypted = ""
|
||||
|
||||
If !Empty(lcHost)
|
||||
If Used('crsHost')
|
||||
Select schema,pwd,IsEncrypted From crsHost Where Upper(Alltrim(Host)) = lcHost Into Cursor crsServer
|
||||
Select crsServer
|
||||
Go Top
|
||||
lcSchema = schema
|
||||
lcPassword = ALLTRIM(pwd)
|
||||
lcIsCrypted = IsEncrypted
|
||||
Endif
|
||||
Endif
|
||||
lcHost = Alltrim(lcHost)
|
||||
lcSchema = Alltrim(lcSchema)
|
||||
lcPasswordOriginal=lcPassword
|
||||
|
||||
If lcIsCrypted="1"
|
||||
IF gnewcryptxml=.T.
|
||||
lcPasswordOriginal = "*!*"+STRCONV(lcPasswordOriginal,13)
|
||||
lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","blowfish")
|
||||
ELSE
|
||||
lcPasswordOriginal = "*!*" + lcPasswordOriginal
|
||||
lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","old")
|
||||
ENDIF
|
||||
Else
|
||||
lcPassword = Alltrim(lcPassword)
|
||||
Endif
|
||||
|
||||
deconectare()
|
||||
lnHandle = conectare(lcHost, lcSchema, lcPassword) && IN proceduri_oracle.prg
|
||||
|
||||
|
||||
If lnHandle < 0
|
||||
Thisform.do_reset()
|
||||
Thisform.lb_stare.Visible = .T.
|
||||
Thisform.lb_stare.Caption = "NECONECTAT"
|
||||
Return .F.
|
||||
Endif
|
||||
Thisform.lb_stare.Visible = .T.
|
||||
Thisform.lb_stare.Caption = "CONECTAT"
|
||||
gcHost = lcHost
|
||||
gcUserName = lcSchema
|
||||
gcPassword = lcPasswordOriginal
|
||||
|
||||
* se logheaza pe schema <contafin> cu <123>
|
||||
* apeleaza <update_utilizatori>
|
||||
* verifica daca utilizatorul este in <v_utilizatori> si initializeaza variabila globala <goUtilizator>
|
||||
|
||||
*** vad daca utilizatorul trebuie sa se logheze cu un alt DSN (jcsserver) cu alt username (contabilitate) fata de standard (jcsserver,contabilitate)
|
||||
gcUserNameApp = Alltrim(Thisform.clb_operator.text_simplu1.Value)
|
||||
gcPasswordApp=Alltrim(Thisform.clb_parola.text_simplu1.Value)
|
||||
|
||||
If Empty(Thisform.clb_operator.text_simplu1.Value)
|
||||
aMessagebox("Nu ati introdus numele utilizatorului!",0+48,"Atentie")
|
||||
Thisform.clb_operator.SetFocus()
|
||||
Return
|
||||
Endif
|
||||
|
||||
gnIdUtil = 0
|
||||
llSucces = .F.
|
||||
lcUserNameApp = Strtran(Upper(Alltrim(gcUserNameApp)),['],[''])
|
||||
lcPasswordApp = Upper(Alltrim(gcPasswordApp))
|
||||
|
||||
This.MousePointer= 11
|
||||
lnIdUtil = verifica_utilizator(lcUserNameApp,lcPasswordApp)
|
||||
This.MousePointer= 0
|
||||
|
||||
If (m.lnIdUtil > -1) OR (m.lnIdUtil = -1 AND glAdministrator) OR (m.lnIdUtil = -2 AND glSupervizor)
|
||||
gnIdUtil = lnIdUtil
|
||||
llSucces = .T.
|
||||
gcnume = lcUserNameApp
|
||||
gcUtil = gnIdUtil
|
||||
glIntrat = .T.
|
||||
Endif
|
||||
|
||||
If !llSucces
|
||||
Thisform.nnrincerc = Thisform.nnrincerc + 1
|
||||
aMessagebox("Autentificarea nu a reusit!" + Chr(13) + Chr(10)+ "Utilizator sau parola incorecte.",0+48,"Atentie")
|
||||
If Thisform.nnrincerc=3
|
||||
gnButon=2
|
||||
Thisform.Release
|
||||
Else
|
||||
Thisform.clb_operator.text_simplu1.SetFocus()
|
||||
Endif
|
||||
Return
|
||||
Endif
|
||||
|
||||
|
||||
Thisform.lb_stare.Caption="Conectat: "+Alltrim(Str(gnhandle))
|
||||
*!* modificare v 2.0.29
|
||||
This.setLastServer(lcHost)
|
||||
*!* modificare v 2.0.29 ^
|
||||
gnButon=1
|
||||
Thisform.Release
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_logoff
|
||||
gnButon=2
|
||||
Thisform.Release
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_reset
|
||||
Thisform.cnume=""
|
||||
Thisform.clb_operator.text_simplu1.Refresh()
|
||||
Thisform.cparola = ""
|
||||
Thisform.clb_parola.Refresh()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE getlastserver
|
||||
Local loIniHandler
|
||||
loIniHandler = Createobject("iniaccess")
|
||||
lcHost = loIniHandler.getLastServer()
|
||||
Release loIniHandler
|
||||
Return lcHost
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
DoDefault()
|
||||
|
||||
_Screen.Height=This.Height
|
||||
_Screen.Width=This.Width
|
||||
_Screen.AutoCenter=.T.
|
||||
Thisform.Left=0
|
||||
Thisform.Top=0
|
||||
_Screen.Refresh()
|
||||
|
||||
lnHosts = This.populate_host()
|
||||
If lnHosts > 0
|
||||
Thisform.cb_server._CBBASE1.RowSourceType = 2
|
||||
Thisform.cb_server._CBBASE1.RowSource = 'crsHost.Host'
|
||||
Select crsHost
|
||||
*!* modificare v 2.0.29
|
||||
*!* GO top
|
||||
lcServer = This.getLastServer()
|
||||
If Empty(lcServer)
|
||||
Go Top
|
||||
Else
|
||||
Locate For Host = lcServer
|
||||
If !Found()
|
||||
Go Top
|
||||
Endif
|
||||
Endif
|
||||
*!* modificare v 2.0.29 ^
|
||||
lcHost = Host
|
||||
Thisform.cb_server._CBBASE1.Requery()
|
||||
Thisform.cb_server._CBBASE1.Value=lcHost
|
||||
Else
|
||||
Quit
|
||||
Endif
|
||||
If goLocale.Locale = 'Romana'
|
||||
Thisform.cntRomana.Visible = .T.
|
||||
goLocale.SetLocale( Thisform )
|
||||
Else
|
||||
Thisform.cntEngleza.Visible = .T.
|
||||
goLocale.SetLocale( Thisform )
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE populate_host
|
||||
Local lnValid
|
||||
lnValid = GetcrsSecurity(gcSecurityFile)
|
||||
Dimension laDrivere[30]
|
||||
Thisform.odbcreg1.getodbcdrvrs(@laDrivere,.T.)
|
||||
*!* modificare v 2.0.29
|
||||
If Used('crshost')
|
||||
*!* modificare v 2.0.29 ^
|
||||
Select crshost
|
||||
Scan
|
||||
lcHost=Alltrim(Upper(Host))
|
||||
If Ascan(laDrivere,lcHost,1)=0
|
||||
Delete Next 1
|
||||
Endif
|
||||
Endscan
|
||||
*!* modificare v 2.0.29
|
||||
Endif
|
||||
*!* modificare v 2.0.29 ^
|
||||
Return lnValid
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE setlastserver
|
||||
Lparameters tcHost
|
||||
Local loIniHandler
|
||||
loIniHandler = Createobject("iniaccess")
|
||||
loIniHandler.setLastServer(tcHost)
|
||||
Release loIniHandler
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cb_server._CBBASE1.Destroy
|
||||
IF USED('crsHost')
|
||||
USE IN crsHost
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cb_server._CBBASE1.DropDown
|
||||
Thisform.lb_stare.Visible = .F.
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Cb_server._CBBASE1.LostFocus
|
||||
*!* lcHost = Upper(Alltrim(This.Value))
|
||||
*!* lcSchema = ""
|
||||
*!* lcPassword = ""
|
||||
*!* lcIsCrypted = ""
|
||||
|
||||
*!* If !Empty(lcHost)
|
||||
*!* If Used('crsHost')
|
||||
*!* Select schema,pwd,IsEncrypted From crsHost Where Upper(Alltrim(Host)) = lcHost Into Cursor crsServer
|
||||
*!* Select crsServer
|
||||
*!* Go Top
|
||||
*!* lcSchema = schema
|
||||
*!* lcPassword = ALLTRIM(pwd)
|
||||
*!* lcIsCrypted = IsEncrypted
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
*!* lcHost = Alltrim(lcHost)
|
||||
*!* lcSchema = Alltrim(lcSchema)
|
||||
*!* lcPasswordOriginal=lcPassword
|
||||
|
||||
*!* If lcIsCrypted="1"
|
||||
*!* IF gnewcryptxml=.T.
|
||||
*!* lcPasswordOriginal = "*!*"+STRCONV(lcPasswordOriginal,13)
|
||||
*!* lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","blowfish")
|
||||
*!* ELSE
|
||||
*!* lcPasswordOriginal = "*!*" + lcPasswordOriginal
|
||||
*!* lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","old")
|
||||
*!* ENDIF
|
||||
*!*
|
||||
*!* Else
|
||||
*!* lcPassword = Alltrim(lcPassword)
|
||||
*!* Endif
|
||||
|
||||
*!* deconectare()
|
||||
*!* lnHandle = conectare(lcHost, lcSchema, lcPassword) && IN proceduri_oracle.prg
|
||||
*!* If lnHandle < 0
|
||||
*!* Thisform.do_reset()
|
||||
*!* Thisform.lb_stare.Visible = .T.
|
||||
*!* Thisform.lb_stare.Caption = "NECONECTAT"
|
||||
*!* Return .F.
|
||||
*!* Endif
|
||||
*!* Thisform.lb_stare.Visible = .T.
|
||||
*!* Thisform.lb_stare.Caption = "CONECTAT"
|
||||
*!* gcHost = lcHost
|
||||
*!* gcUserName = lcSchema
|
||||
*!* gcPassword = lcPasswordOriginal
|
||||
*!* Thisform.do_reset()
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE ImageEngleza.Click
|
||||
goLocale.Locale='English'
|
||||
IF TYPE('goLocale') = 'O'
|
||||
golocale.SetLocale( thisform )
|
||||
ENDIF
|
||||
thisform.cntEngleza.Visible = .T.
|
||||
thisform.cntRomana.Visible = .F.
|
||||
lcFisierIni = shortpath(GetIniPath())
|
||||
WritePrivateProfileString("locale", "lang", 'English' ,m.lcFisierIni)
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE ImageRomana.Click
|
||||
goLocale.Locale='Romana'
|
||||
IF TYPE('goLocale') = 'O'
|
||||
golocale.SetLocale( thisform )
|
||||
ENDIF
|
||||
thisform.cntRomana.Visible = .T.
|
||||
thisform.cntEngleza.Visible = .F.
|
||||
lcFisierIni = shortpath(GetIniPath())
|
||||
WritePrivateProfileString("locale", "lang", 'Romana' ,m.lcFisierIni)
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_mesaj AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="lbl_mesaj1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Nu1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="imagine1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="lbl_mesaj2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="txt_numar" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*p: nnr
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
Desktop = .T.
|
||||
DoCreate = .T.
|
||||
Height = 192
|
||||
Name = "frm_mesaj"
|
||||
nnr = 0
|
||||
Width = 400
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 402
|
||||
_shape1.ZOrderSet = 3
|
||||
_SHAPE2.Height = 29
|
||||
_SHAPE2.Left = 367
|
||||
_SHAPE2.Name = "_SHAPE2"
|
||||
_SHAPE2.Top = 0
|
||||
_SHAPE2.Width = 34
|
||||
_SHAPE2.ZOrderSet = 6
|
||||
LB_TITLU_ALB_B121.Caption = "Titlu"
|
||||
LB_TITLU_ALB_B121.FontBold = .T.
|
||||
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||||
LB_TITLU_ALB_B121.TabIndex = 5
|
||||
LB_TITLU_ALB_B121.ZOrderSet = 7
|
||||
BUT_TERMIN1.Left = 368
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.TabIndex = 1
|
||||
BUT_TERMIN1.Top = 1
|
||||
BUT_TERMIN1.ZOrderSet = 9
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Da1' AS but_da WITH ;
|
||||
Height = 30, ;
|
||||
Left = 151, ;
|
||||
Name = "Da1", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 156, ;
|
||||
Width = 55, ;
|
||||
ZOrderSet = 2
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'imagine1' AS image WITH ;
|
||||
Height = 33, ;
|
||||
Left = 12, ;
|
||||
Name = "imagine1", ;
|
||||
Picture = ..\..\, ;
|
||||
Top = 48, ;
|
||||
Width = 32, ;
|
||||
ZOrderSet = 4
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
ADD OBJECT 'lbl_mesaj1' AS _lbbase WITH ;
|
||||
Alignment = 2, ;
|
||||
AutoSize = .F., ;
|
||||
Caption = "mesaj1", ;
|
||||
FontSize = 10, ;
|
||||
Height = 102, ;
|
||||
Left = 51, ;
|
||||
Name = "lbl_mesaj1", ;
|
||||
Style = 0, ;
|
||||
TabIndex = 4, ;
|
||||
Top = 42, ;
|
||||
Width = 339, ;
|
||||
WordWrap = .T., ;
|
||||
ZOrderSet = 0
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\_lb_base.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'lbl_mesaj2' AS _lbbase WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "mesaj2", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 178, ;
|
||||
Name = "lbl_mesaj2", ;
|
||||
TabIndex = 6, ;
|
||||
Top = 65, ;
|
||||
Width = 44, ;
|
||||
ZOrderSet = 5
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\_lb_base.vcx" BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Nu1' AS but_nu WITH ;
|
||||
Height = 30, ;
|
||||
Left = 207, ;
|
||||
Name = "Nu1", ;
|
||||
TabIndex = 3, ;
|
||||
Top = 156, ;
|
||||
Width = 55, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'txt_numar' AS textbox WITH ;
|
||||
Alignment = 2, ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ControlSource = "thisform.nnr", ;
|
||||
FontBold = .T., ;
|
||||
FontSize = 10, ;
|
||||
Height = 23, ;
|
||||
InputMask = (get_mask(12,gnPa)), ;
|
||||
Left = 264, ;
|
||||
Name = "txt_numar", ;
|
||||
TabIndex = 7, ;
|
||||
TabStop = .F., ;
|
||||
Top = 66, ;
|
||||
Width = 97, ;
|
||||
ZOrderSet = 8
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE actualizeaza_drepturi
|
||||
*!*
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
LPARAMETERS tctitlu,tcimagine,tctip,tcmesaj1,tmesaj2
|
||||
|
||||
DODEFAULT()
|
||||
|
||||
WITH this
|
||||
.lb_titlu_alb_b121.Caption = tctitlu
|
||||
.imagine1.Picture = IIF(EMPTY(tcimagine),[info_c.ico],tcimagine)
|
||||
.lbl_mesaj1.caption = IIF(EMPTY(tcmesaj1),[],tcmesaj1)
|
||||
IF TYPE('tmesaj2') = 'N'
|
||||
.lbl_mesaj2.visible = .f.
|
||||
.nnr = tmesaj2
|
||||
lnCul = IIF(.nnr<0,RGB(255,0,0),iif(.nnr>0,RGB(0,0,255),RGB(0,255,0)))
|
||||
.txt_numar.forecolor = lnCul
|
||||
.txt_numar.left = 151
|
||||
ELSE
|
||||
.lbl_mesaj2.caption = IIF(EMPTY(tmesaj2),[],tmesaj2)
|
||||
.txt_numar.visible = .f.
|
||||
ENDIF
|
||||
|
||||
DO case
|
||||
CASE UPPER(ALLTRIM(tctip)) = [AVERTIZARE] OR UPPER(ALLTRIM(tctip)) = [INFORMARE] OR EMPTY(tctip)
|
||||
.da1.Visible = .f.
|
||||
.nu1.Visible = .f.
|
||||
._shape2.Visible = .t.
|
||||
.but_termin1.visible = .t.
|
||||
CASE UPPER(ALLTRIM(tctip)) = [INTREBARE]
|
||||
.da1.Visible = .t.
|
||||
.nu1.Visible = .t.
|
||||
._shape2.Visible = .f.
|
||||
.but_termin1.visible = .f.
|
||||
ENDCASE
|
||||
ENDWITH
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE KeyPress
|
||||
Lparameters nKeyCode, nShiftAltCtrl
|
||||
Do Case
|
||||
Case nKeyCode=27 And nShiftAltCtrl=0
|
||||
Nodefault
|
||||
This.do_renunt()
|
||||
Case nKeyCode=6 And nShiftAltCtrl=2
|
||||
NODEFAULT
|
||||
This.do_termin()
|
||||
Endcase
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Show
|
||||
LPARAMETERS nStyle
|
||||
IF !FILE(THIS.Imagine1.PICTURE)
|
||||
THIS.IMagine1.Visible=.F.
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS keepalive AS timer
|
||||
*< CLASSDATA: Baseclass="timer" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Enabled = .F.
|
||||
Height = 23
|
||||
Name = "keepalive"
|
||||
Width = 23
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE Timer
|
||||
*** instructiune KeepAlive
|
||||
TRY
|
||||
lnSucces = goExecutor.oExecute([update SERVER_INFO set value = 'x' where 1=2])
|
||||
CATCH
|
||||
ENDTRY
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS mygridimagecontainer AS container
|
||||
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: backstyle_access
|
||||
*m: backstyle_assign
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BackStyle = 0
|
||||
BorderWidth = 0
|
||||
Height = 25
|
||||
Name = "mygridimagecontainer"
|
||||
Width = 25
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Image1' AS image WITH ;
|
||||
Anchor = 15, ;
|
||||
BackStyle = 0, ;
|
||||
Height = 24, ;
|
||||
Left = 0, ;
|
||||
Name = "Image1", ;
|
||||
Stretch = 1, ;
|
||||
Top = 0, ;
|
||||
Width = 24
|
||||
*< END OBJECT: BaseClass="image" />
|
||||
|
||||
PROCEDURE backstyle_access
|
||||
*To do: Modify this routine for the Access method
|
||||
this.image1.Picture=EVALUATE(this.Parent.ControlSource)
|
||||
RETURN THIS.BackStyle
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE backstyle_assign
|
||||
LPARAMETERS vNewVal
|
||||
*To do: Modify this routine for the Assign method
|
||||
THIS.BackStyle = m.vNewVal
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
87
Clase/ostart_admin.vc2
Normal file
87
Clase/ostart_admin.vc2
Normal file
@@ -0,0 +1,87 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="ostart_admin.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS frm_import AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Height = 360
|
||||
Name = "frm_import"
|
||||
Width = 766
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 768
|
||||
_SHAPE2.Height = 29
|
||||
_SHAPE2.Left = 730
|
||||
_SHAPE2.Name = "_SHAPE2"
|
||||
_SHAPE2.Top = 0
|
||||
_SHAPE2.Width = 38
|
||||
LB_TITLU_ALB_B121.Caption = "IMPORT"
|
||||
LB_TITLU_ALB_B121.FontBold = .T.
|
||||
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||||
BUT_TERMIN1.Left = 734
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||||
Left = 24, ;
|
||||
Name = "Clb_tx_simplu1", ;
|
||||
Top = 48, ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 60, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 225, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
||||
Left = 24, ;
|
||||
Name = "Clb_tx_simplu2", ;
|
||||
Top = 96, ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 60, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 225, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
|
||||
Left = 24, ;
|
||||
Name = "Clb_tx_simplu3", ;
|
||||
Top = 138, ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 60, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 225, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
|
||||
Left = 24, ;
|
||||
Name = "Clb_tx_simplu4", ;
|
||||
Top = 181, ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 60, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 225, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ENDDEFINE
|
||||
1061
Clase/ostart_grup.vc2
Normal file
1061
Clase/ostart_grup.vc2
Normal file
File diff suppressed because one or more lines are too long
1288
Clase/ostart_init.vc2
Normal file
1288
Clase/ostart_init.vc2
Normal file
File diff suppressed because one or more lines are too long
185
Clase/ostart_obiecte.vc2
Normal file
185
Clase/ostart_obiecte.vc2
Normal file
@@ -0,0 +1,185 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="ostart_obiecte.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS oleacces AS _olecontrol OF "..\comun\clase\_baza.vcx"
|
||||
*< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="oleacces" Parent="" ObjName="oleacces" OLEObject="C:\WINDOWS\system32\MSCOMCTL.OCX" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBTyQaXk8YBAwAAAMACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAagAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAKIBAAAAAAAABAAAAAIAAAD+////BQAAAP7///8GAAAABwAAAAgAAAAJAAAACgAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAABIIQAAZhIAALE8wWoBAAYAIgAAABkAAADtAwAACQAAAJmrHQAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTFmAHQAIABXAGkAbgBkAG8AdwBzACAAUgBlAHAAbwByAHQAIAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwAAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAFAGitHQADAAAAAAAAAAUAAIC46xIAAQAAAFwAH97svQEABQD86xIATgBUAFwAUwB5AHMAdABlAG0AMwAyAAAAQ0AKAAAATGFiZWxFZGl0AAkAAABJCgAAAAAAAAAKAAAATGluZVN0eWxlAAkAAABJCgAAAAEAAAANAAAATW91c2VQb2ludGVyAAkAAABJCgAAAAAAAAAOAAAAUGF0aFNlcGFyYXRvcgAKAAAASAAAAAABAAAAXAcAAABTb3J0ZWQABQAAAEwAAAAABgAAAFN0eWxlAAkAAABJCgAAAAYAAAAMAAAAT0xFRHJhZ01vZGUACQAAAEkKAAAAAAAAAAwAAABPTEVEcm9wTW9kZQAJAAAASQoAAAAAAAAACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAACwAAAENoZWNrYm94ZXMABQAAAEwBAAAADgAAAEZ1bGxSb3dTZWxlY3QABQAAAEwAAAAADAAAAEhvdFRyYWNraW5nAAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: actualizeaza_tree
|
||||
*m: adauga_frunze
|
||||
*m: bifeaza_nod
|
||||
*m: citeste_meniu
|
||||
*m: citeste_noduri
|
||||
*m: citeste_pageframe
|
||||
*m: curata_tree
|
||||
*m: initializeaza_tree
|
||||
*p: cmeniu && Numele meniului
|
||||
*p: cpageframe
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
cmeniu =
|
||||
cpageframe =
|
||||
Height = 178
|
||||
Name = "oleacces"
|
||||
Width = 322
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE actualizeaza_tree
|
||||
Select v_obiectegrup
|
||||
Scan
|
||||
lcCheie=Alltrim(cheie)
|
||||
loNode=This.Object.Nodes.Item(lcCheie)
|
||||
loNode.Checked= .T.
|
||||
This.nodeCheck(loNode)
|
||||
Endscan
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE adauga_frunze
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE bifeaza_nod
|
||||
Lparameters Node,llChecked
|
||||
Local loChild,i
|
||||
|
||||
*!* If Isnull(Node.Parent)
|
||||
*!* loProp='this.cnt'+Node.Key
|
||||
*!* If Node.checked
|
||||
*!* &loProp=Node.children
|
||||
*!* Else
|
||||
*!* &loProp=0
|
||||
*!* Endif
|
||||
*!* Node.bold=Node.checked
|
||||
*!* loChild=Node.Child.FirstSibling
|
||||
*!* For i=1 To Node.children
|
||||
*!* loChild.checked=Node.checked
|
||||
*!* loChild=loChild.Next
|
||||
*!* Endfor
|
||||
*!* Else
|
||||
*!* loProp='this.cnt'+Node.Parent.Key
|
||||
*!* If Node.checked
|
||||
*!* &loProp=&loProp+1
|
||||
*!* Node.Parent.bold=Node.checked
|
||||
*!* If &loProp=Node.Parent.children
|
||||
*!* Node.Parent.checked=.T.
|
||||
*!* Endif
|
||||
*!* Else
|
||||
*!* &loProp=&loProp-1
|
||||
*!* If Node.Parent.checked
|
||||
*!* Node.Parent.checked=.F.
|
||||
*!* Endif
|
||||
*!* If &loProp=0
|
||||
*!* Node.Parent.bold=.F.
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
loChild=Node.Child.FirstSibling
|
||||
For i=1 To Node.children
|
||||
If loChild.children>0
|
||||
loChild.Bold=llChecked
|
||||
This.bifeaza_nod(loChild,llChecked)
|
||||
Endif
|
||||
loChild.checked=llChecked
|
||||
loChild=loChild.Next
|
||||
loProp="this.cnt"+Node.Key
|
||||
&loProp=&loProp+Iif(llChecked,1,-1)
|
||||
Endfor
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE citeste_meniu
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE citeste_noduri
|
||||
Local lcAcces
|
||||
lcAcces=[]
|
||||
For i=1 To This.Nodes.Count
|
||||
If This.Nodes.Item(i).Checked And This.Nodes.Item(i).Children=0
|
||||
lcAcces=lcAcces+This.Nodes.Item(i).Key
|
||||
Endif
|
||||
Endfor
|
||||
Return lcAcces
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE citeste_pageframe
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE curata_tree
|
||||
This.Nodes.Clear
|
||||
This.Refresh()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE initializeaza_tree
|
||||
This.curata_tree()
|
||||
Select v_obiecte
|
||||
Scan
|
||||
lcCheie=Alltrim(cale)
|
||||
lcText=Alltrim(descriere)
|
||||
lnNivel=nivel
|
||||
If nivel=1
|
||||
lcCheie=Strtran(lcCheie,[/],[])
|
||||
This.Nodes.Add(,,lcCheie,lcText)
|
||||
Else
|
||||
lcTata=Strtran(Substr(lcCheie,1,At([/],lcCheie,lnNivel)),[/],[])
|
||||
lcCheie=Strtran(lcCheie,[/],[])
|
||||
This.Nodes.Add(lcTata,4,lcCheie,lcText)
|
||||
Endif
|
||||
lcProp="cnt"+lcCheie
|
||||
This.AddProperty(lcProp,0)
|
||||
Endscan
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE NodeCheck
|
||||
*** ActiveX Control Event ***
|
||||
Lparameters Node
|
||||
Local loNode
|
||||
*!* If aMessagebox("Doriti sa suspendati?",4,"")==6
|
||||
*!* Debug
|
||||
*!* Suspend
|
||||
*!* Endif
|
||||
DoDefault()
|
||||
llChecked=Node.checked
|
||||
If Node.children<>0
|
||||
Node.bold=llChecked
|
||||
Endif
|
||||
loProp="this.cnt"+Node.Key
|
||||
If Isnull(Node.Parent)
|
||||
If Node.children<>0
|
||||
This.bifeaza_nod(Node,llChecked)
|
||||
&loProp=Iif(llChecked,Node.children,0)
|
||||
Endif
|
||||
Else
|
||||
If Node.children<>0
|
||||
This.bifeaza_nod(Node,llChecked)
|
||||
&loProp=Iif(llChecked,Node.children,0)
|
||||
Else
|
||||
&loProp=Iif(llChecked,1,0)
|
||||
Endif
|
||||
loNode=Node
|
||||
lnProp=Iif(llChecked,1,-1)
|
||||
Do While !Isnull(loNode.Parent)
|
||||
loNode=loNode.Parent
|
||||
loProp="this.cnt"+loNode.Key
|
||||
&loProp=&loProp+lnProp
|
||||
Do Case
|
||||
Case &loProp=0
|
||||
loNode.bold=.F.
|
||||
lnProp=Iif(loNode.checked,-1,0)
|
||||
loNode.checked=.F.
|
||||
Case &loProp=loNode.children
|
||||
loNode.checked=.T.
|
||||
loNode.bold=.T.
|
||||
lnProp=1
|
||||
Otherwise
|
||||
lnProp=Iif(loNode.checked,-1,0)
|
||||
loNode.checked=.F.
|
||||
loNode.bold=.T.
|
||||
Endcase
|
||||
Enddo
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
1918
Clase/ostart_util.vc2
Normal file
1918
Clase/ostart_util.vc2
Normal file
File diff suppressed because one or more lines are too long
Reference in New Issue
Block a user