Marius Mutu
b241a639b1
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
959 lines
26 KiB
Plaintext
959 lines
26 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (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
|