romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
75d8ded892af4fe9605d620a242e6b5f9b1ecde9
comun/clase/opersonal.vc2

18628 lines
573 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="opersonal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _container 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="Shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
*<PropValue>
BackStyle = 0
BorderWidth = 0
Height = 35
Name = "_container"
Width = 639
*</PropValue>
ADD OBJECT 'Line1' AS line WITH ;
BorderColor = 99,148,234, ;
Height = 0, ;
Left = 0, ;
Name = "Line1", ;
Top = 0, ;
Width = 541
*< END OBJECT: BaseClass="line" />
ADD OBJECT 'Shape3' AS _shape WITH ;
Anchor = 14, ;
BackColor = 181,198,255, ;
BorderColor = 99,148,234, ;
Curvature = 15, ;
Height = 39, ;
Left = 0, ;
Name = "Shape3", ;
Top = -5, ;
Width = 541
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
PROCEDURE Init
This.Shape3.Width = THis.Width - 1
This.Shape3.Height = THis.Height - 4
ENDPROC
ENDDEFINE
DEFINE CLASS but_noup AS buton OF "_cmd_base.vcx"
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
caction = do_adauga
cpicturedown = nou_jos_dis.bmp
cpictureup = nou_sus_dis.bmp
Name = "but_noup"
Picture = ..\grafice\nou_sus_dis.bmp
ToolTipText = "Adaugare (CTRL+N)"
*</PropValue>
ENDDEFINE
DEFINE CLASS cus_odata_articol AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_articol"
*</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')
lnIdArticol = NVL(ALLTRIM(STR(torec.id_articol)),"")
lnIdConditie = NVL(ALLTRIM(STR(torec.id_conditie)),"")
lnCant = NVL(ALLTRIM(STR(torec.cantitate,10,4)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO necesar_echip (id_articol,id_conditie,cantitate) VALUES (] + lnIdArticol + ;
[,] + lnIdConditie + [,] + lnCant + [)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE necesar_echip SET id_articol = ] + lnIdArticol + ;
[,id_conditie = ] + lnIdConditie + [,cantitate = ] + lnCant + [ where id_nec = ] + lcId
Case lcActiune = "DELETE"
lcSql = [UPDATE necesar_echip set sters = 1 where id_nec = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_atas AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_atas"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
Do Case
Case lcActiune = "DELETE"
lcSql = [UPDATE sal_atasamente set sters = 1 where id_sal_atasamente = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_avize AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_avize"
*</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))
*!* lclook = gcS + ".dev_oper_mecanici"
*!* lclookid = "dev_oper_mecanici.id_mecanic"
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcAviz = Nvl(ALLTRIM(toRec.aviz),"")
lcData1 = NVL(ALLTRIM(DTOS(torec.data1)),"")
lcData2 = NVL(ALLTRIM(DTOS(torec.data2)),"")
lcIdP = Nvl(ALLTRIM(STR(toRec.id_persoana)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_avize (aviz,data1,data2,id_persoana) VALUES ('];
+ lcAviz + [',to_date('] + lcData1 + [','YYYYMMDD'),to_date('] + lcData2 + [','YYYYMMDD'),]+lcIdp+[)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_avize SET ]+;
[aviz='] + lcAviz + [',data1 = to_date('] + lcData1 + [','YYYYMMDD')]+;
[,data2 =to_date('] + lcData2 + [','YYYYMMDD')]+;
[,id_persoana = ]+ lcIdp +;
[ where id_aviz = ] + lcId
Case lcActiune = "DELETE"
lcSql = [update sal_avize set sters=1 where id_aviz =]+lcid
*lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
*!* lcSql = [delete from ] + gcS + [.sal_centralizator WHERE id_centralizator = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_bazacm AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_bazacm"
*</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))
*!* lclook = gcS + ".dev_oper_mecanici"
*!* lclookid = "dev_oper_mecanici.id_mecanic"
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcLuna = Nvl(ALLTRIM(str(toRec.luna)),"0")
lcAn = Nvl(ALLTRIM(str(toRec.an)),"0")
lcBazacalcul = Nvl(Alltrim(Str(toRec.bazacalcul)),"0")
lcZilelucr = Nvl(Alltrim(Str(toRec.zilelucr)),"0")
lcId_stat = Nvl(Alltrim(Str(toRec.id_stat)),"0")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_baze_cm (an,luna,bazacalcul,zilelucr,id_stat) VALUES (];
+ lcAn + [,] + lcLuna + [,]+lcBazacalcul+[,]+lcZIlelucr + [,]+lcid_stat +[)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_baze_cm SET ]+;
[an=] + lcAn+ [,luna = ]+ lcLuna +;
[,Bazacalcul =]+lcBazaCalcul+;
[,zilelucr = ]+ lcZilelucr +;
[ where id_bazacm = ] + lcId
Case lcActiune = "DELETE"
lcSql = [update sal_baze_cm set sters=1 where id_bazacm =]+lcid
*lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
*!* lcSql = [delete from ] + gcS + [.sal_centralizator WHERE id_centralizator = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_completeznrdata112 AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_completeznrdata112"
*</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))
lcnom = gcS + ".sal_calendar"
lcamp = "id_calendar"
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcnrdata112 = NVL(ALLTRIM(torec.nrdata112),"")
Endif
Do Case
Case lcActiune = "INSERT"
*!* lcSql = [INSERT INTO SAL_NOM_ACTE (nume_act) VALUES ('];
*!* + lcnumeact + [')]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_calendar SET nrdata112 = '] + lcnrdata112 + ;
[' where id_calendar = ] + lcId
Case lcActiune = "DELETE"
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_cond AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_cond"
*</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')
lcDenumire = NVL(UPPER(ALLTRIM(torec.denumire)),"")
lcConditie = NVL(UPPER(ALLTRIM(torec.conditie)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO nom_conditii_echip (denumire,conditie) VALUES ('] + lcDenumire + ;
[','] + lcConditie + [')]
Case lcActiune = "UPDATE"
lcSql = [UPDATE nom_conditii_echip SET denumire = '] + lcDenumire + [',conditie = '] + lcConditie + ;
[' where id_conditie = ] + lcId
Case lcActiune = "DELETE"
lcSql = [begin pack_personal.sterge_conditie(] + lcId + [); end;]
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_curs AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_curs"
*</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')
lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
lcNota = NVL(UPPER(ALLTRIM(torec.nota)),"")
lcTest = NVL(UPPER(ALLTRIM(torec.test)),"")
lnIdCurs = Nvl(ALLTRIM(STR(toRec.id_c)),"")
ldData = NVL(ALLTRIM(DTOS(torec.data)),"")
*!* lData = torec.data
*!* lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_cursuri (id_c,id_persoana,nota,test,data) VALUES (] + lnIdCurs + ;
[,] + lnIdPers + [,'] + lcNota+ [','] + lcTest + [',to_date('] + ldData + [','YYYYMMDD'))]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_cursuri SET id_c = ] + lnIdCurs + [,id_persoana = ] + lnIdPers + ;
[,nota = '] + lcNota + [',test = '] + lcTest + [',data = to_date('] + ldData + [','YYYYMMDD')] + ;
[ where id_curs = ] + lcId
Case lcActiune = "DELETE"
lcSql = [UPDATE ] + gcs + [.sal_cursuri set sters = 1 where id_curs = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_echip AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_echip"
*</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')
lnIdPart = NVL(ALLTRIM(STR(torec.id_part)),"")
lcNumar = NVL(UPPER(ALLTRIM(torec.numar)),"")
lnidArt = Nvl(ALLTRIM(STR(toRec.id_articol)),"")
*!* lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_echip (id_articol,numar,id_part) VALUES (] + lnidArt + ;
[,'] + lcNumar + [',] + lnIdPart + [)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_echip SET id_articol = ] + lnidArt + [,id_part = ] + lnIdPart + ;
[,numar = '] + lcNumar + [' where id_echip = ] + lcId
Case lcActiune = "DELETE"
lcSql = [UPDATE sal_echip set sters = 1 where id_echip = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_fam AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_fam"
*</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))
lcnom = gcS + ".sal_copii"
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcNume = NVL(UPPER(ALLTRIM(torec.nume)),"")
lcPrenume = NVL(UPPER(ALLTRIM(torec.prenume)),"")
lnCnp = Nvl(ALLTRIM(STR(toRec.codpers,13)),"")
lnIdP = Nvl(ALLTRIM(STR(toRec.id_persoana)),"")
ldDataNast = NVL(ALLTRIM(DTOS(torec.datanast)),"")
*!* lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_copii (nume,prenume,codpers,id_persoana,datanast) VALUES ('] + lcNume+ [','] + lcPrenume + ;
[',] + lnCnp + [,] + lnIdP + [,to_date('] + ldDatanast + [','YYYYMMDD'))]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_copii SET nume = '] +lcNume + [',prenume ='] + lcPrenume + ;
[',codpers = ] + lnCnp + [,datanast = to_date('] + ldDatanast + [','YYYYMMDD') where id_copil = ] + lcId
Case lcActiune = "DELETE"
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
lcSql = [UPDATE sal_copii set sters = 1 where id_copil = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_intret AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_intret"
*</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))
lcnom = gcS + ".sal_persintret"
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcNume = NVL(UPPER(ALLTRIM(torec.nume)),"")
lcPrenume = NVL(UPPER(ALLTRIM(torec.prenume)),"")
lnCnp = Nvl(ALLTRIM(STR(toRec.codpers,13)),"")
lnIdD= Nvl(ALLTRIM(STR(toRec.id_deducere)),"")
lnIdH = NVL(ALLTRIM(STR(toRec.id_handicap)),"")
lnIdStat = NVL(ALLTRIM(STR(toRec.id_stat)),"")
*!* lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_persintret (nume,prenume,codpers,id_deducere,id_handicap,id_stat) VALUES ('] + lcNume+ [','] + lcPrenume + ;
[',] + lnCnp + [,] + lnIdD + [,] + lnIdH + [,] + lnIdStat +[)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_persintret SET nume = '] +lcNume + [',prenume ='] + lcPrenume + ;
[',codpers = ] + lnCnp + [,id_deducere = ] + lnIdD + [,id_handicap = ] + lnIdH + ;
[,id_stat = ] + lnIdStat + [ where id_pers = ] + lcId
Case lcActiune = "DELETE"
*!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
lcSql = [UPDATE sal_persintret SET STERS = 1 WHERE id_pers = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_limbi AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_limbi"
*</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))
*!* lcnom = gcS + ".sal_copii"
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
lcNota = NVL(UPPER(ALLTRIM(torec.nota)),"")
lnIdLimba = Nvl(ALLTRIM(STR(toRec.id_limba)),"")
*!* lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_limbistr (nota,id_persoana,id_limba) VALUES ('] + lcNota+ [',] + ;
lnIdPers + [,] + lnIdLimba + [)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_limbistr SET nota = '] +lcNota + [',id_limba =] + lnIdLimba + ;
[ where id_str = ] + lcId
Case lcActiune = "DELETE"
lcSql = [UPDATE sal_limbistr set sters = 1 where id_str = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_nom_acte AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_nom_acte"
*</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))
lcnom = gcS + ".sal_nom_acte"
lcamp = "id_act"
lclook = gcS + ".sal_nom_col_acte"
lclookid = "id_act"
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcnumeact = NVL(ALLTRIM(torec.nume_act),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO SAL_NOM_ACTE (nume_act) VALUES ('];
+ lcnumeact + [')]
Case lcActiune = "UPDATE"
lcSql = [UPDATE SAL_NOM_ACTE SET nume_act = '] + lcnumeact + ;
[' where id_act = ] + lcId
Case lcActiune = "DELETE"
lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_opers AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_opers"
*</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))
*!* lcnom = "sal_personal"
*!* lcamp = "id_salariat"
*!* lcLookUp = "SAL_STAT.id_persoana,1"
Endif
SET STEP ON
If Inlist(lcActiune, "UPDATE",'INSERT')
lcnume = Nvl(Strtran(Alltrim(Upper(popers.nume)),['],['']),"")
lcprenume = Nvl(Strtran(Alltrim(Upper(popers.prenume)),['],['']),"")
lnmarca = Nvl(Alltrim(Str(popers.marca)),"null")
lnCnp = Nvl(Alltrim(popers.codpers),"null")
lcNastere = Nvl(Strtran(Alltrim(Upper(popers.locnastere)),['],['']),"")
lcid_Cetatenie = Nvl(Alltrim(Str(popers.id_cetatenie)),'1')
lcid_nationalitate = Nvl(Alltrim(Str(popers.id_nationalit)),'1')
lcBiSeriaNr = Nvl(Strtran(Alltrim(Upper(popers.biserianr)),['],['']),"")
lcBiElib = Nvl(Strtran(Alltrim(Upper(popers.bieliberat)),['],['']),"")
ldData = Nvl(Alltrim(Dtos(popers.bidata)),"")
lcid_Judet = Nvl(Strtran(Alltrim(Str(popers.id_judet)),['],['']),"null")
lnSector = Nvl(Alltrim(Str(popers.sector)),"null")
lcid_Loc = Iif(Empty(popers.id_loc),'null',Nvl(Strtran(Alltrim(Upper(Str(popers.id_loc))),['],['']),"null"))
lcStrada = Nvl(Strtran(Alltrim(Upper(popers.strada)),['],['']),"")
lcNumar = Nvl(Strtran(Alltrim(Upper(popers.numar)),['],['']),"")
lcBloc = Nvl(Strtran(Alltrim(Upper(popers.Bloc)),['],['']),"")
lcScara = Nvl(Strtran(Alltrim(Upper(popers.scara)),['],['']),"")
lnEtaj = Nvl(Alltrim(popers.etaj),'')
lnApart = Nvl(Alltrim(popers.apart),'')
lcCodP = Nvl(Alltrim(Str(popers.codpostal)),"null")
lcSitmil = Nvl(Strtran(Alltrim(popers.sitmil),['],['']),"")
lcLivretMil = Nvl(Strtran(Alltrim(popers.livretmil),['],['']),"")
lcspecmil = Nvl(Strtran(Alltrim(Upper(popers.specmil)),['],['']),"")
lcgradmil = Nvl(Strtran(Alltrim(Upper(popers.gradmil)),['],['']),"")
lnstareciv = Alltrim(Str(NVL(popers.stareciv,0)))
lcnumetata = Nvl(Strtran(Alltrim(Upper(popers.numetata)),['],['']),"")
lcnumesot = Nvl(Strtran(Alltrim(Upper(popers.numesot)),['],['']),"")
lcnumemama = Nvl(Strtran(Alltrim(Upper(popers.numemama)),['],['']),"")
ldDataang = Nvl(Alltrim(Dtos(popers.dataang)),"")
ldDatasfctr = Nvl(Alltrim(Dtos(popers.datasfctr)),"")
lnIdTipCtr = Alltrim(Str(NVL(popers.id_tipctr,0)))
lnIdMeseria = Alltrim(Str(NVL(popers.id_meserie,0)))
lnIdFormatia = Alltrim(Str(NVL(popers.id_formatie,0)))
lnIdGrupaMun = Alltrim(Str(NVL(popers.id_cas,0)))
lnIdClasaSal = Alltrim(Str(NVL(popers.id_clasasal,0)))
lnTarifar = Alltrim(Str(NVL(popers.tarifar,0)))
lnIdHandicap = Alltrim(Str(NVL(popers.id_handicap,0)))
lnPLCas = Alltrim(Str(NVL(popers.plcas,0)))
lnPLSomaj = Alltrim(Str(NVL(popers.plsomaj,0)))
lnPensionar = Alltrim(Str(NVL(popers.pensionar,0)))
lnPLImpozit = Alltrim(Str(NVL(popers.plimpozit,0)))
lnFractie = Iif(Empty(NVL(popers.fractie,0)),'8',Alltrim(Str(popers.fractie)))
lnOrenorm = Alltrim(Str(NVL(popers.orenorm,0)))
lnFunctieBaza = Alltrim(Str(NVL(popers.functiebaza,0)))
ldDatalic = Nvl(Alltrim(Dtos(popers.datalic)),"")
lcCmseria = Nvl(Strtran(Alltrim(popers.cmseria),['],['']),"")
lcCmNr = Nvl(Strtran(Alltrim(popers.cmnr),['],['']),"")
*!* lcNrCtrM = Alltrim(Str(NVL(popers.nrctrmchr,null)))
lcNrCtrM = Iif(Empty(NVL(popers.nrctrmchr,'')),'null',[']+Strtran(Alltrim(Upper(popers.nrctrmchr)),['],[''])+['])
lcDatactrM = Nvl(Alltrim(Dtos(popers.datactrM)),"")
lcNrCtr = Alltrim(Str(NVL(popers.nrctr,0)))
lcDatactr = Nvl(Alltrim(Dtos(popers.datactr)),"")
lnIdCasaasig = Alltrim(Str(NVL(popers.id_caseasig,0)))
lnIdStat = Alltrim(Str(NVL(popers.id_stat,0)))
lnIdProfesie = Nvl(Alltrim(Str(popers.id_profesie)),'NULL')
ldData_vech = Nvl(Alltrim(Dtos(popers.data_vech)),"")
lnVechimeI = Nvl(Alltrim(Str(popers.vechimei)),'0')
lnVechime = Nvl(Alltrim(Str(popers.vechime)),'0')
lcModIncadr = Nvl(Strtran(Alltrim(popers.modincadr),['],['']),"")
lcIban = Nvl(Strtran(Alltrim(popers.contiban),['],['']),"")
lnIdBanca = Nvl(Alltrim(Str(popers.id_banca)),'NULL')
lnc_vechime = Nvl(Alltrim(Str(popers.c_vechime,5,3)),'0')
lnIn_tura = Nvl(Alltrim(Str(popers.in_tura)),'0')
lnId_part = Iif(Empty(popers.id_part),'null',Nvl(Strtran(Alltrim(Upper(Str(popers.id_part))),['],['']),"null"))
lnid_modlic = Iif(Empty(popers.id_modlic),'null',Nvl(Strtran(Alltrim(Upper(Str(popers.id_modlic))),['],['']),"null"))
lcmotivLic = Nvl(Strtran(Alltrim(Upper(popers.motivlic)),['],['']),"")
lcId_tip_act = Nvl(Alltrim(Str(popers.id_tip_act)),'0')
lcElev = Nvl(Alltrim(Str(popers.elev)),'0')
lczilecofix = NVL(ALLTRIM(STR(popers.zilecofix)),'0')
lcSomajTehnic = NVL(ALLTRIM(STR(popers.somaj_tehnic)),'0')
lcDataST1= Nvl(Alltrim(Dtos(popers.datast1)),"")
lcDataST2= Nvl(Alltrim(Dtos(popers.datast2)),"")
*!* modificare v 2.0.0
lcStare = ALLTRIM(STR(popers.stare_contract))
lcStarePrec = ALLTRIM(STR(popers.stare_contract_prec))
lcDataInceputS = NVL(ALLTRIM(DTOS(popers.datainceputs)),"")
lcDataSfarsitS = NVL(ALLTRIM(DTOS(popers.datasfarsits)),"")
lcIdPartS = NVL(ALLTRIM(STR(popers.id_parts)),"NULL")
lcIdTaraS = NVL(ALLTRIM(STR(popers.id_taras)),"NULL")
lcIdTemeiS = NVL(ALLTRIM(STR(popers.id_temeis)),"NULL")
lcIdTipAutorizatie = IIF(EMPTY(NVL(popers.id_tipautorizatie,0)),"NULL",ALLTRIM(STR(popers.id_tipautorizatie)))
lcDataIAutorizatie = NVL(ALLTRIM(DTOS(popers.datainceputautorizatie)),"")
lcDataSAutorizatie = NVL(ALLTRIM(DTOS(popers.datasfarsitautorizatie)),"")
*!* modificare v 2.0.0 ^
*!* modificare ROARES v 2.0.4
lcTipModificare = ALLTRIM(STR(popers.tip_modificare))
lcDataConsemnare = NVL(ALLTRIM(DTOS(popers.dataconsemnare)),"")
*!* modificare ROARES v 2.0.4 ^
*!* modificare ROARES v 2.0.6
lcIdStareCtr = NVL(ALLTRIM(STR(popers.id_stare_ctr)),"NULL")
*!* modificare ROARES v 2.0.6 ^
*!* modificare ROARES v 2.0.8
lcIdTipNorma = ALLTRIM(STR(popers.id_tip_norma))
lcIdDurataMunca = ALLTRIM(STR(popers.id_durata_munca))
lcIdRepartizareMunca = ALLTRIM(STR(popers.id_repartizare_munca))
lcIdIntervalMunca = IIF(EMPTY(NVL(popers.id_interval_munca,0)),[NULL],ALLTRIM(STR(popers.id_interval_munca)))
*!* modificare ROARES v 2.0.8 ^
lcIdSalCtr = Iif(Empty(Nvl(popers.id_sal_ctr,0)),[NULL],Alltrim(Str(popers.id_sal_ctr))) && modificare ROARES v 2.0.11
lcDataactmodif = NVL(ALLTRIM(DTOS(popers.dataactmodif)),"")
lcId_tipact = ALLTRIM(STR(popers.id_tipact))
lcNrActModif = ALLTRIM(STR(popers.nractmodif))
lcIdTipApatrid = IIF(EMPTY(NVL(popers.id_tipapatrid,0)),"0",ALLTRIM(STR(popers.id_tipapatrid)))
lcCassalmin = Nvl(Alltrim(Str(popers.cassalmin)),'0')
lcoug114 = NVL(ALLTRIM(STR(IIF(popers.oug114>0,popers.oug114-1,0))),'1')
lcStudiiSup = Nvl(Alltrim(Str(popers.studiisup)),'0')
&&sc_general,sc_prof,licprofil,licspec,sc_maistri,sc_post,specializare
lcSc_general = IIF(EMPTY(NVL(popers.sc_general,'')),'null',[']+ALLTRIM(popers.sc_general)+['])
lcsc_prof = IIF(EMPTY(NVL(popers.sc_prof,'')),'null',[']+ALLTRIM(popers.sc_prof)+['])
lclicprofil = IIF(EMPTY(NVL(popers.licprofil,'')),'null',[']+ALLTRIM(popers.licprofil)+['])
lclicspec = IIF(EMPTY(NVL(popers.licspec,'')),'null',[']+ALLTRIM(popers.licspec)+['])
lcsc_maistri = IIF(EMPTY(NVL(popers.sc_maistri,'')),'null',[']+ALLTRIM(popers.sc_maistri)+['])
lcsc_post = IIF(EMPTY(NVL(popers.sc_post,'')),'null',[']+ALLTRIM(popers.sc_post)+['])
lcspecializare = IIF(EMPTY(NVL(popers.specializare,'')),'null',[']+ALLTRIM(popers.specializare)+['])
lcCodAcc = IIF(EMPTY(NVL(popers.codacc,'')),'null',[']+ALLTRIM(popers.codacc)+['])
lcTelefon = IIF(EMPTY(NVL(popers.telefon,'')),'null',[']+ALLTRIM(popers.telefon)+['])
lcCodCod = IIF(EMPTY(NVL(popers.codcod,'')),'null',[']+ALLTRIM(popers.codcod)+['])
Endif
Do Case
Case lcActiune = "INSERT"
*!* lcSql = [begin pack_roares.res_adauga_personal(?gcs,?lcnume,?lcprenume,?lnmarca,?lnCnp,?lcJudet,?lcLocalitate,] + ;
*!* [?lnSector,?lcStrada,?lcNumar,?lcBloc,?lcScara,?lnEtaj,?lnApart,?lcCmSeria,?lcCmNr,?lcNastere,?lcNationalit,] + ;
*!* [?lcCetatenie,?lcBiSeria,?lnBiNr?lcBiElib,?ldData,?lcSitMil,?lcLivretMil); end;]
lcSql = [begin pack_PERSONAL.res_adauga_personal2('] + gcs + [','] + ;
lcnume + [','] + lcprenume + [',] + lnmarca + [,'] + lnCnp + [','] + lcNastere + [',] + ;
lcid_Cetatenie + [,] + lcid_nationalitate + [,'] + lcBiSeriaNr + [','] + ;
lcBiElib + [',to_date('] + ldData + [','YYYYMMDD'),] + lcid_Judet + [,] + lnSector + [,] +lcid_Loc+ [,'] + ;
lcStrada + [','] + lcNumar + [','] + lcBloc + [','] + lcScara + [','] + ;
lnEtaj + [','] + lnApart + [',] + lcCodP + [,'] + lcSitmil + [','] + lcLivretMil + [','] + lcspecmil + [','] + ;
lcgradmil + [',] + lnstareciv + [,'] + lcnumetata + [','] + lcnumesot + [','] + lcnumemama + ;
[',to_date('] + ldDataang + [','YYYYMMDD'),to_date('] + ldDatasfctr + [','YYYYMMDD'),] + ;
lnIdTipCtr + [,] + lnIdMeseria + [,] + lnIdFormatia + [,] + lnIdGrupaMun + [,] + lnIdClasaSal + [,] + ;
lnTarifar + [,] + lnIdHandicap + [,] + lnPLCas + [,] + lnPLSomaj + [,] + lnPensionar + [,] + ;
lnPLImpozit + [,] + lnFractie + [,] + lnOrenorm + [,] + lnFunctieBaza + [,to_date(']+ldDatalic+[','YYYYMMDD'),']+;
lcCmseria + [','] + lcCmNr +[',] + lcNrCtrM + [,to_date(']+lcDatactrM +[','YYYYMMDD'),]+lcNrCtr+[,to_date(']+lcDatactr +[','YYYYMMDD'),]+;
lnIdCasaasig + [,] + lnIdProfesie + [,to_date('] + ldData_vech + [','YYYYMMDD'),] + lnVechimeI + [,'] + ;
lcModIncadr + [','] + lcIban + [',] + lnVechime + [,] + lnIdBanca + [,]+lnc_vechime +[,]+lnIn_tura +;
[,] + lnid_modlic + [,'] +lcmotivLic+ [',] + lcId_tip_act + [,] + lnId_part +[,]+lcElev+ [,]+lczilecofix +;
[,]+lcSomajTehnic +[,to_date(']+lcDataST1+[','YYYYMMDD'), TO_DATE(']+lcDataST2+[','YYYYMMDD'),]+;
lcStare + [,] + lcStarePrec + [,to_date('] + lcDataInceputS + [','YYYYMMDD'),to_date('] + lcDataSfarsitS + [','YYYYMMDD'),] + ;
lcIdPartS + [,] + lcIdTaraS + [,] + lcIdTemeiS + [,] + lcIdTipAutorizatie + [,] + ;
[to_date('] + lcDataIAutorizatie + [','YYYYMMDD'), TO_DATE('] + lcDataSAutorizatie + [','YYYYMMDD'),] + ;
lcIdTipNorma + [,] + lcIdDurataMunca + [,] + lcIdRepartizareMunca + [,] + lcIdIntervalMunca + [,] + lcIdSalCtr + [,] + ;
lcTipModificare + [,to_date('] + lcDataConsemnare + [','YYYYMMDD'),]+;
lcNrActModif +[,to_date('] + lcDataactmodif + [','YYYYMMDD'),]+lcId_tipact +[,]+lcIdTipApatrid +[,]+lccassalmin+[,]+lcOug114+[,]+lcStudiiSup +;
[,]+lcsc_general+[,]+lcsc_prof+[,]+lclicprofil+[,]+lclicspec+[,]+lcsc_maistri+[,]+lcsc_post+[,]+lcspecializare+[,]+lcCodAcc +[,]+lcTelefon + [,]+lcCodCod +[); end;]
Case lcActiune = "UPDATE"
SET STEP ON
lcSql = [begin pack_PERSONAL.res_modifica_personal2('] + gcs + [','] + ;
lcnume + [','] + lcprenume + [',] + lnmarca + [,'] + lnCnp + [','] + lcNastere + [',] + ;
lcid_Cetatenie + [,] + lcid_nationalitate + [,'] + lcBiSeriaNr + [','] + ;
lcBiElib + [',to_date('] + ldData + [','YYYYMMDD'),] + lcid_Judet + [,] + lnSector + [,] +lcid_Loc+ [,'] + ;
lcStrada + [','] + lcNumar + [','] + lcBloc + [','] + lcScara + [','] + ;
lnEtaj + [','] + lnApart + [',] + lcCodP + [,'] + lcSitmil + [','] + lcLivretMil + [','] + lcspecmil + [','] + ;
lcgradmil + [',] + lnstareciv + [,'] + lcnumetata + [','] + lcnumesot + [','] + lcnumemama + ;
[',to_date('] + ldDataang + [','YYYYMMDD'),to_date('] + ldDatasfctr + [','YYYYMMDD'),] + ;
lnIdTipCtr + [,] + lnIdMeseria + [,] + lnIdFormatia + [,] + lnIdGrupaMun + [,] + lnIdClasaSal + [,] + ;
lnTarifar + [,] + lnIdHandicap + [,] + lnPLCas + [,] + lnPLSomaj + [,] + lnPensionar + [,] + ;
lnPLImpozit + [,] + lnFractie + [,] + lnOrenorm + [,] + lnFunctieBaza + [,to_date(']+ldDatalic+[','YYYYMMDD'),']+;
lcCmseria + [','] + lcCmNr +[',] + lcNrCtrM + [,to_date(']+lcDatactrM +[','YYYYMMDD'),]+lcNrCtr+[,to_date(']+lcDatactr +[','YYYYMMDD'),]+;
lnIdCasaasig + [,] + lcId + [,] + lnIdStat + [,] + lnIdProfesie + [,to_date(']+ldData_vech +[','YYYYMMDD'),] + ;
lnVechimeI + [,'] + lcModIncadr + [','] + lcIban + [',] + lnVechime + [,] + lnIdBanca + ;
[,]+lnc_vechime +[,]+lnIn_tura +[,] + lnid_modlic + [,'] + lcmotivLic + [',] + lcId_tip_act + [,] + lnId_part+[,]+lcElev+ [,]+lczilecofix +;
[,]+lcSomajTehnic +[,to_date(']+lcDataST1+[','YYYYMMDD'), TO_DATE(']+lcDataST2+[','YYYYMMDD'),]+;
lcStare + [,] + lcStarePrec + [,to_date('] + lcDataInceputS + [','YYYYMMDD'),to_date('] + lcDataSfarsitS + [','YYYYMMDD'),] + ;
lcIdPartS + [,] + lcIdTaraS + [,] + lcIdTemeiS + [,] + lcIdTipAutorizatie + [,] + ;
[to_date('] + lcDataIAutorizatie + [','YYYYMMDD'), TO_DATE('] + lcDataSAutorizatie + [','YYYYMMDD'),] + ;
lcIdTipNorma + [,] + lcIdDurataMunca + [,] + lcIdRepartizareMunca + [,] + lcIdIntervalMunca + [,] + lcIdSalCtr + [,] + ;
lcTipModificare + [,to_date('] + lcDataConsemnare + [','YYYYMMDD'),] + lcIdStareCtr +[,]+;
lcNrActModif +[,to_date('] + lcDataactmodif + [','YYYYMMDD'),]+lcId_tipact + [,]+lcIdTipApatrid +[,]+lccassalmin+[,]+lcOug114+[,]+lcStudiiSup +;
[,]+lcsc_general+[,]+lcsc_prof+[,]+lclicprofil+[,]+lclicspec+[,]+lcsc_maistri+[,]+lcsc_post+[,]+lcspecializare+[,]+lcCodAcc +[,]+lcTelefon +[,]+lcCodCod + [); end;]
Local lnTipModif,lcoperatie
lnTipModif = This.Parent.opt_registru &&1-Modificare;2-Corectie;3-Nu scrie
If lnTipModif <> 3 AND gnEvaluareRevisal5 = 1
Local i
i=0
Select * From registru_temp Into Cursor registru_modificari Order By ordine
*!* Use In registru_temp : in caz ca imi da eroare, am nevoie de cursor in fereastra de personal
Select registru_modificari
Scan
i=i+1
lnIdCriteriu = Nvl(id_criteriu,1)
lcIdCriteriu = Nvl(Alltrim(Str(id_criteriu)),'0')
lnid_modlic = Nvl(Alltrim(Str(id_modlic)),'0')
lnid_temei = Nvl(Alltrim(Str(id_temei)),'0')
lcDataMod = Nvl(Alltrim(Dtos(datamod)),"")
lcExplicatie = Nvl(Strtran(Alltrim(Upper(Explicatie)),['],['']),"")
lcTipOperatie = Nvl(Strtran(Alltrim(Upper(tip_operatie)),['],['']),"")
taSqlReg[i] = [begin pack_PERSONAL.registru_ams('] + gcs + [','] + ;
lcnume + [','] + lcprenume + [',] + lcid_Cetatenie + [,] + lcid_nationalitate + [,'] + lnCnp + [',']+;
lcCmseria + [','] + lcCmNr +[',] + lcid_Loc + [,'] + lcStrada + [','] + lcNumar + [','] + lcBloc + [','] + ;
lcScara + [','] + lnEtaj + [','] + lnApart + [',] + lnIdMeseria + [,to_date(']+ldDatalic+[','YYYYMMDD'),]+;
[to_date('] + ldDatasfctr + [','YYYYMMDD'),] + lnFractie + [,] + lnOrenorm + [,] + lnIdTipCtr + [,] + lcNrCtr+ ;
[,to_date('] + lcDataCtr + [','YYYYMMDD'),to_date('] + ldDataang + [','YYYYMMDD'),] + lcNrCtrM + [,to_date(']+lcDatactrM +[','YYYYMMDD'),'] + lcExplicatie+;
[',] + lcIdCriteriu + [,] + lnid_modlic + [,] + lnid_temei + [,to_date(']+lcDataMod +[','YYYYMMDD'),'] +;
lcExplicatie + [',] + lnIdStat + [,'] + lcTipOperatie + ['); end;]
*!* STRTOFILE(TASQLREG[i],'C:\REG_AMS1.TXT',1)
Select registru_modificari
Endscan
*!* RETURN
Use In registru_modificari
Endif
Case lcActiune = "DELETE"
lnIdPers = Nvl(Alltrim(Str(popers.id_salariat)),'0')
ldDatalic = Nvl(Alltrim(Dtos(popers.datalic)),"")
*!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid
*!* lcSql = [begin nomdelprocs('] + gcs + [','] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclookUp + ['); end;]
lcSql = [begin pack_personal.res_sterge('] + gcs + [',] + lnIdPers + [,] + lcId + [,to_date('] + ldDatalic + [','YYYYMMDD')); end;]
Endcase
This.csql = lcSql
ENDPROC
PROCEDURE salvare
Lparameters toRec,tnId
Private llSucces, lnSucces, buton
buton = 0
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
lcimagine = [intreb.ico]
lctip = [Intrebare]
ofrm_intreb = CREATEOBJECT('frm_mesaj',lctitlu,lcimagine,lctip,lcmesaj)
ofrm_intreb.show(1)
RELEASE ofrm_intreb
IF buton = 1
PNIESIRE=1
gnButon = 1
If This.validare()
This.make_sql(toRec,tnId)
lcSql = Alltrim(This.csql)
llConditie = 'INSERT'$UPPER(lcSql) Or 'UPDATE'$UPPER(lcSql) Or 'DELETE'$UPPER(lcSql) Or 'BEGIN'$UPPER(lcSql)
If llConditie
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
lcTextEroare = goExecutor.cEroare
IF LIKE('*ORA-20???:*',lcTextEroare)
lnPozi=At("ORA-20",lcTextEroare)+11
lnPozf=At("ORA",lcTextEroare,2)
lcTextEroare=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
*!* ELSE
*!* lnPozf=At("ORA-",lcTextEroare,3)
*!* lcTextEroare=Substr(lcTextEroare,1,lnPozf-1)+[...]
ENDIF
*!* Case "ORA-20000"$lcTextEroare
*!* lnPozi=At("ORA-20000",lcTextEroare)+11
*!* lnPozf=At("ORA",lcTextEroare,2)
*!* lcMesaj=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
*!* lcTitlu="Eroare"
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
lcimagine = [info_c.ico]
lctip = [Informare]
*!* ofrm_info = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
*!* ofrm_info.show(1)
*!* RELEASE ofrm_info
AMESSAGE(lcMesaj,0+16,lcTip)
*Messagebox(lcMesaj,0+48,lcTitlu)
llSucces = .F.
ELSE
IF lcActiune = "UPDATE"
FOR i=1 TO ALEN(taSqlReg)
IF !EMPTY(taSqlReg[i])
lnSucces = goExecutor.oExecute(taSqlReg[i])
taSqlReg[i]=.f.
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
ENDIF
ENDIF
ENDFOR
ENDIF
Endif
If lnSucces >=1 And lcActiune = "DELETE"
lcTitlu = "Stergere"
lctip = [Informare]
lcimagine = [info_c.ico]
lcMesaj = "Inregistrarea a fost stearsa."
*!* ofrm_mesaj = CREATEOBJECT([frm_mesaj],lcTitlu,lcimagine,lctip,lcMesaj)
*!* ofrm_mesaj.show(1)
*!* RELEASE ofrm_mesaj
AMESSAGE(lcMesaj,0+48,lcTip)
*Messagebox(lcMesaj,0+64,lcTitlu)
Endif
Endif
Endif
Else
PNIESIRE = 2
gnButon = 2
Endif
Return llSucces
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_stud AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_stud"
*</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')
lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
lcScoala = NVL(UPPER(ALLTRIM(torec.scoala)),"")
lcDetalii = NVL(UPPER(ALLTRIM(torec.detalii)),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO sal_studii (id_persoana,scoala,detalii) VALUES (] + lnIdPers + [,'] + lcScoala + ;
[','] + lcDetalii + [')]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_studii SET id_persoana = ] + lnIdPers + ;
[,scoala = '] + lcScoala + [',detalii = '] + lcDetalii + ;
[' where id_studiu = ] + lcId
Case lcActiune = "DELETE"
lcSql = [UPDATE sal_studii set sters = 1 where id_studiu = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_vech AS _cusodatabase OF "_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_vech"
*</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')
*!* lnIdPers = NVL(ALLTRIM(STR(torec.id_persoana)),"")
lcMod = NVL(UPPER(ALLTRIM(torec.modincadr)),"")
lcVech = NVL(ALLTRIM(STR(torec.vechimei)),"")
ldData = NVL(ALLTRIM(DTOS(torec.data_vech)),"")
*!* lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"")
Endif
Do Case
Case lcActiune = "INSERT"
*!* lcSql = [INSERT INTO ] + gcS + [.sal_cursuri (id_c,id_persoana,nota,test,data) VALUES (] + lnIdCurs + ;
*!* [,] + lnIdPers + [,'] + lcNota+ [','] + lcTest + [',to_date('] + ldData + [','YYYYMMDD'))]
Case lcActiune = "UPDATE"
lcSql = [UPDATE sal_personal SET vechimei = ] + lcVech + [,modincadr = '] + lcMod + ;
[',data_vech = to_date('] + ldData + [','YYYYMMDD')] + ;
[ where id_salariat = ] + lcId
Case lcActiune = "DELETE"
*!* lcSql = [UPDATE ] + gcs + [.sal_cursuri set sters = 1 where id_curs = ] + lcId
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS frm_articole_nou AS frm_termin_renunt OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="CUS_ODATA_ARTICOL1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_articol
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 104
Name = "frm_articole_nou"
nid = 0
orec =
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 312
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Articole"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
Gridsort1.Left = 9
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 31
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 4
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 2, ;
Top = 65, ;
Width = 175, ;
TEXT_SIMPLU1.ControlSource = "porec.cantitate", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 101, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 67, ;
LB_SIMPLU1.Caption = "Canntitate :", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
cconditie = empty(porec.id_articol), ;
cprocedura = thisform.do_alege_articol, ;
cvar_afisata = porec.articol, ;
Left = 12, ;
Name = "Ct_clb_cautare1", ;
TabIndex = 1, ;
Top = 36, ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Articol", ;
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
clb_tx_cautare.Name = "clb_tx_cautare", ;
clb_tx_cautare.Text_simplu1.ControlSource = "", ;
clb_tx_cautare.Text_simplu1.Height = 23, ;
clb_tx_cautare.Text_simplu1.Left = 102, ;
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
clb_tx_cautare.Text_simplu1.Top = 3, ;
clb_tx_cautare.Text_simplu1.Width = 205
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'CUS_ODATA_ARTICOL1' AS cus_odata_articol WITH ;
Left = 72, ;
Name = "CUS_ODATA_ARTICOL1", ;
Top = 12
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE do_alege_articol
*!* pcselect = [select id_articol,denumire,codmat from vnom_articole]
*!* pcFiltruOriginal=[inactiv=0]
*!* pcfiltru = [1=2]
*!* pcorder = [denumire]
*!* pccoloane = [denumire,codmat,id_articol]
*!* pcTitlu = [Articole]
*!* pcTitluColoane = [Denumire,Cod material,Id]
*!* loHash=gethash()
*!* loHash.setvalue('cSelect',pcselect)
*!* loHash.setvalue('cFiltru',pcfiltru)
*!* loHash.setvalue('cOrder',pcorder)
*!* loHash.setvalue('cColoana',pccoloane)
*!* loHash.setvalue('cTitlu',pcTitlu)
*!* loHash.setvalue('cTitluColoana',pcTitluColoane)
*!* loHash.setvalue('cFiltruOriginal',pcFiltruOriginal)
*!* loCauta = cauta_alfa_hash(lohash)
*!* IF !EMPTY(locauta.id_articol)
*!* thisform.orec.articol = locauta.denumire
*!* thisform.orec.id_articol = locauta.id_articol
*!* this.Refresh
*!* ENDIF
locauta = caut_articol() &&ocautare.prg
IF !EMPTY(locauta.id_articol)
porec.articol = locauta.denumire
porec.id_articol = locauta.id_articol
this.Refresh
ENDIF
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
lcActiune = this.cus_odata_articol1.cactiune
PLRETURN=This.cus_odata_articol1.salvare(This.OREC,This.NID)
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_articol1.cactiune = tcActiune
IF This.cus_odata_articol1.cactiune='INSERT'
porec.cantitate=1
thisform.do_alege_articol()
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_atas_nou AS frm_termin_renunt OF "_frm_child.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_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNume_atasament" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 200
Name = "frm_atas_nou"
nid = 0
orec =
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 312
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 65
Lb_titlu_alb_b121.Caption = "ATA<54>AMENT NOU"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 8
BUT_TERMIN1.Left = 345
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
Gridsort1.Left = 24
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 36
BUT_RENUNT1.Left = 315
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 7
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 4, ;
Top = 125, ;
Width = 348, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.ControlSource = "poLink.data_doc", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 240, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = {}, ;
Text_simplu1.Width = 104, ;
Lb_simplu1.Caption = "Dat<61> document", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 5, ;
Top = 153, ;
Width = 348, ;
Text_simplu1.ControlSource = "poLink.nr_doc", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 120, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 224, ;
Lb_simplu1.Caption = "Num<75>r document", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu4", ;
TabIndex = 3, ;
Top = 97, ;
Width = 348, ;
Text_simplu1.ControlSource = "poLink.descriere", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 120, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 224, ;
Lb_simplu1.Caption = "Descriere", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "...", ;
Height = 25, ;
Left = 307, ;
Name = "Command1", ;
TabIndex = 1, ;
Top = 60, ;
Width = 24
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "", ;
Height = 25, ;
Left = 334, ;
Name = "Command2", ;
Picture = ..\grafice\eye_sus.bmp, ;
PicturePosition = 14, ;
TabIndex = 2, ;
Top = 60, ;
Width = 24
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Ata<74>ament", ;
FontSize = 10, ;
Height = 18, ;
Left = 12, ;
Name = "Lb_simplu1", ;
TabIndex = 10, ;
Top = 63, ;
Width = 65
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'txtNume_atasament' AS textbox WITH ;
ControlSource = "poLink.nume_atasament", ;
Enabled = .F., ;
Format = "!k", ;
Height = 23, ;
Left = 84, ;
Name = "txtNume_atasament", ;
TabIndex = 9, ;
Top = 61, ;
Width = 216
*< END OBJECT: BaseClass="textbox" />
PROCEDURE Init
DoDefault()
ENDPROC
PROCEDURE Command1.Click
LOCAL lcFisier
pcLink = GETFILE("*","Alegeti fisierul")
lcFisier = JUSTFNAME(pcLink)
thisform.txtNume_atasament.Value = lcFisier
thisform.txtNume_atasament.SetFocus
ENDPROC
PROCEDURE Command2.Click
PRIVATE oWord
LOCAL lcDocument
lcDocument = pcLink
IF EMPTY(lcDocument)
aMESSAGEBOX("Alegeti fisierul pe care doriti sa-l deschideti! "+lcDocument,16,"Eroare")
RETURN
ENDIF
IF !FILE(lcDocument)
aMESSAGEBOX("Nu exista fisierul "+lcDocument,16,"Eroare")
RETURN
ENDIF
open_default_app(lcDocument)
ENDPROC
ENDDEFINE
DEFINE CLASS frm_avize_nou AS frm_termin_renunt OF "_frm_child.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_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_avize1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 154
Name = "frm_avize_nou"
nid = .F.
orec = .F.
Width = 317
_shape1.Name = "_shape1"
_shape2.Left = 243
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "-"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 6
BUT_TERMIN1.Left = 285
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
BUT_RENUNT1.Left = 256
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 5
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Left = 13, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 52, ;
TEXT_SIMPLU1.ControlSource = "porec.aviz", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Aviz:", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_simplu5", ;
TabIndex = 2, ;
Top = 83, ;
Width = 192, ;
Text_simplu1.ControlSource = "porec.data1", ;
Text_simplu1.Format = "!KD", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 79, ;
Lb_simplu1.Caption = "Data aviz:", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_simplu6", ;
TabIndex = 3, ;
Top = 114, ;
Width = 192, ;
Text_simplu1.ControlSource = "porec.data2", ;
Text_simplu1.Format = "!KD", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 79, ;
Lb_simplu1.Caption = "Data expirarii:", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_avize1' AS cus_odata_avize WITH ;
Left = 215, ;
Name = "Cus_odata_avize1", ;
Top = 33
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE inainte_de_do_termin
LOCAL plReturn
PLRETURN=this.cus_odata_avize1.salvare(This.OREC,This.NID)
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
this.cus_odata_avize1.cactiune = tcActiune
ENDPROC
PROCEDURE Clb_tx_simplu5.Text_simplu1.LostFocus
porec.data2=GOMONTH(porec.data1,12)
thisform.clb_tx_simplu6.text_simplu1.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS frm_bazacm_nou AS frm_termin_renunt OF "..\..\comun\clase\_frm_child.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="" />
*< OBJECTDATA: ObjPath="Cus_odata_bazacm1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 196
Name = "frm_bazacm_nou"
nid = .F.
orec = .F.
Width = 317
_shape1.Name = "_shape1"
_shape2.Left = 243
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "-"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Left = 285
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
BUT_RENUNT1.Left = 256
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 6
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Left = 13, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 52, ;
TEXT_SIMPLU1.ControlSource = "porec.luna", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Luna:", ;
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 = 13, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 2, ;
Top = 83, ;
TEXT_SIMPLU1.ControlSource = "porec.an", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "An:", ;
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 = 13, ;
Name = "Clb_tx_simplu3", ;
TabIndex = 3, ;
Top = 114, ;
TEXT_SIMPLU1.ControlSource = "porec.bazacalcul", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Baza calcul CAS:", ;
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 = 13, ;
Name = "Clb_tx_simplu4", ;
TabIndex = 4, ;
Top = 145, ;
TEXT_SIMPLU1.ControlSource = "porec.zilelucr", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Zile lucrate:", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_bazacm1' AS cus_odata_bazacm WITH ;
Left = 53, ;
Name = "Cus_odata_bazacm1", ;
Top = 36
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE inainte_de_do_termin
LOCAL plReturn
PLRETURN=this.cus_odata_bazacm1.salvare(This.OREC,This.NID)
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
this.cus_odata_bazacm1.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_completeznrdata112 AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 442
lactiv3 = .T.
Name = "frm_completeznrdata112"
Width = 381
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Caption = "Completati nr/data declaratiei 112"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Left = 252
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
Height = 392, ;
Left = 4, ;
Name = "_grdrow1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "crs112", ;
Top = 36, ;
Width = 368, ;
Column1.ControlSource = "an", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 55, ;
Column2.ControlSource = "Luna", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 32, ;
Column3.ControlSource = "nrdata112", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 239
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Caption = "An", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.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 '_grdrow1.Column2.Header1' AS header WITH ;
Caption = "Luna", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column2.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 '_grdrow1.Column3.Header1' AS header WITH ;
Caption = "Nr. / Data declaratiei 112", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column3.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 'But_modifica1' AS but_modifica WITH ;
Left = 310, ;
Name = "But_modifica1", ;
Top = 2, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=pod112.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform._grdrow1)
pod112.ca_baza1.cfiltru=lcFiltru
pod112.ca_baza1.afisare()
restore_grid_tag(thisform._grdrow1)
thisform._grdrow1.SetFocus()
ENDPROC
PROCEDURE do_modifica
Private pniesire
pniesire=0
Select crs112
Scatter Name loRec MEMO
Do Adauga_Modifica_Inregistrare With "completeznrdata112",loRec,loRec.id_calendar,"UPDATE",,"modd112"
If pniesire=1
This.actualizeaza_grid1()
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_completeznrdata112_nou AS frm_termin_renunt OF "_frm_child.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="Cus_odata_completeznrdata1121" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 95
Name = "frm_completeznrdata112_nou"
nid =
orec =
Width = 375
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 1
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
Gridsort1.Name = "Gridsort1"
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 4
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 22, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 2, ;
Top = 49, ;
Width = 319, ;
Text_simplu1.ControlSource = "pOREC.nrdata112", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 215, ;
Lb_simplu1.Caption = "Numar si data D112", ;
Lb_simplu1.FontName = "Arial Narrow", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_completeznrdata1121' AS cus_odata_completeznrdata112 WITH ;
Left = 168, ;
Name = "Cus_odata_completeznrdata1121", ;
Top = 24
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE Activate
this.lb_titlu_alb_b121.Caption = ALLTRIM(STR(This.OREC.luna))+ [ / ]+ALLTRIM(STR(This.OREC.an))
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN
lccontrol = Upper(This.ActiveControl.BaseClass )
If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
lcval=This.ActiveControl.ControlSource
&lcval=Thisform.ActiveControl.Value
Endif
Do Case
Case Empty(pOREC.nrdata112)
Messagebox('Nu ati completat numarul si data declaratiei 112!',0+48,"Atentie")
This.clb_tx_simplu1.teXT_SIMPLU1.SetFocus()
PLRETURN=.F.
Otherwise
PLRETURN=this.cus_odata_completeznrdata1121.salvare(This.OREC,This.NID)
Endcase
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
this.cus_odata_completeznrdata1121.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_conditii AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid2.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid2.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1._grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_nou2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_sterge2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_modifica2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page1.But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid2.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2._grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2.Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pagina.Page2.lbnr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lista2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: adauga_articol
*m: cauta_detalii
*m: cauta_persoane
*m: decode_string
*m: detalii_conditie
*m: modifica_articol
*m: prep_modifica
*m: salveaza_conditie
*m: sterge_articol
*m: sterge_conditie
*p: temporar
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cgridsortlist = pagina.page1._grid2,pagina.page1._grid1,pagina.page2._grid1,pagina.page2._grid2
DoCreate = .T.
Height = 407
Name = "frm_conditii"
temporar = 0
Width = 573
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 576
_shape2.Height = 29
_shape2.Left = 540
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 33
Lb_titlu_alb_b121.Caption = "Conditii echipamente"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 541
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 72
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Conditii", ;
FontBold = .T., ;
Left = 12, ;
Name = "Lb_simplu1", ;
Top = 261
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ;
Caption = "Elemente", ;
FontBold = .T., ;
Left = 32, ;
Name = "Lb_simplu3", ;
Top = 210
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'lista2' AS _listbox WITH ;
Height = 120, ;
Left = 12, ;
Name = "lista2", ;
SpecialEffect = 1, ;
Top = 282, ;
Width = 426
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />
ADD OBJECT 'pagina' AS _pageframe WITH ;
ErasePage = .T., ;
Height = 224, ;
Left = 12, ;
Name = "pagina", ;
PageCount = 2, ;
TabOrientation = 0, ;
TabStyle = 1, ;
Top = 34, ;
Width = 552, ;
Page1.BackColor = 255,255,255, ;
Page1.Caption = "Grupe", ;
Page1.FontBold = .T., ;
Page1.Name = "Page1", ;
Page2.BackColor = 255,255,255, ;
Page2.Caption = "Personal", ;
Page2.FontBold = .T., ;
Page2.Name = "Page2"
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />
ADD OBJECT 'pagina.Page1._grid1' AS _grid WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
GridLineColor = 221,227,252, ;
GridLines = 1, ;
Height = 166, ;
HighlightStyle = 2, ;
Left = 251, ;
Name = "_grid1", ;
Panel = 1, ;
PanelLink = .T., ;
RecordSource = "v_articole", ;
RowHeight = 20, ;
ScrollBars = 0, ;
SplitBar = .T., ;
TabIndex = 1, ;
Top = 27, ;
Width = 293, ;
Column1.ControlSource = "articol", ;
Column1.Name = "Column1", ;
Column1.Width = 138, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "cantitate", ;
Column2.Name = "Column2", ;
Column2.Width = 65, ;
Column3.ColumnOrder = 2, ;
Column3.ControlSource = "codmat", ;
Column3.Name = "Column3"
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT 'pagina.Page1._grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Articol", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page1._grid1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page1._grid1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Cantitate", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page1._grid1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page1._grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Cod material", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page1._grid1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page1._grid2' AS _grid WITH ;
ColumnCount = 1, ;
DeleteMark = .F., ;
GridLineColor = 221,227,252, ;
GridLines = 1, ;
Height = 166, ;
HighlightStyle = 2, ;
Left = 5, ;
Name = "_grid2", ;
Panel = 1, ;
PanelLink = .T., ;
RecordSource = "v_conditii", ;
RowHeight = 20, ;
ScrollBars = 0, ;
SplitBar = .T., ;
TabIndex = 1, ;
Top = 27, ;
Width = 240, ;
Column1.ControlSource = "denumire", ;
Column1.Name = "Column1", ;
Column1.Width = 227
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT 'pagina.Page1._grid2.Column1.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Grupa", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page1._grid2.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page1.But_excel1' AS but_excel WITH ;
Left = 213, ;
Name = "But_excel1", ;
Top = -1, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page1.But_listare1' AS but_listare WITH ;
Left = 184, ;
Name = "But_listare1", ;
Top = -1, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page1.But_modifica1' AS but_modifica WITH ;
caction = modifica_articol, ;
Left = 480, ;
Name = "But_modifica1", ;
Top = -1, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page1.But_modifica2' AS but_modifica WITH ;
caction = do_modifica, ;
Left = 123, ;
Name = "But_modifica2", ;
Top = -1, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page1.But_nou1' AS but_nou WITH ;
caction = adauga_articol, ;
Left = 449, ;
Name = "But_nou1", ;
TabIndex = 3, ;
Top = -1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page1.But_nou2' AS but_nou WITH ;
caction = do_adauga, ;
Left = 92, ;
Name = "But_nou2", ;
TabIndex = 3, ;
Top = -1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page1.But_sterge1' AS but_sterge WITH ;
caction = sterge_articol, ;
Left = 511, ;
Name = "But_sterge1", ;
TabIndex = 4, ;
Top = -1, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page1.But_sterge2' AS but_sterge WITH ;
caction = do_sterge, ;
Left = 154, ;
Name = "But_sterge2", ;
TabIndex = 4, ;
Top = -1, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page2._grid1' AS _grid WITH ;
ColumnCount = 1, ;
DeleteMark = .F., ;
GridLineColor = 221,227,252, ;
GridLines = 1, ;
Height = 166, ;
HighlightStyle = 2, ;
Left = 251, ;
Name = "_grid1", ;
Panel = 1, ;
PanelLink = .T., ;
RecordSource = "v_art_pers", ;
RowHeight = 20, ;
ScrollBars = 0, ;
SplitBar = .T., ;
TabIndex = 1, ;
Top = 27, ;
Width = 293, ;
Column1.ControlSource = "articol", ;
Column1.Name = "Column1", ;
Column1.Width = 280
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT 'pagina.Page2._grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Articole", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page2._grid1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page2._grid2' AS _grid WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
GridLineColor = 221,227,252, ;
GridLines = 1, ;
Height = 166, ;
HighlightStyle = 2, ;
Left = 5, ;
Name = "_grid2", ;
Panel = 1, ;
PanelLink = .T., ;
RecordSource = "v_pers", ;
RowHeight = 20, ;
ScrollBars = 0, ;
SplitBar = .T., ;
TabIndex = 1, ;
Top = 27, ;
Width = 240, ;
Column1.ControlSource = "marca", ;
Column1.Name = "Column1", ;
Column1.Width = 60, ;
Column2.ControlSource = "nume", ;
Column2.Name = "Column2", ;
Column2.Width = 83, ;
Column3.ControlSource = "prenume", ;
Column3.Name = "Column3", ;
Column3.Width = 81
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT 'pagina.Page2._grid2.Column1.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Marca", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page2._grid2.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page2._grid2.Column2.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Nume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page2._grid2.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page2._grid2.Column3.Header1' AS header WITH ;
Alignment = 2, ;
BackColor = 221,227,252, ;
Caption = "Prenume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'pagina.Page2._grid2.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'pagina.Page2.Cmd_executa1' AS cmd_executa WITH ;
AutoSize = .T., ;
Caption = "Aplica Conditie", ;
Left = 439, ;
Name = "Cmd_executa1", ;
Top = -1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pagina.Page2.lbnr' AS lb_simplu WITH ;
Caption = "Numar persoane : ", ;
Left = 5, ;
Name = "lbnr", ;
Top = 10
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru
If Empty(tcFiltru)
lcFiltru = pocond.ca_baza1.cfiltru
Else
lcFiltru = tcFiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(thisform.pagina.page1._grid2)
pocond.ca_baza1.cfiltru=lcFiltru
pocond.ca_baza1.afisare()
restore_grid_tag(thisform.pagina.page1._grid2)
SELECT v_conditii
replace ALL nr WITH RECNO()
GO TOP
*!* thisform.label_conditie.Caption='Conditie : '+ALLTRIM(denumire)
*!* thisform.label_conditie.Refresh
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
this.pagina.page1._grid2.SetFocus()
ENDPROC
PROCEDURE adauga_articol
IF EMPTY(poconditii.id_conditie)
MESSAGEBOX('Creati intai o conditie pentru a putea introduce articole!',48,'Atentie!')
RETURN
ENDIF
Private pniesire
pniesire=0
Select v_articole
Scatter Name loRec Blank
lorec.id_conditie = poconditii.id_conditie
Do Adauga_Modifica_Inregistrare With "articole",loRec,,"INSERT",,"addart"
ENDPROC
PROCEDURE cauta_detalii
LPARAMETERS tcCamp,tcCampId,tcValId,tcTabela
LOCAL lcReturn
lcSQl = [select ] + tcCamp + [ as rezultat from ] + gcs + [.] + tcTabela + [ where ] + tcCampID + [=] + tcValId
lcCursor = 'v_rezultat'
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
RETURN null
ELSE
SELECT v_rezultat
lcReturn = v_rezultat.rezultat
IF TYPE('lcReturn')='C'
lcReturn=ALLTRIM(lcREturn)
ENDIF
RETURN lcReturn
ENDIF
ENDPROC
PROCEDURE cauta_persoane
lcConditie = ALLTRIM(poconditii.conditie)
IF EMPTY(lcConditie)
RETURN
ENDIF
save_grid_tag(thisform.pagina.paGE2._grid2)
poper.ca_baza1.cfiltru=[1=1 and ] + lcConditie
poper.ca_baza1.afisare()
restore_grid_tag(thisform.pagina.paGE2._grid2)
LOCAL lncount
lncount = RECCOUNT('v_pers')
this.pagina.page2.lbnr.Caption = 'Numar persoane : ' + ALLTRIM(STR(lncount))
this.pagina.page2.lbnr.Refresh
IF RECCOUNT('v_pers')=0
save_grid_tag(thisform.pagina.paGE2._grid1)
poarticole.ca_baza1.cfiltru=[ 1=2 ]
poarticole.ca_baza1.afisare()
restore_grid_tag(thisform.pagina.paGE2._grid1)
ENDIF
thisform.pagina.paGE2._grid2.SetFocus()
ENDPROC
PROCEDURE decode_string
LPARAMETERS tcString
thisform.lista2.Clear()
LOCAL lcstring,lnCond,i,lcWord,lsex
lcString = UPPER(tcString)
lsex=.f.
IF EMPTY(lcstring)
RETURN
ENDIF
lcWord=''
i=0
j=0
z=0
lnCond=0
lnCond = GETWORDCOUNT(lcstring,')') &&nr conditii
lcSirLista = ''
thisform.LockScreen=.t.
thisform.temporar=0 &&resetez array
DIMENSION taCompun[1,3]
ADEL(taCompun,1)
FOR i=1 TO lnCond
lcWord = STREXTRACT(lcString,'(',')',i,1)
FOR j=1 TO ALEN(taElemente,1)
lcCampId = UPPER(ALLTRIM(taElemente[j,3])) &&cheia primara din tabela de elemente ( nom_sectii,etc)
IF OCCURS(':',lcCampid)>0
lsex=.t.
lcCampId = UPPER(ALLTRIM(taElemente[j,2]))
ELSE
lsex=.f.
ENDIF
lcDescCamp = ALLTRIM(taElemente[j,1]) &&descriere camp
lnCount = OCCURS(lcCampId,lcWord)
IF lnCount>0
FOR z =1 TO lnCount
thisform.temporar=thisform.temporar+1
DIMENSION taCompun[thisform.temporar,3]
lcValId = ALLTRIM(STREXTRACT(lcWord,'=',' OR ',z,2)) &&&valoare id
IF lsex
lcValoare = lcValId
ELSE
lcValoare = thisform.cauta_detalii(taElemente[j,2],taElemente[j,3],lcValId,taElemente[j,5])
ENDIF
IF ISNULL(lcValoare)
MESSAGEBOX('Eroare!')
RETURN
ENDIF
lcTemp = taElemente[j,1] + ' este '+ lcValoare + ICASE(z<lnCount,' sau ','')
taCompun[thisform.temporar,1] = lcTemp
taCompun[thisform.temporar,2] = lcCampId + '=' + lcValId
taCompun[thisform.temporar,3] = j
thisform.lista2.AddItem(lcTemp)
IF z=lnCount AND i#lnCond &&daca sunt pe ultima linie nu mai pun 'si'
thisform.lista2.AddItem(' si ')
ENDIF
ENDFOR
ELSE
LOOP
ENDIF
ENDFOR
ENDFOR
thisform.lista2.refresh
*!* thisform.pagina.paGE2.lista2.Requery()
thisform.LockScreen=.f.
ENDPROC
PROCEDURE detalii_conditie
lcString = v_conditii.conditie
thisform.decode_string(lcString)
ENDPROC
PROCEDURE do_adauga
SELECT v_conditii
SCATTER NAME poconditii MEMO BLANK
thisform.temporar=0 &&resetez array
DIMENSION taCompun[1,3]
ADEL(taCompun,1)
buton=2
oaddc = CREATEOBJECT('frm_conditii_nou','INSERT',@taCompun,@taElemente,thisform.temporar)
oaddc.show(1)
RELEASE oaddc
IF buton = 1
this.actualizeaza_grid1()
thisform.lista2.clear()
thisform.lista2.Requery()
ENDIF
ENDPROC
PROCEDURE do_executa
lnpartrec = RECCOUNT('v_pers')
IF lnpartrec=0
AMESSAGEBOX('Nu exista persoane corespunzatoare conditiei!',48,'Atentie!')
RETURN
ENDIF
IF RECCOUNT('v_articole')=0
AMESSAGEBOX('Nu exista articole atasate conditiei!',48,'Atentie!')
lcSel = [{call pack_personal.verifica_part_art(?poconditii.id_conditie)}]
lnSucces = goExecutor.oExecute(lcSel)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
RETURN
ENDIF
lcSel = [{call pack_personal.adauga_cond_articol(?poconditii.id_conditie)}]
lnSucces = goExecutor.oExecute(lcSel)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
lcSel = [{call pack_personal.verifica_part_art(?poconditii.id_conditie)}]
lnSucces = goExecutor.oExecute(lcSel)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
SELECT v_pers
SCATTER NAME popersoane
save_grid_tag(thisform.pagina.paGE2._grid1)
poarticole.ca_baza1.cfiltru=[id_part = ] + ALLTRIM(STR(popersoane.id_part))
poarticole.ca_baza1.afisare()
restore_grid_tag(thisform.pagina.paGE2._grid1)
thisform.pagina.paGE2._grid1.SetFocus()
ENDPROC
PROCEDURE do_modifica
SELECT v_conditii
SCATTER NAME poconditii MEMO
buton=2
oaddc = CREATEOBJECT('frm_conditii_nou','UPDATE',@taCompun,@taElemente,thisform.temporar)
oaddc.show(1)
RELEASE oaddc
IF buton = 1
this.actualizeaza_grid1()
thisform.lista2.clear()
thisform.lista2.Requery()
ENDIF
ENDPROC
PROCEDURE do_sterge
SELECT v_conditii
SCATTER NAME lorec
DO sterge_inregistrare WITH 'cond',lorec.id_conditie
this.actualizeaza_grid1()
RELEASE lorec
ENDPROC
PROCEDURE inainte_de_do_excel
lcSQl = [select c.id_conditie, c.denumire as grup, n.id_articol, n.cantitate, a.denumire, NVL(a.codmat,'') as codmat, NVL(a.um,'') as um ]+;
[ from nom_conditii_echip c ]+;
[ left join necesar_echip n on c.id_conditie = n.id_conditie ]+;
[ left join nom_articole a on a.id_articol = n.id_articol ]+;
[ where c.sters = 0 and n.sters = 0 ]+;
[ order by c.denumire, a.denumire ]
lcCursor = 'cList'
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
SELECT cList
DO export_xls WITH 'cList' IN oproceduri_comune.prg
IF USED('cList')
USE IN cList
ENDIF
ENDPROC
PROCEDURE inainte_de_do_listare
lcSQl = [select c.id_conditie, c.denumire as grup, n.id_articol, n.cantitate, a.denumire, NVL(a.codmat,'') as codmat, NVL(a.um,'') as um ]+;
[ from nom_conditii_echip c ]+;
[ left join necesar_echip n on c.id_conditie = n.id_conditie ]+;
[ left join nom_articole a on a.id_articol = n.id_articol ]+;
[ where c.sters = 0 and n.sters = 0 ]+;
[ order by c.denumire, a.denumire ]
lcCursor = 'cList'
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
pcTitlu = "Necesar echipament"
thisform.AlwaysOnTop = .F.
*!* modificare v 1.0.48
goExport.export2frx([cList],[sal_echipament.frx])
*!* SELECT cList
*!* REPORT FORM sal_echipament.frx TO PRINTER PROMPT PREVIEW
*!* modificare v 1.0.48 ^
thisform.AlwaysOnTop = .T.
IF USED('cList')
USE IN cList
ENDIF
ENDPROC
PROCEDURE Init
PARAMETERS taElemente,taCompun
*!* this.cus_odata_cond1.cactiune=''
DODEFAULT()
ENDPROC
PROCEDURE modifica_articol
IF EMPTY(poconditii.id_conditie)
MESSAGEBOX('Creati intai o conditie !',48,'Atentie!')
RETURN
ENDIF
Private pniesire
pniesire=0
Select v_articole
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "articole",loRec,lorec.id_nec,"UPDATE",,"addart"
ENDPROC
PROCEDURE prep_modifica
ENDPROC
PROCEDURE salveaza_conditie
ENDPROC
PROCEDURE sterge_articol
SELECT v_articole
SCATTER NAME lorec
DO sterge_inregistrare WITH 'articol',lorec.id_nec
RELEASE lorec
ENDPROC
PROCEDURE sterge_conditie
ENDPROC
PROCEDURE pagina.Page1.Activate
this._grid2.SetFocus()
ENDPROC
PROCEDURE pagina.Page1._grid2.AfterRowColChange
LPARAMETERS nColIndex
SELECT v_conditii
SCATTER NAME poconditii MEMO
thisform.detalii_conditie()
save_grid_tag(thisform.pagina.paGE1._grid1)
poart.ca_baza1.cfiltru=[id_conditie = ] + ALLTRIM(STR(poconditii.id_conditie))
poart.ca_baza1.afisare()
restore_grid_tag(thisform.pagina.paGE1._grid1)
DODEFAULT()
ENDPROC
PROCEDURE pagina.Page2.Activate
thisform.cauta_persoane()
this._grid2.SetFocus()
ENDPROC
PROCEDURE pagina.Page2._grid2.AfterRowColChange
LPARAMETERS nColIndex
SELECT v_pers
SCATTER NAME popersoane
save_grid_tag(thisform.pagina.paGE2._grid1)
poarticole.ca_baza1.cfiltru=[id_part = ] + ALLTRIM(STR(popersoane.id_part))
poarticole.ca_baza1.afisare()
restore_grid_tag(thisform.pagina.paGE2._grid1)
DODEFAULT()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_conditii_nou AS frm_termin_renunt OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lista2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CUS_ODATA_COND1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_sterge_conditie
*p: temporar
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 226
Name = "frm_conditii_nou"
temporar = 0
Width = 533
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 533
_shape2.Height = 29
_shape2.Left = 468
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Adaugare / Modificare conditie"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 6
BUT_TERMIN1.Left = 497
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Left = 468
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 5
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
caction = do_sterge_conditie, ;
Left = 479, ;
Name = "But_sterge1", ;
TabIndex = 8, ;
Top = 140, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Cb_tx_simplu2", ;
TabIndex = 2, ;
Top = 67, ;
Width = 232, ;
_cbbase1.BoundColumn = 2, ;
_cbbase1.BoundTo = .T., ;
_cbbase1.ColumnCount = 1, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 77, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "taElemente", ;
_cbbase1.RowSourceType = 5, ;
_cbbase1.Style = 2, ;
_cbbase1.Top = 3, ;
_cbbase1.Value = , ;
_cbbase1.Width = 152, ;
_lbbase1.Caption = "Elemente", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 36, ;
Width = 515, ;
Text_simplu1.ControlSource = "poconditii.denumire", ;
Text_simplu1.DisabledBackColor = 242,242,242, ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .F., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 410, ;
Lb_simplu1.Caption = "Denumire", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Left = 251, ;
Name = "Cmd_cauta1", ;
TabIndex = 3, ;
Top = 67
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'CUS_ODATA_COND1' AS cus_odata_cond WITH ;
Left = 504, ;
Name = "CUS_ODATA_COND1", ;
Top = 84
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
ADD OBJECT 'lista2' AS _listbox WITH ;
Height = 120, ;
Left = 12, ;
Name = "lista2", ;
RowSource = "taCompun", ;
RowSourceType = 5, ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 98, ;
Width = 464
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />
PROCEDURE do_cauta
IF EMPTY(thisform.cb_tx_simplu2._cbbase1.Value)
RETURN
ENDIF
lnValue = thisform.cb_tx_simplu2._cbbase1.ListIndex
IF EMPTY(lnValue)
RETURN
ENDIF
lcCamp = taElemente[lnValue,2]
lcTabela = taElemente[lnValue,5]
lcId = taElemente[lnValue,3]
&&tratare sex
lsex=.f.
IF OCCURS(':',lcId)>0
lcID=SUBSTR(lcId,2)
lSex = .t.
ENDIF
&&tratare sex
lcTITLU = taElemente[lnValue,1]
buton=2
pcselect = [select ] + IIF(lsex=.t.,lcId + ' ' ,lcid+[,]) + lcCamp + + [ from ] + gcS + [.] + lcTabela
pcfiltruinitial=[sters=0]
pcfiltru = [2=2]
pcschema = []
pcorder = lcCamp
pccoloane = lcCamp
pcTitlu = lcTITLU
pcTitluColoane = lcTITLU
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,,,pcfiltruinitial)
IF buton#2
thisform.temporar=thisform.temporar + 1 &&dimensiune array
lcValoare = ALLTRIM(locauta.&lcCamp)
IF !lsex
lcValId = ALLTRIM(STR(locauta.&lcId)) &&valoare id
ENDIF
lnLenTemp = ALEN(taCompun,1)
IF lnLenTemp < thisform.temporar
DIMENSION taCompun[thisform.temporar,3] &&redimensionez array temporar
taCompun[thisform.temporar,1]=0
taCompun[thisform.temporar,2]=0
taCompun[thisform.temporar,3]=0
lnLenTemp = thisform.temporar &&dimensiune
ENDIF
lnpoz = ASCAN(taCompun,lnValue,1,lnLenTemp ,3,8) &&verific daca mai am conditii pt aceasta tabela
DO WHILE lnpoz>0
IF ALLTRIM(lower(RIGHT(taCompun[lnpoz,1],4)))#'sau'
taCompun[lnpoz,1] = taCompun[lnPoz,1] + ' sau '
ENDIF
lnPoz = ASCAN(taCompun,lnValue,lnpoz+1,lnLenTemp-lnpoz,3,8)
ENDDO
taCompun[thisform.temporar,1] = lcTITLU + ' este ' + lcValoare
IF lsex
lcId = lcCamp
lcValId = [''] + lcValoare + ['']
ENDIF
taCompun[thisform.temporar,2] = lcId + '=' + lcValId
taCompun[thisform.temporar,3] = lnValue
ASORT(taCompun,3,lnLenTemp) &&ordonare
thisform.lista2.Requery()
ENDIF
ENDPROC
PROCEDURE do_sterge_conditie
thisform.LockScreen=.t.
lnLen = ALEN(taCompun,1)
lnitem = thisform.lista2.ListItemId
IF TYPE('taCompun[lnitem-1,1]')#'U' &&verific inregistrarea precedenta ca sa scot 'sau'
lcValue = taCompun[lnitem-1,1]
IF ALLTRIM(lower((RIGHT(lcValue,4))))='sau'
taCompun[lnitem-1,1] = SUBSTR(taCompun[lnitem-1,1],1,LEN(taCompun[lnitem-1,1])-4)
ENDIF
ENDIF
ADEL(taCompun,lnitem)
IF ALEN(taCompun,1)>1
DIMENSION taCompun[lnLen-1,3]
thisform.temporar=ALEN(taCompun,1)
ELSE
thisform.temporar=0
ENDIF
thisform.lista2.RemovelistItem(lnitem)
thisform.lista2.requery
thisform.LockScreen=.f.
ENDPROC
PROCEDURE inainte_de_do_termin
lnLen = ALEN(taCompun,1)
lnFlag = taCompun[1,3]
lcString = ''
IF TYPE('lnflag')='N'
FOR i=1 TO lnLen
lnFlag2 = taCompun[i,3]
lcCond = taCompun[i,2]
IF lnFlag=lnFlag2
IF i=1
lcString = taCompun[i,2]
ELSE
lcString = lcString + ' OR ' + taCompun[i,2]
ENDIF
ELSE
lnFlag = taCompun[i,3]
lcString = lcString + ')' + ' AND ' + '(' + taCompun[i,2]
ENDIF
ENDFOR
lcString = '(' + lcString + ')'
ELSE
lcString = '1=1'
ENDIF
poconditii.conditie = lcString
plreturn = This.cus_odata_cond1.salvare(poconditii,poconditii.id_conditie)
RETURN plreturn
ENDPROC
PROCEDURE Init
PARAMETERS tcOperatie,taCompun,taElemente,tnTemporar
thisform.temporar=tnTemporar
this.cuS_ODATA_COND1.cactiune=tcOperatie
DODEFAULT()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_config_acte AS frm_termin_renunt OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="tx_tabel" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lista_st" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="LB_SIMPLU1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lista_dr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_act" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_act.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_act.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_act.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_act.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lista_ref" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_adauga_ref
*m: do_alege_ref
*m: do_select_ref
*m: do_sterge_listadr
*m: do_umple_listadr
*m: select_coloane
*p: tabel
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 362
Name = "frm_config_acte"
tabel =
Width = 751
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 756
_SHAPE2.Height = 29
_SHAPE2.Left = 688
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 62
LB_TITLU_ALB_B121.Caption = "Configurare coloane acte"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 10
BUT_TERMIN1.Left = 719
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 8
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
BUT_RENUNT1.Left = 690
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 9
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'But_nou1' AS but_nou WITH ;
caction = do_adauga_ref, ;
Left = 690, ;
Name = "But_nou1", ;
Top = 68
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
caction = do_sterge_listadr, ;
Height = 27, ;
Left = 548, ;
Name = "But_sterge1", ;
TabIndex = 14, ;
Top = 68, ;
Visible = .T., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge2' AS but_sterge WITH ;
Height = 27, ;
Left = 719, ;
Name = "But_sterge2", ;
TabIndex = 14, ;
Top = 68, ;
Visible = .T., ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
Left = 490, ;
Name = "CMD_CAUTA1", ;
TabIndex = 3, ;
Top = 36
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Caption = "", ;
cpicturedown = add.bmp, ;
cpictureup = add.bmp, ;
Height = 27, ;
Left = 369, ;
Name = "Cmd_executa1", ;
Picture = ..\grafice\utile\add.bmp, ;
TabIndex = 5, ;
Top = 176, ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_executa2' AS cmd_executa WITH ;
Caption = "", ;
cpicturedown = add.bmp, ;
cpictureup = add.bmp, ;
Height = 27, ;
Left = 369, ;
Name = "Cmd_executa2", ;
Picture = ..\grafice\utile\add_ref.bmp, ;
TabIndex = 5, ;
Top = 204, ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grd_act' AS _grid WITH ;
BackColor = 255,255,255, ;
ColumnCount = 2, ;
DeleteMark = .F., ;
GridLineColor = 192,192,192, ;
GridLines = 3, ;
Height = 329, ;
Left = 4, ;
Name = "grd_act", ;
Panel = 1, ;
RecordSource = "v_nom_acte", ;
Top = 31, ;
Width = 225, ;
Column1.BackColor = 255,255,255, ;
Column1.ControlSource = "", ;
Column1.Name = "Column1", ;
Column1.Visible = .T., ;
Column1.Width = 20, ;
Column2.BackColor = 255,255,255, ;
Column2.ControlSource = "nume_act", ;
Column2.Name = "Column2", ;
Column2.Visible = .T., ;
Column2.Width = 207
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT 'grd_act.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_act.Column1.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 'grd_act.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Document", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_act.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 'LB_SIMPLU1' AS lb_simplu WITH ;
Caption = "Coloane", ;
FontBold = .T., ;
Left = 253, ;
Name = "LB_SIMPLU1", ;
TabIndex = 11, ;
Top = 81
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
Caption = "Coloane salvate", ;
FontBold = .T., ;
Left = 447, ;
Name = "Lb_simplu2", ;
TabIndex = 12, ;
Top = 81
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ;
Caption = "Referinte", ;
FontBold = .T., ;
Left = 605, ;
Name = "Lb_simplu5", ;
TabIndex = 12, ;
Top = 81
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'lista_dr' AS _listbox WITH ;
AutoHideScrollbar = 1, ;
ColumnCount = 2, ;
Height = 263, ;
Left = 401, ;
MoverBars = .F., ;
MultiSelect = .T., ;
Name = "lista_dr", ;
RowSource = "taListadr", ;
RowSourceType = 5, ;
TabIndex = 6, ;
Top = 97, ;
Width = 176
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />
ADD OBJECT 'lista_ref' AS _listbox WITH ;
AutoHideScrollbar = 1, ;
ColumnCount = 2, ;
Height = 71, ;
Left = 578, ;
MoverBars = .F., ;
Name = "lista_ref", ;
RowSource = "talistaref", ;
RowSourceType = 5, ;
TabIndex = 6, ;
Top = 97, ;
Width = 170
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />
ADD OBJECT 'lista_st' AS _listbox WITH ;
AutoHideScrollbar = 1, ;
Height = 263, ;
Left = 231, ;
MoverBars = .F., ;
MultiSelect = .T., ;
Name = "lista_st", ;
TabIndex = 4, ;
Top = 97, ;
Width = 137
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="listbox" />
ADD OBJECT 'tx_tabel' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 247, ;
Name = "tx_tabel", ;
TabIndex = 2, ;
Top = 36, ;
Width = 240, ;
TEXT_SIMPLU1.ControlSource = "thisform.tabel", ;
TEXT_SIMPLU1.Left = 49, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
LB_SIMPLU1.Caption = "Tabel", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
PROCEDURE do_adauga_ref
LPARAMETERS tnOpt
lnOpt = tnOpt
lcTabel = UPPER(ALLTRIM(thisform.tabel))
lcCol = this.lista_st.List(this.lista_st.ListIndex)
lnIdCol = taListadr[this.lista_dr.ListIndex,3]
lcsql = [begin pack_personal.update_nom_col_acte(?lnIdCol,?lcCol,?lcTabel,?lnOpt);end;]
lnSucces = goExecutor.oExecute(lcsql)
If lnSucces < 0
Messagebox(goExecutor.cEroare,0+16,"Eroare")
ENDIF
this.do_select_ref()
ENDPROC
PROCEDURE do_alege_ref
lnbar = .null.
DO add_ref.mpr
DO CASE
CASE lnbar=1
thisform.do_adauga_ref(lnbar)
CASE lnbar=0
thisform.do_adauga_ref(lnbar)
OTHERWISE
ENDCASE
ENDPROC
PROCEDURE do_cauta
PRIVATE lcTabel
lcTabel = ALLTRIM(this.tx_tabel.teXT_SIMPLU1.Value )
this.lista_st.clear()
IF !EMPTY(lcTabel)
lcSQl = [select a.table_name,a.column_name from user_tab_columns a where a.table_name ='] + lcTabel + [']
lcCursor = 'v_coloane'
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
LOCAL lnrec
lnrec = RECCOUNT('v_coloane')
IF lnrec=0
MESSAGEBOX('Tabela nu exista!',16)
this.lista_st.Clear()
RETURN
ENDIF
this.LockScreen=.t.
SELECT v_coloane
SCAN
lcColoana = ALLTRIM(column_name)
this.lista_st.AddItem(lcColoana)
SELECT v_coloane
ENDSCAN
this.lista_st.Sorted= .T.
this.lista_st.Requery()
this.LockScreen=.f.
ENDIF
ENDPROC
PROCEDURE do_select_ref
this.lista_ref.Clear()
DIMENSION talistaref[2,2]
ADEL(talistaref,1)
IF isalpha(talistadr[this.lista_dr.ListIndex,5])
talistaref[1,1]=ALLTRIM(talistadr[this.lista_dr.ListIndex,5])
talistaref[1,2]=ALLTRIM(talistadr[this.lista_dr.ListIndex,7])
ENDIF
IF isalpha(talistadr[this.lista_dr.ListIndex,6])
talistaref[2,1]=ALLTRIM(talistadr[this.lista_dr.ListIndex,6])
talistaref[2,2]=ALLTRIM(talistadr[this.lista_dr.ListIndex,7])
ENDIF
FOR i=1 TO 2
IF TYPE('talistaref[i,1]')='L'
talistaref[i,1]=''
talistaref[i,2]=''
ENDIF
ENDFOR
this.lista_ref.Requery()
ENDPROC
PROCEDURE do_sterge_listadr
LOCAL lnColoane,lnCount,lfColoana
STORE 0 TO lnColoane,lnCount
*!* DEBUG
*!* SUSPEND
lnCount = this.lista_dr.ListCount
this.LockScreen=.t.
FOR i=lncount TO 1 STEP -1
lfColoana = this.lista_dr.selected(i) && selectie
lnitem=i
IF lfColoana
lnidCol = taListadr[lnitem,3]
lcsql = [begin pack_personal.sterge_nom_col_acte(?lnidCol);end;]
lnSucces = goExecutor.oExecute(lcsql)
If lnSucces < 0
Messagebox(goExecutor.cEroare,0+16,"Eroare")
ELSE
lnLen = ALEN(taListadr,1)
ADEL(taListadr,lnitem)
IF ALEN(taListadr,1)>1
DIMENSION taListadr[lnLen-1,4]
ENDIF
thisform.lista_dr.RemovelistItem(lnitem)
Endif
ENDIF
ENDFOR
thisform.lista_dr.requery() &&refresh
this.LockScreen=.f.
ENDPROC
PROCEDURE do_umple_listadr
LOCAL lnColoane,lnCount,lfColoana
STORE 0 TO lnColoane,lnCount,lnCuloare
lfColoana=.f.
lcTabel = UPPER(ALLTRIM(thisform.tabel))
lnCount = this.lista_st.ListCount
IF !EMPTY(taListadr[1,1])
j=ALEN(taListadr,1) &&pt redimensionat array
ELSE
j=0
ENDIF
this.LockScreen=.t.
FOR i=1 TO lncount
lfColoana = this.lista_st.selected(i) && selectie
lcColoana = ALLTRIM(this.lista_st.List(i)) &&nume coloana
IF lfColoana
lnidcol=0
lcsql = [begin pack_personal.adauga_nom_col_acte(?poact.id_act,?lcColoana,?lcTabel,?lnCuloare,?@lnidcol);end;]
lnSucces = goExecutor.oExecute(lcsql)
If lnSucces < 0
Messagebox(goExecutor.cEroare,0+16,"Eroare")
ELSE
j=j+1
lnLen = ALEN(taListadr,1)
IF j>lnLen
DIMENSION taListadr[j,4]
ENDIF
taListadr[j,1] = lcColoana
taListadr[j,2] = lcTabel
taListadr[j,3] = lnidcol
taListadr[j,4] = lnCuloare
this.lista_dr.Requery()
Endif
ENDIF
ENDFOR
this.LockScreen=.f.
ENDPROC
PROCEDURE Init
PARAMETERS taListadr,talistaref
this.grd_act.SetFocus()
ENDPROC
PROCEDURE select_coloane
LOCAL lnColoane,lnCount,lfColoana
this.LockScreen=.t.
DIMENSION taListadr[1,4]
ADEL(taListadr,1)
this.lista_dr.clear()
lcsql = [{call pack_personal.select_col_acte(?poact.id_act)}]
lcCursor = [crsCol]
lnSucces = goExecutor.oExecute(lcsql,lcCursor)
If lnSucces < 0
Messagebox(goExecutor.cEroare,0+16,"Eroare")
ELSE
IF RECCOUNT('crsCol')>0
SELECT * FROM crsCol INTO ARRAY taListadr
this.lista_dr.Requery()
ENDIF
USE IN crsCol
Endif
this.LockScreen=.f.
ENDPROC
PROCEDURE Cmd_executa1.Click
thisform.do_umple_listadr()
ENDPROC
PROCEDURE Cmd_executa2.Click
thisform.do_alege_ref()
ENDPROC
PROCEDURE grd_act.AfterRowColChange
LPARAMETERS nColIndex
SELECT v_nom_acte
SCATTER NAME poact
thisform.select_coloane()
DODEFAULT(nColIndex)
ENDPROC
PROCEDURE lista_dr.Click
thisform.do_select_ref()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_copii_toti AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 519
Name = "frm_copii_toti"
Width = 792
WindowState = 2
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 912
_shape2.Left = 732
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "Lista cu angajati si copii"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 752
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 10, ;
DeleteMark = .F., ;
Height = 468, ;
Left = 12, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "salCopii", ;
Top = 47, ;
Width = 768, ;
Column1.ControlSource = "nume", ;
Column1.Name = "Column1", ;
Column1.Width = 109, ;
Column2.ControlSource = "prenume", ;
Column2.Name = "Column2", ;
Column2.Width = 113, ;
Column3.ControlSource = "marca", ;
Column3.Name = "Column3", ;
Column3.Width = 61, ;
Column4.ControlSource = "meseria", ;
Column4.Name = "Column4", ;
Column4.Width = 80, ;
Column5.ControlSource = "formatia", ;
Column5.Name = "Column5", ;
Column5.Width = 97, ;
Column6.ControlSource = "sectie", ;
Column6.Name = "Column6", ;
Column6.Width = 94, ;
Column7.ControlSource = "numec", ;
Column7.Name = "Column7", ;
Column7.Width = 132, ;
Column8.ControlSource = "prenumec", ;
Column8.Name = "Column8", ;
Column8.Width = 141, ;
Column9.ControlSource = "codpersc", ;
Column9.Name = "Column9", ;
Column9.Width = 102, ;
Column10.ControlSource = "datanast", ;
Column10.Format = "d", ;
Column10.Name = "Column10", ;
Column10.Width = 101
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Caption = "Nume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column10.Header1' AS header WITH ;
Caption = "Data nasterii", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
Caption = "Prenume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
Caption = "Marca", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
Caption = "Meseria", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
Caption = "Formatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ;
Caption = "Sectia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ;
Caption = "Nume copil", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column8.Header1' AS header WITH ;
Caption = "Prenume copil", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ;
Caption = "Codpers", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
caction = do_excel, ;
Left = 692, ;
Name = "But_excel1", ;
Top = 0, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
caction = do_listare, ;
Left = 721, ;
Name = "But_listare1", ;
Top = 0, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
Anchor = 9, ;
Left = 630, ;
Name = "But_reset_criterii1", ;
Top = 1
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
Left = 662, ;
Name = "But_start_criterii1", ;
Top = 0
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru
If Empty(tcFiltru)
lcFiltru = poCopii.ca_baza1.cfiltru
Else
lcFiltru = tcFiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform._grdrow1)
poCopii.ca_baza1.cfiltru=lcFiltru
poCopii.ca_baza1.afisare()
restore_grid_tag(Thisform._grdrow1)
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
ENDPROC
PROCEDURE do_cauta
LOCAL lcFiltru
*!* lcFiltru = poCopii.ca_baza1.cfiltru
lcFiltru = ' 2 = 2 '
IF LEN(THISFORM.filtru_pretty)>0
filtrutext=THISFORM.filtru_pretty
IF AT("AND",filtrutext)=1
filtrutext=RIGHT(filtrutext,LEN(filtrutext)-4)
ENDIF
lcFiltru=lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
ENDIF
IF (THIS.filtru_pretty#"none")
THISFORM.actualizeaza_grid1(lcFiltru)
IF RECCOUNT('salCopii')=0
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
ENDIF
ENDIF
THISFORM.but_start_criterii1.SETFOCUS
ENDPROC
PROCEDURE do_excel
goExport.export2xls('salCopii',[foaie_excel])
ENDPROC
PROCEDURE do_listare
lnMenu = xmenu("Lista cu angajatii si copiii acestora;Lista copii in ordinea varstei")
If !Between(lnMenu,1,2)
Return
ENDIF
If Inlist(lnMenu, 1)
this.AlwaysOnTop =.f.
goExport.export2frx([salCopii],'list_copii')
this.AlwaysOnTop =.t.
ENDIF
If Inlist(lnMenu, 2)
this.AlwaysOnTop =.f.
SELECT * FROM salcopii INTO CURSOR crsCopiiVarsta ORDER BY datanast
goExport.export2frx([crsCopiiVarsta],'list_copii_varsta')
this.AlwaysOnTop =.t.
Use In (Select('crsCopiiVarsta'))
ENDIF
ENDPROC
PROCEDURE do_reset
poCopii.ca_baza1.cfiltru = [ 2 = 2 ]
DODEFAULT()
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
PARAMETERS tacriterii
EXTERNAL ARRAY tacriterii
#DEFINE crlf CHR(13)+CHR(10)
lcStringCriterii="Marca\marca\N\none\"+crlf+;
"Nume salariat\nume\T\none\"+crlf+;
"Prenume salariat\prenume\T\none\"+crlf+;
"Formatia\formatia\T\none\" + crlf + ;
"Meseria\meseria\T\none\" + crlf + ;
"Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
"CNP angajat\codpers\T\none\" + crlf + ;
"Nume copil\numec\T\none\"+crlf+;
"Prenume copil\prenumec\T\none\"+crlf+;
"CNP copil\c_vechimea\T\none\"+crlf+;
"Data nasterii\b.datanast\D\none"
*!*
*!* "Serie act\serie_act\T\none\"+ crlf + ;
*!* "Data act\dataact\D\none\" + crlf + ;
*!* "Data inreg\dataIREG\D\none\" + crlf + ;
*!* "Tip document\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
*!* "Numar document\NRACT\N\none\" + crlf + ;
*!* "Explicatie D\partD\T\ID_PARTD\nom_parteneri"+ crlf + ;
*!* "Explicatie C\partC\T\ID_PARTC\nom_parteneri"+ crlf + ;
*!* "Explicatie\explicatia\T\none\"+ crlf + ;
*!* "Explicatia 4\explicatia4\T\none\"+ crlf + ;
*!* "Explicatia 5\explicatia5\T\none\"+ crlf + ;
*!* "Explicatii\partD,partC,explicatia,explicatia4,explicatia5\T\none\"+ crlf + ;
*!* "Gestiune destinatie\gestin\T\ID_GESTIN\nom_gestiune"+ crlf + ;
*!* "Gestiune sursa\gestout\T\ID_GESTOUT\nom_gestiune" + crlf + ;
*!* "Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
*!* "Contract\contract\T\none\" + crlf + ;
*!* "Cont debitor\scd\T\none\" + crlf + ;
*!* "Cont debitor analitic\ascd\T\none\" + crlf + ;
*!* "Cont creditor\scc\T\none\" + crlf + ;
*!* "Cont creditor analitic\ascc\T\none\" + crlf + ;
*!* "Suma\suma\N\none\" + crlf + ;
*!* "Suma valuta\suma_val\N\none\" + crlf + ;
*!* "Nr document incasat\perecheC\N\none\" + crlf + ;
*!* "Nr document platit\perecheD\N\none\" + crlf + ;
*!* "Nr. NIR/bon\nnir\N\none\" + crlf + ;
*!* "Responsabil\nresp\T\ID_RESPONSABIL\nom_parteneri" + crlf + ;
*!* "Cheltuieli/Venituri\dst_chlt\T\ ID_VENCHELT\nom_venchel" + crlf + ;
*!* "Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
*!* "Cod\cod\N\none\" + crlf + ;
*!* "Tip operatie\id_set\N\none\" + crlf + ;
*!* "Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ;
*!* "Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala" + crlf + ;
*!* "Cota TVA\proc_tva\N\none\" + crlf + ;
*!* "Explicatie TVA\explicatie_tva\T\none\" + crlf + ;
*!* "Data introducerii\trunc(dataora)\D\none\" + crlf + ;
*!* "Operator introducere\util\T\ID_UTIL\nom_utilizator" + crlf + ;
*!* "Validate\nofiled\E\(validat = 1)\" + crlf + ;
*!* "Nevalidate\nofiled\E\(validat = 0)\" + crlf + ;
*!* "Data validarii\trunc(dataorav)\D\none\" + crlf + ;
*!* "Operator validare\utilv\T\ID_UTILv\nom_utilizator"
DODEFAULT()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_curs_nou AS frm_termin_renunt OF "_frm_child.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_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_curs1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_curs" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_curs
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 2
DoCreate = .T.
Height = 172
Name = "frm_curs_nou"
nid = 0
orec =
Width = 373
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 310
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "CURSURI"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
Gridsort1.Name = "Gridsort1"
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 6
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 3, ;
Top = 104, ;
Width = 348, ;
TEXT_SIMPLU1.ControlSource = "porec.test", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 101, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 235, ;
LB_SIMPLU1.Caption = "Serie/ Nr Act", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 4, ;
Top = 132, ;
Width = 209, ;
TEXT_SIMPLU1.ControlSource = "porec.data", ;
TEXT_SIMPLU1.Format = "KD", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 101, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 103, ;
LB_SIMPLU1.Caption = "Data :", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu4", ;
TabIndex = 2, ;
Top = 76, ;
Width = 348, ;
Text_simplu1.ControlSource = "porec.nota", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 235, ;
Lb_simplu1.Caption = "Nota :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_curs' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(porec.id_c,0)), ;
cprocedura = Thisform.do_cauta_curs, ;
cvar_afisata = porec.denumire, ;
Height = 31, ;
Left = 16, ;
Name = "Ct_clb_curs", ;
TabIndex = 16, ;
Top = 42, ;
Width = 356, ;
SHAPE_CAUTARE.BorderStyle = 0, ;
SHAPE_CAUTARE.Name = "SHAPE_CAUTARE", ;
IMG_CAUTARE.Anchor = 672, ;
IMG_CAUTARE.Left = 318, ;
IMG_CAUTARE.Name = "IMG_CAUTARE", ;
IMG_CAUTARE.Top = 5, ;
LB_CAUTARE.Caption = "Denumire curs", ;
LB_CAUTARE.Left = 4, ;
LB_CAUTARE.Name = "LB_CAUTARE", ;
LB_CAUTARE.Top = 8, ;
TX_CAUTARE.Anchor = 672, ;
TX_CAUTARE.FontName = "Arial Narrow", ;
TX_CAUTARE.Height = 23, ;
TX_CAUTARE.Left = 100, ;
TX_CAUTARE.Name = "TX_CAUTARE", ;
TX_CAUTARE.Top = 4, ;
TX_CAUTARE.Width = 214
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_curs1' AS cus_odata_curs WITH ;
Left = 48, ;
Name = "Cus_odata_curs1", ;
Top = 36
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE Destroy
IF USED('v_curs')
USE IN v_curs
ENDIF
ENDPROC
PROCEDURE do_cauta_curs
LOCAL loCauta
SET STEP ON
loCauta = caut_curs(.T.)
If gnButon # 2
porec.denumire = Alltrim(locauta.denumire)
porec.id_c = locauta.id_c
Thisform.clb_tx_simplu4.text_simplu1.Setfocus()
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
lcActiune = this.cus_odata_curs1.cactiune
PLRETURN=This.cus_odata_curs1.salvare(This.OREC,This.NID)
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_curs1.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_difpart AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< 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="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column23.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column23.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_prenume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_cnp" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 390
Name = "frm_difpart"
Width = 639
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 639
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 577
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 61
Lb_titlu_alb_b121.Caption = "Parteneri"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 608
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 0
Gridsort1.Left = 192
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 8
*</PropValue>
ADD OBJECT '_GRID1' AS _grid WITH ;
Anchor = 15, ;
ColumnCount = 14, ;
DeleteMark = .F., ;
Height = 321, ;
Left = 3, ;
Name = "_GRID1", ;
Panel = 1, ;
RecordSource = "v_dif_part", ;
Top = 68, ;
Width = 633, ;
Column1.ControlSource = "round(nr,0)", ;
Column1.Name = "Column1", ;
Column1.Width = 67, ;
Column2.ControlSource = "nume", ;
Column2.Name = "Column2", ;
Column2.Width = 100, ;
Column3.ControlSource = "prenume", ;
Column3.Name = "Column3", ;
Column3.Width = 91, ;
Column4.ControlSource = "cod_fiscal", ;
Column4.Name = "Column4", ;
Column4.Width = 83, ;
Column5.ControlSource = "reg_comert", ;
Column5.Name = "Column5", ;
Column5.Width = 83, ;
Column6.ControlSource = "strada", ;
Column6.Name = "Column6", ;
Column7.ColumnOrder = 7, ;
Column7.ControlSource = "numar", ;
Column7.Name = "Column7", ;
Column7.Width = 59, ;
Column8.ColumnOrder = 12, ;
Column8.ControlSource = "telefon", ;
Column8.Name = "Column8", ;
Column9.ColumnOrder = 13, ;
Column9.ControlSource = "localitate", ;
Column9.Name = "Column9", ;
Column9.Width = 95, ;
Column10.ColumnOrder = 14, ;
Column10.ControlSource = "judet", ;
Column10.Name = "Column10", ;
Column10.Width = 108, ;
Column11.ColumnOrder = 11, ;
Column11.ControlSource = "apart", ;
Column11.Name = "Column14", ;
Column11.Width = 80, ;
Column12.ColumnOrder = 10, ;
Column12.ControlSource = "etaj", ;
Column12.Name = "Column15", ;
Column12.Width = 79, ;
Column13.ColumnOrder = 8, ;
Column13.ControlSource = "bloc", ;
Column13.Name = "Column22", ;
Column13.Width = 58, ;
Column14.ColumnOrder = 9, ;
Column14.ControlSource = "scara", ;
Column14.Name = "Column23", ;
Column14.Width = 92
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT '_GRID1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. crt", ;
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"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Judet", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Apart", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Etaj", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column15.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
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"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Bloc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column22.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column23.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Scara", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column23.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prenume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "CNP", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Bi seria,nr", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Strada", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Numar", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Telefon", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Localitate", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Left = 578, ;
Name = "BUT_RENUNT1", ;
Top = 0
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_cnp' AS ck_filtru_numar WITH ;
Alignment = 0, ;
Anchor = 3, ;
camp_nume = cod_fiscal, ;
Caption = "CNP", ;
Left = 118, ;
mask = (replicate('9',13)), ;
Name = "Ck_cnp", ;
Top = 33
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
Anchor = 3, ;
camp_nume = nume, ;
Caption = "Nume", ;
Left = 12, ;
Name = "Ck_nume", ;
Top = 33
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_prenume' AS ck_filtru_text WITH ;
Alignment = 0, ;
Anchor = 3, ;
camp_nume = prenume, ;
Caption = "Prenume", ;
Left = 60, ;
Name = "Ck_prenume", ;
Top = 33
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 9, ;
Left = 466, ;
Name = "Cmd_cauta1", ;
Top = 31
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 9, ;
Left = 551, ;
Name = "Cmd_reset1", ;
Top = 31
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
Lparameters pcFiltru
Local lcFiltru
lcFiltru=pcFiltru
If Empty(lcFiltru)
lcFiltru=podif.ca_baza1.cfiltru
Endif
Thisform._grid1.salveaza_grid()
podif.ca_baza1.cfiltru=lcFiltru
podif.ca_baza1.afisare()
Thisform._grid1.incarca_grid()
If Reccount('v_dif_part')>0
Select v_dif_part
Replace All nr With Recno()
Go Top
Thisform._grid1.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta
LOCAL lcFiltru
lcFiltru = "2=2"
IF thisform.ck_cnp.Value=1
lcFiltru = lcFiltru + thisform.ck_cnp.filtru
ENDIF
IF thisform.ck_nume.Value=1
lcFiltru = lcFiltru + thisform.ck_nume.filtru
ENDIF
IF thisform.ck_prenume.Value=1
lcFiltru = lcFiltru + thisform.ck_prenume.filtru
ENDIF
SELECT v_dif_part
replace ALL nr WITH RECNO()
GO TOP
thisform.actualizeaza_grid1(lcFiltru)
If Reccount('v_dif_part')=0
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
Endif
ENDPROC
PROCEDURE do_reset
WITH thisform
.ck_cnp.Value=0
.ck_nume.Value=0
.ck_prenume.Value=0
.do_cauta()
ENDWITH
ENDPROC
PROCEDURE _shape1.DblClick
IF thisform.WindowState= 0
thisform.WindowState= 2
ELSE
thisform.WindowState= 0
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_echip_nou AS frm_termin_renunt OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cus_odata_echip1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_articol
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 97
Name = "frm_echip_nou"
nid = 0
orec =
Width = 373
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 312
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Articole"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 1
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
Gridsort1.Left = 9
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 31
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 5
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 3, ;
Top = 65, ;
Width = 159, ;
Text_simplu1.ControlSource = "porec.numar", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 71, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 85, ;
Lb_simplu1.Caption = "Numar :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
cconditie = empty(porec.id_articol), ;
cprocedura = thisform.do_alege_articol, ;
cvar_afisata = porec.articol, ;
Left = 12, ;
Name = "Ct_clb_cautare1", ;
TabIndex = 1, ;
Top = 33, ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Articol", ;
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
clb_tx_cautare.Name = "clb_tx_cautare", ;
clb_tx_cautare.Text_simplu1.ControlSource = "", ;
clb_tx_cautare.Text_simplu1.Height = 23, ;
clb_tx_cautare.Text_simplu1.Left = 102, ;
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
clb_tx_cautare.Text_simplu1.Top = 3, ;
clb_tx_cautare.Text_simplu1.Width = 205
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_echip1' AS cus_odata_echip WITH ;
Left = 96, ;
Name = "Cus_odata_echip1", ;
Top = 12
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE do_alege_articol
lcSel = [select pack_personal.ver_cond_echip(?popers.id_stat) as rezultat from dual]
lcCursor = 'crs_id_cond'
lnSucces = goExecutor.oExecute(lcSel,lcCursor)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
ENDIF
SELECT crs_id_cond
lcString=rezultat
USE IN crs_id_cond
IF isnull(lcString)
MESSAGEBOX('Nu exista nici o conditie configurata pt aceasta persoana!',48,'Atentie')
RETURN
ENDIF
pcselect = [select id_nec,id_articol,articol,codmat,denumire as conditie from sal_vcond_echip]
pcfiltruOriginal = [1=1]+lcString
pcfiltru = [1=2]
pcorder = [articol]
pccoloane = [articol,codmat,conditie,id_articol]
pcTitlu = [Articole]
pcTitluColoane = [Articol,Cod material,Conditie,Id]
loHash=gethash()
loHash.setvalue('cSelect',pcselect)
loHash.setvalue('cFiltru',pcfiltru)
loHash.setvalue('cOrder',pcorder)
loHash.setvalue('cColoana',pccoloane)
loHash.setvalue('cTitlu',pcTitlu)
loHash.setvalue('cTitluColoana',pcTitluColoane)
loHash.setvalue('cFiltruOriginal',pcfiltruOriginal)
loCauta = cauta_alfa_hash(lohash)
IF !EMPTY(locauta.id_articol)
porec.articol = locauta.articol
porec.id_articol = locauta.id_articol
this.Refresh
ENDIF
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
lcActiune = this.cus_odata_echip1.cactiune
Do Case
Case Empty(porec.articol)
Messagebox('Nu ati completat articolul!',0+48,"Atentie")
this.clb_tx_simplu1.text_simplu1.SetFocus()
plreturn=.F.
OTHERWISE
PLRETURN=This.cus_odata_echip1.salvare(This.OREC,This.NID)
ENDCASE
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_echip1.cactiune = tcActiune
IF This.cus_odata_echip1.cactiune='INSERT'
thisform.do_alege_articol()
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_familie1_nou AS frm_termin_renunt OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cus_odata_fam1" UniqueID="" Timestamp="" />
*< 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="" />
*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 200
Name = "frm_familie1_nou"
nid = 0
orec =
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 308
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 70
Lb_titlu_alb_b121.Caption = "Date copil"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 8
BUT_TERMIN1.Left = 345
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Left = 312
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 7
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Cb_tx_simplu1", ;
TabIndex = 5, ;
Top = 153, ;
Width = 166, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 101, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "DA,NU", ;
_cbbase1.RowSourceType = 1, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 53, ;
_lbbase1.Caption = "<22>n <20>ntre<72>inere ?", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 41, ;
Width = 348, ;
Text_simplu1.ControlSource = "porec.nume", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 235, ;
Lb_simplu1.Caption = "Nume :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 2, ;
Top = 69, ;
Width = 348, ;
Text_simplu1.ControlSource = "porec.prenume", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 235, ;
Lb_simplu1.Caption = "Prenume :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_tx_simplu3", ;
TabIndex = 3, ;
Top = 97, ;
Width = 348, ;
Text_simplu1.ControlSource = "porec.codpers", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 235, ;
Lb_simplu1.Caption = "CNP :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu4", ;
TabIndex = 4, ;
Top = 125, ;
Width = 192, ;
Text_simplu1.ControlSource = "porec.datanast", ;
Text_simplu1.Format = "!KD", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 79, ;
Lb_simplu1.Caption = "Data na<6E>terii :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_fam1' AS cus_odata_fam WITH ;
Left = 336, ;
Name = "Cus_odata_fam1", ;
Top = 204
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
lcActiune = this.cus_odata_fam1.cactiune
Do Case
Case Empty(porec.nume)
Messagebox('Nu ati completat numele copilului!',0+48,"Atentie")
This.clb_tx_simplu1.SetFocus()
PLRETURN=.F.
CASE EMPTY(porec.prenume)
Messagebox('Nu ati completat prenumele copilului!',0+48,"Atentie")
This.clb_tx_simplu2.SetFocus()
PLRETURN=.F.
Otherwise
If Alltrim(Upper(This.cus_odata_fam1.cactiune))="INSERT"
pcexec=[select * from ]+gcS+[.sal_vcopii where (TRIM(nume)=']+Alltrim(porec.nume)+ [' and TRIM(prenume) = '] + ;
ALLTRIM(porec.prenume) + ;
[') and id_persoana=] + ALLTRIM(STR(popers.id_salariat))
Do While .T.
pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_copil')
If pnSucces = 0
* instructiunea in curs de executie
Else
Exit
Endif
Enddo
If Reccount('exista_copil')>0
Messagebox('Mai exista acest copil inregistrat',0+48,"Atentie")
This.clb_tx_simplu1.text_simplu1.SetFocus()
Use In exista_copil
PLRETURN=.F.
Else
PLRETURN=This.cus_odata_fam1.salvare(This.OREC,This.NID)
Endif
ELSE
PLRETURN=This.cus_odata_fam1.salvare(This.OREC,This.NID)
Endif
ENDCASE
IF PLRETURN AND THIS.CB_tx_simplu1._cbbase1.Value='DA'
pcexec = [select * from ] + gcS + [.sal_vintret where (TRIM(nume)='] + ALLTRIM(porec.nume) + [' and TRIM(prenume) = '] + ALLTRIM(porec.prenume)+;
[') and id_persoana=] + ALLTRIM(STR(popers.id_salariat))
Do While .T.
pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_intret')
If pnSucces = 0
* instructiunea in curs de executie
Else
Exit
Endif
ENDDO
If Reccount('exista_intret')>0
Messagebox('Mai exista aceasta persoana inregistrata in luna in curs',0+48,"Atentie")
This.clb_tx_simplu1.text_simplu1.SetFocus()
Use In exista_intret
ELSE
lcSql = [INSERT INTO ] + gcS + [.SAL_PERSINTRET (NUME,PRENUME,CODPERS,ID_STAT,ID_DEDUCERE) VALUES ('] + ALLTRIM(POREC.NUME) + ;
[','] + ALLTRIM(porec.prenume) + [',] + ALLTRIM(STR(porec.codpers,13)) + [,] + ALLTRIM(STR(popers.id_stat)) + [,2)]
lnSucces = goExecutor.oExecute(lcsql)
If lnSucces < 0
Messagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
ENDIF
ENDIF
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_fam1.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_fatalegitim AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 345
Name = "frm_fatalegitim"
Width = 502
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 516
_shape2.Left = 444
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "."
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 464
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
caction = do_listare, ;
Left = 433, ;
Name = "But_listare1", ;
Top = 2, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Check1' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Alege fotografie", ;
Height = 17, ;
Left = 372, ;
Name = "Check1", ;
Top = 200, ;
Visible = .F., ;
Width = 103
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Check2' AS checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Alege imagine sigla", ;
Height = 17, ;
Left = 21, ;
Name = "Check2", ;
Top = 200, ;
Width = 127
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'Image1' AS image WITH ;
Height = 121, ;
Left = 371, ;
Name = "Image1", ;
Top = 74, ;
Width = 109
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Image2' AS image WITH ;
Height = 60, ;
Left = 20, ;
Name = "Image2", ;
Picture = ..\..\grafice\backgrnd.bmp, ;
Top = 74, ;
Width = 72
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "LEGITIMATIE", ;
FontBold = .T., ;
FontSize = 12, ;
Height = 22, ;
Left = 200, ;
Name = "Label1", ;
Top = 121, ;
Width = 102
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr:", ;
Height = 17, ;
Left = 209, ;
Name = "Label2", ;
Top = 151, ;
Width = 18
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Cod acces:", ;
Height = 17, ;
Left = 20, ;
Name = "Label3", ;
Top = 225, ;
Width = 64
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Text1' AS textbox WITH ;
Alignment = 2, ;
BorderStyle = 0, ;
ControlSource = "m.gcantet", ;
DisabledBackColor = 255,255,255, ;
FontBold = .T., ;
FontSize = 11, ;
Height = 23, ;
Left = 32, ;
Name = "Text1", ;
ReadOnly = .T., ;
Top = 44, ;
Width = 432
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text2' AS textbox WITH ;
Alignment = 1, ;
BorderStyle = 0, ;
ControlSource = "pocaut.nume", ;
DisabledBackColor = 255,255,255, ;
Height = 23, ;
Left = 13, ;
Name = "Text2", ;
ReadOnly = .T., ;
Top = 254, ;
Width = 187
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
BorderStyle = 0, ;
ControlSource = "logelit.formatia", ;
DisabledBackColor = 255,255,255, ;
Height = 23, ;
Left = 13, ;
Name = "Text3", ;
ReadOnly = .T., ;
Top = 281, ;
Width = 372
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
BorderStyle = 0, ;
ControlSource = "logelit.meseria", ;
DisabledBackColor = 255,255,255, ;
Height = 23, ;
Left = 13, ;
Name = "Text4", ;
ReadOnly = .T., ;
Top = 307, ;
Width = 372
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text5' AS textbox WITH ;
Alignment = 0, ;
BorderStyle = 0, ;
ControlSource = "pocaut.MARCA", ;
DisabledBackColor = 255,255,255, ;
Height = 23, ;
Left = 233, ;
Name = "Text5", ;
ReadOnly = .T., ;
Top = 148, ;
Width = 96
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text6' AS textbox WITH ;
Alignment = 0, ;
BorderStyle = 0, ;
ControlSource = "pocaut.prenume", ;
DisabledBackColor = 255,255,255, ;
Height = 23, ;
Left = 204, ;
Name = "Text6", ;
ReadOnly = .T., ;
Top = 254, ;
Width = 187
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text7' AS textbox WITH ;
Alignment = 0, ;
ControlSource = "pcCodAcc", ;
DisabledBackColor = 255,255,255, ;
Height = 23, ;
Left = 92, ;
Name = "Text7", ;
Top = 222, ;
Width = 132
*< END OBJECT: BaseClass="textbox" />
PROCEDURE do_listare
PRIVATE pcPoza ,pcSigla
thisform.AlwaysOnTop = .f.
pcPoza = ALLTRIM(thisform.imaGE1.Picture)
pcSigla = ALLTRIM(thisform.image2.Picture)
pcSigla = GetPozaFile([SIGLA.BMP])
*!* MESSAGEBOX('pcPoza ='+pcPoza +[;pcSigla =]+pcSigla )
PRIVATE pcdate
pcdate=DATE()
LOCAL loForma
ON ESCAPE loForma.RELEASE
loForma = CREATEOBJECT("frm_termin")
loForma.ADDOBJECT("text_item1","text_item")
loForma.WIDTH = 236
loForma.HEIGHT = 108
loForma.but_termin1.LEFT = 204
loForma.lb_titlu_alb_b121.CAPTION = 'Data listare legitimatie'
loForma.lb_titlu_alb_b121.AUTOSIZE = .T.
loForma.text_item1.LEFT = 48
loForma.text_item1.TOP = 60
loForma.text_item1.CONTROLSOURCE = 'pcdate'
loForma.text_item1.SPECIALEFFECT = 0
loForma.text_item1.BORDERSTYLE = 1
loForma.text_item1.FORMAT = 'd'
loForma.text_item1.VISIBLE = .T.
loForma.text_item1.TABINDEX = 1
loForma.AUTOCENTER = .T.
loForma.SHOW(1)
goExport.export2frx([crsFisierLegitimatie],'legitimatie2')
thisform.AlwaysOnTop = .t.
ENDPROC
PROCEDURE Check1.Click
IF this.Value = 1
LOCAL lcPoza,lcDirector,lcNPoza,lcCalePozaServer,lcSql,lnSucces
PRIVATE pcFisier
*!* lcDirector = ADDBS(calefirma) + "datean\poze"
lcPoza = GETFILE("jpg,bmp","Alegeti fotografia","Alege",0,"Alegere fotografie")
IF EMPTY(lcPoza)
RETURN
ENDIF
lcCalePozaServer = GetPozaFile(ALLTRIM(STR(pocaut.marca))+[.]+JUSTEXT(lcPoza))
lcNPoza = lcCalePozaServer
IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza))
IF !FILE(lcNPoza)
lcSQl = [ MERGE INTO sal_legitimatii a ]+;
[ USING (SELECT ]+ Alltrim(Str(pocaut.id_salariat)) + [ as id_salariat, ]+;
ALLTRIM(STR(pocaut.marca))+[.]+JUSTEXT(lcPoza) +[ as numefis FROM dual) b ]+;
[ ON (a.id_salariat = b.id_salariat and a.sters = 0) ]+;
[ WHEN MATCHED THEN ]+;
[ UPDATE SET a.numefis = b.numefis ]+;
[WHEN NOT MATCHED THEN ]+;
[ INSERT (a.id_salariat, a.numefis) ]+;
[ VALUES (b.id_salariat, b.numefis) ]
lnSucces = goExecutor.oExecute(lcSQl)
If lnSucces < 0
amessagebox(goExecutor.cEroare,16,"Eroare")
RETURN
ENDIF
IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza))
COPY FILE (lcPOza) TO &lcNPoza
ENDIF
ENDIF
ENDIF
thisform.image1.picture = lcNpoza
thisform.imAGE1.Height = 121
thisform.imaGE1.Width = 109
thisform.imAGE1.Stretch= 1
thisform.Refresh
*------------------
ENDIF
ENDPROC
PROCEDURE Check2.Click
IF this.Value = 1
LOCAL lcPoza,lcDirector,lcNPoza,lcCalePozaServer,lcSql,lnSucces,lcCalePozaServerRename
PRIVATE pcFisier
*!* lcDirector = ADDBS(calefirma) + "datean\poze"
lcPoza = GETFILE("jpg,bmp","Alegeti fotografia","Alege",0,"Alegere fotografie")
IF EMPTY(lcPoza)
RETURN
ENDIF
lcCalePozaServer = GetPozaFile([SIGLA.BMP])
IF FILE(lcCalePozaServer) AND UPPER(lcPoza)<> UPPER(lcCalePozaServer)
lcCalePozaServerRename = GetPozaFile([SIGLA]+ALLTRIM(TRANSFORM(DATETIME()))+[.BMP])
RENAME (lcCalePozaServer) TO (lcCalePozaServerRename)
ENDIF
IF UPPER(lcPoza)<> UPPER(lcCalePozaServer)
COPY FILE (lcPOza) TO (lcCalePozaServer)
ENDIF
thisform.image2.picture = lcCalePozaServer
thisform.imAGE2.Height = 121
thisform.imaGE2.Width = 109
thisform.imAGE2.Stretch= 1
thisform.Refresh
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_incetare_reg AS formtermin OF "_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="Cb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_editbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 211
Name = "frm_incetare_reg"
Width = 498
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 527
_shape2.Height = 29
_shape2.Left = 461
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 34
Lb_titlu_alb_b121.Caption = "Incetare Contract"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 464
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_editbox1' AS _editbox WITH ;
ControlSource = "pcExpReg", ;
Height = 82, ;
Left = 12, ;
Name = "_editbox1", ;
ReadOnly = .F., ;
Top = 86, ;
Width = 480
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="editbox" />
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Cb_tx_simplu1", ;
Top = 36, ;
Width = 480, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 152, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "CrsTemei.denumire", ;
_cbbase1.RowSourceType = 2, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 321, ;
_lbbase1.Caption = "Temei incetare contract", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
Top = 171, ;
Width = 291, ;
Text_simplu1.ControlSource = "pcDataRegistru", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 215, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 73, ;
Lb_simplu1.Caption = "Data la care se produce modificarea", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Explicatie temei incetare / Decizie incetare", ;
Left = 12, ;
Name = "Lb_simplu1", ;
Top = 68
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE inainte_de_do_termin
IF EMPTY(pnIdtemei)
MESSAGEBOX('Alegeti un temei!')
RETURN .f.
ENDIF
IF EMPTY(pcDataRegistru)
MESSAGEBOX('Completati data modificarii!')
RETURN .f.
ENDIF
ENDPROC
PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange
SELECT crsTemei
pnIdTemei=id_temei
pcExpReg=ALLTRIM(explicatie)
thisform._editbox1.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS frm_intret_nou AS frm_termin_renunt OF "_frm_child.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="Cb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CUS_ODATA_INTRET1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 202
Name = "frm_intret_nou"
nid = 0
orec =
Width = 400
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 402
_shape1.ZOrderSet = 1
_shape2.Height = 29
_shape2.Left = 340
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "Adaug<75>/modific<69> persoana aflat<61> <20>n <20>ntre<72>inere"
Lb_titlu_alb_b121.Left = 7
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 8
Lb_titlu_alb_b121.Top = 6
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Left = 370
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
Gridsort1.Name = "Gridsort1"
But_renunt1.Left = 341
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 7
But_renunt1.Top = 1
But_renunt1.ZOrderSet = 5
*</PropValue>
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 16, ;
Name = "Cb_tx_simplu1", ;
TabIndex = 5, ;
Top = 158, ;
Width = 369, ;
ZOrderSet = 10, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 101, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "v_hand1.denumire,id_handicap", ;
_cbbase1.RowSourceType = 6, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 259, ;
_lbbase1.Caption = "Handicap :", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 16, ;
Name = "Cb_tx_simplu2", ;
TabIndex = 4, ;
Top = 130, ;
Width = 369, ;
ZOrderSet = 9, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 101, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "v_dedsupl.calitate,id_dedsupl", ;
_cbbase1.RowSourceType = 6, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 258, ;
_lbbase1.Caption = "Calitate :", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 16, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 46, ;
Width = 369, ;
ZOrderSet = 6, ;
Text_simplu1.ControlSource = "porec.nume", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 257, ;
Lb_simplu1.Caption = "Nume :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 16, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 2, ;
Top = 74, ;
Width = 369, ;
ZOrderSet = 7, ;
Text_simplu1.ControlSource = "porec.prenume", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 258, ;
Lb_simplu1.Caption = "Prenume :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 16, ;
Name = "Clb_tx_simplu3", ;
TabIndex = 3, ;
Top = 102, ;
Width = 369, ;
ZOrderSet = 8, ;
Text_simplu1.ControlSource = "porec.codpers", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 258, ;
Lb_simplu1.Caption = "CNP :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'CUS_ODATA_INTRET1' AS cus_odata_intret WITH ;
Left = 131, ;
Name = "CUS_ODATA_INTRET1", ;
Top = 232
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE Destroy
IF USED('v_hand1')
USE IN v_hand1
ENDIF
IF USED('v_dedsupl')
USE IN v_dedsupl
ENDIF
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
IF !EMPTY(this.cb_tx_simplu2._cbbase1.value)
porec.id_deducere = v_dedsupl.id_dedsupl
ELSE
porec.id_deducere = 0
ENDIF
IF !EMPTY(this.cb_tx_simplu1._cbbase1.Value)
porec.id_handicap = v_hand1.id_handicap
ELSE
porec.id_handicap = 0
ENDIF
Do Case
Case Empty(porec.nume)
Messagebox('Nu ati completat numele !',0+48,"Atentie")
This.clb_tx_simplu1.SetFocus()
PLRETURN=.F.
CASE EMPTY(porec.prenume)
Messagebox('Nu ati completat prenumele !',0+48,"Atentie")
This.clb_tx_simplu2.SetFocus()
PLRETURN=.F.
CASE EMPTY(porec.id_deducere)
Messagebox('Nu ati completat calitatea!',0+48,"Atentie")
This.cb_tx_simplu2.SetFocus()
PLRETURN=.F.
Otherwise
If Alltrim(Upper(This.cus_odata_intret1.cactiune))="INSERT"
pcexec = [select * from ] + gcS + [.sal_vintret where (TRIM(nume)='] + ALLTRIM(porec.nume) + ;
[' and TRIM(prenume)='] + ALLTRIM(porec.prenume) + [' and id_persoana=] + ALLTRIM(STR(popers.id_salariat)) + [)]
Do While .T.
pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_intret')
If pnSucces = 0
* instructiunea in curs de executie
Else
Exit
Endif
ENDDO
If Reccount('exista_intret')>0
Messagebox('Mai exista aceasta persoana inregistrata in luna in curs',0+48,"Atentie")
This.clb_tx_simplu1.text_simplu1.SetFocus()
Use In exista_intret
PLRETURN=.F.
ELSE
PLRETURN=This.cus_odata_intret1.salvare(This.OREC,This.NID)
ENDIF
ELSE
PLRETURN=This.cus_odata_intret1.salvare(This.OREC,This.NID)
ENDIF
ENDCASE
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_intret1.cactiune = tcActiune
IF tcActiune = 'UPDATE'
SELECT v_hand1
LOCATE FOR id_handicap = toRec.id_handicap
IF FOUND()
this.cb_tx_simplu1._cbbase1.Value=ALLTRIM(denumire)
this.cb_tx_simplu1._cbbase1.Requery()
this.cb_tx_simplu1._cbbase1.Refresh()
ENDIF
SELECT v_dedsupl
LOCATE FOR id_dedsupl = toRec.id_deducere
IF FOUND()
this.cb_tx_simplu2._cbbase1.Value=ALLTRIM(calitate)
this.cb_tx_simplu2._cbbase1.Requery()
this.cb_tx_simplu2._cbbase1.Refresh()
ENDIF
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_limbi_nou AS frm_termin_renunt OF "_frm_child.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_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_limbi1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_limba" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_limba
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 2
DoCreate = .T.
Height = 114
Name = "frm_limbi_nou"
nid = 0
orec =
Width = 374
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 309
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 66
Lb_titlu_alb_b121.Caption = "LIMBI STR<54>INE"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
BUT_TERMIN1.Left = 343
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 4
*</PropValue>
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 14, ;
Name = "Clb_tx_simplu4", ;
TabIndex = 2, ;
Top = 74, ;
Width = 348, ;
Text_simplu1.ControlSource = "porec.nota", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 235, ;
Lb_simplu1.Caption = "Nota :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_limba' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(porec.id_limba,0)), ;
cprocedura = Thisform.do_cauta_limba, ;
cvar_afisata = porec.denumire, ;
Height = 31, ;
Left = 16, ;
Name = "Ct_clb_limba", ;
TabIndex = 16, ;
Top = 39, ;
Width = 356, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 318, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Limba straina", ;
lb_cautare.Left = 4, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 100, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 214
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_limbi1' AS cus_odata_limbi WITH ;
Left = 63, ;
Name = "Cus_odata_limbi1", ;
Top = 38
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE do_cauta_limba
LOCAL loCauta
SET STEP ON
loCauta = caut_limba(.T.)
If gnButon # 2
porec.denumire = Alltrim(locauta.denumire)
porec.id_limba = locauta.id_limba
Thisform.clb_tx_simplu4.text_simplu1.Setfocus()
Endif
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
lcActiune = this.cus_odata_limbi1.cactiune
PLRETURN=This.cus_odata_limbi1.salvare(This.OREC,This.NID)
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_limbi1.cactiune = tcActiune
*!* IF tcActiune = 'UPDATE'
*!* SELECT v_limba
*!* LOCATE FOR id_LIMBA = toRec.id_LIMBA
*!* IF FOUND()
*!* this.cb_tx_simplu1._cbbase1.Value=torec.denumire
*!* this.cb_tx_simplu1._cbbase1.Refresh()
*!* ENDIF
*!* ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_lista_pers_vechime AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cLuna.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cLuna.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cAn.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cAn.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nan
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 532
Name = "frm_lista_pers_vechime"
nan = .F.
Width = 796
WindowState = 2
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 804
_shape2.Left = 662
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "Lista cu angajatii care schimba coeficientul de vechime in luna curenta"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 764
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 12, ;
DeleteMark = .F., ;
Height = 468, ;
Left = 12, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "salVechiSchimb", ;
Top = 60, ;
Width = 768, ;
Column1.ControlSource = "nume", ;
Column1.Name = "Column1", ;
Column1.Width = 109, ;
Column2.ControlSource = "Prenume", ;
Column2.Name = "Column2", ;
Column2.Width = 113, ;
Column3.ControlSource = "marca", ;
Column3.Name = "Column3", ;
Column3.Width = 61, ;
Column4.ControlSource = "meseria", ;
Column4.Name = "Column4", ;
Column4.Width = 80, ;
Column5.ControlSource = "formatia", ;
Column5.Name = "Column5", ;
Column5.Width = 97, ;
Column6.ControlSource = "sectia", ;
Column6.Name = "Column6", ;
Column6.Width = 94, ;
Column7.ControlSource = "vechime", ;
Column7.Name = "Column7", ;
Column7.Width = 83, ;
Column8.ControlSource = 'ALLTRIM(STR(INT(vechime/12)))+"+"+ALLTRIM(STR(MOD(vechime,12)))', ;
Column8.Name = "Column8", ;
Column9.ControlSource = "c_vechime", ;
Column9.InputMask = "9.9999", ;
Column9.Name = "Column9", ;
Column9.Width = 102, ;
Column10.ControlSource = "c_vechimea", ;
Column10.InputMask = "9.999", ;
Column10.Name = "Column10", ;
Column10.Width = 125, ;
Column11.InputMask = "99", ;
Column11.Name = "cLuna", ;
Column11.Visible = .T., ;
Column11.Width = 32, ;
Column12.Name = "cAn", ;
Column12.Width = 46
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.cAn.Header1' AS header WITH ;
Caption = "An", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cAn.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.cLuna.Header1' AS header WITH ;
Caption = "Luna", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cLuna.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255, ;
Visible = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Caption = "Nume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column10.Header1' AS header WITH ;
Caption = "Coef. sp. vechime ant.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
Caption = "Prenume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
Caption = "Marca", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
Caption = "Meseria", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
Caption = "Formatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ;
Caption = "Sectia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ;
Caption = "Vechime (luni)", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column8.Header1' AS header WITH ;
Caption = "Vechime", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ;
Caption = "Coef. sp. vechime", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
caction = do_excel, ;
Left = 706, ;
Name = "But_excel1", ;
Top = 0, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
caction = do_listare, ;
Left = 735, ;
Name = "But_listare1", ;
Top = 0, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
Anchor = 9, ;
Left = 644, ;
Name = "But_reset_criterii1", ;
Top = 1
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
Left = 676, ;
Name = "But_start_criterii1", ;
Top = 0
*< END OBJECT: ClassLib="ocriterii.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru
If Empty(tcFiltru)
lcFiltru = poSpvechi.ca_baza1.cfiltru
Else
lcFiltru = tcFiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform._grdrow1)
poSpvechi.ca_baza1.cfiltru=lcFiltru
poSpvechi.ca_baza1.afisare()
restore_grid_tag(Thisform._grdrow1)
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
ENDPROC
PROCEDURE do_cauta
LOCAL lcFiltru
lcFiltru = poSpvechi.ca_baza1.cfiltru
IF LEN(THISFORM.filtru_pretty)>0
filtrutext=THISFORM.filtru_pretty
IF AT("AND",filtrutext)=1
filtrutext=RIGHT(filtrutext,LEN(filtrutext)-4)
ENDIF
lcFiltru=lcFiltru+" and ("+ALLTRIM(filtrutext)+")"
ENDIF
IF (THIS.filtru_pretty#"none")
THISFORM.actualizeaza_grid1(lcFiltru)
IF RECCOUNT('salVechiSchimb')=0
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
ENDIF
ENDIF
THISFORM.but_start_criterii1.SETFOCUS
ENDPROC
PROCEDURE do_excel
IF this.nan
** coef de vechime schimbati in an
SELECT salvechischimb
SELECT nume,prenume,marca,meseria,formatia,vechime,ALLTRIM(STR(INT(vechime/12)))+"+"+ALLTRIM(STR(MOD(vechime,12))) as vechimel,;
c_vechime,c_vechimea,lunaschimb FROM salvechischimb INTO CURSOR crsExcel ORDER BY nume
goExport.export2xls('crsExcel',[foaie_excel])
ELSE
** coef de vechime schimbati in luna
SELECT salvechischimb
SELECT nume,prenume,marca,meseria,formatia,vechime,ALLTRIM(STR(INT(vechime/12)))+"+"+ALLTRIM(STR(MOD(vechime,12))) as vechimel,;
c_vechime,c_vechimea FROM salvechischimb INTO CURSOR crsExcel ORDER BY nume
goExport.export2xls('crsExcel',[foaie_excel])
ENDIF
USE IN crsExcel
ENDPROC
PROCEDURE do_listare
THISFORM.ALWAYSONTOP=.F.
IF this.nan
** coef de vechime schimbati in an
SELECT salvechischimb
INDEX ON formatia TO formatia_index.idx ascending
REPORT FORM list_vechime_an TO PRINTER PROMPT PREVIEW
ELSE
** coef de vechime schimbati in luna
SELECT salvechischimb
INDEX ON formatia TO formatia_index.idx ascending
REPORT FORM list_pers_vechime_modif TO PRINTER PROMPT PREVIEW
ENDIF
THISFORM.ALWAYSONTOP=.T.
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
PARAMETERS tacriterii
EXTERNAL ARRAY tacriterii
#DEFINE crlf CHR(13)+CHR(10)
lcStringCriterii="Marca\marca\N\none\"+crlf+;
"Nume\nume\T\none\"+crlf+;
"Formatia\formatia\T\none\" + crlf + ;
"Meseria\meseria\T\none\" + crlf + ;
"Sectia\sectia\T\ID_SECTIE\nom_sectie" + crlf + ;
"Vechime (luni) \vechime\N\none\" + crlf + ;
"Coef. spor vechime\c_vechime\N\none\" + crlf + ;
"Coef. spor vechime anterior\c_vechimea\N\none\"
*!*
*!* "Serie act\serie_act\T\none\"+ crlf + ;
*!* "Data act\dataact\D\none\" + crlf + ;
*!* "Data inreg\dataIREG\D\none\" + crlf + ;
*!* "Tip document\fdoc\T\id_fdoc\nom_feldoc"+ crlf + ;
*!* "Numar document\NRACT\N\none\" + crlf + ;
*!* "Explicatie D\partD\T\ID_PARTD\nom_parteneri"+ crlf + ;
*!* "Explicatie C\partC\T\ID_PARTC\nom_parteneri"+ crlf + ;
*!* "Explicatie\explicatia\T\none\"+ crlf + ;
*!* "Explicatia 4\explicatia4\T\none\"+ crlf + ;
*!* "Explicatia 5\explicatia5\T\none\"+ crlf + ;
*!* "Explicatii\partD,partC,explicatia,explicatia4,explicatia5\T\none\"+ crlf + ;
*!* "Gestiune destinatie\gestin\T\ID_GESTIN\nom_gestiune"+ crlf + ;
*!* "Gestiune sursa\gestout\T\ID_GESTOUT\nom_gestiune" + crlf + ;
*!* "Lucrare/Comanda\nrord\T\ID_LUCRARE\nom_lucrare" + crlf + ;
*!* "Contract\contract\T\none\" + crlf + ;
*!* "Cont debitor\scd\T\none\" + crlf + ;
*!* "Cont debitor analitic\ascd\T\none\" + crlf + ;
*!* "Cont creditor\scc\T\none\" + crlf + ;
*!* "Cont creditor analitic\ascc\T\none\" + crlf + ;
*!* "Suma\suma\N\none\" + crlf + ;
*!* "Suma valuta\suma_val\N\none\" + crlf + ;
*!* "Nr document incasat\perecheC\N\none\" + crlf + ;
*!* "Nr document platit\perecheD\N\none\" + crlf + ;
*!* "Nr. NIR/bon\nnir\N\none\" + crlf + ;
*!* "Responsabil\nresp\T\ID_RESPONSABIL\nom_parteneri" + crlf + ;
*!* "Cheltuieli/Venituri\dst_chlt\T\ ID_VENCHELT\nom_venchel" + crlf + ;
*!* "Sectie\sectie\T\ID_SECTIE\nom_sectie" + crlf + ;
*!* "Cod\cod\N\none\" + crlf + ;
*!* "Tip operatie\id_set\N\none\" + crlf + ;
*!* "Valuta\nume_val\T\ID_VALUTA\nom_valuta" + crlf + ;
*!* "Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala" + crlf + ;
*!* "Cota TVA\proc_tva\N\none\" + crlf + ;
*!* "Explicatie TVA\explicatie_tva\T\none\" + crlf + ;
*!* "Data introducerii\trunc(dataora)\D\none\" + crlf + ;
*!* "Operator introducere\util\T\ID_UTIL\nom_utilizator" + crlf + ;
*!* "Validate\nofiled\E\(validat = 1)\" + crlf + ;
*!* "Nevalidate\nofiled\E\(validat = 0)\" + crlf + ;
*!* "Data validarii\trunc(dataorav)\D\none\" + crlf + ;
*!* "Operator validare\utilv\T\ID_UTILv\nom_utilizator"
DODEFAULT()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_locmunca_reg AS formtermin OF "_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="" />
*<DefinedPropArrayMethod>
*p: id_modlic
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 117
id_modlic = 1
Name = "frm_locmunca_reg"
Width = 498
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 527
_shape2.Height = 29
_shape2.Left = 461
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 34
Lb_titlu_alb_b121.Caption = "Modificare loc de munca / Transfer la alta entitate a angajatorului"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 464
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
Top = 80, ;
Width = 291, ;
Text_simplu1.ControlSource = "pcDataRegistru", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 215, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 73, ;
Lb_simplu1.Caption = "Data la care se produce modificarea", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu2", ;
Top = 48, ;
Width = 455, ;
Text_simplu1.ControlSource = "pcExpReg", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 167, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 284, ;
Lb_simplu1.Caption = "Denumire entitate angajator", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
PROCEDURE inainte_de_do_termin
IF EMPTY(pcexpreg)
MESSAGEBOX('Completati denumirea entitatii!')
RETURN .f.
ENDIF
IF EMPTY(pcDataRegistru)
MESSAGEBOX('Completati data modificarii!')
RETURN .f.
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_modificari_reg AS formtermin OF "_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="Cb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_editbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: id_modlic
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 211
id_modlic = 1
Name = "frm_modificari_reg"
Width = 498
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 527
_shape2.Height = 29
_shape2.Left = 461
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 34
Lb_titlu_alb_b121.Caption = "Modificare Functie ( Meserie )"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 464
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_editbox1' AS _editbox WITH ;
ControlSource = "pcexpReg", ;
Height = 82, ;
Left = 12, ;
Name = "_editbox1", ;
Top = 86, ;
Width = 480
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="editbox" />
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Cb_tx_simplu1", ;
Top = 36, ;
Width = 480, ;
_cbbase1.FirstElement = 1, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 152, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "crsModLic.modlic", ;
_cbbase1.RowSourceType = 2, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 321, ;
_lbbase1.Caption = "Motiv modificare contract", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
Top = 173, ;
Width = 291, ;
Text_simplu1.ControlSource = "pcDataRegistru", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 215, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 73, ;
Lb_simplu1.Caption = "Data la care se produce modificarea", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Explicatie Motiv Modificare", ;
Left = 12, ;
Name = "Lb_simplu1", ;
Top = 68
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE inainte_de_do_termin
IF EMPTY(pnIdModLic)
aMESSAGEBOX('Alegeti un motiv!',48,"Atentie")
RETURN .f.
ENDIF
IF EMPTY(pcDataRegistru)
aMESSAGEBOX('Completati data modificarii!',48,"Atentie")
RETURN .f.
ENDIF
ENDPROC
PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange
pnIdModLic=id_modlic
ENDPROC
ENDDEFINE
DEFINE CLASS frm_modificari_salarii AS _frmbase OF "_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="BUT_RENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cNume.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cNume.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cPrenume.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cPrenume.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cMeseria.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cMeseria.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cFormatia.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cFormatia.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cSectie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cSectie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cCodpers.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cCodpers.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar_nou.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grd_tarifare.cTarifar_nou.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 477
Name = "frm_modificari_salarii"
Width = 974
WindowState = 2
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 2
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 972
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 902
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 73
Lb_titlu_alb_b121.Caption = "Modificare tarifar"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 942
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
caction = do_listare, ;
Left = 828, ;
Name = "But_listare1", ;
ToolTipText = "Listare decizie colectiva (CTRL+P)", ;
Top = 0, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 907, ;
Name = "BUT_RENUNT1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Anchor = 9, ;
Left = 564, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 36, ;
Text_simplu1.Alignment = 3, ;
Text_simplu1.InputMask = (get_mask(9,0)), ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Value = 0, ;
Lb_simplu1.Caption = "Tarifar nou", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Anchor = 9, ;
Caption = "\<Actualizeaz<61>", ;
Left = 864, ;
Name = "Cmd_executa1", ;
TabIndex = 2, ;
Top = 37
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grd_tarifare' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 8, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
Height = 396, ;
Left = 12, ;
Name = "grd_tarifare", ;
Panel = 1, ;
RecordSource = "crsmoditarifar", ;
TabIndex = 6, ;
Top = 72, ;
Width = 948, ;
Column1.ControlSource = "nume", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "cNume", ;
Column1.Width = 128, ;
Column2.ControlSource = "prenume", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "cPrenume", ;
Column2.Width = 142, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "meseria", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "cMeseria", ;
Column3.Width = 130, ;
Column4.ColumnOrder = 5, ;
Column4.ControlSource = "formatia", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "cFormatia", ;
Column4.Width = 130, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "sectie", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "cSectie", ;
Column5.Width = 143, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "tarifar", ;
Column6.FontName = "Arial Narrow", ;
Column6.InputMask = (get_mask(9,0)), ;
Column6.Name = "cTarifar", ;
Column6.Width = 72, ;
Column7.ColumnOrder = 3, ;
Column7.ControlSource = "codpers", ;
Column7.FontName = "Arial Narrow", ;
Column7.Name = "cCodpers", ;
Column7.Width = 98, ;
Column8.ControlSource = "tarifar_nou", ;
Column8.FontName = "Arial Narrow", ;
Column8.InputMask = (get_mask(9,0)), ;
Column8.Name = "cTarifar_nou", ;
Column8.Width = 65
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grd_tarifare.cCodpers.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "CNP", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cCodpers.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grd_tarifare.cFormatia.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Formatie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cFormatia.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grd_tarifare.cMeseria.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Meserie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cMeseria.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grd_tarifare.cNume.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cNume.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grd_tarifare.cPrenume.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prenume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cPrenume.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grd_tarifare.cSectie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cSectie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grd_tarifare.cTarifar.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tarifar actual", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cTarifar.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grd_tarifare.cTarifar_nou.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tarifar nou", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grd_tarifare.cTarifar_nou.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
gridexpression = Thisform.grd_tarifare, ;
Left = 144, ;
Name = "Gridextra1", ;
Top = 12
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
PROCEDURE do_executa
Select (Thisform.grd_tarifare.RecordSource)
Replace tarifar_nou With Thisform.clb_tx_simplu1.text_simplu1.Value ALL
ENDPROC
PROCEDURE do_listare
loRec = template_citeste(-7)
template_completeaza(loRec,'deciziecolectiva',0,'')
ENDPROC
PROCEDURE inainte_de_do_termin
Private poPers
Local lcCursor, llReturn, loFrm
lcCursor = Thisform.grd_tarifare.RecordSource
Select (lcCursor)
Scatter Name loRec
AddProperty(loRec,"tip_modificare",3)
AddProperty(loRec,"dataconsemnare",{})
*!* modificare ROARES 2.1.0
AddProperty(loRec,"dataactmodif",DATE())
AddProperty(loRec,"tipactmodif",'ACT ADITIONAL')
AddProperty(loRec,"id_tipact",3)
AddProperty(loRec,"nractmodif",-100)
poPers = loRec
If gnScrieRegistru = 1
loFrm = Createobject("frm_salvare_opersonal",.T.)
loFrm.Show(1)
Else
gnButon = 1
poPers.tip_modificare = 1
poPers.dataconsemnare = Null
Endif
If gnButon = 1
llReturn = .T.
If Thisform.do_deschide_tranzactie()
Select (lcCursor)
Set Filter To
Scan For tarifar <> tarifar_nou
Scatter Name loTarifar
lcSql = [begin pack_personal.actualizeaza_tarifar(?gnLuna,?gnAn,] + Alltrim(Str(loTarifar.id_sal_ctr)) + [,] + ;
ALLTRIM(Str(loTarifar.tarifar_nou,14,0)) + [,] + Alltrim(Str(loRec.tip_modificare)) + [,] + ;
[to_date('] + Nvl(Alltrim(Dtoc(loRec.dataconsemnare,1)),"") + [','YYYYMMDD'),?gnIdUtil); end;]
If !goExecutor.oExecuta(lcSql)
llReturn = .F.
Exit
Endif
Select (lcCursor)
Endscan
*!* tranzactie automata
Thisform.do_inchide_tranzactie(Iif(llReturn,1,2))
Else
llReturn = .F.
Endif
Else
llReturn = .F.
Endif
Release lcCursor, loFrm, poPers
Return llReturn
ENDPROC
PROCEDURE Init
DoDefault()
Thisform.gridextra1.Setup()
Thisform.grd_tarifare.ctarifar_nou.DynamicBackColor = [Rgb(255,255,128)]
Thisform.grd_tarifare.SetAll("DynamicFontBold","IIF(tarifar<>tarifar_nou,.T.,.F.)","Column")
Thisform.grd_tarifare.ctarifar_nou.ReadOnly = .F.
ENDPROC
ENDDEFINE
DEFINE CLASS frm_nom_acte AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Name = "frm_nom_acte"
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 252
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 122
Lb_titlu_alb_b121.Caption = "Nomenclator documente"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Left = 9
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 25
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 2, ;
DeleteMark = .F., ;
Height = 200, ;
Left = 13, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "vnom_acte", ;
Top = 43, ;
Width = 347, ;
Column1.ControlSource = "nr", ;
Column1.Name = "Column1", ;
Column1.Width = 39, ;
Column2.ControlSource = "nume_act", ;
Column2.Name = "Column2", ;
Column2.Width = 246
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. crt.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 284, ;
Name = "But_modifica1", ;
Top = 2
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 255, ;
Name = "But_nou1", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 312, ;
Name = "But_sterge1", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=poact.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform._grdrow1)
poact.ca_baza1.cfiltru=lcFiltru
poact.ca_baza1.afisare()
restore_grid_tag(thisform._grdrow1)
thisform._grdrow1.SetFocus()
ENDPROC
PROCEDURE do_adauga
Private pniesire
pniesire=0
Select vnom_acte
Scatter Name loRec Blank
Do Adauga_Modifica_Inregistrare With "nom_acte",loRec,,"INSERT",,"addact"
If pniesire=1
This.actualizeaza_grid1()
Endif
ENDPROC
PROCEDURE do_modifica
Private pniesire
pniesire=0
Select vnom_acte
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "nom_acte",loRec,loRec.id_act,"UPDATE",,"modact"
If pniesire=1
This.actualizeaza_grid1()
Endif
ENDPROC
PROCEDURE do_sterge
SELECT vnom_acte
SCATTER NAME lorec
Do STERGE_INREGISTRARE With "nom_acte",loRec.id_act
This.actualizeaza_grid1()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_nom_acte_nou AS frm_termin_renunt OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Cus_odata_nom_acte1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
Caption = "Form"
DoCreate = .T.
Height = 84
Name = "frm_nom_acte_nou"
nid = .F.
orec = .F.
Width = 473
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 472
_shape2.Anchor = 6
_shape2.Height = 29
_shape2.Left = 409
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 63
Lb_titlu_alb_b121.Caption = "Documente"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 4
BUT_TERMIN1.Anchor = 6
BUT_TERMIN1.Left = 440
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Anchor = 6
But_renunt1.Left = 411
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 3
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 14, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 41, ;
Width = 449, ;
Text_simplu1.ControlSource = "porec.nume_act", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 341, ;
Lb_simplu1.Caption = "Denumire", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_nom_acte1' AS cus_odata_nom_acte WITH ;
Left = 13, ;
Name = "Cus_odata_nom_acte1", ;
Top = 69
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE inainte_de_do_termin
Local PLRETURN
lccontrol = Upper(This.ActiveControl.BaseClass )
If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
lcval=This.ActiveControl.ControlSource
&lcval=Thisform.ActiveControl.Value
Endif
Do Case
Case Empty(porec.nume_act)
Messagebox('Nu ati completat denumirea!',0+48,"Atentie")
This.clb_tx_simplu1.teXT_SIMPLU1.SetFocus()
PLRETURN=.F.
Otherwise
PLRETURN=this.cus_odata_nom_acte1.salvare(This.OREC,This.NID)
Endcase
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
this.cus_odata_nom_acte1.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_opersonal AS frm_termin OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Clienttoptabs1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clienttoptabs1.opt_registru" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clienttoptabs1.Lb_registru" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clienttoptabs1._container1.lblHeader" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx24" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx25" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx23" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx22" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1._txbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx16" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx18" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx20" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx19" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx26" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx21" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.lb15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Lb_simplu12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1._txbase5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.tx11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_cetatenie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_nationalitate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_tip_act" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_judet" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_localitate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Ct_clb_apatrid" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page1.Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.lb30" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx41" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.lb32" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx43" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx40" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx49" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx50" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx51" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.opt_stare_contract" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx54" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_tipcontract" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_meserie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_formatia" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_grupa_munca" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_clasasal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_casa_sanatate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_banca" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_temei" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_detasatla" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_taradet" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_repartm" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_intm" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_duratam" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_tipn" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_handicap" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_pensionar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_functiebaza" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx45" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_platacas" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_cb_platasomaj" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.ck_anulare_incetare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx55" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Ct_clb_cautare_var1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.lb15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx26" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx52" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx53" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx_codcod" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.lb16" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx27" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx70" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx31" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx68" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Opt_oug114" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.lb20" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx34" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.lb23" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.lb29" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.Lb_simplu10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx69" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page2.tx67" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid3.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.tx54" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.tx52" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.txcopii" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.tx53" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.But_nou2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.But_modifica2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.But_sterge2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page3.Ct_cb_stareciv" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.Grid3.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page4.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Grid3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Ct_clb_meserie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.tx53" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page5.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid3.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.But_nou2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.But_modifica2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.But_sterge2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.tx1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.tx2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.tx3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.tx4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.tx5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.tx6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page6.Lb_simplu8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx56" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx57" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx58" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx60" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.lunia" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.ania" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.vechimea" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx65" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx64" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx59" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx61" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx63" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.tx62" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Cmd_executa2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu14" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu15" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu16" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu18" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page7.Lb_simplu19" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx65" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx66" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx67" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx68" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.grid1.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx69" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx70" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx72" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.tx73" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page8.Ct_clb_tipautorizatie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Grid3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page9.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column1.Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.gridAtasamente.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page10.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.Grid3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.Grid3.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page1.Page11.But_sterge1" 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="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_GRID1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_opers1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Caut_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_noup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: adaugare_parteneri
*m: adauga_copil
*m: arata_linkuri
*m: calcul_vechime
*m: corder
*m: co_calculcoefvechime
*m: do_activeaza
*m: do_actualizeaza_nom_norme
*m: do_actualizeaza_norma
*m: do_actualizeaza_stare
*m: do_adauga_aviz
*m: do_adauga_bazacm
*m: do_adauga_curs
*m: do_adauga_echip
*m: do_adauga_intret
*m: do_adauga_limba
*m: do_adauga_stud
*m: do_butoane_stare
*m: do_cauta_apatrid
*m: do_cauta_banca
*m: do_cauta_casaasig
*m: do_cauta_cetatenie
*m: do_cauta_clasasal
*m: do_cauta_formatia
*m: do_cauta_grupamunca
*m: do_cauta_judet
*m: do_cauta_localitate
*m: do_cauta_meseria
*m: do_cauta_partener
*m: do_cauta_plimpozit
*m: do_cauta_scutireimpozit
*m: do_cauta_tara
*m: do_cauta_temei
*m: do_cauta_tipact
*m: do_cauta_tipautorizatie
*m: do_cauta_tipcontract
*m: do_col_gotfocus
*m: do_col_interactivechange
*m: do_col_lostfocus
*m: do_col_modifica
*m: do_col_valid
*m: do_download
*m: do_modifica_atas
*m: do_modifica_aviz
*m: do_modifica_bazacm
*m: do_modifica_curs
*m: do_modifica_echip
*m: do_modifica_intret
*m: do_modifica_limba
*m: do_modifica_stare
*m: do_modifica_stud
*m: do_modiparam
*m: do_readonly
*m: do_sterge_atas
*m: do_sterge_aviz
*m: do_sterge_bazacm
*m: do_sterge_curs
*m: do_sterge_echip
*m: do_sterge_intret
*m: do_sterge_limba
*m: do_sterge_stud
*m: do_verifica_date
*m: do_writeonly
*m: eticheta
*m: make_crsatasamente
*m: modificari_revisal
*m: modifica_copil
*m: refresh_pagini
*m: registru_unic
*m: setez_exceptii
*m: sterge_copil
*m: upload
*m: vechimeal
*m: verifica_parteneri
*p: ccalefisier
*p: laccesmodif
*p: lcpozamodif
*p: lpozamodif
*p: lsalvat
*p: nrang
*p: nrangactivi
*p: nrincarcaripoze
*p: nsumainitial
*p: nsumamodif
*p: opt_registru
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
ccalefisier =
DoCreate = .T.
Height = 768
laccesmodif = .F.
lcpozamodif =
lpozamodif =
lsalvat = .F.
Name = "frm_opersonal"
nrang = 0
nrangactivi = 0
nrincarcaripoze = 0
nsumainitial = 0
nsumamodif = 0
opt_registru = 3
Width = 800
_memberdata = <VFPData>
<memberdata name="thisform.do_cauta_tipcontract" display="Thisform.do_cauta_tipcontract"/>
</VFPData>
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 800
_shape2.Anchor = 9
_shape2.Height = 29
_shape2.Left = 528
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 273
Lb_titlu_alb_b121.Caption = "Personal"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 3
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Height = 27
BUT_TERMIN1.Left = 769
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
BUT_TERMIN1.Width = 30
Gridsort1.Left = 288
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
*</PropValue>
ADD OBJECT '_GRID1' AS _grid WITH ;
Anchor = 195, ;
ColumnCount = 7, ;
DeleteMark = .F., ;
Height = 456, ;
HighlightStyle = 2, ;
Left = -2, ;
Name = "_GRID1", ;
Panel = 1, ;
ReadOnly = .F., ;
RecordSource = "v_personal", ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 168, ;
Width = 239, ;
Column1.ControlSource = "nr", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .F., ;
Column1.Width = 39, ;
Column2.ControlSource = "marca", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .F., ;
Column2.Width = 42, ;
Column3.ControlSource = "nume", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .F., ;
Column3.Width = 117, ;
Column4.ControlSource = "prenume", ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .F., ;
Column4.Width = 138, ;
Column5.ControlSource = "tarifar", ;
Column5.InputMask = (get_mask(16,gnPS)), ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .F., ;
Column5.Width = 99, ;
Column6.ControlSource = "dataang", ;
Column6.Name = "Column6", ;
Column6.ReadOnly = .F., ;
Column7.ControlSource = "codpers", ;
Column7.Name = "Column7", ;
Column7.ReadOnly = .F.
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="grid" />
ADD OBJECT '_GRID1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. Crt", ;
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 = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Marca", ;
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", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prenume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tarifar", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data ang", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_GRID1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cnp", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_GRID1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 678, ;
Name = "But_excel1", ;
TabIndex = 11, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Anchor = 9, ;
caction = do_modifica, ;
Left = 618, ;
Name = "But_modifica1", ;
TabIndex = 8, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
Anchor = 9, ;
Left = 529, ;
Name = "But_modiparam1", ;
TabIndex = 14, ;
ToolTipText = "Modificare tarifar pentru contractele active din selectie", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 9, ;
Left = 589, ;
Name = "But_nou1", ;
TabIndex = 6, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_noup1' AS but_noup WITH ;
Anchor = 9, ;
caction = adaugare_parteneri, ;
Left = 559, ;
Name = "But_noup1", ;
TabIndex = 13, ;
Top = 1, ;
Visible = .F.
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="commandbutton" />
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Anchor = 9, ;
Left = 709, ;
Name = "BUT_RENUNT1", ;
TabIndex = 12, ;
Top = 1, ;
Visible = .F.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ;
Anchor = 9, ;
Left = 739, ;
Name = "But_salveaza1", ;
TabIndex = 7, ;
Top = 1, ;
Visible = .F.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
caction = do_sterge, ;
Left = 648, ;
Name = "But_sterge1", ;
TabIndex = 9, ;
ToolTipText = "Lichidare (CTRL+D)", ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Caut_nou1' AS caut_nou WITH ;
grid = _grid1, ;
Height = 72, ;
Left = 12, ;
Name = "Caut_nou1", ;
TabIndex = 10, ;
Top = 71, ;
Width = 510, ;
criteriu.Name = "criteriu", ;
criteriu2.Name = "criteriu2", ;
Grup_optiuni_filtru1.Name = "Grup_optiuni_filtru1", ;
Grup_optiuni_filtru1.Option1.Left = 5, ;
Grup_optiuni_filtru1.Option1.Name = "Option1", ;
Grup_optiuni_filtru1.Option1.Top = 5, ;
Grup_optiuni_filtru1.Option2.Left = 66, ;
Grup_optiuni_filtru1.Option2.Name = "Option2", ;
Grup_optiuni_filtru1.Option2.Top = 5, ;
Grup_optiuni_filtru1.Option3.Left = 134, ;
Grup_optiuni_filtru1.Option3.Name = "Option3", ;
Grup_optiuni_filtru1.Option3.Top = 5, ;
Text.Name = "Text", ;
Text2.Name = "Text2", ;
_combobox1.Name = "_combobox1", ;
Cmd_cauta1.Left = 423, ;
Cmd_cauta1.Name = "Cmd_cauta1", ;
Cmd_reset1.Left = 423, ;
Cmd_reset1.Name = "Cmd_reset1", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="cautare.vcx" BaseClass="container" />
ADD OBJECT 'Clienttoptabs1' AS clienttoptabs WITH ;
Anchor = 15, ;
Height = 723, ;
Left = -5, ;
Name = "Clienttoptabs1", ;
otab2use = thisform.page1, ;
tabbmpstr = homeside.bmp,contacts.bmp,visits.bmp,printersmall.bmp,contacts.bmp,contacts.bmp,contacts.bmp,addressbook.bmp,addressbook.bmp,addressbook.bmp,addressbook.bmp, ;
tabcaptionstr = Personal,Date angajare,Familie,CM,Calificare,<2C>colarizare,Vechime,Documente,Altele,Documente ata<74>ate,Avize, ;
TabIndex = 1, ;
tabnumber = 11, ;
Top = 33, ;
Width = 817, ;
Shape1.Height = 692, ;
Shape1.Left = 3, ;
Shape1.Name = "Shape1", ;
Shape1.Top = 31, ;
Shape1.Width = 803, ;
Shape2.Height = 34, ;
Shape2.Left = 1, ;
Shape2.Name = "Shape2", ;
Shape2.Top = 35, ;
Shape2.Width = 617, ;
Shape3.Name = "Shape3", ;
_container1.Anchor = 14, ;
_container1.Height = 160, ;
_container1.Left = 3, ;
_container1.Line1.Anchor = 14, ;
_container1.Line1.Height = 0, ;
_container1.Line1.Left = 0, ;
_container1.Line1.Name = "Line1", ;
_container1.Line1.Top = 0, ;
_container1.Line1.Width = 800, ;
_container1.Name = "_container1", ;
_container1.Shape3.Height = 165, ;
_container1.Shape3.Left = 1, ;
_container1.Shape3.Name = "Shape3", ;
_container1.Shape3.Top = -5, ;
_container1.Shape3.Width = 800, ;
_container1.Top = 551, ;
_container1.Width = 803, ;
lblHeader.Caption = "Pagini", ;
lblHeader.FontSize = 12, ;
lblHeader.Left = 543, ;
lblHeader.Name = "lblHeader", ;
lblHeader.Top = 34, ;
Line1.Height = 0, ;
Line1.Left = 530, ;
Line1.Name = "Line1", ;
Line1.Top = 54, ;
Line1.Width = 76, ;
Tab1.cmdTab.Name = "cmdTab", ;
Tab1.Image1.Name = "Image1", ;
Tab1.Image1.Picture = ..\grafice\lbtabh3.bmp, ;
Tab1.Image2.Name = "Image2", ;
Tab1.Image2.Picture = ..\grafice\note.gif, ;
Tab1.Label1.Name = "Label1", ;
Tab1.Left = 11, ;
Tab1.Name = "Tab1", ;
Tab1.Picture = ..\grafice\dbtabh4.bmp, ;
Tab1.Top = -2, ;
shpPage.Height = 316, ;
shpPage.Label2.Name = "Label2", ;
shpPage.Label3.Name = "Label3", ;
shpPage.Label4.Name = "Label4", ;
shpPage.Left = 6, ;
shpPage.Name = "shpPage", ;
shpPage.TabIndex = 10, ;
shpPage.Top = 123, ;
shpPage.Width = 603
*< END OBJECT: ClassLib="bbtabs.vcx" BaseClass="container" />
ADD OBJECT 'Clienttoptabs1._container1.lblHeader' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Persoana", ;
FontBold = .T., ;
FontSize = 14, ;
ForeColor = 255,134,11, ;
Height = 25, ;
Left = 14, ;
Name = "lblHeader", ;
TabIndex = 7, ;
Top = 120, ;
Width = 91, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
ADD OBJECT 'Clienttoptabs1.Lb_registru' AS lb_simplu WITH ;
Caption = "Registru unic", ;
Left = 532, ;
Name = "Lb_registru", ;
Top = 57, ;
Visible = .F.
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Clienttoptabs1.opt_registru' AS _optiongrup WITH ;
AutoSize = .F., ;
ButtonCount = 3, ;
ControlSource = "thisform.opt_registru", ;
Height = 51, ;
Left = 607, ;
Name = "opt_registru", ;
Top = 57, ;
Value = 1, ;
Visible = .F., ;
Width = 84, ;
Option1.AutoSize = .T., ;
Option1.Caption = "Modificare", ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 0, ;
Option1.Value = 1, ;
Option2.AutoSize = .T., ;
Option2.Caption = "Corec<65>ie", ;
Option2.FontCharSet = 238, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 17, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Nu scrie", ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 34, ;
Option3.Value = 0, ;
Option3.Width = 64
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT 'Cus_odata_opers1' AS cus_odata_opers WITH ;
Left = 546, ;
Name = "Cus_odata_opers1", ;
Top = 38
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
ADD OBJECT 'page1' AS _pgfrmbase WITH ;
Anchor = 15, ;
ErasePage = .T., ;
Height = 552, ;
Left = -1, ;
Name = "page1", ;
PageCount = 11, ;
TabIndex = 2, ;
Top = 144, ;
Width = 801, ;
Page1.BackColor = 255,255,255, ;
Page1.FontCharSet = 238, ;
Page1.Name = "Page1", ;
Page2.BackColor = 255,255,255, ;
Page2.FontCharSet = 238, ;
Page2.Name = "Page2", ;
Page3.BackColor = 255,255,255, ;
Page3.Caption = "Page3", ;
Page3.FontCharSet = 238, ;
Page3.Name = "Page3", ;
Page4.BackColor = 255,255,255, ;
Page4.Caption = "Page4", ;
Page4.FontCharSet = 238, ;
Page4.Name = "Page4", ;
Page5.BackColor = 255,255,255, ;
Page5.Caption = "Page5", ;
Page5.FontCharSet = 238, ;
Page5.Name = "Page5", ;
Page6.BackColor = 255,255,255, ;
Page6.Caption = "Page6", ;
Page6.FontCharSet = 238, ;
Page6.Name = "Page6", ;
Page7.BackColor = 255,255,255, ;
Page7.Caption = "Page7", ;
Page7.FontCharSet = 238, ;
Page7.Name = "Page7", ;
Page8.BackColor = 255,255,255, ;
Page8.Caption = "Page8", ;
Page8.FontCharSet = 238, ;
Page8.Name = "Page8", ;
Page9.BackColor = 255,255,255, ;
Page9.Caption = "Page9", ;
Page9.FontCharSet = 238, ;
Page9.Name = "Page9", ;
Page10.BackColor = 255,255,255, ;
Page10.Caption = "Page10", ;
Page10.FontCharSet = 238, ;
Page10.Name = "Page10", ;
Page11.BackColor = 255,255,255, ;
Page11.Caption = "Page11", ;
Page11.Name = "Page11"
*< END OBJECT: ClassLib="_frm_base.vcx" BaseClass="pageframe" />
ADD OBJECT 'page1.Page1._txbase1' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.codacc", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 367, ;
Name = "_txbase1", ;
ReadOnly = .T., ;
TabIndex = 29, ;
Top = 390, ;
Width = 143, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1._txbase5' AS _txbase WITH ;
Anchor = 672, ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 325, ;
Name = "_txbase5", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 120, ;
Width = 72, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.Ct_clb_apatrid' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_tipapatrid,0)), ;
cprocedura = Thisform.do_cauta_apatrid, ;
cvar_afisata = popers.apatrid, ;
Height = 31, ;
Left = 245, ;
Name = "Ct_clb_apatrid", ;
TabIndex = 7, ;
Top = 171, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Apatrid", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page1.Ct_clb_cetatenie' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_cetatenie,0)), ;
cprocedura = Thisform.do_cauta_cetatenie, ;
cvar_afisata = popers.cetatenie, ;
Height = 31, ;
Left = 245, ;
Name = "Ct_clb_cetatenie", ;
TabIndex = 8, ;
Top = 198, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Cet<65><74>enie", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page1.Ct_clb_judet' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_judet,0)), ;
cprocedura = Thisform.do_cauta_judet, ;
cvar_afisata = popers.judet, ;
Height = 31, ;
Left = 520, ;
Name = "Ct_clb_judet", ;
TabIndex = 14, ;
Top = 2, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Jude<64>", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page1.Ct_clb_localitate' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_loc,0)), ;
cprocedura = Thisform.do_cauta_localitate, ;
cvar_afisata = popers.localitate, ;
Height = 31, ;
Left = 520, ;
Name = "Ct_clb_localitate", ;
TabIndex = 15, ;
Top = 29, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Localitate", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page1.Ct_clb_nationalitate' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_nationalit,0)), ;
clista_parametri = 1, ;
cprocedura = Thisform.do_cauta_tara, ;
cvar_afisata = popers.nationalitate, ;
Height = 31, ;
Left = 245, ;
Name = "Ct_clb_nationalitate", ;
TabIndex = 9, ;
Top = 224, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Na<4E>ionalitate", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page1.Ct_clb_tip_act' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_tip_act,0)), ;
cprocedura = Thisform.do_cauta_tipact, ;
cvar_afisata = popers.tip_act, ;
Height = 31, ;
Left = 245, ;
Name = "Ct_clb_tip_act", ;
TabIndex = 10, ;
Top = 251, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Tip act", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page1.Image1' AS image WITH ;
Anchor = 672, ;
BorderStyle = 1, ;
Height = 121, ;
Left = 250, ;
Name = "Image1", ;
Picture = ..\grafice\searchalb.bmp, ;
Top = 366, ;
Visible = .T., ;
Width = 109
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'page1.Page1.lb1' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Marca", ;
Left = 245, ;
Name = "lb1", ;
TabIndex = 30, ;
Top = 13, ;
ZOrderSet = 7
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb10' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Bloc", ;
Left = 520, ;
Name = "lb10", ;
TabIndex = 44, ;
Top = 115, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb11' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Scar<61>", ;
Left = 520, ;
Name = "lb11", ;
TabIndex = 45, ;
Top = 143, ;
ZOrderSet = 33
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb12' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Apartament", ;
Left = 520, ;
Name = "lb12", ;
TabIndex = 46, ;
Top = 198, ;
ZOrderSet = 35
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb13' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Cod po<70>tal", ;
Left = 520, ;
Name = "lb13", ;
TabIndex = 50, ;
Top = 225, ;
ZOrderSet = 37
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb15' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Data eliber<65>rii", ;
Left = 245, ;
Name = "lb15", ;
TabIndex = 52, ;
Top = 341, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb2' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Nume", ;
Left = 245, ;
Name = "lb2", ;
TabIndex = 34, ;
Top = 40, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb3' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Prenume", ;
Left = 245, ;
Name = "lb3", ;
TabIndex = 38, ;
Top = 68, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb4' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "CNP", ;
Left = 245, ;
Name = "lb4", ;
TabIndex = 39, ;
Top = 96, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb7' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Sector", ;
Left = 672, ;
Name = "lb7", ;
TabIndex = 41, ;
Top = 225, ;
ZOrderSet = 25
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb8' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Strad<61>", ;
Left = 520, ;
Name = "lb8", ;
TabIndex = 42, ;
Top = 61, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.lb9' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Num<75>r", ;
Left = 520, ;
Name = "lb9", ;
TabIndex = 43, ;
Top = 88, ;
ZOrderSet = 29
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu1' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Serie <20>i nr.", ;
Left = 245, ;
Name = "Lb_simplu1", ;
TabIndex = 48, ;
Top = 287, ;
ZOrderSet = 37
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu10' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Telefon", ;
Left = 520, ;
Name = "Lb_simplu10", ;
TabIndex = 49, ;
Top = 251, ;
ZOrderSet = 37
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu12' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Dat<61> na<6E>tere", ;
Left = 245, ;
Name = "Lb_simplu12", ;
TabIndex = 51, ;
Top = 123, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu2' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Cod acces:", ;
Left = 363, ;
Name = "Lb_simplu2", ;
TabIndex = 35, ;
Top = 371, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Eliberat de", ;
Left = 245, ;
Name = "Lb_simplu3", ;
TabIndex = 36, ;
Top = 314, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu4' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Situa<75>ia militar<61>", ;
Left = 522, ;
Name = "Lb_simplu4", ;
TabIndex = 31, ;
Top = 308, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu5' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Livret", ;
Left = 522, ;
Name = "Lb_simplu5", ;
TabIndex = 32, ;
Top = 331, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu6' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Grad militar", ;
Left = 522, ;
Name = "Lb_simplu6", ;
TabIndex = 33, ;
Top = 386, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu7' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Specialitate", ;
Left = 522, ;
Name = "Lb_simplu7", ;
TabIndex = 37, ;
Top = 360, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu8' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Etaj", ;
Left = 520, ;
Name = "Lb_simplu8", ;
TabIndex = 47, ;
Top = 171, ;
ZOrderSet = 35
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.Lb_simplu9' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Loc na<6E>tere", ;
Left = 245, ;
Name = "Lb_simplu9", ;
TabIndex = 40, ;
Top = 150, ;
ZOrderSet = 23
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page1.tx1' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.marca", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "99999999", ;
Left = 317, ;
Name = "tx1", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 10, ;
Width = 72, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx10' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.bieliberat", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 317, ;
Name = "tx10", ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 311, ;
Width = 182, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx11' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.bidata", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 325, ;
Name = "tx11", ;
ReadOnly = .T., ;
TabIndex = 13, ;
Top = 338, ;
Width = 72, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx13' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.sector", ;
Format = "!K", ;
Height = 23, ;
Left = 714, ;
Name = "tx13", ;
ReadOnly = .T., ;
TabIndex = 23, ;
TabStop = .F., ;
Top = 222, ;
Width = 32, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx15' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.strada", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 592, ;
Name = "tx15", ;
ReadOnly = .T., ;
TabIndex = 16, ;
Top = 58, ;
Width = 182, ;
ZOrderSet = 28
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx16' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.numar", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 592, ;
Name = "tx16", ;
ReadOnly = .T., ;
TabIndex = 17, ;
Top = 85, ;
Width = 42, ;
ZOrderSet = 30
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx17' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.bloc", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 592, ;
Name = "tx17", ;
ReadOnly = .T., ;
TabIndex = 18, ;
Top = 112, ;
Width = 42, ;
ZOrderSet = 32
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx18' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.scara", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 592, ;
Name = "tx18", ;
ReadOnly = .T., ;
TabIndex = 19, ;
Top = 140, ;
Width = 42, ;
ZOrderSet = 34
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx19' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.etaj", ;
DisabledBackColor = 242,242,242, ;
Format = "K", ;
Height = 23, ;
Left = 592, ;
Name = "tx19", ;
ReadOnly = .T., ;
TabIndex = 20, ;
Top = 168, ;
Width = 42, ;
ZOrderSet = 36
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx2' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.nume", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 317, ;
Name = "tx2", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 37, ;
Width = 182, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx20' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.apart", ;
DisabledBackColor = 242,242,242, ;
Format = "K", ;
Height = 23, ;
Left = 592, ;
Name = "tx20", ;
ReadOnly = .T., ;
TabIndex = 21, ;
Top = 195, ;
Width = 42, ;
ZOrderSet = 36
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx21' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.codpostal", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 592, ;
Name = "tx21", ;
ReadOnly = .T., ;
TabIndex = 22, ;
Top = 222, ;
Width = 72, ;
ZOrderSet = 38
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx22' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.sitmil", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 618, ;
Name = "tx22", ;
ReadOnly = .T., ;
TabIndex = 25, ;
Top = 305, ;
Width = 162, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx23' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.livretmil", ;
DisabledBackColor = 242,242,242, ;
Format = "K", ;
Height = 23, ;
Left = 618, ;
Name = "tx23", ;
ReadOnly = .T., ;
TabIndex = 26, ;
Top = 331, ;
Width = 162, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx24' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.specmil", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 618, ;
Name = "tx24", ;
ReadOnly = .T., ;
TabIndex = 27, ;
Top = 357, ;
Width = 162, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx25' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.gradmil", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 618, ;
Name = "tx25", ;
ReadOnly = .T., ;
TabIndex = 28, ;
Top = 383, ;
Width = 162, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx26' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.telefon", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 592, ;
Name = "tx26", ;
ReadOnly = .T., ;
TabIndex = 24, ;
Top = 248, ;
Width = 72, ;
ZOrderSet = 38
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx3' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.prenume", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 317, ;
Name = "tx3", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 65, ;
Width = 182, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx4' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.codpers", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999999999", ;
Left = 317, ;
Name = "tx4", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 93, ;
Width = 182, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx5' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.locnastere", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 317, ;
Name = "tx5", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 147, ;
Width = 182, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page1.tx8' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.biserianr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 317, ;
Name = "tx8", ;
ReadOnly = .T., ;
TabIndex = 11, ;
ToolTipText = "Serie si numar fara spatii intre ele", ;
Top = 284, ;
Width = 182, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page10.But_nou1' AS but_nou WITH ;
Anchor = 72, ;
caction = upload, ;
Height = 27, ;
Left = 716, ;
Name = "But_nou1", ;
Top = 15, ;
Width = 30
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page10.But_sterge1' AS but_sterge WITH ;
Anchor = 72, ;
caction = do_sterge_atas, ;
Left = 746, ;
Name = "But_sterge1", ;
Top = 15, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page10.gridAtasamente' AS grid WITH ;
Anchor = 240, ;
ColumnCount = 6, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
Height = 348, ;
HighlightStyle = 0, ;
Left = 239, ;
Name = "gridAtasamente", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_atas", ;
Top = 56, ;
Width = 553, ;
Column1.ControlSource = "atasament", ;
Column1.CurrentControl = "Command1", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Sparse = .F., ;
Column1.Visible = .T., ;
Column1.Width = 73, ;
Column2.ControlSource = "nume_atasament", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 113, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "descriere", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Width = 101, ;
Column4.ColumnOrder = 4, ;
Column4.ControlSource = "nr_doc", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .T., ;
Column4.Width = 79, ;
Column5.ColumnOrder = 5, ;
Column5.ControlSource = "data_doc", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Width = 103, ;
Column6.ControlSource = "utilizator", ;
Column6.FontName = "Arial Narrow", ;
Column6.Name = "Column6", ;
Column6.ReadOnly = .T., ;
Column6.Width = 94
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column1.Command1' AS commandbutton WITH ;
Caption = "", ;
FontName = "Arial Narrow", ;
Height = 10, ;
Left = 11, ;
Name = "Command1", ;
Picture = ..\grafice\attach_mic.bmp, ;
SpecialEffect = 1, ;
Top = 23, ;
Width = 10
*< END OBJECT: BaseClass="commandbutton" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column1.Header1' AS header WITH ;
Caption = "ATASAMENT", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column1.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 'page1.Page10.gridAtasamente.Column2.Header1' AS header WITH ;
Caption = "NUME_ATASAMENT", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column3.Header1' AS header WITH ;
Caption = "Descriere", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column4.Header1' AS header WITH ;
Caption = "NR_DOC", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column5.Header1' AS header WITH ;
Caption = "DATA_DOC", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column6.Header1' AS header WITH ;
Caption = "UTILIZATOR", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page10.gridAtasamente.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page10.Lb_simplu1' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Ata<74>amente", ;
FontBold = .T., ;
FontSize = 10, ;
Left = 264, ;
Name = "Lb_simplu1", ;
Top = 19
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page11.But_modifica1' AS but_modifica WITH ;
Anchor = 8, ;
caction = do_modifica_aviz, ;
Left = 636, ;
Name = "But_modifica1", ;
TabIndex = 3, ;
Top = 18, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page11.But_nou1' AS but_nou WITH ;
Anchor = 8, ;
caction = do_adauga_aviz, ;
Left = 606, ;
Name = "But_nou1", ;
TabIndex = 2, ;
Top = 18
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page11.But_sterge1' AS but_sterge WITH ;
Anchor = 8, ;
caction = do_sterge_aviz, ;
Left = 666, ;
Name = "But_sterge1", ;
TabIndex = 4, ;
Top = 18, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page11.Grid3' AS grid WITH ;
Anchor = 165, ;
ColumnCount = 3, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 348, ;
Left = 356, ;
Name = "Grid3", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_avize", ;
TabIndex = 1, ;
Top = 52, ;
Width = 312, ;
Column1.ControlSource = "Aviz", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 154, ;
Column2.ControlSource = "data1", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 67, ;
Column3.ControlSource = "data2", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column1", ;
Column3.ReadOnly = .T., ;
Column3.Width = 95
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page11.Grid3.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data expirarii", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page11.Grid3.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 'page1.Page11.Grid3.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Aviz", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page11.Grid3.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page11.Grid3.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data aviz", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page11.Grid3.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page2.Check1' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 672, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Persoana fizica cu sudii sup.si vechime >=1an ", ;
ControlSource = "popers.studiisup", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 252, ;
Name = "Check1", ;
ReadOnly = .T., ;
TabIndex = 46, ;
TabStop = .F., ;
Top = 412, ;
Width = 275, ;
WordWrap = .T.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'page1.Page2.ck_anulare_incetare' AS _checkbox WITH ;
Alignment = 0, ;
Anchor = 672, ;
Caption = "Anulare <20>ncetare", ;
FontName = "Arial Narrow", ;
Left = 242, ;
Name = "ck_anulare_incetare", ;
TabIndex = 61, ;
Top = 24, ;
Visible = .F.
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page1.Page2.Ct_cb_duratam' AS ct_cb_tx WITH ;
Anchor = 672, ;
BorderWidth = 0, ;
ccrs_col = nume_durata_munca, ;
ccrs_col_id = id_durata_munca, ;
ccursor = crsnomduratam, ;
cprocedura = Thisform.do_actualizeaza_norma, ;
cvar_afisata = popers.nume_durata_munca, ;
cvar_id = popers.id_durata_munca, ;
Height = 29, ;
Left = 510, ;
Name = "Ct_cb_duratam", ;
TabIndex = 28, ;
Top = 233, ;
Width = 276, ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 114, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.Top = 3, ;
_CBBASE1.Width = 160, ;
lb_explicatie.Caption = "Durat<61> timp norm<72>", ;
lb_explicatie.FontName = "Arial Narrow", ;
lb_explicatie.Name = "lb_explicatie", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 114, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 160
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_functiebaza' AS ct_cb_tx WITH ;
Anchor = 544, ;
BorderWidth = 0, ;
clista_valori = DA,1,NU,0, ;
cvar_afisata = popers.functiebaza, ;
Height = 29, ;
Left = 422, ;
Name = "Ct_cb_functiebaza", ;
ntip = 2, ;
TabIndex = 25, ;
Top = 184, ;
Width = 182, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 98, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 80, ;
lb_explicatie.Caption = "Func<6E>ie baz<61>", ;
lb_explicatie.Name = "lb_explicatie", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 98, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 80
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_handicap' AS ct_cb_tx WITH ;
Anchor = 544, ;
BorderWidth = 0, ;
ccrs_col = denumire, ;
ccrs_col_id = id_handicap, ;
ccursor = v_hand, ;
cvar_afisata = popers.handicap, ;
cvar_id = popers.id_handicap, ;
Height = 29, ;
Left = 422, ;
Name = "Ct_cb_handicap", ;
TabIndex = 21, ;
Top = 136, ;
Width = 182, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 98, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 80, ;
lb_explicatie.Caption = "Invalid", ;
lb_explicatie.Name = "lb_explicatie", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 98, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 80
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_intm' AS ct_cb_tx WITH ;
Anchor = 672, ;
BorderWidth = 0, ;
ccrs_col = nume_interval_munca, ;
ccrs_col_id = id_interval_munca, ;
ccursor = crsnomintm, ;
cvar_afisata = popers.nume_interval_munca, ;
cvar_id = popers.id_interval_munca, ;
Height = 29, ;
Left = 510, ;
Name = "Ct_cb_intm", ;
TabIndex = 30, ;
Top = 284, ;
Width = 276, ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 114, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.Top = 3, ;
_CBBASE1.Width = 160, ;
lb_explicatie.Caption = "Tip interval repartizare", ;
lb_explicatie.FontName = "Arial Narrow", ;
lb_explicatie.Name = "lb_explicatie", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 114, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 160
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_pensionar' AS ct_cb_tx WITH ;
Anchor = 544, ;
BorderWidth = 0, ;
clista_valori = DA,1,NU,0, ;
cvar_afisata = popers.pensionar, ;
Height = 29, ;
Left = 422, ;
Name = "Ct_cb_pensionar", ;
ntip = 2, ;
TabIndex = 23, ;
Top = 160, ;
Width = 182, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 98, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 80, ;
lb_explicatie.Caption = "Pensionar", ;
lb_explicatie.Name = "lb_explicatie", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 98, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 80
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_platacas' AS ct_cb_tx WITH ;
Anchor = 544, ;
BorderWidth = 0, ;
clista_valori = DA,1,NU,0, ;
cvar_afisata = popers.plcas, ;
Height = 29, ;
Left = 598, ;
Name = "Ct_cb_platacas", ;
ntip = 2, ;
TabIndex = 22, ;
Top = 136, ;
Width = 182, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 98, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 80, ;
lb_explicatie.Caption = "Pl<50>te<74>te CAS", ;
lb_explicatie.Name = "lb_explicatie", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 98, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 80
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_platasomaj' AS ct_cb_tx WITH ;
Anchor = 544, ;
BorderWidth = 0, ;
clista_valori = DA,1,NU,0, ;
cvar_afisata = popers.plsomaj, ;
Height = 29, ;
Left = 598, ;
Name = "Ct_cb_platasomaj", ;
ntip = 2, ;
TabIndex = 24, ;
Top = 160, ;
Width = 182, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 98, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 80, ;
lb_explicatie.Caption = "Pl<50>te<74>te <20>omaj", ;
lb_explicatie.Name = "lb_explicatie", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 98, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 80
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_repartm' AS ct_cb_tx WITH ;
Anchor = 672, ;
BorderWidth = 0, ;
ccrs_col = nume_repartizare_munca, ;
ccrs_col_id = id_repartizare_munca, ;
ccursor = crsnomrepartm, ;
cvar_afisata = popers.nume_repartizare_munca, ;
cvar_id = popers.id_repartizare_munca, ;
Height = 29, ;
Left = 510, ;
Name = "Ct_cb_repartm", ;
TabIndex = 29, ;
Top = 259, ;
Width = 276, ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 114, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.Top = 3, ;
_CBBASE1.Width = 160, ;
lb_explicatie.Caption = "Repartizare timp munc<6E>", ;
lb_explicatie.FontName = "Arial Narrow", ;
lb_explicatie.Name = "lb_explicatie", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 114, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 160
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_cb_tipn' AS ct_cb_tx WITH ;
Anchor = 672, ;
BorderWidth = 0, ;
ccrs_col = nume_tip_norma, ;
ccrs_col_id = id_tip_norma, ;
ccursor = crsnomtipn, ;
clista_parametri = 1, ;
cprocedura = Thisform.do_actualizeaza_nom_norme, ;
cvar_afisata = popers.nume_tip_norma, ;
cvar_id = popers.id_tip_norma, ;
Height = 29, ;
Left = 510, ;
Name = "Ct_cb_tipn", ;
TabIndex = 27, ;
Top = 208, ;
Width = 276, ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 114, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.Top = 3, ;
_CBBASE1.Width = 160, ;
lb_explicatie.Caption = "Tip norm<72>", ;
lb_explicatie.Name = "lb_explicatie", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 114, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 160
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_banca' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_banca,0)), ;
cprocedura = Thisform.do_cauta_banca, ;
cvar_afisata = popers.banca, ;
Height = 31, ;
Left = 516, ;
Name = "Ct_clb_banca", ;
TabIndex = 35, ;
Top = 385, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Banca", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 96, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 142
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_casa_sanatate' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.casaasig,'')), ;
cprocedura = Thisform.do_cauta_casaasig, ;
cvar_afisata = popers.casaasig, ;
Height = 31, ;
Left = 516, ;
Name = "Ct_clb_casa_sanatate", ;
TabIndex = 33, ;
Top = 335, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Cas<61> s<>n<EFBFBD>tate", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 96, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 142
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_cautare_var1' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.plimpozit,1)), ;
cprocedura = Thisform.do_cauta_plimpozit, ;
cvar_afisata = popers.scutireimpozit, ;
Height = 31, ;
Left = 606, ;
Name = "Ct_clb_cautare_var1", ;
TabIndex = 26, ;
Top = 182, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 169, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Plateste impozit", ;
lb_cautare.FontName = "Arial Narrow", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 68, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 97
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_clasasal' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.cod,'')), ;
cprocedura = Thisform.do_cauta_clasasal, ;
cvar_afisata = popers.cod, ;
Height = 31, ;
Left = 243, ;
Name = "Ct_clb_clasasal", ;
TabIndex = 19, ;
Top = 360, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Clas<61> salarizare", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 96, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 142
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_detasatla' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_parts,0)) , ;
clista_parametri = 2, ;
cprocedura = Thisform.do_cauta_partener, ;
cvar_afisata = popers.denumires, ;
Height = 31, ;
Left = 429, ;
Name = "Ct_clb_detasatla", ;
TabIndex = 5, ;
Top = 50, ;
Width = 205, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 216, ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 184, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Deta<74>at la", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 77, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 104
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_formatia' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_formatie,0)), ;
cprocedura = Thisform.do_cauta_formatia, ;
cvar_afisata = popers.formatia, ;
Height = 31, ;
Left = 243, ;
Name = "Ct_clb_formatia", ;
TabIndex = 16, ;
Top = 283, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Forma<6D>ia", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_grupa_munca' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_cas,0)), ;
cprocedura = Thisform.do_cauta_grupamunca, ;
cvar_afisata = popers.grupacas, ;
Height = 31, ;
Left = 243, ;
Name = "Ct_clb_grupa_munca", ;
TabIndex = 18, ;
Top = 335, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Condi<64>ii de munc<6E>", ;
lb_cautare.FontName = "Arial", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 103, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 135
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_meserie' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_meserie,0)), ;
clista_parametri = 1, ;
cprocedura = Thisform.do_cauta_meseria, ;
cvar_afisata = popers.meseria, ;
Height = 31, ;
Left = 243, ;
Name = "Ct_clb_meserie", ;
TabIndex = 14, ;
Top = 232, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Meseria", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_taradet' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_taras,0)) , ;
clista_parametri = 2, ;
cprocedura = Thisform.do_cauta_tara, ;
cvar_afisata = popers.taras, ;
Height = 31, ;
Left = 636, ;
Name = "Ct_clb_taradet", ;
TabIndex = 6, ;
Top = 50, ;
Width = 168, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Height = 29, ;
shape_cautare.Left = 1, ;
shape_cautare.Name = "shape_cautare", ;
shape_cautare.Top = 1, ;
shape_cautare.Width = 216, ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 139, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "<22>ar<61>", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 31, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 104
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_temei' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_temeis,0)), ;
cprocedura = Thisform.do_cauta_temei, ;
cvar_afisata = popers.explicaties, ;
Height = 31, ;
Left = 429, ;
Name = "Ct_clb_temei", ;
TabIndex = 4, ;
Top = 26, ;
Width = 375, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 345, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Temei legal", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 77, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 265
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.Ct_clb_tipcontract' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.tip_contract,'')), ;
cprocedura = Thisform.do_cauta_tipcontract, ;
cvar_afisata = popers.tip_contract, ;
Height = 31, ;
Left = 243, ;
Name = "Ct_clb_tipcontract", ;
TabIndex = 13, ;
Top = 207, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Tip contract", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page2.lb15' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Dat<61> angajare", ;
Left = 243, ;
Name = "lb15", ;
TabIndex = 49, ;
Top = 142, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.lb16' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Dat<61> sf<73>r<EFBFBD>it ctr.", ;
Left = 243, ;
Name = "lb16", ;
TabIndex = 50, ;
Top = 167, ;
ZOrderSet = 43
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.lb20' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Sec<65>ia", ;
Left = 243, ;
Name = "lb20", ;
TabIndex = 51, ;
Top = 317, ;
ZOrderSet = 49
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.lb23' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Tarifar", ;
Left = 242, ;
Name = "lb23", ;
TabIndex = 55, ;
Top = 388, ;
ZOrderSet = 52
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.lb29' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Timp par<61>ial", ;
Left = 516, ;
Name = "lb29", ;
TabIndex = 56, ;
Top = 317, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.lb30' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Timp normal", ;
Left = 652, ;
Name = "lb30", ;
TabIndex = 57, ;
Top = 316, ;
ZOrderSet = 62
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.lb32' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Data lichid<69>rii", ;
Left = 428, ;
Name = "lb32", ;
TabIndex = 58, ;
Top = 9, ;
ZOrderSet = 65
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu1' AS lb_simplu WITH ;
Anchor = 672, ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Valabil doar pentru societatile care se incadreaza in OUG 114/2018:", ;
Height = 50, ;
Left = 242, ;
Name = "Lb_simplu1", ;
TabIndex = 59, ;
Top = 456, ;
Width = 172, ;
WordWrap = .T.
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu10' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Nr. <20>i dat<61> contract (ITM)", ;
Left = 248, ;
Name = "Lb_simplu10", ;
TabIndex = 39, ;
Top = 115, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu11' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "din", ;
Left = 478, ;
Name = "Lb_simplu11", ;
TabIndex = 38, ;
Top = 115, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu2' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Nr. <20>i dat<61> contract (intern)", ;
Left = 244, ;
Name = "Lb_simplu2", ;
TabIndex = 42, ;
Top = 89, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Cod", ;
Left = 243, ;
Name = "Lb_simplu3", ;
TabIndex = 40, ;
Top = 265, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu4' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Per. <20>omaj tehnic", ;
Left = 337, ;
Name = "Lb_simplu4", ;
TabIndex = 54, ;
Top = 433, ;
Visible = .F., ;
ZOrderSet = 52
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu5' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "-", ;
Left = 511, ;
Name = "Lb_simplu5", ;
TabIndex = 53, ;
Top = 433, ;
Visible = .F., ;
ZOrderSet = 52
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu6' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Cont IBAN", ;
Left = 516, ;
Name = "Lb_simplu6", ;
TabIndex = 52, ;
Top = 367, ;
ZOrderSet = 49
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu7' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "din", ;
Left = 478, ;
Name = "Lb_simplu7", ;
TabIndex = 41, ;
Top = 89, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu8' AS lb_simplu WITH ;
Anchor = 672, ;
Caption = "Stare contract", ;
Left = 243, ;
Name = "Lb_simplu8", ;
TabIndex = 60, ;
Top = 4
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Lb_simplu9' AS lb_simplu WITH ;
Anchor = 176, ;
AutoSize = .F., ;
Caption = "<motiv lichidare>", ;
Height = 17, ;
Left = 592, ;
Name = "Lb_simplu9", ;
TabIndex = 44, ;
Top = 9, ;
Width = 95, ;
ZOrderSet = 65
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page2.Opt_oug114' AS optiongroup WITH ;
Anchor = 672, ;
BackStyle = 0, ;
ButtonCount = 3, ;
ControlSource = "popers.oug114", ;
Height = 60, ;
Left = 442, ;
Name = "Opt_oug114", ;
TabIndex = 62, ;
Top = 455, ;
Value = 2, ;
Width = 297, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Nu se aplica scutirea cf OUG 114/2018", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option1.Value = 0, ;
Option1.Width = 231, ;
Option1.WordWrap = .T., ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Se aplica scutirea pt total brut intre 3000 si 30000", ;
Option2.Height = 17, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option2.Value = 1, ;
Option2.Width = 288, ;
Option2.WordWrap = .T., ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Se aplica scutirea indiferent de salariu", ;
Option3.Enabled = .F., ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 228, ;
Option3.WordWrap = .T.
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'page1.Page2.opt_stare_contract' AS _optiongrup WITH ;
Anchor = 672, ;
AutoSize = .F., ;
ButtonCount = 4, ;
Enabled = .F., ;
Height = 84, ;
Left = 328, ;
Name = "opt_stare_contract", ;
TabIndex = 1, ;
Top = 1, ;
Width = 96, ;
OPTION1.AutoSize = .T., ;
OPTION1.Caption = "Activ", ;
OPTION1.FontCharSet = 238, ;
OPTION1.Left = 5, ;
OPTION1.Name = "OPTION1", ;
OPTION1.Top = 5, ;
OPTION2.AutoSize = .T., ;
OPTION2.Caption = "<22>ncetat", ;
OPTION2.FontCharSet = 238, ;
OPTION2.Left = 5, ;
OPTION2.Name = "OPTION2", ;
OPTION2.Top = 24, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Suspendat", ;
Option3.FontCharSet = 238, ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 78, ;
Option4.AutoSize = .T., ;
Option4.BackStyle = 0, ;
Option4.Caption = "Deta<74>at", ;
Option4.FontCharSet = 238, ;
Option4.Height = 17, ;
Option4.Left = 5, ;
Option4.Name = "Option4", ;
Option4.Top = 62, ;
Option4.Width = 61
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT 'page1.Page2.tx26' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.dataang", ;
DisabledBackColor = 242,242,242, ;
Format = "!KD", ;
Height = 24, ;
Left = 328, ;
Name = "tx26", ;
ReadOnly = .T., ;
TabIndex = 11, ;
Top = 138, ;
Width = 66, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx27' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.datasfctr", ;
DisabledBackColor = 242,242,242, ;
Format = "!KD", ;
Height = 24, ;
Left = 328, ;
Name = "tx27", ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 163, ;
Width = 66, ;
ZOrderSet = 44
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx31' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.sectie", ;
FontName = "Arial Narrow", ;
Format = "!K", ;
Height = 24, ;
Left = 315, ;
Name = "tx31", ;
ReadOnly = .T., ;
TabIndex = 17, ;
Top = 313, ;
Width = 166, ;
ZOrderSet = 46
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx34' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.tarifar", ;
DisabledBackColor = 242,242,242, ;
Format = "!KR", ;
Height = 24, ;
InputMask = (get_mask(16,gnPS)), ;
Left = 339, ;
Name = "tx34", ;
ReadOnly = .T., ;
TabIndex = 20, ;
Top = 388, ;
Width = 141, ;
ZOrderSet = 53
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx40' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.fractie", ;
Format = "!K", ;
Height = 24, ;
Left = 585, ;
Name = "tx40", ;
ReadOnly = .T., ;
TabIndex = 31, ;
Top = 313, ;
Width = 62, ;
ZOrderSet = 63
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx41' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.orenorm", ;
Format = "!K", ;
Height = 24, ;
Left = 728, ;
Name = "tx41", ;
ReadOnly = .T., ;
TabIndex = 32, ;
Top = 313, ;
Width = 62, ;
ZOrderSet = 63
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx43' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.datainceputs", ;
DisabledBackColor = 242,242,242, ;
Format = "!KD", ;
Height = 24, ;
Left = 506, ;
Name = "tx43", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 5, ;
Width = 80, ;
ZOrderSet = 66
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx45' AS _textbox WITH ;
Anchor = 672, ;
ControlSource = "popers.contiban", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 612, ;
Name = "tx45", ;
ReadOnly = .T., ;
TabIndex = 34, ;
Top = 364, ;
Width = 142, ;
ZOrderSet = 30
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx49' AS checkbox WITH ;
Alignment = 1, ;
Anchor = 544, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Lucreaz<61> <20>n tur<75>", ;
ControlSource = "popers.in_tura", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 312, ;
Name = "tx49", ;
ReadOnly = .T., ;
TabIndex = 43, ;
TabStop = .F., ;
Top = 190, ;
Width = 105
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'page1.Page2.tx50' AS checkbox WITH ;
Alignment = 1, ;
Anchor = 544, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Elev / student <20>n vacan<61><6E>", ;
ControlSource = "popers.elev", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 624, ;
Name = "tx50", ;
ReadOnly = .T., ;
TabIndex = 47, ;
TabStop = .F., ;
Top = 90, ;
Width = 149
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'page1.Page2.tx51' AS checkbox WITH ;
Alignment = 1, ;
Anchor = 544, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "<22>omaj tehnic", ;
ControlSource = "popers.somaj_tehnic", ;
FontCharSet = 238, ;
Height = 17, ;
Left = 242, ;
Name = "tx51", ;
ReadOnly = .T., ;
TabIndex = 48, ;
TabStop = .F., ;
Top = 433, ;
Width = 90
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'page1.Page2.tx52' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.datast1", ;
DisabledBackColor = 242,242,242, ;
Format = "!KD", ;
Height = 24, ;
Left = 440, ;
Name = "tx52", ;
ReadOnly = .T., ;
TabIndex = 36, ;
Top = 429, ;
Visible = .F., ;
Width = 66, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx53' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.datast2", ;
DisabledBackColor = 242,242,242, ;
Format = "!KD", ;
Height = 24, ;
Left = 523, ;
Name = "tx53", ;
ReadOnly = .T., ;
TabIndex = 37, ;
Top = 429, ;
Visible = .F., ;
Width = 66, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx54' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.datasfarsits", ;
DisabledBackColor = 242,242,242, ;
Format = "!KD", ;
Height = 24, ;
Left = 590, ;
Name = "tx54", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 5, ;
Width = 80, ;
ZOrderSet = 66
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx55' AS checkbox WITH ;
Alignment = 0, ;
Anchor = 672, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "CAS si CASS societate se calc. din salariu minim", ;
ControlSource = "popers.cassalmin", ;
FontCharSet = 238, ;
Height = 32, ;
Left = 610, ;
Name = "tx55", ;
ReadOnly = .T., ;
TabIndex = 45, ;
TabStop = .F., ;
Top = 426, ;
Width = 162, ;
WordWrap = .T.
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'page1.Page2.tx67' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.nrctrmchr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 402, ;
Name = "tx67", ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 111, ;
Width = 69, ;
ZOrderSet = 61
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx68' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.datactrm", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 499, ;
Name = "tx68", ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 111, ;
Width = 79, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx69' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.nrctr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
InputMask = "9999999999999", ;
Left = 402, ;
Name = "tx69", ;
ReadOnly = .T., ;
TabIndex = 7, ;
Top = 85, ;
Width = 69, ;
ZOrderSet = 61
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx70' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.datactr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 499, ;
Name = "tx70", ;
ReadOnly = .T., ;
TabIndex = 8, ;
Top = 85, ;
Width = 79, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page2.tx_codcod' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.codcod", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 315, ;
Name = "tx_codcod", ;
ReadOnly = .T., ;
TabIndex = 15, ;
Top = 261, ;
Width = 79, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page3.But_modifica1' AS but_modifica WITH ;
Anchor = 144, ;
caction = do_modifica_intret, ;
Left = 762, ;
Name = "But_modifica1", ;
TabIndex = 9, ;
Top = 319, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page3.But_modifica2' AS but_modifica WITH ;
Anchor = 144, ;
caction = modifica_copil, ;
Left = 762, ;
Name = "But_modifica2", ;
TabIndex = 18, ;
Top = 168, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page3.But_nou1' AS but_nou WITH ;
Anchor = 144, ;
caction = do_adauga_intret, ;
Left = 762, ;
Name = "But_nou1", ;
TabIndex = 8, ;
Top = 290
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page3.But_nou2' AS but_nou WITH ;
Anchor = 144, ;
caction = adauga_copil, ;
Left = 762, ;
Name = "But_nou2", ;
TabIndex = 17, ;
Top = 140
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page3.But_sterge1' AS but_sterge WITH ;
Anchor = 144, ;
caction = do_sterge_intret, ;
Left = 762, ;
Name = "But_sterge1", ;
TabIndex = 10, ;
Top = 348, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page3.But_sterge2' AS but_sterge WITH ;
Anchor = 144, ;
caction = sterge_copil, ;
Left = 762, ;
Name = "But_sterge2", ;
TabIndex = 19, ;
Top = 196, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page3.Ct_cb_stareciv' AS ct_cb_tx WITH ;
Anchor = 672, ;
BorderWidth = 0, ;
clista_valori = CASATORIT,1,NECASATORIT,0, ;
cvar_afisata = popers.stareciv, ;
Height = 29, ;
Left = 246, ;
Name = "Ct_cb_stareciv", ;
ntip = 2, ;
TabIndex = 1, ;
Top = 7, ;
Width = 374, ;
_cbbase1.Anchor = 672, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 93, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 262, ;
lb_explicatie.Caption = "Stare civil<69>", ;
lb_explicatie.Left = 1, ;
lb_explicatie.Name = "lb_explicatie", ;
lb_explicatie.Top = 6, ;
Text_simplu1.Anchor = 672, ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 93, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 262
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page3.Grid1' AS grid WITH ;
Anchor = 240, ;
ColumnCount = 4, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 120, ;
Left = 240, ;
Name = "Grid1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_copii", ;
TabIndex = 6, ;
Top = 135, ;
Width = 516, ;
Column1.ControlSource = "nume", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 102, ;
Column2.ControlSource = "prenume", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 107, ;
Column3.ControlSource = "codpers", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column1", ;
Column3.ReadOnly = .T., ;
Column3.Width = 95, ;
Column4.ControlSource = "datanast", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column2", ;
Column4.ReadOnly = .T., ;
Column4.Width = 64
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page3.Grid1.Column1.Header1' AS header WITH ;
Caption = "Cnp", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.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 'page1.Page3.Grid1.Column2.Header1' AS header WITH ;
Caption = "Data nasterii", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid1.Column2.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 'page1.Page3.Grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page3.Grid1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prenume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page3.Grid3' AS grid WITH ;
Anchor = 180, ;
ColumnCount = 5, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 120, ;
Left = 240, ;
Name = "Grid3", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_nom_intret", ;
TabIndex = 7, ;
Top = 283, ;
Width = 516, ;
Column1.ControlSource = "nume", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 102, ;
Column2.ControlSource = "prenume", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 107, ;
Column3.ControlSource = "codpers", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column1", ;
Column3.ReadOnly = .T., ;
Column3.Width = 95, ;
Column4.ControlSource = "calitate", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column2", ;
Column4.ReadOnly = .T., ;
Column4.Width = 64, ;
Column5.ControlSource = "", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Visible = .F., ;
Column5.Width = 41
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page3.Grid3.Column1.Header1' AS header WITH ;
Caption = "Cnp", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid3.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 'page1.Page3.Grid3.Column2.Header1' AS header WITH ;
Caption = "In calitate de", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid3.Column2.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 'page1.Page3.Grid3.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid3.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page3.Grid3.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Prenume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid3.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page3.Grid3.Column5.Header1' AS header WITH ;
Caption = "Coef. deducere", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page3.Grid3.Column5.Text1' AS textbox WITH ;
Height = 23, ;
Left = 13, ;
Name = "Text1", ;
ReadOnly = .T., ;
Top = 34, ;
Visible = .F., ;
Width = 100
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page3.Lb_simplu1' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Nume so<73> / so<73>ie", ;
Left = 246, ;
Name = "Lb_simplu1", ;
TabIndex = 16, ;
Top = 39, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page3.Lb_simplu2' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Nume mam<61>", ;
Left = 246, ;
Name = "Lb_simplu2", ;
TabIndex = 11, ;
Top = 90, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page3.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Nume tat<61>", ;
Left = 246, ;
Name = "Lb_simplu3", ;
TabIndex = 12, ;
Top = 65, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page3.Lb_simplu4' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Nr copii:", ;
Left = 657, ;
Name = "Lb_simplu4", ;
TabIndex = 15, ;
Top = 110, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page3.Lb_simplu5' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Copii", ;
FontBold = .T., ;
Left = 254, ;
Name = "Lb_simplu5", ;
TabIndex = 13, ;
Top = 110, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page3.Lb_simplu6' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Persoane aflate <20>n <20>ntre<72>inere", ;
FontBold = .T., ;
Left = 249, ;
Name = "Lb_simplu6", ;
TabIndex = 14, ;
Top = 260, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page3.tx52' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.numesot", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 338, ;
Name = "tx52", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 36, ;
Width = 262, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page3.tx53' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.numetata", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 338, ;
Name = "tx53", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 62, ;
Width = 262, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page3.tx54' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.numemama", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 338, ;
Name = "tx54", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 87, ;
Width = 262, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page3.txcopii' AS _textbox WITH ;
Anchor = 176, ;
DisabledBackColor = 242,242,242, ;
Height = 23, ;
Left = 708, ;
Name = "txcopii", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 107, ;
Width = 33, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page4.But_modifica1' AS but_modifica WITH ;
Anchor = 8, ;
caction = do_modifica_bazacm, ;
Left = 628, ;
Name = "But_modifica1", ;
TabIndex = 3, ;
Top = 10, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page4.But_nou1' AS but_nou WITH ;
Anchor = 8, ;
caction = do_adauga_bazacm, ;
Left = 598, ;
Name = "But_nou1", ;
TabIndex = 2, ;
Top = 10
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page4.But_sterge1' AS but_sterge WITH ;
Anchor = 8, ;
caction = do_sterge_bazacm, ;
Left = 658, ;
Name = "But_sterge1", ;
TabIndex = 4, ;
Top = 10, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page4.Grid3' AS grid WITH ;
Anchor = 165, ;
ColumnCount = 4, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 348, ;
Left = 348, ;
Name = "Grid3", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_bazacm", ;
TabIndex = 1, ;
Top = 44, ;
Width = 312, ;
Column1.ControlSource = "an", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 56, ;
Column2.ControlSource = "luna", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 67, ;
Column3.ControlSource = "bazacalcul", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column1", ;
Column3.ReadOnly = .T., ;
Column3.Width = 95, ;
Column4.ControlSource = "zilelucr", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column2", ;
Column4.ReadOnly = .T., ;
Column4.Width = 64
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page4.Grid3.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Baza", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page4.Grid3.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 'page1.Page4.Grid3.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Zile lucrate", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page4.Grid3.Column2.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 'page1.Page4.Grid3.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "An", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page4.Grid3.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page4.Grid3.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Luna", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page4.Grid3.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page5.But_modifica1' AS but_modifica WITH ;
Anchor = 72, ;
caction = do_modifica_limba, ;
Left = 708, ;
Name = "But_modifica1", ;
TabIndex = 4, ;
Top = 58, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page5.But_nou1' AS but_nou WITH ;
Anchor = 72, ;
caction = do_adauga_limba, ;
Left = 678, ;
Name = "But_nou1", ;
TabIndex = 3, ;
Top = 58
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page5.But_sterge1' AS but_sterge WITH ;
Anchor = 72, ;
caction = do_sterge_limba, ;
Left = 738, ;
Name = "But_sterge1", ;
TabIndex = 5, ;
Top = 58, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page5.Ct_clb_meserie' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_profesie,0)), ;
clista_parametri = 2, ;
cprocedura = Thisform.do_cauta_meseria, ;
cvar_afisata = popers.profesia, ;
Height = 31, ;
Left = 288, ;
Name = "Ct_clb_meserie", ;
TabIndex = 1, ;
Top = 6, ;
Width = 271, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 243, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Profesia", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 72, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 166
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page5.Grid3' AS grid WITH ;
Anchor = 240, ;
ColumnCount = 2, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 312, ;
Left = 240, ;
Name = "Grid3", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_calif", ;
TabIndex = 2, ;
Top = 92, ;
Width = 552, ;
Column1.ControlSource = "denumire", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 216, ;
Column2.ControlSource = "nota", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 79
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page5.Grid3.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page5.Grid3.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page5.Grid3.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nota", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page5.Grid3.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page5.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Specializare", ;
Left = 288, ;
Name = "Lb_simplu3", ;
TabIndex = 12, ;
Top = 44, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page5.Lb_simplu5' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Limbi str<74>ine", ;
FontBold = .T., ;
Left = 263, ;
Name = "Lb_simplu5", ;
TabIndex = 6, ;
Top = 63, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page5.tx53' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.specializare", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 362, ;
Name = "tx53", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 41, ;
Width = 262, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page6.But_modifica1' AS but_modifica WITH ;
Anchor = 72, ;
caction = do_modifica_curs, ;
Left = 722, ;
Name = "But_modifica1", ;
TabIndex = 10, ;
Top = 171, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page6.But_modifica2' AS but_modifica WITH ;
Anchor = 72, ;
caction = do_modifica_stud, ;
Left = 722, ;
Name = "But_modifica2", ;
TabIndex = 16, ;
Top = 338, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page6.But_nou1' AS but_nou WITH ;
Anchor = 72, ;
caction = do_adauga_curs, ;
Left = 692, ;
Name = "But_nou1", ;
TabIndex = 9, ;
Top = 171
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page6.But_nou2' AS but_nou WITH ;
Anchor = 72, ;
caction = do_adauga_stud, ;
Left = 692, ;
Name = "But_nou2", ;
TabIndex = 15, ;
Top = 338
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page6.But_sterge1' AS but_sterge WITH ;
Anchor = 72, ;
caction = do_sterge_curs, ;
Left = 752, ;
Name = "But_sterge1", ;
TabIndex = 11, ;
Top = 171, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page6.But_sterge2' AS but_sterge WITH ;
Anchor = 72, ;
caction = do_sterge_stud, ;
Left = 752, ;
Name = "But_sterge2", ;
TabIndex = 17, ;
Top = 338, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page6.Grid1' AS grid WITH ;
Anchor = 180, ;
ColumnCount = 3, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 123, ;
Left = 242, ;
Name = "Grid1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_studii", ;
TabIndex = 14, ;
Top = 369, ;
Width = 550, ;
Column1.ControlSource = "", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 37, ;
Column2.ControlSource = "scoala", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 131, ;
Column3.ControlSource = "detalii", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column1", ;
Column3.ReadOnly = .T., ;
Column3.Width = 143
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page6.Grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Detalii", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Grid1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Scoala", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Grid3' AS grid WITH ;
Anchor = 240, ;
ColumnCount = 5, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 124, ;
Left = 242, ;
Name = "Grid3", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_curs_calif", ;
TabIndex = 8, ;
Top = 201, ;
Width = 550, ;
Column1.ControlSource = "", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 29, ;
Column2.ControlSource = "denumire", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 110, ;
Column3.ControlSource = "data", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column1", ;
Column3.ReadOnly = .T., ;
Column3.Width = 59, ;
Column4.ControlSource = "test", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column2", ;
Column4.ReadOnly = .T., ;
Column4.Width = 69, ;
Column5.ControlSource = "nota", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Width = 42
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page6.Grid3.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid3.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Grid3.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Serie/Nr. act", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid3.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Grid3.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid3.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Grid3.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid3.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Grid3.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nota", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page6.Grid3.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page6.Lb_simplu1' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Studii", ;
FontBold = .T., ;
Left = 267, ;
Name = "Lb_simplu1", ;
TabIndex = 13, ;
Top = 341, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.Lb_simplu2' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Scoala generala:", ;
Left = 257, ;
Name = "Lb_simplu2", ;
TabIndex = 18, ;
Top = 21, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Scoala profesionala:", ;
Left = 257, ;
Name = "Lb_simplu3", ;
TabIndex = 19, ;
Top = 45, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.Lb_simplu4' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Profil liceu:", ;
Left = 257, ;
Name = "Lb_simplu4", ;
TabIndex = 21, ;
Top = 69, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.Lb_simplu5' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Cursuri calificare", ;
FontBold = .T., ;
Left = 267, ;
Name = "Lb_simplu5", ;
TabIndex = 12, ;
Top = 177, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.Lb_simplu6' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Specialitate liceu:", ;
Left = 257, ;
Name = "Lb_simplu6", ;
TabIndex = 20, ;
Top = 93, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.Lb_simplu7' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Scoala maistri:", ;
Left = 257, ;
Name = "Lb_simplu7", ;
TabIndex = 22, ;
Top = 117, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.Lb_simplu8' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Scoala postliceala:", ;
Left = 257, ;
Name = "Lb_simplu8", ;
TabIndex = 24, ;
Top = 141, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page6.tx1' AS _textbox WITH ;
Anchor = 56, ;
ControlSource = "popers.sc_general", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 385, ;
Name = "tx1", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 18, ;
Width = 358, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page6.tx2' AS _textbox WITH ;
Anchor = 56, ;
ControlSource = "popers.sc_prof", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 385, ;
Name = "tx2", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 42, ;
Width = 358, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page6.tx3' AS _textbox WITH ;
Anchor = 56, ;
ControlSource = "popers.licprofil", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 385, ;
Name = "tx3", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 66, ;
Width = 358, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page6.tx4' AS _textbox WITH ;
Anchor = 56, ;
ControlSource = "popers.licspec", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 385, ;
Name = "tx4", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 90, ;
Width = 358, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page6.tx5' AS _textbox WITH ;
Anchor = 56, ;
ControlSource = "popers.sc_maistri", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 385, ;
Name = "tx5", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 114, ;
Width = 358, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page6.tx6' AS _textbox WITH ;
Anchor = 56, ;
ControlSource = "popers.sc_post", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 385, ;
Name = "tx6", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 138, ;
Width = 358, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.ania' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 420, ;
Name = "ania", ;
ReadOnly = .T., ;
TabIndex = 7, ;
Top = 266, ;
Width = 58, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.Cmd_executa1' AS cmd_executa WITH ;
Anchor = 48, ;
AutoSize = .T., ;
caction = calcul_vechime, ;
Caption = "Calcul vechime", ;
Left = 256, ;
Name = "Cmd_executa1", ;
TabIndex = 25, ;
Top = 299
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page7.Cmd_executa2' AS cmd_executa WITH ;
Anchor = 48, ;
Caption = "Vechime (<28>n luna curent<6E>):", ;
FontBold = .F., ;
Height = 29, ;
Left = 240, ;
Name = "Cmd_executa2", ;
TabIndex = 26, ;
Top = 179, ;
Width = 168
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page7.Lb_simplu1' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Mod <20>ncadrare", ;
Left = 256, ;
Name = "Lb_simplu1", ;
TabIndex = 18, ;
Top = 98, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu10' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "adic<69> :", ;
Left = 374, ;
Name = "Lb_simplu10", ;
TabIndex = 17, ;
Top = 152, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu11' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "ani <20>i", ;
Left = 484, ;
Name = "Lb_simplu11", ;
TabIndex = 20, ;
Top = 211, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu12' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "adic<69> :", ;
Left = 374, ;
Name = "Lb_simplu12", ;
TabIndex = 16, ;
Top = 211, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu13' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "(fixe, nu se vor recalcula <20>n func<6E>ie de vechime. Dac<61> se dore<72>te recalcularea zilelor cuvenite, nu se completeaz<61>.)", ;
FontName = "Arial Narrow", ;
FontSize = 8, ;
Height = 32, ;
Left = 256, ;
Name = "Lb_simplu13", ;
TabIndex = 22, ;
Top = 352, ;
Width = 417, ;
WordWrap = .T., ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu14' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Zile CO cuvenite", ;
Height = 18, ;
Left = 256, ;
Name = "Lb_simplu14", ;
TabIndex = 24, ;
Top = 334, ;
Width = 94, ;
WordWrap = .T., ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu15' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Vechime la sfarsitul anului curent:", ;
Left = 256, ;
Name = "Lb_simplu15", ;
TabIndex = 12, ;
Top = 243, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu16' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "total luni", ;
Left = 516, ;
Name = "Lb_simplu16", ;
TabIndex = 14, ;
Top = 243, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu17' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "luni", ;
Left = 573, ;
Name = "Lb_simplu17", ;
TabIndex = 19, ;
Top = 269, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu18' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "ani <20>i", ;
Left = 482, ;
Name = "Lb_simplu18", ;
TabIndex = 20, ;
Top = 269, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu19' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "adic<69> :", ;
Left = 372, ;
Name = "Lb_simplu19", ;
TabIndex = 16, ;
Top = 269, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu2' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Vechime (la data <20>ncadr<64>rii)", ;
Left = 256, ;
Name = "Lb_simplu2", ;
TabIndex = 12, ;
Top = 125, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Data <20>ncadr<64>rii", ;
Left = 256, ;
Name = "Lb_simplu3", ;
TabIndex = 11, ;
Top = 71, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu4' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "Coef spor vechime :", ;
Left = 390, ;
Name = "Lb_simplu4", ;
TabIndex = 23, ;
Top = 304, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu5' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "total luni", ;
Left = 484, ;
Name = "Lb_simplu5", ;
TabIndex = 14, ;
Top = 125, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu6' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "luni", ;
Left = 575, ;
Name = "Lb_simplu6", ;
TabIndex = 15, ;
Top = 152, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu7' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "total luni", ;
Left = 484, ;
Name = "Lb_simplu7", ;
TabIndex = 21, ;
Top = 185, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu8' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "luni", ;
Left = 575, ;
Name = "Lb_simplu8", ;
TabIndex = 19, ;
Top = 211, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.Lb_simplu9' AS lb_simplu WITH ;
Anchor = 48, ;
Caption = "ani <20>i ", ;
Left = 482, ;
Name = "Lb_simplu9", ;
TabIndex = 13, ;
Top = 152, ;
ZOrderSet = 47
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page7.lunia' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 521, ;
Name = "lunia", ;
ReadOnly = .T., ;
TabIndex = 8, ;
Top = 266, ;
Width = 48, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx56' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.data_vech", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 422, ;
Name = "tx56", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 68, ;
Width = 58, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx57' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.modincadr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 422, ;
Name = "tx57", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 95, ;
Width = 358, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx58' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.vechimei", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 422, ;
Name = "tx58", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 122, ;
Width = 58, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx59' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 422, ;
Name = "tx59", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 149, ;
Width = 58, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx60' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 523, ;
Name = "tx60", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 149, ;
Width = 48, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx61' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.vechime", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 422, ;
Name = "tx61", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 182, ;
Width = 58, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx62' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 422, ;
Name = "tx62", ;
ReadOnly = .T., ;
TabIndex = 7, ;
Top = 208, ;
Width = 58, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx63' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 523, ;
Name = "tx63", ;
ReadOnly = .T., ;
TabIndex = 8, ;
Top = 208, ;
Width = 48, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx64' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.c_vechime", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 523, ;
Name = "tx64", ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 301, ;
Width = 48, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.tx65' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "popers.zilecofix", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
Left = 523, ;
Name = "tx65", ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 331, ;
Width = 48, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page7.vechimea' AS _textbox WITH ;
Anchor = 176, ;
ControlSource = "", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 23, ;
InputMask = "9999999", ;
Left = 453, ;
Name = "vechimea", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 239, ;
Width = 58, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.Ct_clb_tipautorizatie' AS ct_clb_cautare_var WITH ;
Anchor = 672, ;
cconditie = EMPTY(NVL(popers.id_tipautorizatie,0)), ;
cprocedura = Thisform.do_cauta_tipautorizatie, ;
cvar_afisata = popers.tipautorizatie, ;
Height = 31, ;
Left = 252, ;
Name = "Ct_clb_tipautorizatie", ;
TabIndex = 7, ;
Top = 75, ;
Width = 300, ;
shape_cautare.BorderStyle = 0, ;
shape_cautare.Name = "shape_cautare", ;
img_cautare.Anchor = 672, ;
img_cautare.Left = 280, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
lb_cautare.Caption = "Tip autoriza<7A>ie", ;
lb_cautare.Left = 0, ;
lb_cautare.Name = "lb_cautare", ;
lb_cautare.Top = 8, ;
tx_cautare.Anchor = 672, ;
tx_cautare.FontName = "Arial Narrow", ;
tx_cautare.Height = 23, ;
tx_cautare.Left = 81, ;
tx_cautare.Name = "tx_cautare", ;
tx_cautare.Top = 4, ;
tx_cautare.Width = 195
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'page1.Page8.grid1' AS _grdrow WITH ;
Anchor = 240, ;
ColumnCount = 12, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
Height = 264, ;
Left = 244, ;
Name = "grid1", ;
Panel = 1, ;
RecordSource = "v_jurnal", ;
TabIndex = 10, ;
Top = 140, ;
Width = 524, ;
Column1.ControlSource = "tipoperatie", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column1", ;
Column1.Width = 51, ;
Column2.ControlSource = "tip_modificare", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column2", ;
Column2.Width = 82, ;
Column3.ControlSource = "dataoperarii", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column3", ;
Column3.Width = 78, ;
Column4.ControlSource = "motivmodificareexplicatie", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column4", ;
Column4.Width = 90, ;
Column5.ControlSource = "contractnumar", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column5.Width = 59, ;
Column6.ControlSource = "contractdatainceput", ;
Column6.FontName = "Arial Narrow", ;
Column6.Name = "Column6", ;
Column6.Width = 60, ;
Column7.ColumnOrder = 9, ;
Column7.ControlSource = "meserie", ;
Column7.FontName = "Arial Narrow", ;
Column7.Name = "Column7", ;
Column7.Width = 81, ;
Column8.ColumnOrder = 10, ;
Column8.ControlSource = "tip_contract", ;
Column8.FontName = "Arial Narrow", ;
Column8.Name = "Column8", ;
Column9.ColumnOrder = 11, ;
Column9.ControlSource = "tipnorma", ;
Column9.FontName = "Arial Narrow", ;
Column9.Name = "Column9", ;
Column10.ColumnOrder = 12, ;
Column10.ControlSource = "tipdurata", ;
Column10.FontName = "Arial Narrow", ;
Column10.Name = "Column10", ;
Column11.ColumnOrder = 7, ;
Column11.ControlSource = "contractnumaritm", ;
Column11.FontName = "Arial Narrow", ;
Column11.Name = "Column11", ;
Column11.Width = 59, ;
Column12.ColumnOrder = 8, ;
Column12.ControlSource = "contractdataitm", ;
Column12.FontName = "Arial Narrow", ;
Column12.Name = "Column12", ;
Column12.Width = 64
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'page1.Page8.grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operatie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip Durata", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ctr nr. ITM", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column11.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ctr data ITM", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column12.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip modificare", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data operatie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ctr numar", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Ctr datai", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Meserie", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip contract", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.grid1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip norma", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page8.grid1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page8.Lb_simplu1' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Istoric modific<69>ri / corec<65>ii", ;
FontBold = .T., ;
FontSize = 10, ;
Left = 242, ;
Name = "Lb_simplu1", ;
TabIndex = 14, ;
Top = 118, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page8.Lb_simplu2' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Carte munc<6E> (seria <20>i nr.)", ;
Left = 252, ;
Name = "Lb_simplu2", ;
TabIndex = 17, ;
Top = 5, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page8.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 544, ;
AutoSize = .F., ;
Caption = "Valabilitate autoriza<7A>ie", ;
Height = 36, ;
Left = 564, ;
Name = "Lb_simplu3", ;
TabIndex = 11, ;
Top = 73, ;
Width = 59, ;
WordWrap = .T., ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page8.Lb_simplu4' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Nr. <20>i dat<61> contract (ITM)", ;
Left = 252, ;
Name = "Lb_simplu4", ;
TabIndex = 15, ;
Top = 55, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page8.Lb_simplu5' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "din", ;
Left = 501, ;
Name = "Lb_simplu5", ;
TabIndex = 12, ;
Top = 55, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page8.Lb_simplu6' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Nr. <20>i dat<61> contract (intern)", ;
Left = 252, ;
Name = "Lb_simplu6", ;
TabIndex = 16, ;
Top = 30, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page8.Lb_simplu7' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "din", ;
Left = 501, ;
Name = "Lb_simplu7", ;
TabIndex = 13, ;
Top = 30, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'page1.Page8.tx65' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.cmseria", ;
DisabledBackColor = 242,242,242, ;
Format = "K", ;
Height = 24, ;
Left = 430, ;
Name = "tx65", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 1, ;
Width = 69, ;
ZOrderSet = 61
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.tx66' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.cmnr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 502, ;
Name = "tx66", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 1, ;
Width = 69, ;
ZOrderSet = 61
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.tx67' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.nrctrmchr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
InputMask = "", ;
Left = 430, ;
Name = "tx67", ;
ReadOnly = .T., ;
TabIndex = 5, ;
Top = 51, ;
Width = 69, ;
ZOrderSet = 61
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.tx68' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.datactrm", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 521, ;
Name = "tx68", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 51, ;
Width = 79, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.tx69' AS _txbase WITH ;
Anchor = 672, ;
ControlSource = "popers.nrctr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
InputMask = "9999999999999", ;
Left = 430, ;
Name = "tx69", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 26, ;
Width = 69, ;
ZOrderSet = 61
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.tx70' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.datactr", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 521, ;
Name = "tx70", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 26, ;
Width = 79, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.tx72' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.datainceputautorizatie", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 628, ;
Name = "tx72", ;
ReadOnly = .T., ;
TabIndex = 8, ;
Top = 76, ;
Width = 80, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page8.tx73' AS _txbase WITH ;
Anchor = 544, ;
ControlSource = "popers.datasfarsitautorizatie", ;
DisabledBackColor = 242,242,242, ;
Format = "!K", ;
Height = 24, ;
Left = 713, ;
Name = "tx73", ;
ReadOnly = .T., ;
TabIndex = 9, ;
Top = 76, ;
Width = 80, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'page1.Page9.But_modifica1' AS but_modifica WITH ;
Anchor = 72, ;
caction = do_modifica_echip, ;
Left = 725, ;
Name = "But_modifica1", ;
Top = 15, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page9.But_nou1' AS but_nou WITH ;
Anchor = 72, ;
caction = do_adauga_echip, ;
Left = 695, ;
Name = "But_nou1", ;
Top = 15
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page9.But_sterge1' AS but_sterge WITH ;
Anchor = 72, ;
caction = do_sterge_echip, ;
Left = 755, ;
Name = "But_sterge1", ;
Top = 15, ;
Visible = .T.
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'page1.Page9.Grid3' AS grid WITH ;
Anchor = 240, ;
ColumnCount = 3, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLines = 3, ;
HeaderHeight = 18, ;
Height = 336, ;
Left = 239, ;
Name = "Grid3", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "v_echip", ;
Top = 56, ;
Width = 553, ;
Column1.ControlSource = "", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column3", ;
Column1.ReadOnly = .T., ;
Column1.Width = 29, ;
Column2.ControlSource = "articol", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column4", ;
Column2.ReadOnly = .T., ;
Column2.Width = 199, ;
Column3.ControlSource = "numar", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column1", ;
Column3.ReadOnly = .T., ;
Column3.Width = 80
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'page1.Page9.Grid3.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Numar", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page9.Grid3.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page9.Grid3.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page9.Grid3.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page9.Grid3.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'page1.Page9.Grid3.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'page1.Page9.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 544, ;
Caption = "Echipament", ;
FontBold = .T., ;
FontSize = 10, ;
Left = 264, ;
Name = "Lb_simplu3", ;
TabIndex = 46, ;
Top = 19, ;
ZOrderSet = 60
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru,lcSelect
lcSelectOriginal = ALIAS()
If Empty(tcFiltru)
lcFiltru = poper.ca_baza1.cfiltru
Else
lcFiltru = tcFiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform._GRID1)
poper.ca_baza1.cfiltru=lcFiltru
poper.ca_baza1.afisare()
restore_grid_tag(Thisform._GRID1)
SELECT v_personal
replace ALL nr WITH RECNO()
GO TOP
lcSql = [select COUNT(id_salariat) as nrang from sal_vnom_pers where ]+lcFiltru
lcCursor = [crsnrang]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN
ELSE
SELECT crsnrang
thisform.nrang=nrang
USE IN crsnrang
ENDIF
lcSql = [select COUNT(id_salariat) as nrang from sal_vnom_pers where datalic is null and ]+lcFiltru
lcCursor = [crsnrangactivi]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN
ELSE
SELECT crsnrangactivi
thisform.nrangactivi=nrang
USE IN crsnrangactivi
ENDIF
IF !EMPTY(lcSelectOriginal)
SELECT (lcSelectOriginal)
ENDIF
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
*!* modificare ROARES v 2.0.21 : thisform._grID1.column5.ReadOnly= .F.
ENDPROC
PROCEDURE adaugare_parteneri
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Local lcpicture,lflag
Private podif
Store '' To podif
lcpicture = Lower(This.but_noup1.cpictureup)
If !'dis'$lcpicture
lflag = Thisform.verifica_parteneri()
Else
res_adauga_parteneri() &&osalarii_comun
Endif
buton=2
Select v_dif_part
odifp = Createobject('frm_difpart')
odifp.Show(1)
Release odifp
If buton=1
This.do_adauga()
Select v_dif_part
Scatter Name lodifp
popers.id_part=lodifp.id_part
popers.nume=lodifp.nume
popers.codpers=lodifp.cod_fiscal
popers.biserianr = Alltrim(lodifp.reg_comert)
popers.prenume=Alltrim(lodifp.prenume)
popers.strada=lodifp.strada
popers.numar = lodifp.numar
popers.Bloc = lodifp.Bloc
popers.scara = lodifp.scara
popers.etaj = lodifp.etaj
popers.apart = lodifp.apart
*!* popers.sector = lodifp.sector && modificare ROASAL v 2.0.32
popers.id_loc = lodifp.id_loc
popers.localitate = lodifp.localitate
popers.judet = lodifp.judet
popers.id_judet = lodifp.id_judet
Thisform.verifica_parteneri(1)
*!* modificare ROASAL v 2.0.32
Thisform.refresh_pagini(1)
Thisform.page1.page1.tx4.SetFocus()
*!* lnpage = This.page1.ActivePage
*!* lcpage = 'thisform.page1.page'+Alltrim(Str(lnpage))+'.activate()'
*!* &lcpage
*!* modificare ROASAL v 2.0.32 ^
Endif
If Used('v_dif_part')
Use In v_dif_part
Endif
ENDPROC
PROCEDURE adauga_copil
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
If Empty(Nvl(popers.id_salariat,0))
aMessageBox('Pentru a putea adauga copii unei persoana noi angajate, trebuie salvate mai intai datele persoanei!',0+16,'Atentie')
Return
Endif
Private pniesire
pniesire=0
Select v_copii
Scatter Name loRec Blank
loRec.id_persoana = popers.id_salariat
Do Adauga_Modifica_Inregistrare With "familie1",loRec,loRec.id_persoana,"INSERT",,"addcopii"
If pniesire=1
save_grid_tag(Thisform.page1.page3.grid1) &&grid v_copii
pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
pocop.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page3.grid1)
Endif
ENDPROC
PROCEDURE arata_linkuri
Local lcTabel, lcFisSalvat,lcDir
lcTabel = Thisform.page1.page10.gridAtasamente.RecordSource
lcDir = ADDBS(GETENV("USERPROFILE"))+"my documents\roares_temp"
IF !DIRECTORY(lcDir)
MD (lcDir)
ENDIF
Select (lcTabel)
If Reccount() >0
IF !EMPTY(NVL(nume_atasament,''))
*!* lcFisSalvat = Addbs(gcTempPath)+ALLTRIM(nume_atasament)
lcFisSalvat = ADDBS(lcDir)+ALLTRIM(nume_atasament)
this.do_download(lcFisSalvat)
ENDIF
Endif
If Used('crsAtasamente')
Use In crsAtasamente
Endif
ENDPROC
PROCEDURE calcul_vechime
private pniesire
pniesire=0
CREATE CURSOR crsVechime (datainc d,datasf d, nrLuni n(4), nrZile n(2))
*!* Select v_nom_pers
Do Adauga_Modifica_Inregistrare With "vech",popers,popers.id_salariat,"UPDATE",,"addvech"
RELEASE lorec
IF USED('crsVechime')
USE IN crsVechime
ENDIF
ENDPROC
PROCEDURE corder
LPARAMETERS tcCamp
poper.ca_baza1.corder=GETWORDNUM(tcCamp,2,'.')
thisform.actualizeaza_grid1()
ENDPROC
PROCEDURE co_calculcoefvechime
thisform.vechimeal()
IF gnSAL_CALCVECHIME = 1
lcSql = [ select coef_vechi ]+;
[ from sal_tab_vechimi ]+;
[ where ]+ ALLTRIM(STR(popers.vechime))+[ >= lim_inf * 12 ]+;
[ and ]+ ALLTRIM(STR(popers.vechime))+[ < lim_sup * 12 and sters = 0]
lcCursor = [crsc_vechime]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
RETURN
ELSE
SELECT crsc_vechime
popers.c_vechime = coef_vechi
thisform.page1.paGE7.tx64.Refresh()
IF USED('crsc_vechime')
USE IN crsc_vechime
ENDIF
ENDIF
ENDIF
ENDPROC
PROCEDURE Destroy
*!* modificare ROASAL v 2.0.0
Unbindevents(Thisform.page1.page2.opt_stare_contract,"InteractiveChange",Thisform,"do_modifica_stare")
Unbindevents(Thisform.page1.page2.opt_stare_contract,"Refresh",Thisform,"do_actualizeaza_stare")
DoDefault()
*!* modificare ROASAL v 2.0.0 ^
ENDPROC
PROCEDURE do_activeaza
Lparameters tlScriere
Thisform.do_butoane_stare(!tlScriere)
*!* modificare ROARES v 2.0.8
*!* Dimension lapagini[6,3] &&array pagini [1,1] - nr text initial, [1,2]- nr text final, [1,3] - nr pagina
*!* lapagini[1,1]=1
*!* lapagini[1,2]=25
*!* lapagini[1,3]=1
*!* lapagini[2,1]=26
*!* lapagini[2,2]=55
*!* lapagini[2,3]=2
*!* lapagini[3,1]=51
*!* lapagini[3,2]=54
*!* lapagini[3,3]=3
*!* lapagini[4,1]=55
*!* lapagini[4,2]=55
*!* lapagini[4,3]=5
*!* lapagini[5,1]=56
*!* lapagini[5,2]=65
*!* lapagini[5,3]=7
*!* lapagini[6,1]=65
*!* lapagini[6,2]=73
*!* lapagini[6,3]=8
Thisform.page1.page2.opt_stare_contract.Enabled = tlScriere
Thisform.page1.page2.opt_oug114.Enabled = tlScriere
*!* Local ladim,lni,lnf
*!* ladim = Alen(lapagini,1) &&nr de pagini configurate pt refresh
For i = 1 To Thisform.page1.PageCount
*!* For i=1 To ladim
*!* For j = lapagini[i,1] To lapagini[i,2]
*!* If j=31 And tlScriere
*!* Loop &&sectia
*!* Endif
*!* lcr = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.readonly='+Iif(tlScriere,[.F.],[.T.])
*!* lcre = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.refresh'
*!* &lcr
*!* &lcre
*!* Endfor
loPage = Evaluate([thisform.page1.page]+Alltrim(Str(i)))
With loPage
For j = 1 To .Objects.Count
Do Case
Case Inlist(Upper(.Objects[j].Class),[_TXBASE],[_TEXTBOX],[COMBOBOX],[_CBBASE],[CHECKBOX],[_CHECKBOX])
.Objects[j].ReadOnly = Iif(Inlist(Upper(.Objects[j].Name),[_TXBASE5],[TX13],[TX31],[TX40],[TX41],[VECHIMEA],[ANIA],[LUNIA]),.T.,!tlScriere)
.Objects[j].Refresh()
*!* Case Like([CMD_*],Upper(.Objects[j].Class)) Or Like([BUT_*],Upper(.Objects[j].Class))
*!* .Objects[j].Enabled = tlScriere
Case Inlist(Upper(.Objects[j].Class),[CT_CLB_CAUTARE_VAR],[CT_CLB_CAUTARE],[CT_CB_TX])
If tlScriere
.Objects[j].do_activeaza()
Else
.Objects[j].do_dezactiveaza()
Endif
Endcase
Endfor
Endwith
*!* modificare ROARES v 2.0.8 ^
Endfor
*!* modificare ROARES v 2.0.8
If tlScriere
Thisform.do_actualizeaza_nom_norme(2)
Endif
*!* modificare ROARES v 2.0.8 ^
If gnEvaluareRevisal5 = 1
Thisform.clienttoptabs1.lb_registru.Visible = tlScriere
Thisform.clienttoptabs1.opt_registru.Visible = tlScriere
Endif
If tlScriere
Thisform.clienttoptabs1.opt_registru.Value = 3
Endif
ENDPROC
PROCEDURE do_actualizeaza_nom_norme
Lparameters tnModificare
*!* 2 - e apelata din do_activeaza
*!* 1 - e activata modificarea
*!* 0 sau .F. - e doar vizualizare
Local lcAlias
lcAlias = Select()
Select crsnomduratam
If popers.id_tip_norma <> 0
Set Filter To id_tip_norma = popers.id_tip_norma
Else
Set Filter To
ENDIF
With Thisform.page1.page2
If popers.id_tip_norma = 2 && timp partial
.ct_cb_intm.Visible = .T.
IF gnAn*12+GnLuna <2017*12+8
.tx55.Visible = .F.
ELSE
.tx55.Visible = .T.
ENDIF
If !Empty(tnModificare)
If popers_orig.id_tip_norma = 1 And tnModificare = 1
popers.id_durata_munca = Null
popers.nume_durata_munca = []
.ct_cb_duratam.Refresh()
Thisform.do_actualizeaza_norma()
Endif
.tx40.ReadOnly = .F.
.tx41.ReadOnly = .F.
ENDIF
Else
.ct_cb_intm.Visible = .F.
popers.cassalmin = 0
.tx55.Visible = .F.
If !Empty(tnModificare)
If tnModificare = 1
If popers_orig.id_tip_norma = 2
Thisform.do_actualizeaza_norma()
Endif
popers.id_interval_munca = Null
popers.nume_interval_munca = []
Endif
.tx40.ReadOnly = .T.
.tx41.ReadOnly = .T.
Endif
Endif
Endwith
Select (lcAlias)
ENDPROC
PROCEDURE do_actualizeaza_norma
Do Case
Case popers.id_durata_munca = 1
popers.orenorm = 8
popers.fractie = popers.orenorm
Thisform.page1.page2.tx41.ReadOnly = .T.
Case popers.id_durata_munca = 2
popers.orenorm = 6
popers.fractie = popers.orenorm
Thisform.page1.page2.tx41.ReadOnly = .T.
Case popers.id_durata_munca = 3
popers.orenorm = 8
popers.fractie = popers.orenorm
Thisform.page1.page2.tx41.ReadOnly = .F.
Otherwise
popers.orenorm = 8
popers.fractie = popers_orig.fractie
Endcase
Thisform.page1.page2.tx40.Refresh()
Thisform.page1.page2.tx41.Refresh()
ENDPROC
PROCEDURE do_actualizeaza_stare
*!* modificare ROARES v 2.0.8
*!* daca nu apasa pe "Cauta" are 0 in popers_orig.stare_contract si
*!* 0 in popers.stare_contract ; imi da eroare mai jos
If popers_orig.stare_contract + popers.stare_contract <> 0
*!* modificare ROARES v 2.0.8 ^
With Thisform.page1.page2
For i = 1 To 4
.opt_stare_contract.Buttons[i].FontBold = .F.
Endfor
*!* modificare ROARES v 2.0.7
*!* If popers_orig.stare_contract <> 0
*!* .opt_stare_contract.Buttons[popers_orig.stare_contract].FontBold = .T.
*!* Endif
*!* modificare ROARES v 2.0.8
*!* If This.cus_odata_opers1.cactiune=[INSERT]
If This.cus_odata_opers1.cactiune=[INSERT] And popers.stare_contract = 1 ;
AND Inlist(popers_orig.stare_contract,0,2)
*!* modificare ROARES v 2.0.8 ^
.opt_stare_contract.Buttons[1].FontBold = .T.
Else
*!* modificare 02.07.2012 : sesizarea #3333
*!* .opt_stare_contract.Buttons[popers_orig.stare_contract].FontBold = .T.
If Between(Nvl(popers_orig.stare_contract,0),1,Thisform.page1.page2.opt_stare_contract.ButtonCount)
.opt_stare_contract.Buttons[popers_orig.stare_contract].FontBold = .T.
Else
polog.Log( Nvl(Alltrim(Str(popers.marca)),"null")+":"+;
NVL(Alltrim(Str(popers_orig.stare_contract)),"null")+">>"+;
NVL(Alltrim(Str(popers.stare_contract)),"null"),Program())
Endif
*!* modificare 02.07.2012 ^
Endif
*!* modificare ROARES v 2.0.7 ^
Do Case
Case popers_orig.stare_contract = 3
.opt_stare_contract.option1.Caption = [<5B>ncetare suspendare]
.opt_stare_contract.option2.Enabled = .F.
.opt_stare_contract.option3.Enabled = .T.
.opt_stare_contract.option4.Enabled = .F.
Case popers_orig.stare_contract = 4
.opt_stare_contract.option1.Caption = [<5B>ncetare deta<74>are]
.opt_stare_contract.option2.Enabled = .F.
.opt_stare_contract.option3.Enabled = .T.
.opt_stare_contract.option4.Enabled = .T.
Case popers_orig.stare_contract = 2
.opt_stare_contract.option1.Caption = [Reactivare]
.opt_stare_contract.option2.Enabled = Iif(This.cus_odata_opers1.cactiune=[INSERT] And popers.stare_contract = 1 ;
AND Inlist(popers_orig.stare_contract,0,2),.F.,.T.) && modificare ROARES v 2.0.7
.opt_stare_contract.option3.Enabled = .F.
.opt_stare_contract.option4.Enabled = .F.
Case popers_orig.stare_contract = 0
.opt_stare_contract.option1.Caption = [Activ]
.opt_stare_contract.option2.Enabled = .F.
.opt_stare_contract.option3.Enabled = .F.
.opt_stare_contract.option4.Enabled = .F.
Otherwise
.opt_stare_contract.option1.Caption = [Activ]
.opt_stare_contract.option2.Enabled = .T.
.opt_stare_contract.option3.Enabled = .T.
.opt_stare_contract.option4.Enabled = .T.
Endcase
Do Case
Case popers.stare_contract = 1
*!* modificare ROARES v 2.0.8
*!* .lb_simplu3.Visible = .F.
.lb_simplu9.Visible = .F.
*!* .lb_simplu10.Visible = .F.
.tx54.Visible = .F.
*!* .tx48.Visible = .F.
*!* .tx55.Visible = .F.
.ct_clb_detasatla.Visible = .F.
.ct_clb_taradet.Visible = .F.
*!* modificare ROARES v 2.0.8 ^
*!* modificare ROARES v 2.0.7
*!* .lb32.Visible = .F.
*!* .tx43.Visible = .F.
*!* .lb_simplu2.Visible = .F.
*!* .tx47.Visible = .F.
*!* modificare ROARES v 2.0.7 ^
Do Case
Case popers_orig.stare_contract = 2
*!* Daca trece din incetat in activ : temei legal reactivare, data reactivare.
.lb32.Caption = [Dat<61> reactivare]
.lb32.Visible = .T.
.tx43.Visible = .T.
*!* modificare ROARES v 2.0.8
*!* .lb_simplu2.Visible = .T.
*!* .tx47.Visible = .T.
.ct_clb_temei.Visible = .T.
Case popers_orig.stare_contract = 3
*!* Daca trece din suspendat in activ : data incetare suspendare
.lb32.Caption = [Dat<61> <20>ncetare suspendare]
.lb32.Visible = .T.
.tx43.Visible = .T.
*!* .lb_simplu2.Visible = .F.
*!* .tx47.Visible = .F.
.ct_clb_temei.Visible = .F.
Case popers_orig.stare_contract = 4
*!* Daca trece din detasat in activ : data incetare detasare
.lb32.Caption = [Dat<61> <20>ncetare deta<74>are]
.lb32.Visible = .T.
.tx43.Visible = .T.
*!* .lb_simplu2.Visible = .F.
*!* .tx47.Visible = .F.
.ct_clb_temei.Visible = .F.
Otherwise
.lb32.Visible = .F.
.tx43.Visible = .F.
*!* .lb_simplu2.Visible = .F.
*!* .tx47.Visible = .F.
.ct_clb_temei.Visible = .F.
Endcase
*!* modificare ROARES v 2.0.7 ^
Case popers.stare_contract = 2
.lb32.Caption = [Dat<61> <20>ncetare]
.lb32.Visible = .T.
*!* .lb_simplu2.Visible = .T.
*!* .lb_simplu3.Visible = .F.
.lb_simplu9.Visible = .T.
*!* .lb_simplu10.Visible = .F.
.tx43.Visible = .T.
.tx54.Visible = .F.
*!* .tx47.Visible = .T.
*!* .tx48.Visible = .F.
*!* .tx55.Visible = .F.
.ct_clb_temei.Visible = .T.
.ct_clb_detasatla.Visible = .F.
.ct_clb_taradet.Visible = .F.
Case popers.stare_contract = 3
.lb32.Caption = [Perioad<61> suspendare]
.lb32.Visible = .T.
*!* .lb_simplu2.Visible = .T.
*!* .lb_simplu3.Visible = .F.
.lb_simplu9.Visible = .F.
*!* .lb_simplu10.Visible = .F.
.tx43.Visible = .T.
.tx54.Visible = .T.
*!* .tx47.Visible = .T.
*!* .tx48.Visible = .F.
*!* .tx55.Visible = .F.
.ct_clb_temei.Visible = .T.
.ct_clb_detasatla.Visible = .F.
.ct_clb_taradet.Visible = .F.
Case popers.stare_contract = 4
.lb32.Caption = [Perioad<61> deta<74>are]
.lb32.Visible = .T.
*!* .lb_simplu2.Visible = .F.
*!* .lb_simplu3.Visible = .T.
.lb_simplu9.Visible = .F.
*!* .lb_simplu10.Visible = .T.
.tx43.Visible = .T.
.tx54.Visible = .T.
*!* .tx47.Visible = .F.
*!* .tx48.Visible = .T.
*!* .tx55.Visible = .T.
.ct_clb_temei.Visible = .F.
.ct_clb_detasatla.Visible = .T.
.ct_clb_taradet.Visible = .T.
*!* modificare ROARES v 2.0.8 ^
Endcase
Endwith
*!* modificare ROARES v 2.0.8
Endif
*!* modificare ROARES v 2.0.8 ^
ENDPROC
PROCEDURE do_adauga
*!* modificare ROASAL v 2.0.14
IF glLunaInchisa
Return
ENDIF
*!* modificare ROASAL v 2.0.14 ^
Select v_personal
Scatter MEMO Name popers Blank
Scatter MEMO Name popers_orig Blank && modificare ROASAL v 2.0.0
popers.stare_contract = 1
popers.oug114 = 2
Thisform.setez_exceptii() && cas,somaj,etc
*---------------------------------
lcSql = [select pack_salarii.get_marca(']+gcs+[') as nrmarca from dual]
lcCursor = [crsNRMarca]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Select crsNRMarca
popers.marca = Round(crsNRMarca.nrMarca,0)
Use In crsNRMarca
*---------------------------------------
Thisform.page1.page1._txbase5.Value={}
Thisform.page1.page1._txbase5.Refresh
*!* modificare ROASAL v 2.0.0
Thisform.do_activeaza(.T.)
*!* Thisform.do_writeonly()
*!* thisform.clienttoptabs1.lb_registru.Visible=.f.
*!* thisform.clienttoptabs1.opt_registru.Visible=.f.
*!* modificare ROASAL v 2.0.0 ^
Thisform.page1.page2.opt_oug114.value = 2
This.cus_odata_opers1.cactiune = 'INSERT' && modificare ROARES v 2.0.10 : era dupa refresh_pagini
Thisform.refresh_pagini(Thisform.clienttoptabs1.activetab) && modificare ROARES v 2.0.8
Thisform.eticheta()
ENDPROC
PROCEDURE do_adauga_aviz
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire,pnNr,pcNumeTata
pniesire=0
Select v_avize
Scatter Name loRec Blank
lorec.id_persoana = popers.id_salariat
Do Adauga_Modifica_Inregistrare With "avize",loRec,,"INSERT",,"aaviz"
If pniesire=1
save_grid_tag(Thisform.page1.page11.grid3)
poavize.ca_baza1.cfiltru = [id_persoana = ] + ALLTRIM(STR(popers.id_salariat)) +[ and sters = 0]
poavize.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page11.grid3)
Endif
ENDPROC
PROCEDURE do_adauga_bazacm
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire,pnNr,pcNumeTata
pniesire=0
Select v_bazacm
Scatter Name loRec Blank
lorec.id_stat = popers.id_stat
Do Adauga_Modifica_Inregistrare With "bazacm",loRec,,"INSERT",,"abaza"
If pniesire=1
save_grid_tag(Thisform.page1.page4.grid3)
pobazacm.ca_baza1.cfiltru = [id_stat = ] + ALLTRIM(STR(popers.id_stat))
pobazacm.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page4.grid3)
Endif
ENDPROC
PROCEDURE do_adauga_curs
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
*!* update_curs()
Select v_curs_calif
Scatter Name loRec Blank
lorec.id_persoana = popers.id_salariat
Do Adauga_Modifica_Inregistrare With "curs",loRec,,"INSERT",,"addcurs"
If pniesire=1
save_grid_tag(Thisform.page1.page6.grid3)
pocurs.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pocurs.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page6.grid3)
Select v_calif
GO TOP
ENDIF
ENDPROC
PROCEDURE do_adauga_echip
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
IF EMPTY(popers.id_stat)
RETURN
ENDIF
Private pniesire
pniesire=0
*!* update_echip()
Select v_echip
Scatter Name loRec Blank
lorec.id_part = popers.id_part
Do Adauga_Modifica_Inregistrare With "echip",loRec,,"INSERT",,"addechip"
ENDPROC
PROCEDURE do_adauga_intret
*!* modificare ROASAL v 2.0.14
DODEFAULT()
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
If Empty(popers.id_salariat) or IsNull(popers.id_salariat)
aMessageBox('Pentru a putea adauga persoanele aflate in intretinerea unei persoana noi angajate, trebuie salvate mai intai datele persoanei!',0+16,'Atentie')
Return
EndIf
Private pniesire
pniesire=0
update_hand(1)
update_dedsupl()
Select v_nom_intret
Scatter Name loRec Blank
lorec.id_stat = popers.id_stat
Do Adauga_Modifica_Inregistrare With "intret",loRec,,"INSERT",,"addintret"
If pniesire=1
save_grid_tag(Thisform.page1.page3.grid3)
pointr.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pointr.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page3.grid3)
ENDIF
IF USED('v_dedsupl')
USE IN v_dedsupl
ENDIF
ENDPROC
PROCEDURE do_adauga_limba
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
update_limbi()
Select v_calif
Scatter Name loRec BLANK
lorec.id_persoana = popers.id_salariat
Do Adauga_Modifica_Inregistrare With "limbi",loRec,,"INSERT",,"addlim"
If pniesire=1
save_grid_tag(Thisform.page1.page5.grid3)
pocalif.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pocalif.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page5.grid3)
Select v_calif
GO TOP
ENDIF
RELEASE lorec
ENDPROC
PROCEDURE do_adauga_stud
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
Select v_studii
Scatter Name loRec Blank
lorec.id_persoana = popers.id_salariat
Do Adauga_Modifica_Inregistrare With "stud",loRec,,"INSERT",,"addstud"
ENDPROC
PROCEDURE do_butoane_stare
LPARAMETERS tlstare
*!* IF tnstare = 1 &&writeonly
*!* this.But_noup1.Visible=.f.
*!* this.but_nou1.Visible=.f.
*!* thisform.but_TERMIN1.Visible = .f.
*!* thisform.but_modifica1.Visible=.f.
*!* thisform.but_sterge1.Visible=.f.
*!* thisform.but_salveaza1.Visible=.t.
*!* this.but_rENUNT1.Visible = .t.
*!* thisform.but_excel1.Visible = .t.
*!* thisform.caut_nou1.visible=.f.
*!* &&registru unic
*!* thisform.clienttoptabs1.lb_registru.Visible=.f.
*!* thisform.clienttoptabs1.opt_registru.Visible=.f.
*!* ELSE
*!* this.but_modifica1.Visible=.t.
*!* this.But_noup1.Visible=.t.
*!* this.but_nou1.Visible=.t.
*!* this.but_salveaza1.Visible=.f.
*!* this.but_rENUNT1.Visible = .f.
*!* this.but_sterge1.Visible=.t.
*!* this.but_TERMIN1.Visible=.t.
*!* this.but_excel1.Visible = .t.
*!* thisform.caut_nou1.visible=.t.
*!* &&registru unic
*!* thisform.clienttoptabs1.lb_registru.Visible=.t.
*!* thisform.clienttoptabs1.opt_registru.Visible=.t.
*!* ENDIF
LOCAL llAccesModif
*!* llAccesModif = thisform.but_modifica1.Visible
llAccesModif = thisform.laccesmodif
WITH thisform
This.but_modiparam1.Visible = IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif )) && modificare ROARES v 2.0.21
*!* modificare ROASAL v 2.0.14 : IIF(glLunaInchisa,.F.,...)
this.But_noup1.Visible=IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
this.but_nou1.Visible=IIF(glLunaInchisa,.F.,tlstare)
this.but_nou1.Enabled = IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
thisform.but_TERMIN1.Visible = tlstare
*!* thisform.but_modifica1.Visible=IIF(glLunaInchisa,.F.,tlstare)
thisform.but_modifica1.Visible=IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
thisform.but_sterge1.Visible=IIF(glLunaInchisa,.F.,IIF(llAccesModif ,tlstare,llAccesModif ))
thisform.page1.page3.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page3.but_nou2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page3.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page3.but_modifica2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page3.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page3.but_sterge2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page4.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page4.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page4.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page5.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page5.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page5.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page6.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page6.but_nou2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page6.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page6.but_modifica2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page6.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page6.but_sterge2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page7.cmd_executa1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page7.cmd_executa2.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page9.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page9.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page9.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page11.but_nou1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page11.but_modifica1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.page1.page11.but_sterge1.Visible = IIF(glLunaInchisa,.F.,llAccesModif )
thisform.but_salveaza1.Visible=!tlstare
this.but_rENUNT1.Visible = !tlstare
thisform.but_excel1.Visible = tlstare
thisform.caut_nou1.visible=tlstare
*!* modificare ROARES v 2.0.14
With Thisform.page1.page2.ck_anulare_incetare
.Visible = Iif(popers.stare_contract = 2,!tlStare,.F.)
.Value = 0
Endwith
*!* modificare ROARES v 2.0.14 ^
*!* modificare v 2.0.0
*!* &&registru unic
*!* thisform.clienttoptabs1.lb_registru.Visible=!tlstare
*!* thisform.clienttoptabs1.opt_registru.Visible=!tlstare
*!* modificare v 2.0.0 ^
ENDWITH
ENDPROC
PROCEDURE do_cauta_apatrid
Local loCauta
loCauta = caut_apatrid()
If gnButon # 2
*!* modificare v 2.0.14
If popers.id_tipapatrid<> loCauta.id_tipapatrid
popers.nationalitate = []
popers.id_nationalit = Null
Endif
*!* modificare v 2.0.14 ^
popers.apatrid = loCauta.denumire
popers.id_tipapatrid = loCauta.id_tipapatrid
popers.codapatrid = loCauta.cod && modificare ROASAL v 2.0.0
With Thisform.page1.page8
If popers.id_tipapatrid = 1
.ct_clb_tipautorizatie.Visible = .T.
.lb_simplu3.Visible = .T.
.tx72.Visible = .T.
.tx73.Visible = .T.
Else
.ct_clb_tipautorizatie.Visible = .F.
.lb_simplu3.Visible = .F.
.tx72.Visible = .F.
.tx73.Visible = .F.
popers.id_tipautorizatie = Null
popers.tipautorizatie = []
popers.datainceputautorizatie = {}
popers.datasfarsitautorizatie = {}
Endif
Endwith
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
Thisform.page1.page1.ct_clb_nationalitate.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta_banca
Local loCauta
loCauta = caut_bancasal(.T.)
If gnButon # 2
popers.banca = loCauta.denumire
popers.id_banca = loCauta.id_banca
Endif
Thisform.KeyPress(-2,0)
ENDPROC
PROCEDURE do_cauta_casaasig
Local loCauta
loCauta = caut_cass(.T.)
If gnButon # 2
popers.casaasig = loCauta.numecasa
popers.id_caseasig= loCauta.id_caseasig
Endif
Thisform.page1.page2.tx45.SetFocus()
ENDPROC
PROCEDURE do_cauta_cetatenie
Local loCauta
loCauta = caut_cetatenie()
If gnButon # 2
*!* modificare v 2.0.14
If popers.id_cetatenie <> loCauta.id_cetatenie
popers.nationalitate = []
popers.id_nationalit = Null
Endif
*!* modificare v 2.0.14 ^
popers.cetatenie = loCauta.denumire
popers.id_cetatenie = loCauta.id_cetatenie
popers.codcetatenie = loCauta.cod && modificare ROASAL v 2.0.0
With Thisform.page1.page8
*!* If Upper(popers.codcetatenie) = [ALTA]
If Upper(popers.codcetatenie) <> [ROMANA] && si pentru persoanele STRAIN-UE este nevoie de autorizatie
.ct_clb_tipautorizatie.Visible = .T.
.lb_simplu3.Visible = .T.
.tx72.Visible = .T.
.tx73.Visible = .T.
Else
.ct_clb_tipautorizatie.Visible = .F.
.lb_simplu3.Visible = .F.
.tx72.Visible = .F.
.tx73.Visible = .F.
popers.id_tipautorizatie = Null
popers.tipautorizatie = []
popers.datainceputautorizatie = {}
popers.datasfarsitautorizatie = {}
Endif
Endwith
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
Thisform.page1.page1.ct_clb_nationalitate.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta_clasasal
Local loCauta
loCauta = caut_clasasal()
If gnButon # 2
popers.cod = loCauta.cod
popers.id_clasasal = loCauta.id_clasasal
Endif
Thisform.page1.page2.tx34.SetFocus()
ENDPROC
PROCEDURE do_cauta_formatia
LOCAL loCauta
loCauta = caut_formatie(.F.,.T.)
If gnButon # 2
popers.formatia = Alltrim(locauta.denumire)
popers.id_formatie = locauta.id_formatia
popers.id_sectie = locauta.id_sectie
popers.sectie=Alltrim(locauta.sectie)
Thisform.page1.page2.tx31.Refresh()
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(6)
Endif
Thisform.page1.page2.ct_clb_grupa_munca.Setfocus()
Endif
ENDPROC
PROCEDURE do_cauta_grupamunca
Local loCauta
loCauta = caut_grupamunca()
If gnButon # 2
popers.grupacas = loCauta.dengrupa
popers.id_cas = loCauta.id_cas
Thisform.page1.page2.ct_clb_clasasal.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta_judet
Local loCauta
loCauta = caut_judet()
If gnButon # 2
popers.judet = loCauta.judet
popers.id_judet = loCauta.id_judet
Thisform.page1.page1.ct_clb_localitate.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta_localitate
Local loCauta
loCauta = caut_localitate(popers.id_judet)
If gnButon # 2
popers.localitate = loCauta.localitate
popers.id_loc = loCauta.id_loc
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
*!* modificare ROARES v 2.0.14
*!* If Alltrim(popers.localitate) = [BUCURESTI]
*!* Thisform.page1.page1.tx13.SetFocus()
*!* Else
Thisform.page1.page1.tx15.SetFocus()
*!* Endif
*!* modificare ROARES v 2.0.14 ^
Endif
ENDPROC
PROCEDURE do_cauta_meseria
Lparameters tnTip
*!* 1 = meseria ; 2 = profesia
LOCAL loCauta
loCauta = caut_meserie(tnTip)
If gnButon # 2
If tnTip = 1
popers.meseria = locauta.meserie
popers.id_meserie = locauta.id_meseria
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(1)
Endif
Thisform.page1.page2.ct_clb_formatia.SetFocus()
Else
popers.profesia = locauta.meserie
popers.id_profesie = locauta.id_meseria
Endif
Endif
ENDPROC
PROCEDURE do_cauta_partener
Lparameters tnTip
Local loHash,loCauta
*!* 2 = partener detasare
loHash = GetHash([cTitlu>>Detasat la])
loCauta = CautPartenerContabilitate(loHash)
If gnButon # 2
If tnTip = 2
popers.denumires = loCauta.denumire
popers.id_parts = loCauta.id_part
Thisform.page1.page2.ct_clb_taradet.SetFocus()
Endif
Endif
ENDPROC
PROCEDURE do_cauta_plimpozit
Local loCauta
loCauta = caut_scutireimpozit()
If gnButon # 2
popers.scutireimpozit = loCauta.scutireimpozit
popers.plimpozit = loCauta.id
Thisform.page1.page2.ct_clb_cautare_var1.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta_scutireimpozit
ENDPROC
PROCEDURE do_cauta_tara
Lparameters tnTip
*!* 1 = nationalitate angajat ; 2 = nationalitate angajator unde se face detasarea
If tnTip = 1
loCauta = caut_tara(popers.id_cetatenie) && modificare v 2.0.14
If gnButon # 2
popers.nationalitate = loCauta.prescurtare
popers.id_nationalit = loCauta.id_tara
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
Thisform.page1.page1.ct_clb_tip_act.SetFocus()
Endif
Else
loCauta = caut_tara()
If gnButon # 2
popers.taras = loCauta.tara
popers.id_taras = loCauta.id_tara
Endif
Endif
ENDPROC
PROCEDURE do_cauta_temei
If (gnEvaluareRevisal5 = 0) Or (gnEvaluareRevisal5 = 1 And Inlist(popers.stare_contract,3,4)) ;
Or gnScrieRegistru=0 && modificare ROARES v 2.0.10
Local lnTip, loFrm
Private pnIdTemei, pcExplicatieTemei
Do Case
Case popers.stare_contract = 1 And popers_orig.stare_contract = 2
lnTip = 2
Case popers.stare_contract = 2
lnTip = 1
Case popers.stare_contract = 3
lnTip = 3
Otherwise
Return
Endcase
lcCursor = [crsTemei]
Use In (Select(lcCursor))
lcSQl = [select * from syn_sal_nom_temei where id_temei >= 100 and tip=] + Alltrim(Str(lnTip)) + [ and sters = 0] + ;
[ and NVL(data_inactiv,to_date('122099','MMYYYY'))>=to_date('] + Alltrim(Str(gnAn)) + Alltrim(Str(gnLuna)) + [','YYYYMM')] + ;
[ order by denumire]
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Else
pcExplicatieTemei = []
pnIdTemei = 0
loFrm = Createobject('frm_temei_legal',lnTip,lcCursor)
loFrm.AlwaysOnTop = .T. && modificare ROARES v 2.0.14
loFrm.Show(1)
If gnButon = 1
popers.id_temeis = pnIdTemei
popers.explicaties = pcExplicatieTemei
Endif
Use In (Select(lcCursor))
Release loFrm
Endif
*!* modificare v 2.0.9
Else
If gnEvaluareRevisal5 = 1 And ((popers.stare_contract = 2 And popers_orig.stare_contract <> 2) Or ;
(popers.stare_contract = 1 And popers_orig.stare_contract = 2))
popers.datalic = popers.datainceputs
Thisform.registru_unic(2)
Endif
*!* modificare v 2.0.9 ^
Endif
ENDPROC
PROCEDURE do_cauta_tipact
Local loCauta
loCauta = caut_tipact()
If gnButon # 2
popers.tip_act = loCauta.denumire
popers.id_tip_act = loCauta.id_tip_act
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
Thisform.page1.page1.tx8.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta_tipautorizatie
loCauta = caut_tipautorizatie()
If gnButon # 2
popers.id_tipautorizatie = loCauta.id_tipautorizatie
popers.tipautorizatie = loCauta.denumire
Thisform.page1.page8.tx72.SetFocus()
Endif
ENDPROC
PROCEDURE do_cauta_tipcontract
Local loCauta
loCauta = caut_tipcontract()
If gnButon # 2
popers.tip_contract = loCauta.tip_contract
popers.id_tipctr = loCauta.id_tipctr
Thisform.page1.page2.ct_clb_meserie.SetFocus()
Endif
ENDPROC
PROCEDURE do_col_gotfocus
*!* modificare ROARES v 2.0.21
*!* LPARAMETERS tnsuma
*!* Thisform.nsumainitial=tnsuma
*!* Thisform.nsumamodif =tnsuma
*!* modificare ROARES v 2.0.21 ^
ENDPROC
PROCEDURE do_col_interactivechange
*!* modificare ROARES v 2.0.21
*!* LPARAMETERS tnsuma
*!* Thisform.nsumamodif=tnsuma
*!* Thisform.lsalvat=.F.
*!* modificare ROARES v 2.0.21 ^
ENDPROC
PROCEDURE do_col_lostfocus
ENDPROC
PROCEDURE do_col_modifica
*!* modificare ROARES v 2.0.21 : nu-l mai las sa modifice aici datele pentru ca trebuie sa le scriu si in registru
*!* Lparameters tnColoana,tcNumeCamp,tcValoareInitiala,tcValoareNoua,tnIdStat
*!*
*!* IF glLunaInchisa
*!* RETURN
*!* ENDIF
*!* If Empty(tnColoana)
*!* Return
*!* Endif
*!* Select v_personal
*!* pnid_stat=tnIdStat
*!* lcSql=[UPDATE ] + gcS + [.sal_stat SET ]+tcNumeCamp+[=]+tcValoareNoua+[ WHERE ID_stat=]+Alltrim(Str(pnid_stat))
*!* lnSucces=goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* lcSql2=[UPDATE v_personal SET ]+tcNumeCamp+[=]+tcValoareInitiala+[ WHERE ID_stat=]+Alltrim(Str(pnid_stat))
*!* aMessagebox(goExecutor.cEroare,0+16,'Eroare')
*!* ELSE
*!* lcSql2=[UPDATE v_personal SET ]+tcNumeCamp+[=]+tcValoareNoua+[ WHERE ID_stat=]+Alltrim(Str(pnid_stat))
*!* Endif
*!* &lcSql2
*!* SELECT v_personal
*!* LOCATE FOR id_stat = pnid_stat
*!* modificare ROARES v 2.0.21 ^
ENDPROC
PROCEDURE do_col_valid
*!* modificare ROARES v 2.0.21
*!* If Thisform.nsumainitial!=Thisform.nsumamodif And Thisform.lsalvat=.F.
*!* *!* lcNumeCamp=[avans]
*!* *!* lcValoareInitiala=Alltrim(Str(Thisform.navansinitial,9,3))
*!* *!* lcValoareNoua=Alltrim(Str(Thisform.navansmodif,9,3))
*!* Thisform.do_col_modifica(1,[tarifar],Alltrim(Str(Thisform.nsumainitial,9,3)),Alltrim(Str(Thisform.nsumamodif,9,3)),id_Stat)
*!* lcColoana=[thisform._griD1.column5]
*!* loColoana=&lcColoana
*!* loColoana.text1.Refresh()
*!* Endif
*!* modificare ROARES v 2.0.21 ^
ENDPROC
PROCEDURE do_download
Lparameters tcFisSalvat
Private poLink
Store '' To poLink
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal
Local lcTabel, lcFisSalvat, lnIdAtas, lcFisier,lcNume_fisier
lcTabel = Thisform.page1.page10.gridAtasamente.RecordSource
Select (lcTabel)
If Reccount() >0
If Pcount() = 0 Or Type('tcFisSalvat') <> 'C'
lcDir = Getdir('c:\',"Director","Directorul unde doriti sa salvati fisierul",64)
If Empty(lcDir)
Return
Endif
If !Empty(nume_atasament)
lcFisSalvat = Addbs(lcDir)+Alltrim(nume_atasament)
Endif
Else
lcFisSalvat = tcFisSalvat
Endif
If !Empty(lcFisSalvat)
lnIdAtas = id_sal_atasamente
lcNume_fisier = Alltrim(nume_atasament)
lcSchema = [atasament w]
lcSelect = [select atasament from sal_atasamente where id_sal_atasamente = ] + Alltrim(Str(lnIdAtas))
lcOrder = []
lcgroup = []
lcFiltru = []
lcFiltruOriginal = []
llModParam = .T.
llAfiseaza = .F.
gencursor('poLink','crsRegFisierTemp', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poLink.ca_baza1.afisare()
If Used('crsRegFisierTemp')
lcFisier = atasament
Use In (Select('crsRegFisierTemp'))
Strtofile(lcFisier, lcFisSalvat)
open_default_app(lcFisSalvat)
Endif
Endif
Endif
ENDPROC
PROCEDURE do_excel
If Reccount('v_personal')=0
aMessagebox("Nu ati ales niciun salariat!",0+48,"Atentie")
Return
Endif
Try
poExcel = Createobject("Excel.Application")
Catch
aMessagebox("Nu aveti instalata aplicatia Excel!",0+48,"Atentie")
Return
Endtry
Thisform.MousePointer = 11
Thisform.LockScreen = .T.
*!* completare cursoare
Thisform.page1.page1.Activate
poExcel.WorkBooks.Add
Thisform.page1.page2.Activate
poExcel.Sheets.Add
Thisform.page1.page3.Activate
poExcel.Sheets.Add
Thisform.page1.page4.Activate
poExcel.Sheets.Add
Thisform.page1.page5.Activate
poExcel.Sheets.Add
Thisform.page1.page6.Activate
poExcel.Sheets.Add
Thisform.page1.page7.Activate
poExcel.Sheets.Add
*!* completare date personale
poExcel.Sheets(1).Select
poExcel.Sheets(1).Name=[Personal]
With Thisform.page1.page1
poExcel.Cells(2,2).Font.Bold=.T.
poExcel.Cells(2,2).Font.Size = 16
poExcel.Cells(2,2) = [FISA ANGAJAT]
lnRandStart=5
lnColoanaI=2
lnColoanaII=6
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Marca]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(Str(popers.marca))
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Nume]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.nume)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Prenume]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.prenume)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [CNP]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat="0"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.codpers
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data nasterii (ZZ/LL/AAAA)]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = ._txbase5.Value
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Locul nasterii]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.locnastere)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Cetatenia]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.cetatenie)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Nationalitate]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.nationalitate)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [BI seria]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.biseria)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Eliberat de]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.bieliberat)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data eliberarii BI (ZZ/LL/AAAA)]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = [dd/mm/yyyy;@]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.bidata
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Judet]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.judet)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Sector]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(Str(popers.sector))
*!* jumatate
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Localitate]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.localitate)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Strada]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.strada)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Numar]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.numar)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Bloc]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.Bloc)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Scara]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.scara)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Etaj]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.etaj)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Apartament]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.apart
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Cod postal]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "0"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.codpostal
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [BI numar]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.binr)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Situatia militara]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.sitmil)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Livret]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.livretmil)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Specialitate]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.specmil)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Grad militar]
poExcel.Cells(lnRow,lnColoanaII+1) = Alltrim(popers.gradmil)
Endwith
*!* completare date angajare
poExcel.Sheets(2).Select
poExcel.Sheets(2).Name=[Date angajare]
With Thisform.page1.page2
poExcel.Cells(2,2).Font.Bold=.T.
poExcel.Cells(2,2).Font.Size = 16
poExcel.Cells(2,2) = [DATE ANGAJARE]
lnRandStart=5
lnColoanaI=2
lnColoanaII=6
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data angajarii (ZZ/LL/AAAA)]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.dataang
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data sfarsit contract (ZZ/LL/AAAA)]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.datasfctr
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Tip contract]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.tip_contract)
*!* modificare ROASAL v 2.0.0
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Stare contract]
poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.stare_contract=1,[Activ],Iif(popers.stare_contract=2,[Incetat],;
IIF(popers.stare_contract=3,[Suspendat],[Detasat])))
Do Case
Case popers.stare_contract = 2
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data incetare]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.datainceputs
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Temei incetare]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.explicaties)
Case popers.stare_contract = 3
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data inceput suspendare]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.datainceputs
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data sfarsit suspendare]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.datasfarsits
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Temei suspendare]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.explicaties)
Case popers.stare_contract = 4
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data inceput detasare]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.datainceputs
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data sfarsit detasare]
poExcel.Cells(lnRow,lnColoanaI+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaI+1) = popers.datasfarsits
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Detasat la]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.explicaties)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Tara detasare]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.taras)
Otherwise
lnRow = lnRow
Endcase
*!* modificare ROASAL v 2.0.0 ^
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Meseria]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.meseria)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Formatia]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.formatia)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Sectia]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.sectie)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Grupa munca]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.grupacas)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Clasa salarizare]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(popers.cod)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Tarifar]
poExcel.Cells(lnRow,lnColoanaI+1) = Alltrim(Str(popers.tarifar))
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Pensionar]
poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.pensionar=1,[DA],[NU])
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Invalid]
poExcel.Cells(lnRow,lnColoanaI+1) = ALLTRIM(popers.handicap) && ALLTRIM(.ct_cb_handicap.Text_simplu.Value) - ROASAL v 2.0.14
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Plateste CAS]
poExcel.Cells(lnRow,lnColoanaI+1) = IIF(popers.plcas = 1,[DA],[NU])
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Plateste somaj]
poExcel.Cells(lnRow,lnColoanaI+1) = IIF(popers.plsomaj = 1,[DA],[NU])
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Plateste impozit]
poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.plimpozit=1,[DA],[NU])
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Cont IBAN]
poExcel.Cells(lnRow,lnColoanaI+1) = ALLTRIM(popers.contiban)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Banca]
poExcel.Cells(lnRow,lnColoanaI+1) = ALLTRIM(popers.banca)
*!* jumatate
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Tip norma]
poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_tip_norma)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Durata timp norma]
poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_durata_munca)
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Repartizare timp munca]
poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_repartizare_munca)
IF !EMPTY(NVL(popers.id_interval_munca,0))
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Tip interval repartizare]
poExcel.Cells(lnRow,lnColoanaII+1) = ALLTRIM(popers.nume_interval_munca)
ENDIF
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Timp partial]
poExcel.Cells(lnRow,lnColoanaII+1) = popers.fractie
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Timp normal]
poExcel.Cells(lnRow,lnColoanaII+1) = popers.orenorm
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Functia de baza]
poExcel.Cells(lnRow,lnColoanaII+1) = Iif(popers.functiebaza==1,[DA],[NU])
*!* modificare v 2.0.0
*!* lnRow=lnRow+1
*!* poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
*!* poExcel.Cells(lnRow,lnColoanaII) = [Data lichidarii]
*!* poExcel.Cells(lnRow,lnColoanaII+1) = popers.datalic
*!* modificare v 2.0.0 ^
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Carte munca - seria]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.cmseria
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Carte munca - numar]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.cmnr
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Numar contract ITM]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.nrctrm
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Data contract ITM (ZZ/LL/AAAA)]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.datactrm
*!* modificare v 2.0.0
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Numar contract intern]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.nrctr
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Data contract intern (ZZ/LL/AAAA)]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.datactr
If Upper(Alltrim(popers.codcetatenie)) = [ALTA]
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Tip autorizatie]
poExcel.Cells(lnRow,lnColoanaII+1) = popers.tipautorizatie
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Data inceput autorizatie]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.datainceputautorizatie
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Data sfarsit autorizatie]
poExcel.Cells(lnRow,lnColoanaII+1).NumberFormat = "dd/mm/yyyy;@"
poExcel.Cells(lnRow,lnColoanaII+1) = popers.datasfarsitautorizatie
Endif
*!* modificare v 2.0.0 ^
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaII).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaII) = [Casa sanatate]
poExcel.Cells(lnRow,lnColoanaII+1) = popers.casaasig
Endwith
*!* completare date familie
poExcel.Sheets(3).Select
poExcel.Sheets(3).Name=[Familie]
poExcel.Cells(2,2).Font.Bold=.T.
poExcel.Cells(2,2).Font.Size = 16
poExcel.Cells(2,2) = [FAMILIE]
lnRandStart=5
lnColoanaI=2
lnColoanaII=6
With Thisform.page1.page3
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Stare civila]
poExcel.Cells(lnRow,lnColoanaI+1) = Iif(popers.stareciv=1,[CASATORIT],[NECASATORIT])
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Nume sot/sotie]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.numesot
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Nume tata]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.numetata
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Nume mama]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.numemama
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Numar copii]
poExcel.Cells(lnRow,lnColoanaI+1) = .txcopii.Value
With .grid1
lnRow=lnRow+4
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Copii]
lnRow=lnRow+2
lcCursor = .RecordSource
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
lcColoana=Alltrim(.Columns(nCol).ControlSource)
*!* modificare v 2.0.0
*!* Do Case
*!* Case Type(lcColoana) = 'C'
*!* poExcel.Columns(nColumn).NumberFormat=[@]
*!* Case Type(lcColoana) = 'D'
*!* poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
*!* Endcase
*!* modificare v 2.0.0 ^
poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
Endfor
Select (lcCursor)
Scan
lnRow = lnRow + 1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
*!* modificare v 2.0.0
lcColoana=Alltrim(.Columns(nCol).ControlSource)
Do Case
Case LIKE('*DATANAST',Upper(lcColoana))
poExcel.Cells(lnRow,nColumn).NumberFormat=[dd/mm/yyyy;@]
Case LIKE('*CODPERS',Upper(lcColoana))
poExcel.Cells(lnRow,nColumn).NumberFormat=[0]
Otherwise
poExcel.Cells(lnRow,nColumn).NumberFormat=[@]
Endcase
*!* modificare v 2.0.0 ^
Endfor
Endscan
Endwith
With .grid3
lnRow=lnRow+4
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Persoane aflate in intretinere]
lnRow=lnRow+2
lcCursor = .RecordSource
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
lcColoana=Alltrim(.Columns(nCol).ControlSource)
*!* modificare v 2.0.0
*!* Do Case
*!* Case Type(lcColoana) = 'C'
*!* poExcel.Columns(nColumn).NumberFormat=[@]
*!* Case Type(lcColoana) = 'D'
*!* poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
*!* Endcase
*!* modificare v 2.0.0 ^
poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
Endfor
Select (lcCursor)
Scan
lnRow = lnRow + 1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
Endfor
Endscan
Endwith
Endwith
*!* completare baze calcul CM
poExcel.Sheets(4).Select
poExcel.Sheets(4).Name=[Baze calcul CM]
poExcel.Cells(2,2).Font.Bold=.T.
poExcel.Cells(2,2).Font.Size = 16
poExcel.Cells(2,2) = [BAZE CALCUL CM]
lnRandStart=5
lnColoanaI=2
lnRow=lnRandStart
With Thisform.page1.page4.grid3
lcCursor = .RecordSource
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
lcColoana=Alltrim(.Columns(nCol).ControlSource)
Do Case
Case Type(lcColoana)='C'
poExcel.Columns(nColumn).NumberFormat=[@]
Case Type(lcColoana)='D'
poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
Endcase
poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
Endfor
Select (lcCursor)
Scan
lnRow = lnRow + 1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
Endfor
Endscan
Endwith
*!* completare calificare
poExcel.Sheets(5).Select
poExcel.Sheets(5).Name=[Calificare]
poExcel.Cells(2,2).Font.Bold=.T.
poExcel.Cells(2,2).Font.Size = 16
poExcel.Cells(2,2) = [CALIFICARE]
lnRandStart=5
lnColoanaI=2
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Profesia]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.profesia
With Thisform.page1.page4.grid3
lnRow=lnRow+4
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Limbi straine]
lnRow=lnRow+2
lcCursor = .RecordSource
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
lcColoana=Alltrim(.Columns(nCol).ControlSource)
Do Case
Case Type(lcColoana)='C'
poExcel.Columns(nColumn).NumberFormat=[@]
Case Type(lcColoana)='D'
poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
Endcase
poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
Endfor
Select (lcCursor)
Scan
lnRow = lnRow + 1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
Endfor
Endscan
Endwith
*!* completare date scolarizare
poExcel.Sheets(6).Select
poExcel.Sheets(6).Name=[Scolarizare]
poExcel.Cells(2,2).Font.Bold=.T.
poExcel.Cells(2,2).Font.Size = 16
poExcel.Cells(2,2) = [SCOLARIZARE]
lnRandStart=5
lnColoanaI=2
lnColoanaII=6
With Thisform.page1.page6
With .grid3
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Cursuri calificare]
lnRow=lnRow+2
lcCursor = .RecordSource
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
lcColoana=Alltrim(.Columns(nCol).ControlSource)
Do Case
Case Type(lcColoana)='C'
poExcel.Columns(nColumn).NumberFormat=[@]
Case Type(lcColoana)='D'
poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
Endcase
poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
Endfor
Select (lcCursor)
Scan
lnRow = lnRow + 1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
Endfor
Endscan
Endwith
With .grid1
lnRow=lnRow+4
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Studii]
lnRow=lnRow+2
lcCursor = .RecordSource
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(lnRow,nColumn) = .Columns(nCol).header1.Caption
lcColoana=Alltrim(.Columns(nCol).ControlSource)
Do Case
Case Type(lcColoana)='C'
poExcel.Columns(nColumn).NumberFormat=[@]
Case Type(lcColoana)='D'
poExcel.Columns(nColumn).NumberFormat=[dd/mm/yyyy;@]
Endcase
poExcel.Cells(lnRow,nColumn).Font.Bold = .T.
poExcel.Cells(lnRow,nColumn).Interior.ColorIndex = 16
Endfor
Select (lcCursor)
Scan
lnRow = lnRow + 1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder+lnColoanaI
poExcel.Cells(lnRow,nColumn) = Eval(.Columns(nCol).ControlSource)
Endfor
Endscan
Endwith
Endwith
*!* completare vechime
poExcel.Sheets(7).Select
poExcel.Sheets(7).Name=[Vechime]
With Thisform.page1.page7
poExcel.Cells(2,2).Font.Bold=.T.
poExcel.Cells(2,2).Font.Size = 16
poExcel.Cells(2,2) = [Vechime]
lnRandStart=5
lnColoanaI=2
lnRow=lnRandStart
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Data incadrarii (ZZ/LL/AAAA)]
poExcel.Cells(lnRow,lnColoanaI).NumberFormat = [dd/mm/yyyy;@]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.data_vech
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Mod incadrare]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.modincadr
lnRow=lnRow+2
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Vechime (la data incadrarii)]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.vechimei
poExcel.Cells(lnRow,lnColoanaI+2) = [total luni]
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI) = [adica]
poExcel.Cells(lnRow,lnColoanaI+1) = .tx59.Text
poExcel.Cells(lnRow,lnColoanaI+2) = [ani si]
poExcel.Cells(lnRow,lnColoanaI+3) = .tx60.Text
poExcel.Cells(lnRow,lnColoanaI+4) = [luni]
lnRow=lnRow+2
poExcel.Cells(lnRow,lnColoanaI).Font.Bold=.T.
poExcel.Cells(lnRow,lnColoanaI) = [Vechime (in luna curenta)]
poExcel.Cells(lnRow,lnColoanaI+1) = popers.vechime
poExcel.Cells(lnRow,lnColoanaI+2) = [total luni]
lnRow=lnRow+1
poExcel.Cells(lnRow,lnColoanaI) = [adica]
poExcel.Cells(lnRow,lnColoanaI+1) = .tx62.Text
poExcel.Cells(lnRow,lnColoanaI+2) = [ani si]
poExcel.Cells(lnRow,lnColoanaI+3) = .tx63.Text
poExcel.Cells(lnRow,lnColoanaI+4) = [luni]
Endwith
poExcel.Visible=.T.
*!* poExcel.ActiveWorkBook.SaveAs(pccale)
*!* poExcel.ActiveWorkBook.Close
*!* poExcel.Quit
Release poExcel
Thisform.LockScreen=.F.
Thisform.MousePointer=0
ENDPROC
PROCEDURE do_executa
*!* IF !EMPTY(popers.id_stat)
lcSql = [select pack_personal.vechime_date_lunar(?popers.data_vech) as vechimeluna from dual]
lcCursor = [crsvechime]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
popers.vechime = 0
RETURN
ELSE
SELECT crsvechime
popers.vechime=ROUND(vechimeluna,0)+NVL(popers.vechimei,0)
thisform.vechimeal()
ENDIF
IF USED('crsvechime')
USE IN crsvechime
ENDIF
*!* ENDIF
thisform.co_calculcoefvechime
ENDPROC
PROCEDURE do_modifica
*!* modificare ROASAL v 2.0.14
IF glLunaInchisa
Return
ENDIF
*!* modificare ROASAL v 2.0.14 ^
If !Empty(popers.marca)
*!* modificare ROASAL v 2.0.0
Thisform.do_activeaza(.T.)
*!* thisform.do_writeonly()
*!* modificare ROASAL v 2.0.0 ^
This.cus_odata_opers1.cactiune = 'UPDATE'
Create Cursor registru_temp (tip_operatie c(1),id_criteriu N(5),id_modlic N(5),id_temei N(5),;
datamod d,explicatie c(254),ordine N(1))
Select v_personal
*!* modificare ROARES v 1.0.49 : am adaugat si campul datactr
Scatter Name poRegAms Fields id_meserie,; &&meserie
datalic,; &&incetare contract
datasfctr,fractie,id_tipctr,; &&Tipul Contractului
nrctr,dataang,datactr,nrctrm,datactrm,; &&Numar/Data Contract
id_sectie,; && Loc de munca
nume,prenume,id_cetatenie,id_nationalit,id_tip_act,; &&date personale
codpers,cmseria,cmnr,id_loc,strada,numar,Bloc,scara,etaj,apart
Endif
ENDPROC
PROCEDURE do_modifica_atas
ENDPROC
PROCEDURE do_modifica_aviz
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire,pcNumeTata
pniesire=0
Select v_avize
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "avize",loRec,loRec.id_aviz,"UPDATE",,"maviz"
If pniesire=1
save_grid_tag(Thisform.page1.page11.grid3)
poavize.ca_baza1.cfiltru = [id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
poavize.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page11.grid3)
Endif
ENDPROC
PROCEDURE do_modifica_bazacm
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire,pcNumeTata
pniesire=0
Select v_bazacm
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "bazacm",loRec,loRec.id_bazacm,"UPDATE",,"mbaza"
If pniesire=1
save_grid_tag(Thisform.page1.page4.grid3)
pobazacm.ca_baza1.cfiltru = [id_stat = ] + ALLTRIM(STR(popers.id_stat))
pobazacm.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page4.grid3)
Endif
ENDPROC
PROCEDURE do_modifica_curs
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
*!* update_curs()
Select v_curs_calif
Scatter Name loRec
IF ISNULL(lorec.data)
lorec.data = NVL(lorec.data,{})
ENDIF
Do Adauga_Modifica_Inregistrare With "curs",loRec,lorec.id_curs,"UPDATE",,"addcurs"
If pniesire=1
save_grid_tag(Thisform.page1.page6.grid3)
pocurs.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pocurs.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page6.grid3)
Select v_calif
GO TOP
ENDIF
ENDPROC
PROCEDURE do_modifica_echip
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
IF RECCOUNT('v_echip')=0
RETURN
ENDIF
Private pniesire
pniesire=0
*!* update_echip()
Select v_echip
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "echip",loRec,lorec.id_echip,"UPDATE",,"addechip"
ENDPROC
PROCEDURE do_modifica_intret
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
update_hand(1)
update_dedsupl()
Select v_nom_intret
Scatter Name loRec
lorec.id_stat = popers.id_stat
Do Adauga_Modifica_Inregistrare With "intret",loRec,lorec.id_pers,"UPDATE",,"addintret"
If pniesire=1
save_grid_tag(Thisform.page1.page3.grid3)
pointr.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pointr.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page3.grid3)
Endif
ENDPROC
PROCEDURE do_modifica_limba
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
update_limbi()
Select v_calif
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "limbi",loRec,lorec.id_str,"UPDATE",,"addlim"
If pniesire=1
save_grid_tag(Thisform.page1.page5.grid3)
pocalif.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pocalif.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page5.grid3)
ENDIF
RELEASE lorec
ENDPROC
PROCEDURE do_modifica_stare
popers.stare_contract = Thisform.page1.page2.opt_stare_contract.Value
Thisform.do_actualizeaza_stare()
*!* altfel le las la fel ca in actualizeaza_stare
If popers_orig.stare_contract <> 0
If popers.stare_contract = popers_orig.stare_contract
popers.datainceputs = popers_orig.datainceputs
popers.datasfarsits = popers_orig.datasfarsits
popers.dataincetares = popers_orig.dataincetares
popers.id_parts = popers_orig.id_parts
popers.denumires = popers_orig.denumires
popers.id_taras = popers_orig.id_taras
popers.taras = popers_orig.taras
popers.id_temeis = popers_orig.id_temeis
popers.explicaties = popers_orig.explicaties
Else
popers.datainceputs = {}
popers.datasfarsits = {}
popers.dataincetares = {}
popers.id_parts = Null
popers.denumires = []
popers.id_taras = Null
popers.taras = []
popers.id_temeis = Null
popers.explicaties = []
Endif
With Thisform.page1.page2
.tx43.Refresh()
*!* modificare v 2.0.8
*!* .tx47.Refresh()
*!* .tx48.Refresh()
*!* .tx55.Refresh()
.ct_clb_temei.tx_cautare.Refresh()
.ct_clb_detasatla.tx_cautare.Refresh()
.ct_clb_taradet.tx_cautare.refresh()
*!* modificare v 2.0.8 ^
.tx54.Refresh()
Endwith
Endif
*!* If popers.stare_contract = 1
*!* With Thisform.page1.page2
*!* Do Case
*!* Case popers_orig.stare_contract = 2
*!* *!* Daca trece din incetat in activ : temei legal reactivare, data reactivare.
*!* .lb32.Caption = [Dat<61> reactivare]
*!* .lb32.Visible = .T.
*!* .tx43.Visible = .T.
*!* .lb_simplu2.Visible = .T.
*!* .tx47.Visible = .T.
*!* Case popers_orig.stare_contract = 3
*!* *!* Daca trece din suspendat in activ : data incetare suspendare
*!* .lb32.Caption = [Dat<61> <20>ncetare suspendare]
*!* .lb32.Visible = .T.
*!* .tx43.Visible = .T.
*!* .lb_simplu2.Visible = .F.
*!* .tx47.Visible = .F.
*!* Case popers_orig.stare_contract = 4
*!* *!* Daca trece din detasat in activ : data incetare detasare
*!* .lb32.Caption = [Dat<61> <20>ncetare deta<74>are]
*!* .lb32.Visible = .T.
*!* .tx43.Visible = .T.
*!* .lb_simplu2.Visible = .F.
*!* .tx47.Visible = .F.
*!* Endcase
*!* Endwith
*!* Endif
ENDPROC
PROCEDURE do_modifica_stud
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
Select v_studii
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "stud",loRec,lorec.id_studiu,"UPDATE",,"addstud"
ENDPROC
PROCEDURE do_modiparam
Local lcCursor,loFrmModificare
If Reccount('v_personal') > 0
lcCursor = [crsmoditarifar]
Create Cursor (lcCursor) (id_salariat N(10),nume c(50),prenume c(50),marca N(10),codpers c(30),id_sal_ctr N(10),;
id_meserie N(5),id_formatie N(5),id_sectie N(5),meseria c(64),formatia c(64),sectie c(30),;
tarifar N(16,4),tarifar_nou N(16,4),stare_contract N(1))
Insert Into (lcCursor) (id_salariat,nume,prenume,codpers,marca,id_sal_ctr,meseria,formatia,sectie,tarifar,id_meserie,id_formatie,id_sectie,stare_contract,tarifar_nou) ;
SELECT id_salariat,nume,prenume,codpers,marca,id_sal_ctr,meseria,formatia,NVL(sectie,''),tarifar,id_meserie,id_formatie,NVL(id_sectie,0) as id_sectie,stare_contract,tarifar As tarifar_nou ;
FROM v_personal Where stare_contract = 1 AND !ISNULL(id_sal_ctr)
Go Top
loFrmModificare = Createobject("frm_modificari_salarii")
loFrmModificare.Show(1)
If Used(lcCursor)
Use In (lcCursor)
Endif
If gnButon = 1
Thisform.actualizeaza_grid1()
Endif
Else
amessagebox("Nu exista inregistrari in selectie!",48,"Atentie")
Endif
Release lcCursor,loFrmModificare
ENDPROC
PROCEDURE do_readonly
*!* modificare ROASAL v 2.0.0
*!* thisform.do_butoane_stare(.t.)
*!* DIMENSION lapagini[6,3] &&array pagini [i,1] - nr text initial, [i,2]- nr text final, [i,3] - nr pagina
*!* lapagini[1,1]=1
*!* lapagini[1,2]=25
*!* lapagini[1,3]=1
*!* lapagini[2,1]=26
*!* lapagini[2,2]=53
*!* lapagini[2,3]=2
*!* lapagini[3,1]=51
*!* lapagini[3,2]=54
*!* lapagini[3,3]=3
*!* lapagini[4,1]=55
*!* lapagini[4,2]=55
*!* lapagini[4,3]=5
*!* lapagini[5,1]=56
*!* lapagini[5,2]=64
*!* lapagini[5,3]=7
*!* lapagini[6,1]=65
*!* lapagini[6,2]=70 && modificare v 1.0.49 : 69
*!* lapagini[6,3]=8
*!* LOCAL ladim,lni,lnf
*!* ladim = ALEN(lapagini,1) &&nr de pagini configurate pt refresh
*!* FOR i=1 TO ladim
*!* FOR j = lapagini[i,1] TO lapagini[i,2]
*!* lcr = 'thisform.page1.page'+ALLTRIM(STR(lapagini[i,3]))+'.tx'+ALLTRIM(STR(j))+'.readonly=.t.'
*!* lcre = 'thisform.page1.page'+ALLTRIM(STR(lapagini[i,3]))+'.tx'+ALLTRIM(STR(j))+'.refresh'
*!* &lcr
*!* &lcre
*!* ENDFOR
*!* ENDFOR
*!* modificare ROASAL v 2.0.0 ^
ENDPROC
PROCEDURE do_renunt
*!* modificare ROASAL v 2.0.0
*!* thisform.do_readonly()
Thisform.do_activeaza(.F.)
*!* modificare ROASAL v 2.0.0 ^
IF !EMPTY(thisform.lcpozamodif)
LOCAL lcPozaDemodif,lcPozaNumeNou
SET STEP ON
lcPozaDemodif = thisform.page1.page1.imAGE1.picture
lcPozaNumeNou = ALLTRIM(STR(popers.marca))+[_]+ CHRTRAN(TTOC(DATETIME(),1),'\/:*?" ','')+[.]+JUSTEXT(lcPozaDemodif)
lcdipoza = goApp.ReadIni('cale_poza_legitimatie', "pozapath")
CD &lcdipoza
IF !FILE(thisform.lcpozamodif)
RENAME (lcPozaDemodif) TO (lcPozaNumeNou)
ELSE
RENAME (lcPozaDemodif) TO (lcPozaNumeNou)
RENAME (thisform.lcpozamodif) TO (lcPozaDemodif)
ENDIF
thisform.nrincarcaripoze = 0
CD &dirgen
ENDIF
Thisform._GRID1.SetFocus()
If Used('registru_temp')
Use In registru_temp
Endif
ENDPROC
PROCEDURE do_salvare
*!* 11.02.2011
*!* marius.mutu
*!* se completeaza numarul intern de contract doar pentru contractele mai noi de 2010
*!* contractele vechi nu aveau obligatoriu numar intern, si la modificarea tarifarului se cere si numarul intern
*!* IF MESSAGEBOX('Doriti sa salvati modificarile?',4,'Atentie!') = 6
*!* modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
LOCAL lnSalmin
lcSql = [select salmin from sal_calendar where an = pack_sesiune.getan() and luna = pack_sesiune.getluna()]
lcCursor = [crsSalmin]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
ENDIF
SELECT crsSalmin
GO TOP
lnSalmin = crsSalmin.salmin
USE IN crsSalmin
*!* ^ modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
SET STEP ON
Private lcNecompletat
Store '' To lcNecompletat
If Empty(NVL(popers.marca,0))
lcNecompletat = '* Marca'+CRLF
Endif
If Empty(NVL(popers.nume,[]))
lcNecompletat = lcNecompletat + '* Nume'+CRLF
Endif
If Empty(NVL(popers.prenume,[]))
lcNecompletat = lcNecompletat + '* Prenume'+CRLF
Endif
If Empty(NVL(popers.codpers,[]))
lcNecompletat = lcNecompletat + '* CNP'+CRLF
Endif
If Empty(NVL(popers.dataang,{}))
lcNecompletat = lcNecompletat + '* Data angajarii'+CRLF
Endif
If Empty(NVL(popers.id_meserie,0))
lcNecompletat = lcNecompletat + '* Meseria!'+CRLF
Endif
If Empty(NVL(popers.id_formatie,0))
lcNecompletat = lcNecompletat + '* Formatia!'+CRLF
Endif
If Empty(NVL(popers.id_cas,0))
lcNecompletat = lcNecompletat + '* Grupa de munca'+CRLF
Endif
If Empty(NVL(popers.tarifar,0))
lcNecompletat = lcNecompletat + '* Tarifar'+CRLF
Endif
*!* modificare ROARES v 2.0.8 : If Isnull(popers.fractie)
IF EMPTY(NVL(popers.fractie,0))
lcNecompletat = lcNecompletat + '* Timp partial de munca'+CRLF
Endif
*!* modificare ROARES v 2.0.8
IF EMPTY(NVL(popers.orenorm,0))
lcNecompletat = lcNecompletat + '* Timp normal de munca'+CRLF
Endif
*!* modificare ROARES v 2.0.8 ^
If Empty(NVL(popers.id_loc,0))
lcNecompletat = lcNecompletat + '* Localitatea'+CRLF
Endif
*!* 11.02.2011
If Empty(NVL(popers.nrctr,0)) And popers.dataang >= Date(2010,1,1)
lcNecompletat = lcNecompletat + '* Numarul intern de evidenta'+CRLF
Endif
*!* 11.02.2011 ^
*!* modificare v 1.0.49
If Empty(Nvl(popers.datactr,{})) And popers.dataang >= Date(2010,1,1)
lcNecompletat = lcNecompletat + '* Data contractului (intern)'+CRLF
Endif
*!* modificare v 1.0.49 ^
If Empty(NVL(popers.id_tip_act,0))
lcNecompletat = lcNecompletat + '* Tipul actului de identitate'+CRLF
Endif
If Empty(NVL(popers.id_cetatenie,0))
lcNecompletat = lcNecompletat + '* Cetatenia!'+CRLF
Endif
If Empty(NVL(popers.id_nationalit,0))
lcNecompletat = lcNecompletat + '* Nationalitatea'+CRLF
Endif
*!* modificare ROARES v 2.0.8
IF EMPTY(NVL(popers.id_tip_norma,0))
lcNecompletat = lcNecompletat + '* Tipul normei'+CRLF
endif
IF EMPTY(NVL(popers.id_durata_munca,0))
lcNecompletat = lcNecompletat + '* Durata timpului'+CRLF
endif
IF EMPTY(NVL(popers.id_repartizare_munca,0))
lcNecompletat = lcNecompletat + '* Repartizarea timpului de munca'+CRLF
endif
IF EMPTY(NVL(popers.id_interval_munca,0)) AND NVL(popers.id_durata_munca,0) = 4
lcNecompletat = lcNecompletat + '* Tipul de interval de repartizare'+CRLF
endif
*!* modificare ROARES v 2.0.8 ^
*!* modificare ROARES v 2.0.14
If Nvl(popers.somaj_tehnic,0) = 1 And ;
EMPTY(Nvl(popers.datast1,{})) And Empty(Nvl(popers.datast2,{}))
lcNecompletat = lcNecompletat + '* Perioada somajului tehnic'+CRLF
Endif
*!* modificare ROARES v 2.0.14 ^
*!* modificare ROASAL v 2.0.20
If Empty(Nvl(popers.casaasig,'')) and Empty(Nvl(popers.id_caseasig,0))
lcNecompletat = lcNecompletat + "* Casa de sanatate!" + CRLF
Endif
*!* modificare ROASAL v 2.0.20 ^
*!* modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
If popers.tarifar < ROUND((lnSalmin / 8 )* popers.fractie,0) AND popers.id_interval_munca = 1
lcNecompletat = lcNecompletat + "* Salariul tarifar este mai mic decat salariul minim pe economie" + CRLF
Endif
*!* ^ modificare ROARES v 2.1.17 - limitare tarifar la salariu minim
IF popers.id_tipapatrid = 1 AND ISNULL(popers.id_tipautorizatie) AND (ISNULL(popers.datainceputautorizatie) OR EMPTY(popers.datainceputautorizatie))AND (ISNULL(popers.datasfarsitautorizatie) OR EMPTY(popers.datasfarsitautorizatie))
lcNecompletat = lcNecompletat + "* Trebuie completat tipul, data de inceput si data de sfarsit a autorizatiei pentru salariatii apatrizi (Documente)" + CRLF
ENDIF
*!* modificare v 2.0.0
Do Case
Case popers.stare_contract = 1 And popers_orig.stare_contract > 1
If Empty(Nvl(popers.datainceputs,{}))
lcNecompletat = lcNecompletat + '* Data ' + Iif(popers_orig.stare_contract = 2,'reactivarii',;
'incetarii '+Iif(popers_orig.stare_contract = 3,'suspendarii','detasarii'))+CRLF
Endif
If Empty(Nvl(popers.id_temeis,0)) And popers_orig.stare_contract = 2
lcNecompletat = lcNecompletat + '* Temeiul legal pentru reactivare'+CRLF
Endif
Case popers.stare_contract = 2
If Empty(Nvl(popers.datainceputs,{}))
lcNecompletat = lcNecompletat + '* Data incetarii'+CRLF
Endif
If Empty(Nvl(popers.id_temeis,0))
lcNecompletat = lcNecompletat + '* Temeiul legal pentru incetare'+CRLF
Endif
Case popers.stare_contract = 3
If Empty(Nvl(popers.datainceputs,{}))
lcNecompletat = lcNecompletat + '* Data de inceput a suspendarii'+CRLF
Endif
If Empty(Nvl(popers.datasfarsits,{}))
lcNecompletat = lcNecompletat + '* Data de sfarsit a suspendarii'+CRLF
Endif
If Empty(Nvl(popers.id_temeis,0))
lcNecompletat = lcNecompletat + '* Temeiul legal pentru suspendare'+CRLF
Endif
Case popers.stare_contract = 4
If Empty(Nvl(popers.datainceputs,{}))
lcNecompletat = lcNecompletat + '* Data de inceput a detasarii'+CRLF
Endif
If Empty(Nvl(popers.datasfarsits,{}))
lcNecompletat = lcNecompletat + '* Data de sfarsit a detasarii'+CRLF
Endif
If Empty(Nvl(popers.id_parts,0))
lcNecompletat = lcNecompletat + '* Locul detasarii'+CRLF
Endif
If Empty(Nvl(popers.id_taras,0))
lcNecompletat = lcNecompletat + '* Tara detasarii'+CRLF
Endif
Otherwise
lcNecompletat = lcNecompletat
Endcase
*!* modificare v 2.0.0 ^
If !Empty(lcNecompletat)
lcNecompletat = 'Nu ati completat campurile: ' + CRLF + lcNecompletat
aMESSAGEBOX(lcNecompletat,16,'Atentie!')
lcNecompletat=''
IF AMESSAGEBOX('Doriti sa salvati fara campurile completate?' + CHR(13) + CHR(10) + 'Unele campuri sunt obligatorii si nu se va putea salva.',4+32,_screen.Caption) <> 6
RETURN
ENDIF
Endif
*!* modificare v 2.0.0
If !Thisform.do_verifica_date()
Return
Endif
*!* modificare v 2.0.0 ^
*!* IF this.cus_odata_opers1.cactiune='INSERT'
lcSql = [select p.nume,p.prenume from nom_parteneri p where id_part in ] + ;
[(select id_part from sal_personal where marca = ] + Alltrim(Str(popers.marca)) + [) and id_part<>?popers.id_part]
lcCursor = [crsmarca]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
Else
If Reccount('crsmarca')>0
Select crsmarca
aMESSAGEBOX('Aceasta marca exista deja! ( ' + Nvl(Alltrim(nume),'') + ' ' + Nvl(Alltrim(prenume),'') + ')',48,'Atentie!')
Return
Endif
Endif
If Used('crsmarca')
Use In crsmarca
Endif
*!* ENDIF
lnrecno = popers.id_salariat
*!* modificare v 2.0.0
*!* *!* modificare v 1.0.49
*!* *!* This.cus_odata_opers1.salvare(popers,popers.id_salariat)
*!* If This.cus_odata_opers1.salvare(popers,popers.id_salariat)
*!* *!* modificare v 1.0.49 ^
*!* This.actualizeaza_grid1()
*!* *!* ELSE
*!* *!* lnrecno = popers.id_salariat
*!* *!* ENDIF
*!* Thisform.do_readonly()
*!* This._GRID1.SetFocus()
*!* Select v_personal
*!* Locate For id_salariat = lnrecno
*!* If Used('registru_temp')
*!* Use In registru_temp
*!* Endif
*!* This.cus_odata_opers1.cactiune=''
*!* *!* modificare v 1.0.49
*!* Endif
*!* *!* modificare v 1.0.49 ^
*!* modificare ROARES v 2.0.14
If Thisform.page1.page2.ck_anulare_incetare.Value = 1
popers.stare_contract = -2
*!* nu am nevoie sa le fac null aici pentru ca le fac pe server
*!* popers.datalic = Null
*!* popers.datainceputs = Null
Endif
*!* modificare ROARES v 2.0.14 ^
If !Compobj(popers,popers_orig) or thisform.lpozamodif
*!* modificare ROARES 2.0.4
thisform.lpozamodif = .f.
AddProperty(popers,"dataconsemnare",{})
AddProperty(popers,"tip_modificare",1)
*!* modificare ROARES 2.1.0
AddProperty(popers,"dataactmodif",{})
AddProperty(popers,"tipactmodif",'')
AddProperty(popers,"id_tipact",0)
AddProperty(popers,"nractmodif",0)
IF This.cus_odata_opers1.cactiune = 'INSERT'
popers.nractmodif = popers.nrctr
popers.dataactmodif = popers.datactr
popers.id_tipact = -99
ENDIF
*!* modificare ROARES 2.1.0 ^
If gnEvaluareRevisal5 = 0 ;
AND gnScrieRegistru = 1 ; && modificare ROARES v 2.0.10
AND Thisform.modificari_revisal(popers,popers_orig) && modificare ROASAL v 2.0.12 / 18.01.2012
*!* modificare ROASAL v 2.0.12 / 18.01.2012 : am adaugat conditia Thisform.modificari_revisal si atunci
*!* nu-i mai las posibilitatea sa aleaga "Fara scriere"
*!* loFrm = Createobject("frm_salvare_opersonal",popers.stare_contract<>popers_orig.stare_contract)
loFrm = Createobject("frm_salvare_opersonal",.T.)
*!* modificare ROASAL v 2.0.12 / 18.01.2012 ^
*!* IIF(EMPTY(NVL(popers.id_stat,0)),.T.,.F.)) - modificare ROARES v 2.0.14
loFrm.Show(1)
Else
gnButon = 1
Endif
If gnButon = 2
Removeproperty(popers,"dataconsemnare")
Removeproperty(popers,"tip_modificare")
Removeproperty(popers,"dataactmodif")
Removeproperty(popers,"id_tipact")
Removeproperty(popers,"tipactmodif")
Removeproperty(popers,"nractmodif")
Else
*!* modificare ROARES 2.0.4 ^
AddProperty(popers,"stare_contract_prec",popers_orig.stare_contract)
If This.cus_odata_opers1.salvare(popers,popers.id_salariat)
This.actualizeaza_grid1()
Thisform.do_activeaza(.F.)
This._GRID1.SetFocus()
Select v_personal
Locate For id_salariat = lnrecno
If Used('registru_temp')
Use In registru_temp
Endif
This.cus_odata_opers1.cactiune=''
Endif
*!* modificare ROARES 2.0.4
Endif
*!* modificare ROARES 2.0.4 ^
thisform.nrincarcaripoze = 0
ELSE
aMESSAGEBOX("Nu ati facut modificari!",48,"Atentie")
Endif
*!* modificare v 2.0.0 ^
ENDPROC
PROCEDURE do_sterge
*!* modificare ROASAL v 2.0.14
IF glLunaInchisa
Return
ENDIF
*!* modificare ROASAL v 2.0.14 ^
Select v_personal
*!* IF MESSAGEBOX('Doriti sa stergeti angajatul '+ ALLTRIM(popers.nume)+' '+ ALLTRIM(popers.prenume),4)=7
*!* RETURN
*!* ENDIF
*!* modificare ROARES v 2.0.11
IF amessagebox("Doriti sa stergeti angajatul "+ALLTRIM(popers.nume)+" "+ALLTRIM(popers.prenume)+" ?"+;
CRLF + CRLF + "ATENTIE!!! Daca doriti sa incetati contractul, apasati NU si modificati starea contractului de la 'Date angajare'!",4+32,"Confirmare stergere") = 7
RETURN
ENDIF
*!* ldDlich = {}
*!* Local loForm
*!* On Escape loForm.Release
*!* loForm = Createobject("frm_termin_renunt")
*!* loForm.AddObject("text_item1","_textbox")
*!* loForm.Width = 236
*!* loForm.Height = 108
*!* loForm.but_termin1.Left = 204
*!* loForm.lb_titlu_alb_b121.Caption = 'Data lichidarii'
*!* loForm.lb_titlu_alb_b121.AutoSize = .T.
*!* loForm.text_item1.Left = 48
*!* loForm.text_item1.Top = 60
*!* loForm.text_item1.ControlSource = 'ldDlich'
*!* loForm.text_item1.SpecialEffect = 0
*!* loForm.text_item1.BorderStyle = 1
*!* loForm.text_item1.Format = 'd'
*!* loForm.text_item1.Visible = .T.
*!* loForm.text_item1.TabIndex = 1
*!* loForm.AutoCenter = .T.
*!* loForm.Show(1)
*!* If buton = 2
*!* Return
*!* Endif
*!* If !Empty(ldDlich)
*!* popers.datalic = ldDlich
*!* Endif
*!* modificare ROARES v 2.0.11 ^
Do STERGE_INREGISTRARE With "opers",popers.id_stat
This.actualizeaza_grid1()
Thisform._GRID1.SetFocus()
ENDPROC
PROCEDURE do_sterge_atas
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
If Reccount('v_atas')=0
Return
Endif
Select v_atas
Scatter Name lorec
Do sterge_inregistrare With 'atas',lorec.id_sal_atasamente
Release lorec
save_grid_tag(Thisform.page1.page10.gridAtasamente)
poatas.ca_baza1.cfiltru =[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
poatas.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page10.gridAtasamente)
ENDPROC
PROCEDURE do_sterge_aviz
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Select v_avize
Scatter Name lorec
Do STERGE_INREGISTRARE With "avize",lorec.id_aviz
save_grid_tag(Thisform.page1.page11.grid3)
poavize.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
poavize.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page11.grid3)
ENDPROC
PROCEDURE do_sterge_bazacm
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Select v_bazacm
Scatter Name lorec
Do STERGE_INREGISTRARE With "bazacm",lorec.id_bazacm
save_grid_tag(Thisform.page1.page4.grid3)
pobazacm.ca_baza1.cfiltru = [id_stat = ] + Alltrim(Str(popers.id_stat))
pobazacm.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page4.grid3)
ENDPROC
PROCEDURE do_sterge_curs
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
ENDIF
PRIVATE pniesire
pniesire = 0
*!* modificare ROASAL v 2.0.14 ^
Select v_curs_calif
Scatter Name lorec
Do sterge_inregistrare With 'curs',lorec.id_curs
If pniesire=1
save_grid_tag(Thisform.page1.page6.grid3)
pocurs.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pocurs.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page6.grid3)
Select v_calif
GO TOP
ENDIF
Release lorec
ENDPROC
PROCEDURE do_sterge_echip
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
If Reccount('v_echip')=0
Return
Endif
Select v_echip
Scatter Name lorec
Do sterge_inregistrare With 'echip',lorec.id_echip
Release lorec
ENDPROC
PROCEDURE do_sterge_intret
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Select v_nom_intret
Scatter Name loint
Do sterge_inregistrare With 'intret',loint.id_pers
save_grid_tag(Thisform.page1.page3.grid3)
pointr.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
pointr.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page3.grid3)
ENDPROC
PROCEDURE do_sterge_limba
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
ENDIF
Private pniesire
pniesire=0
*!* modificare ROASAL v 2.0.14 ^
Select v_calif
Scatter Name lorec
Do sterge_inregistrare With 'limbi',lorec.id_str
If pniesire=1
save_grid_tag(Thisform.page1.page5.grid3)
pocalif.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pocalif.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page5.grid3)
ENDIF
Release lorec
ENDPROC
PROCEDURE do_sterge_stud
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Select v_studii
Scatter Name lorec
Do sterge_inregistrare With 'stud',lorec.id_studiu
Release lorec
ENDPROC
PROCEDURE do_verifica_date
Local lcMesaj
Do Case
*!* trebuie adaugata coloana cod_ctr in popers si in cautarea de la do_cauta_tipcontract
*!* CASE EMPTY(NVL(popers.datasfctr,{})) AND popers.cod_ctr = [ContractUcenicie]
*!* lcMesaj = [Contractele de ucenicie nu pot fi pe perioada nedeterminata!]
*!* modificare ROARES v 2.0.8
CASE !EMPTY(NVL(popers.id_interval_munca,0)) AND popers.id_durata_munca <> 4
lcMesaj = [Tipul intervalului de repartizare nu trebuie completat pentru norma intreaga!]
CASE popers.orenorm < popers.fractie
lcMesaj = [Timpul normal de munca nu poate fi mai mic decat timpul partial!]
CASE popers.orenorm = popers.fractie AND popers.id_tip_norma = 4 && timp partial
lcMesaj = [Timpul normal de munca nu poate fi egal cu timpul partial!]
*!* modificare ROARES v 2.0.8 ^
CASE UPPER(popers.codcetatenie) = [ALTA] AND popers.id_tipapatrid = 1 AND EMPTY(NVL(popers.id_tipautorizatie,0))
lcMesaj = [Nu ati completat tipul autorizatiei de munca! ( pagina "Documente" )]
CASE UPPER(popers.codcetatenie) = [ALTA] AND popers.id_tipapatrid = 1 AND EMPTY(NVL(popers.datainceputautorizatie,{})) ;
AND popers.id_tipautorizatie <> 9 && "Exceptie" modificare v 2.0.17
lcMesaj = [Nu ati completat data de inceput a autorizatiei! ( pagina "Documente" )]
CASE UPPER(popers.codcetatenie) = [ALTA] AND popers.id_tipapatrid = 1 AND EMPTY(NVL(popers.datasfarsitautorizatie,0)) ;
AND popers.id_tipautorizatie <> 9 && "Exceptie" modificare v 2.0.17
lcMesaj = [Nu ati completat data de sfarsit a autorizatiei! ( pagina "Documente" )]
CASE UPPER(popers.codcetatenie) <> [ALTA] AND !EMPTY(NVL(popers.id_tipautorizatie,0))
lcMesaj = [Tipul autorizatiei de munca nu trebuie completat! ( pagina "Documente" )]
CASE UPPER(popers.codcetatenie) <> [ALTA] AND !EMPTY(NVL(popers.datainceputautorizatie,{}))
lcMesaj = [Data de inceput a autorizatiei nu trebuie completata! ( pagina "Documente" )]
CASE UPPER(popers.codcetatenie) <> [ALTA] AND !EMPTY(NVL(popers.datasfarsitautorizatie,0))
lcMesaj = [Data de sfarsit a autorizatiei nu trebuie completata! ( pagina "Documente" )]
Case popers_orig.stare_contract = 2 And popers.stare_contract = 1 ;
AND popers.datainceputs < popers_orig.datainceputs
lcMesaj = [Data reactivarii trebuie sa fie mai mare sau egala cu data incetarii (] + DTOC(popers_orig.datainceputs)+ [) !]
Case popers_orig.stare_contract = 3 And popers.stare_contract = 1 ;
AND popers.datainceputs > popers_orig.datasfarsits+1
lcMesaj = [Data incetarii suspendarii trebuie sa fie mai mica sau egala cu data de sfarsit a suspendarii (] + DTOC(popers_orig.datasfarsits)+ [) !]
Case popers_orig.stare_contract = 4 And popers.stare_contract = 1 ;
AND popers.datainceputs > popers_orig.datasfarsits
lcMesaj = [Data incetarii detasarii trebuie sa fie mai mica sau egala cu data de sfarsit a detasarii (] + DTOC(popers_orig.datasfarsits)+ [) !]
*!* modificare ROARES v 2.0.7
CASE INLIST(popers.stare_contract,3,4) AND popers.datainceputs > popers.datasfarsits
lcMesaj = [Data de inceput nu poate fi mai mare decat data de sfarsit!]
CASE popers_orig.stare_contract = 4 AND popers.stare_contract = 3 ;
and (!BETWEEN(popers.datainceputs,popers_orig.datainceputs,popers_orig.datasfarsits) or ;
!BETWEEN(popers.datasfarsits,popers_orig.datainceputs,popers_orig.datasfarsits))
lcMesaj = [Perioada de suspendare nu poate fi in afara perioadei de detasare (] + DTOC(popers_orig.datainceputs)+ [-] + ;
DTOC(popers_orig.datasfarsits)+ [) !]
*!* modificare ROARES v 2.0.7 ^
*!* modificare ROARES v 2.0.14
CASE popers_orig.stare_contract = 2 AND popers.stare_contract <> 2 AND Thisform.page1.page2.ck_anulare_incetare.Value = 1
lcMesaj = [Nu puteti reactiva contractul si anula incetarea simultan!] + CRLF + ;
[Reactivarea este bazata pe un temei legal, in timp ce anularea incetarii se face daca a fost incetat contractul in mod eronat.]
*!* modificare ROARES v 2.0.14 ^
Otherwise
lcMesaj = []
Endcase
If !Empty(lcMesaj)
amessagebox(lcMesaj,48,"Atentie")
Return .F.
Else
Return .T.
Endif
ENDPROC
PROCEDURE do_writeonly
*!* modificare ROASAL v 2.0.0
*!* Thisform.do_butoane_stare(.F.)
*!* Dimension lapagini[6,3] &&array pagini [1,1] - nr text initial, [1,2]- nr text final, [1,3] - nr pagina
*!* lapagini[1,1]=1
*!* lapagini[1,2]=25
*!* lapagini[1,3]=1
*!* lapagini[2,1]=26
*!* lapagini[2,2]=53
*!* lapagini[2,3]=2
*!* lapagini[3,1]=51
*!* lapagini[3,2]=54
*!* lapagini[3,3]=3
*!* lapagini[4,1]=55
*!* lapagini[4,2]=55
*!* lapagini[4,3]=5
*!* lapagini[5,1]=56
*!* lapagini[5,2]=65
*!* lapagini[5,3]=7
*!* lapagini[6,1]=65
*!* lapagini[6,2]=70 && modificare v 1.0.49 : 69
*!* lapagini[6,3]=8
*!* Local ladim,lni,lnf
*!* ladim = Alen(lapagini,1) &&nr de pagini configurate pt refresh
*!* For i=1 To ladim
*!* For j = lapagini[i,1] To lapagini[i,2]
*!* If j=31
*!* Loop &&sectia
*!* Endif
*!* lcr = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.readonly=.F.'
*!* lcre = 'thisform.page1.page'+Alltrim(Str(lapagini[i,3]))+'.tx'+Alltrim(Str(j))+'.refresh'
*!* &lcr
*!* &lcre
*!* Endfor
*!* Endfor
*!* modificare ROASAL v 2.0.0 ^
ENDPROC
PROCEDURE eticheta
LPARAMETERS tnmarca,tcnume,tcprenume
IF PCOUNT()=0
this.clienttoptabs1._container1.lblHeader.Caption="Angajat nou"
ELSE
IF EMPTY(tcnume)
tcnume=''
ENDIF
IF EMPTY(tcprenume)
tcprenume=''
ENDIF
IF EMPTY(tcnume) AND EMPTY(tcprenume)
this.clienttoptabs1._container1.lblHeader.Caption="Angajat nou"
ELSE
this.clienttoptabs1._container1.lblHeader.Caption=ALLTRIM(STR(tnmarca))+" - "+ALLTRIM(tcnume)+" "+ALLTRIM(tcprenume)+;
' ; '+'Num<75>r angaja<6A>i selecta<74>i: '+ALLTRIM(STR(thisform.nrang,5,0)) + ' - Activi:' +ALLTRIM(STR(thisform.nrangactivi,5,0))
ENDIF
ENDIF
this.clienttoptabs1._container1.lblHeader.refresh
ENDPROC
PROCEDURE Init
DoDefault()
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Thisform.but_modiparam1.Visible = .F. && modificare ROARES v 2.0.21
Thisform.but_noup1.Visible = .F.
Thisform.but_nou1.Visible = .F.
Thisform.but_modifica1.Visible = .F.
Thisform.but_sterge1.Visible = .F.
With Thisform.page1.page3
.but_nou1.Visible = .F.
.but_nou2.Visible = .F.
.but_modifica1.Visible = .F.
.but_modifica2.Visible = .F.
.but_sterge1.Visible = .F.
.but_sterge2.Visible = .F.
Endwith
With Thisform.page1.page4
.but_nou1.Visible = .F.
.but_modifica1.Visible = .F.
.but_sterge1.Visible = .F.
Endwith
With Thisform.page1.page5
.but_nou1.Visible = .F.
.but_modifica1.Visible = .F.
.but_sterge1.Visible = .F.
Endwith
With Thisform.page1.page6
.but_nou1.Visible = .F.
.but_nou2.Visible = .F.
.but_modifica1.Visible = .F.
.but_modifica2.Visible = .F.
.but_sterge1.Visible = .F.
.but_sterge2.Visible = .F.
Endwith
With Thisform.page1.page9
.but_nou1.Visible = .F.
.but_modifica1.Visible = .F.
.but_sterge1.Visible = .F.
Endwith
With Thisform.page1.page10
.but_nou1.Visible = .F.
.but_sterge1.Visible = .F.
Endwith
Endif
*!* modificare ROASAL v 2.0.14 ^
*!* modificare ROASAL v 2.0.0
thisform.laccesmodif = Thisform.but_modifica1.Visible
Bindevent(Thisform.page1.page2.opt_stare_contract,"InteractiveChange",Thisform,"do_modifica_stare",1)
Bindevent(Thisform.page1.page2.opt_stare_contract,"Refresh",Thisform,"do_actualizeaza_stare",1)
*!* modificare ROASAL v 2.0.0 ^
*!* modificare ROARES v 2.0.14
Thisform._GRID1.SetAll("DynamicBackColor","IIF(stare_contract=2,RGB(180,180,180),IIF(stare_contract=3,RGB(242,183,138),IIF(stare_contract=4,RGB(158,252,201),RGB(255,255,255))))","Column")
*!* modificare ROARES v 2.0.14 ^
Thisform.verifica_parteneri()
Select v_personal
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
DODEFAULT(nKeyCode, nShiftAltCtrl)
*!* LOCAL lcSelect
*!* STORE '' TO lcSelect
*!* lcSelect = ALIAS()
DO CASE
Case nKeyCode = 28 And nShiftAltCtrl=0
NODEFAULT
thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab1)
thisform.page1.page1.tx2.SetFocus()
CASE nKeyCode = -1 And nShiftAltCtrl=0
NODEFAULT
thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab2)
thisform.page1.page2.tx26.SetFocus()
CASE nkeycode = -2 And nShiftAltCtrl=0
NODEFAULT
thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab3)
thisform.page1.page3.Ct_cb_stareciv.SetFocus() && modificare ROARES v 2.0.8
CASE nkeycode = -3 And nShiftAltCtrl=0
NODEFAULT
thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab4)
CASE nkeycode = -4 And nShiftAltCtrl=0
NODEFAULT
thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab5)
CASE nkeycode = -5 And nShiftAltCtrl=0
NODEFAULT
thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab6)
CASE nkeycode = -6 And nShiftAltCtrl=0
NODEFAULT
thisform.clienttoptabs1.tabclicked(thisform.cLIENTTOPTABS1.tab7)
OTHERWISE
ENDCASE
IF nKeyCode=17 And nShiftAltCtrl=2
Nodefault
If TYPE('this.caut_nou1._COMBOBOX1')="O"
this.caut_nou1._COMBOBOX1.SetFocus()
ENDIF
ENDIF
*!* SELECT &lcSelect
ENDPROC
PROCEDURE make_crsatasamente
Parameters tlToate
Private poLink
Store '' To poLink
Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal
lcSchema = [id_sal_atasamente N(5), descriere c(50), nume_atasament c(200), atasament w, data_doc d,nr_doc n(50),id_persoana N(5), marca n(5), id_utilizator n(100) ]
lcSelect = [select id_sal_atasamente, descriere,data_doc,nr_doc, nume_atasament,id_persoana,marca,id_utilizator]+;
[ from SAL_ATASAMENTE ]
lcOrder = [nume_atasament,descriere,data_doc,nr_doc]
lcgroup = []
lcFiltru = []
llModParam = .T.
llAfiseaza = .F.
GENCURSOR('poLink','crsAtasamente', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
poLink.ca_baza1.afisare()
ENDPROC
PROCEDURE modificari_revisal
Lparameters popers,popers_orig
*!* modificare v 2.0.12 : verific campurile care se scriu in Revisal ca sa nu-mi apara fereastra cu tipul modificarii
*!* decat doar daca se schimba vreunul dintre aceste campuri
Local llReturn
llReturn = Nvl(popers.nume,[]) <> Nvl(popers_orig.nume,[]) Or ;
NVL(popers.prenume,[]) <> Nvl(popers_orig.prenume,[]) Or ;
NVL(popers.codpers,[]) <> Nvl(popers_orig.codpers,[]) Or ;
NVL(popers.id_part,0) <> Nvl(popers_orig.id_part,0) Or ;
NVL(popers.sector,0) <> Nvl(popers_orig.sector,0) Or ;
NVL(popers.strada,[]) <> Nvl(popers_orig.strada,[]) Or ;
NVL(popers.numar,[]) <> Nvl(popers_orig.numar,[]) Or ;
NVL(popers.Bloc,[]) <> Nvl(popers_orig.Bloc,[]) Or ;
NVL(popers.scara,[]) <> Nvl(popers_orig.scara,[]) Or ;
NVL(popers.etaj,[]) <> Nvl(popers_orig.etaj,[]) Or ;
NVL(popers.apart,[]) <> Nvl(popers_orig.apart,[]) Or ;
NVL(popers.codpostal,[]) <> NVL(popers_orig.codpostal,[]) Or ;
NVL(popers.id_nationalit,1) <> Nvl(popers_orig.id_nationalit,1) Or ;
popers.id_meserie <> popers_orig.id_meserie Or ;
popers.dataang <> popers_orig.dataang Or ;
NVL(popers.datalic,{}) <> Nvl(popers_orig.datalic,{}) Or ;
NVL(popers.datasfctr,{}) <> Nvl(popers_orig.datasfctr,{}) Or ;
NVL(popers.id_tipctr,0) <> Nvl(popers_orig.id_tipctr,0) Or ;
popers.nrctr <> popers_orig.nrctr Or ;
popers.datactr <> popers_orig.datactr Or ;
popers.tarifar <> popers_orig.tarifar Or ;
popers.fractie <> popers_orig.fractie Or ;
popers.orenorm <> popers_orig.orenorm Or ;
NVL(popers.id_judet,0) <> Nvl(popers_orig.id_judet,0) Or ;
popers.id_loc <> popers_orig.id_loc Or ;
popers.id_cetatenie <> popers_orig.id_cetatenie Or ;
NVL(popers.id_tip_act,0) <> Nvl(popers_orig.id_tip_act,0) Or ;
popers.stare_contract <> popers_orig.stare_contract Or ;
NVL(popers.datainceputs,{}) <> Nvl(popers_orig.datainceputs,{}) Or ;
NVL(popers.datasfarsits,{}) <> Nvl(popers_orig.datasfarsits,{}) Or ;
NVL(popers.dataincetares,{}) <> Nvl(popers_orig.dataincetares,{}) Or ;
NVL(popers.id_parts,0) <> Nvl(popers_orig.id_parts,0) Or ;
NVL(popers.id_taras,0) <> Nvl(popers_orig.id_taras,0) Or ;
NVL(popers.id_temeis,0) <> Nvl(popers_orig.id_temeis,0) Or ;
NVL(popers.id_tipautorizatie,0) <> Nvl(popers_orig.id_tipautorizatie,0) Or ;
NVL(popers.datainceputautorizatie,{}) <> Nvl(popers_orig.datainceputautorizatie,{}) Or ;
NVL(popers.datasfarsitautorizatie,{}) <> Nvl(popers_orig.datasfarsitautorizatie,{}) Or ;
NVL(popers.id_stare_ctr,0) <> Nvl(popers_orig.id_stare_ctr,0) Or ;
popers.id_tip_norma <> popers_orig.id_tip_norma Or ;
popers.id_durata_munca <> popers_orig.id_durata_munca Or ;
popers.id_repartizare_munca <> popers_orig.id_repartizare_munca Or ;
NVL(popers.id_interval_munca,0) <> Nvl(popers_orig.id_interval_munca,0) or ;
NVL(popers.id_tipapatrid,0) <> Nvl(popers_orig.id_tipapatrid,0)
Return llReturn
ENDPROC
PROCEDURE modifica_copil
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Private pniesire
pniesire=0
Select v_copii
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "familie1",loRec,lorec.id_copil,"UPDATE",,"addcopii"
If pniesire=1
save_grid_tag(Thisform.page1.page3.grid1) &&grid v_copii
pocop.ca_baza1.cfiltru=[id_persoana = ] + ALLTRIM(STR(popers.id_salariat))
pocop.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page3.grid1)
Endif
ENDPROC
PROCEDURE refresh_pagini
Lparameters tnPagina
*!* modificare ROARES v 2.0.8
Local lnPagina, loPagina
lnPagina = tnPagina
loPagina = Evaluate([Thisform.page1.page]+Alltrim(Str(lnPagina)))
With loPagina
For i = 1 To .Objects.Count
Do Case
Case INLIST(Upper(.Objects(i).Class),[_TXBASE],[_TEXTBOX],[COMBOBOX],[_CBBASE],[CT_CB_TX],[CHECKBOX])
.Objects(i).Refresh()
Case Upper(.Objects(i).Class) = [CT_CLB_CAUTARE_VAR]
.Objects(i).tx_cautare.Refresh()
Case Upper(.Objects(i).Class) = [CT_CLB_CAUTARE]
.Objects(i).clb_tx_cautare.text_simplu1.Refresh()
Otherwise
** nimic
Endcase
Endfor
Do Case
Case lnPagina = 1
lcSQl = [select numefis from sal_legitimatii where id_salariat = ]+ Alltrim(Str(popers.id_salariat))
lnSucces = goExecutor.oExecute(lcSQl,'crsFisierLegitimatie')
If lnSucces < 0
amessagebox(goExecutor.cEroare,16,"Eroare")
RETURN
ENDIF
SELECT crsFisierLegitimatie
SCATTER NAME logelit
IF !EMPTY(logelit.numefis) AND !ISNULL(logelit.numefis)
lcCalePozaServer = GetPozaFile(ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(logelit.numefis))
.imAGE1.picture = lcCalePozaServer
.imAGE1.Height = 121
.imAGE1.Width = 109
.imAGE1.Stretch= 1
ELSE
.imAGE1.picture = ''
.imAGE1.Height = 121
.imAGE1.Width = 109
.imAGE1.Stretch= 1
ENDIF
If Used('crsFisierLegitimatie')
Use In crsFisierLegitimatie
ENDIF
.refresh()
Case lnPagina = 2
.opt_stare_contract.Value = popers.stare_contract
.lb_simplu9.Caption = Nvl(popers.modlic,[])
.opt_stare_contract.Refresh()
.opt_oug114.Refresh()
IF pnCalendarOug114 = 1
.lb_simplu1.visible = .t.
.opt_oug114.visible = .t.
ELSE
.lb_simplu1.visible = .f.
.opt_oug114.visible = .f.
ENDIF
Thisform.do_actualizeaza_nom_norme()
If popers.somaj_tehnic = 1
.tx52.Visible = .T.
.tx53.Visible = .T.
.lb_simplu4.Visible = .T.
.lb_simplu5.Visible = .T.
Else
.tx52.Visible = .F.
.tx53.Visible = .F.
.lb_simplu4.Visible = .F.
.lb_simplu5.Visible = .F.
Endif
Case lnPagina = 3
save_grid_tag(.grid3) &&grid v_nom_intret
pointr.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
pointr.ca_baza1.afisare()
restore_grid_tag(.grid3)
save_grid_tag(.grid1) &&grid v_copii
pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
pocop.ca_baza1.afisare()
restore_grid_tag(.grid1)
Local lncopii
lncopii = 0
Select v_copii
Calculate Count(id_copil) To lncopii
.txcopii.Value=lncopii
.txcopii.Refresh()
Case lnPagina = 4
save_grid_tag(.grid3)
pobazacm.ca_baza1.cfiltru = [id_stat = ] + Alltrim(Str(popers.id_stat))
pobazacm.ca_baza1.afisare()
restore_grid_tag(.grid3)
Case lnPagina = 5
save_grid_tag(.grid3)
pocalif.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
pocalif.ca_baza1.afisare()
restore_grid_tag(.grid3)
Case lnPagina = 6 && 6
save_grid_tag(.grid3)
pocurs.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
pocurs.ca_baza1.afisare()
restore_grid_tag(.grid3)
save_grid_tag(.grid1)
postud.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
postud.ca_baza1.afisare()
restore_grid_tag(.grid1)
Case lnPagina = 7
Thisform.vechimeal
Case lnPagina = 8
save_grid_tag(.grid1)
poact.ca_baza1.cfiltru = [angajatid = ] +Iif(Empty(Alltrim(popers.codpers)),'0',Alltrim(popers.codpers))
poact.ca_baza1.afisare()
restore_grid_tag(.grid1)
If popers.id_tipapatrid = 1 OR popers.id_cetatenie <> 1
* persoanele apatride cu drept de sedere sau persoanele cu cetatenie <> ROMANA completeaza Tip Autorizare in pagina Documente
*!* If Upper(popers.codcetatenie) = [ALTA]
.ct_clb_tipautorizatie.visible = .T.
.lb_simplu3.visible = .T.
.tx72.visible = .T.
.tx73.visible = .T.
else
.ct_clb_tipautorizatie.visible = .F.
.lb_simplu3.visible = .F.
.tx72.visible = .F.
.tx73.visible = .F.
Endif
Case lnPagina = 9
save_grid_tag(.grid3)
poechip.ca_baza1.cfiltru = [id_part = ] + Alltrim(Str(popers.id_part))
poechip.ca_baza1.afisare()
restore_grid_tag(.grid3)
Case lnPagina = 10
save_grid_tag(.gridAtasamente)
poatas.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
poatas.ca_baza1.afisare()
restore_grid_tag(.gridAtasamente)
Case lnPagina = 11
save_grid_tag(.grid3) &&grid v_avize
poavize.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
poavize.ca_baza1.afisare()
restore_grid_tag(.grid3)
Otherwise
Return
Endcase
Endwith
*!* Local lnpage
*!* lnpage = tnpag
*!* lni=0
*!* lnf=0
*!* Do Case
*!* Case lnpage=1 && 1
*!* lni = 1 &&lni = primul textbox de pe pagina activa
*!* lnf = 25 &&lnf = ultimul textbox de pe pagina activa
*!* lcpag = 'thisform.page1.page1.tx'
*!* *!* lcr = 'thisform.page1.page1.tx' + ALLTRIM(STR(1))+'.setfocus()'
*!* *!* &lcr
*!* *!*
*!* Case lnpage=2 && 2
*!* lni=26
*!* *!* modificare v 2.0.0
*!* *!* lnf=53
*!* lnf=55
*!* Thisform.page1.page2.opt_stare_contract.Value = popers.stare_contract
*!* Thisform.page1.page2.lb_simplu9.Caption = NVL(popers.modlic,[])
*!* Thisform.page1.page2.opt_stare_contract.refresh()
*!* *!* modificare v 2.0.0 ^
*!* lcpag = 'thisform.page1.page2.tx'
*!* If popers.somaj_tehnic = 1
*!* Thisform.page1.page2.tx52.Visible = .T.
*!* Thisform.page1.page2.tx53.Visible = .T.
*!* Thisform.page1.page2.lb_simplu4.Visible = .T.
*!* Thisform.page1.page2.lb_simplu5.Visible = .T.
*!* Else
*!* Thisform.page1.page2.tx52.Visible = .F.
*!* Thisform.page1.page2.tx53.Visible = .F.
*!* Thisform.page1.page2.lb_simplu4.Visible = .F.
*!* Thisform.page1.page2.lb_simplu5.Visible = .F.
*!* Endif
*!* Case lnpage=3 && 3
*!* lni = 51
*!* lnf = 54
*!* lcpag = 'thisform.page1.page3.tx'
*!* save_grid_tag(Thisform.page1.page3.grid3) &&grid v_nom_intret
*!* pointr.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
*!* pointr.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page3.grid3)
*!* save_grid_tag(Thisform.page1.page3.grid1) &&grid v_copii
*!* pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
*!* pocop.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page3.grid1)
*!* Local lncopii
*!* lncopii = 0
*!* Select v_copii
*!* Calculate Count(id_copil) To lncopii
*!* Thisform.page1.page3.txcopii.Value=lncopii
*!* Thisform.page1.page3.txcopii.Refresh
*!* Case lnpage = 4 && 4
*!* save_grid_tag(Thisform.page1.page4.grid3)
*!* pobazacm.ca_baza1.cfiltru = [id_stat = ] + Alltrim(Str(popers.id_stat))
*!* pobazacm.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page4.grid3)
*!* Case lnpage = 5 && 5
*!* lni = 55
*!* lnf = 55
*!* lcpag = 'thisform.page1.page5.tx'
*!* save_grid_tag(Thisform.page1.page5.grid3)
*!* pocalif.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
*!* pocalif.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page5.grid3)
*!* Case lnpage = 6 && 6
*!* save_grid_tag(Thisform.page1.page6.grid3)
*!* pocurs.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat))
*!* pocurs.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page6.grid3)
*!* save_grid_tag(Thisform.page1.page6.grid1)
*!* postud.ca_baza1.cfiltru = [id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
*!* postud.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page6.grid1)
*!* Case lnpage = 7
*!* lni = 56
*!* lnf = 65
*!* Thisform.vechimeal
*!* lcpag = 'thisform.page1.page7.tx'
*!* Case lnpage=8 && 8
*!* lni=65
*!* lnf=73 && modificare v 2.0.0 : 70 ; v 1.0.49 : 69
*!* lcpag = 'thisform.page1.page8.tx'
*!* save_grid_tag(Thisform.page1.page8.grid1)
*!* poact.ca_baza1.cfiltru = [angajatid = ] +Iif(Empty(Alltrim(popers.codpers)),'0',Alltrim(popers.codpers))
*!* poact.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page8.grid1)
*!* Case lnpage=9 && 9
*!* save_grid_tag(Thisform.page1.page9.grid3)
*!* poechip.ca_baza1.cfiltru = [id_part = ] + Alltrim(Str(popers.id_part))
*!* poechip.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page9.grid3)
*!* Case lnpage=10
*!* save_grid_tag(Thisform.page1.page10.gridAtasamente)
*!* poatas.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
*!* poatas.ca_baza1.afisare()
*!* restore_grid_tag(Thisform.page1.page10.gridAtasamente)
*!* Otherwise
*!* Return
*!* Endcase
*!* If lni#0 &&daca nu am textbox-uri nu fac nici un refresh la ele
*!* For i=lni To lnf
*!* lcr = lcpag + Alltrim(Str(i))+'.refresh'
*!* &lcr
*!* Endfor
*!* ENDIF
*!* modificare ROARES v 2.0.8 ^
ENDPROC
PROCEDURE registru_unic
Lparameters tnTip
*!* CREATE CURSOR registru_temp (tip_operatie c(1),id_criteriu n(5),id_modlic n(5),id_temei n(5),datamod d,explicatie c(254))
*---------------------------------
Local lnTipModif,lcoperatie
If gnscrieregistru=0
Return
Endif
lnTipModif = Thisform.opt_registru &&1-Modificare;2-Corectie;3-Nu scrie
If lnTipModif = 3
*!* RETURN
lcoperatie = 'M'
Else
lcoperatie = Icase(lnTipModif=1,'M','C')
Endif
****Legenda : 1-Functie/Ocupatie ; 2-Incetare Contract ; 3-Tipul Contractului ; 4-Reactivare Contract
**** 5-Numar/Data Contract ; 6-Loc de munca - Transfer la alta entitate a angajatorului
**** 7-Date personale
******verificare date********
Do Case
Case tnTip=1
lReturn = Icase(popers.id_meserie<>poRegAms.id_meserie,.T.,.F.)
Case tnTip=2
lReturn = Icase(popers.datalic<>Nvl(poRegAms.datalic,{}),.T.,.F.)
Case tnTip=3
*!* modificare v 1.0.49 ROARES
*!* lReturn = Icase(popers.datasfctr<>Nvl(poRegAms.datasfctr,{}),.T.,;
*!* popers.fractie<>poRegAms.fractie,.T.,;
*!* popers.id_tipctr<>poRegAms.id_tipctr,.T.,.F.)
lReturn = Icase(popers.dataang<>Nvl(poRegAms.dataang,{}),.T.,;
popers.datasfctr<>Nvl(poRegAms.datasfctr,{}),.T.,;
popers.fractie<>poRegAms.fractie,.T.,;
popers.id_tipctr<>poRegAms.id_tipctr,.T.,.F.)
*!* modificare v 1.0.49 ROARES ^
Case tnTip=5
*!* modificare v 1.0.49 ROARES
*!* lReturn = Icase(popers.nrctr<>poRegAms.nrctr,.T.,;
*!* popers.datactr<>Nvl(poRegAms.datactr,{}),.T.,;
*!* popers.nrctrm<>poRegAms.nrctrm,.T.,;
*!* popers.datactrm<>Nvl(poRegAms.datactrm,{}),.T.,.F.)
lReturn = Icase(popers.nrctr<>poRegAms.nrctr,.T.,;
popers.datactr<>Nvl(poRegAms.datactr,{}),.T.,;
popers.nrctrm<>poRegAms.nrctrm,.T.,;
popers.datactrm<>Nvl(poRegAms.datactrm,{}),.T.,.F.)
*!* modificare v 1.0.49 ROARES ^
Local lndatalic,lndataang,ldDataang
lndataang=Year(popers.dataang)*12+Month(popers.dataang)
lndatalic=Year(poRegAms.datalic)*12+Month(poRegAms.datalic)
ldDataang=popers.dataang
If popers.dataang>poRegAms.datalic And lndataang=lndatalic
If aMessagebox('Aceasta persoana a fost incetata! Doriti reangajare?',4,"Confirmare")=6
lcidstat = popers.id_stat
lcdata = Date()
lcSQl = [select * from sal_vnom_pers_tot where id_stat=?lcidstat]
lcCursor = 'crsReangajare'
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Else
Thisform.do_adauga()
Select crsReangajare
*!* modificare ROARES v 2.0.6 : am adaugat "MEMO"
Scatter Memo Name popers
Scatter Memo Name popers_orig
*!* MESSAGEBOX(popers.id_part)
popers.datactr = Ttod(datactr) && modificare v 1.0.49
popers.dataang=ldDataang
popers.datalic=Ttod(datalic)
popers.datasfctr=Ttod(datasfctr)
popers.datactrm=Ttod(datactrm)
Local lnpage,lcpage
lnpage = Thisform.page1.ActivePage
Thisform.refresh_pagini(lnpage)
Use In crsReangajare
Return
Endif
Endif
Endif
Case tnTip=6
lReturn = Icase(popers.id_sectie<>poRegAms.id_sectie,.T.,.F.)
Case tnTip=7
lReturn = Icase(popers.nume<>poRegAms.nume,.T.,;
popers.prenume<>poRegAms.prenume,.T.,;
popers.id_cetatenie<>poRegAms.id_cetatenie,.T.,;
popers.id_nationalit<>poRegAms.id_nationalit,.T.,;
popers.id_tip_act<>poRegAms.id_tip_act,.T.,;
popers.codpers<>poRegAms.codpers,.T.,;
popers.cmseria<>poRegAms.cmseria,.T.,;
popers.cmnr<>poRegAms.cmnr,.T.,;
popers.id_loc<>poRegAms.id_loc,.T.,;
popers.strada<>poRegAms.strada,.T.,;
popers.numar<>poRegAms.numar,.T.,;
popers.Bloc<>poRegAms.Bloc,.T.,;
popers.scara<>poRegAms.scara,.T.,;
popers.etaj<>poRegAms.etaj,.T.,;
popers.apart<>poRegAms.apart,.T.,.F.)
Otherwise
lReturn=.F.
Endcase
If lReturn = .F.
Return
Endif
******verificare date********
Private pcDataRegistru,pcExpReg,pnIdModLic,pnIdTemei
Store '' To pcExpReg
Store Date() To pcDataRegistru
Store 0 To pnIdModLic,pnIdTemei
Local lnOrdine
lnOrdine=1
If Inlist(tnTip,1,3,5)
If !Used('crsModLic')
lcSQl = [select * from sal_nom_modlic where sters=0]
lcCursor = [crsModLic]
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
Endif
If tnTip=2
If !Used('crsTemei')
lcSQl = [select * from syn_sal_nom_temei where tip=]+Iif(popers.stare_contract=2,[1],[2])+[ and sters = 0 and id_temei<100] && modificare 10.06.2011 : am adaugat sters = 0
lcCursor = [crsTemei]
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
Endif
Local lnOrdine
Do Case
Case tnTip=1
pnIdModLic=1
Select crsModLic
oreg = Createobject('frm_modificari_reg')
oreg.Show(1)
Release oreg
lnOrdine=4
Case tnTip=2
pnIdModLic=1
pnIdTemei=1
Select crsTemei
oreg = Createobject('frm_incetare_reg')
oreg.Show(1)
Release oreg
lnOrdine=4
*!* modificare v 2.0.0
If gnButon <> 2
popers.id_temeis = pnIdTemei
popers.explicaties = pcExpReg
*!* modificare v 2.0.8
*!* Thisform.page1.page2.tx47.Refresh()
Thisform.page1.page2.ct_clb_temei.tx_cautare.Refresh()
*!* modificare v 2.0.8 ^
Endif
pcselect = [select * from ] + gcS + [.sal_nom_modlic]
pcfiltruinitial=[sters=0]
pcfiltru = [1=1]
pcschema = []
pcorder = [modlic]
pccoloane = [modlic]
pcTitlu = [Mod lichidare]
pcTitluColoane = [Mod]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'sal_modlic',,pcfiltruinitial)
If buton # 2
popers.modlic = locauta.modlic
popers.id_modlic = locauta.id_modlic
Endif
*!* modificare v 2.0.0 ^
Case tnTip=3
pnIdModLic=1
Select crsModLic
oreg = Createobject('frm_modificari_reg')
oreg.lb_titlu_alb_b121.Caption = 'MODIFICARE TIP CONTRACT'
oreg.Show(1)
Release oreg
lnOrdine=3
Case tnTip=5
pnIdModLic=1
If poRegAms.nrctr>0 And poRegAms.nrctrm>0 And poRegAms.datactrm<>{} ;
and poRegAms.datactr<>{} && ROARES v 1.0.49 : am adaugat poRegAms.datactr
Select crsModLic
oreg = Createobject('frm_modificari_reg')
oreg.lb_titlu_alb_b121.Caption = 'MODIFICARE NUMAR / DATA CONTRACT'
oreg.Show(1)
Endif
Release oreg
lnOrdine=2
Case tnTip=6
pnIdModLic=1
pcExpReg = popers.sectie
oreg = Createobject('frm_locmunca_reg')
oreg.Show(1)
Release oreg
lnOrdine=5
Case tnTip=7
lnOrdine=7
Otherwise
Endcase
If Used('crsTemei')
Use In crsTemei
Endif
If Used('crsModLic')
Use In crsModLic
Endif
Select registru_temp
pcExpReg = Nvl(pcExpReg,'')
If tnTip=7
pcExpReg='Date Personale'
Endif
Locate For id_criteriu=tnTip
If Found()
Update registru_temp Set tip_operatie=lcoperatie ,id_modlic=pnIdModLic,;
id_temei=pnIdTemei,datamod=pcDataRegistru,explicatie=pcExpReg,ordine=lnOrdine Where id_criteriu=tnTip
Else
Insert Into registru_temp (tip_operatie,id_criteriu,id_modlic,id_temei,datamod,explicatie,ordine);
VALUES (lcoperatie ,tnTip,pnIdModLic,pnIdTemei,pcDataRegistru,pcExpReg,lnOrdine)
Endif
Select registru_temp
ENDPROC
PROCEDURE setez_exceptii
popers.plcas=1
popers.plsomaj=1
popers.pensionar=0
popers.plimpozit=1
popers.functiebaza=1
ENDPROC
PROCEDURE Show
Lparameters nStyle
Thisform.do_activeaza(.F.) && modificare ROARES v 2.0.8
ENDPROC
PROCEDURE sterge_copil
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
Select v_copii
Scatter Name locop
Do sterge_inregistrare With 'fam',locop.id_copil
save_grid_tag(Thisform.page1.page3.grid1) &&grid v_copii
pocop.ca_baza1.cfiltru=[id_persoana = ] + Alltrim(Str(popers.id_salariat))
pocop.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page3.grid1)
ENDPROC
PROCEDURE upload
Lparameters tcTabel
*!* modificare ROASAL v 2.0.14
If glLunaInchisa
Return
Endif
*!* modificare ROASAL v 2.0.14 ^
If Empty(popers.id_salariat) Or Isnull(popers.id_salariat)
aMessageBox('Pentru a putea adauga documente unei persoane noi angajate, trebuie salvate mai intai datele persoanei!',0+16,'Atentie')
Return
Endif
Private pcLink, pcDescriere, pcAtas_name, pcAtasament,pnDatadoc,pnNrdoc ,pnIdPers,pnMarca,pnId_atas,pnIesire
Store 0 To pnId_atas,pnIesire,pnDatadoc,pnNrdoc
Store "" To pcDescriere, pcAtas_name, pcAtasament, pcLink
* pcLink - private - folosit in frm_atas_nou
Local llReturn,lcSql,lnSucces
llReturn = .T.
Local lcTabelLinkuri
Store '' To lcTabelLinkuri
If !Empty(tcTabel)
lcTabelLinkuri = Alltrim(tcTabel)
Select (lcTabelLinkuri)
Scatter Name poLink Blank Memo
Else
Create Cursor crsAtasTemp (id_sal_atasamente N(5), descriere c(50),data_doc d,nr_doc N(5), nume_atasament c(200), atasament w,id_persoana N(5),marca N(5))
Select crsAtasTemp
Scatter Name poLink Blank Memo
Use In crsAtasTemp
Endif
poLink.data_doc = Date()
loan = Createobject("frm_atas_nou")
loan.orec = poLink
loan.Show(1)
If gnButon = 2
Return
Endif
pnIdPers = popers.id_salariat
pnMarca=popers.marca
pcDescriere = Upper(Alltrim(poLink.descriere))
pcAtas_name = Upper(Alltrim(poLink.nume_atasament))
pnDatadoc = poLink.data_doc
pnNrdoc = poLink.nr_doc
If Empty(pcLink)
Return
Endif
pcFisier = Filetostr(pcLink)
lnSucces = SQLSetprop(gnhandle,"Transactions",2)
If lnSucces < 0
aMessageBox("Programul nu a reusit sa treaca pe tranzactie manuala! Reintrati in program si incercati din nou!",48,"Atentie")
Else
lcSql = [insert into sal_atasamente(atasament, nume_atasament, descriere,data_doc,nr_doc,id_persoana,marca, id_utilizator) ]+;
[values (?pcFisier, ?pcAtas_name, ?pcDescriere,?pnDatadoc,?pnNrdoc,?pnIdPers,?pnMarca,?gnIdUtil) ] + ;
[ returning id_sal_atasamente into ?@pnId_atas]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16,'Eroare')
Endif
Endif
If lnSucces < 0
lcSql = "ROLLBACK"
Else
lcSql = "COMMIT"
Endif
lnSucces2 = goExecutor.oExecute(lcSql)
If lnSucces2 < 0
aMessageBox(lcSql + Chr(13) + goExecutor.cEroare,0+16,"Eroare")
Endif
lnSucces2 = SQLSetprop(gnhandle,"Transactions",1)
If lnSucces2 < 0
aMessageBox('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!',0+48,'Atentie!')
Else
If lcSql = "COMMIT"
If !Empty(lcTabelLinkuri)
Select (lcTabelLinkuri)
Append Blank
Gather Name poLink Memo
Replace fisier With pcFisier, id_atas With pnId_atas, nume_fisier With pcFis_name, descriere With pcDescriere, dataora With Datetime(), utilizator With gcUserNameApp
Endif
Endif
Endif
If pnIesire=1
save_grid_tag(Thisform.page1.page10.gridAtasamente)
poatas.ca_baza1.cfiltru =[id_persoana = ] + Alltrim(Str(popers.id_salariat)) + [ and sters=0]
poatas.ca_baza1.afisare()
restore_grid_tag(Thisform.page1.page10.gridAtasamente)
Endif
ENDPROC
PROCEDURE vechimeal
WITH thisform.page1.paGE7
IF !EMPTY(popers.vechimei)
.tx59.Value = FLOOR(popers.vechimei/12)
.tx60.Value = MOD(popers.vechimei,12)
ELSE
.tx59.value = 0
.tx60.value = 0
ENDIF
IF !EMPTY(popers.vechime)
.tx62.Value = FLOOR(popers.vechime/12)
.tx63.Value = MOD(popers.vechime,12)
ELSE
.tx62.value = 0
.tx63.value = 0
ENDIF
.vechimea.Value=NVL(popers.vechime,0)+12-gnLuna+1
.ania.Value = INT(.vechimea.Value/12)
.lunia.Value = MOD(.vechimea.Value,12)
.tx59.refresh
.tx60.refresh
.tx61.refresh
.tx62.refresh
.tx63.refresh
.ania.refresh
.lunia.refresh
.vechimea.refresh
ENDWITH
ENDPROC
PROCEDURE verifica_parteneri
Lparameters tndif
Local lflag
If Pcount()=1
lflag = verifica_adaugare_parteneri(tndif) &&osalarii_comun
Else
lflag = verifica_adaugare_parteneri() &&osalarii_comun
Endif
If lflag
This.but_noup1.Picture= 'NOU_SUS.BMP'
This.but_noup1.cpictureup='NOU_SUS.BMP'
This.but_noup1.cpicturedown='NOU_JOS.BMP'
This.but_noup1.ToolTipText='Exista parteneri (salariati) care nu apar in program!'
Else
This.but_noup1.Picture= 'NOU_SUS_DIS.BMP'
This.but_noup1.cpictureup='NOU_SUS_DIS.BMP'
This.but_noup1.cpicturedown='NOU_JOS_DIS.BMP'
This.but_noup1.ToolTipText='Introducere parteneri in program...'
Endif
ENDPROC
PROCEDURE Clienttoptabs1.setupactions
LPARAMETERS tnTabno
thisform.refresh_pagini(tnTabno)
ENDPROC
PROCEDURE page1.Page1.Image1.Click
IF this.Parent.tx11.ReadOnly = .f.
*!* SET STEP ON
LOCAL lcPoza,lcDirector,lcNPoza,lcCalePozaServer,lcSql,lnSucces,lcdipoza,lcPozaren,lcFispoza
lcdipoza = goApp.ReadIni('cale_poza_legitimatie', "pozapath")
CD &lcdipoza
PRIVATE pcFisier
*!* lcDirector = ADDBS(calefirma) + "datean\poze"
lcPoza = GETFILE("bmp,bmp","Alegeti fotografia","Alege",0,"Alegere fotografie")
IF EMPTY(lcPoza)
RETURN
ENDIF
SET STEP ON
lcCalePozaServer = GetPozaFile(ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(lcPoza))
lcPozaren = ALLTRIM(STR(popers.marca))+[_]+ CHRTRAN(TTOC(DATETIME(),1),'\/:*?" ','')+[.]+JUSTEXT(lcPoza)
lcFispoza = ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(lcPoza)
IF thisform.nrincarcaripoze = 0
thisform.lcpozamodif = lcPozaren
ENDIF
lcNPoza = lcCalePozaServer
lcSQl = [ MERGE INTO sal_legitimatii a ]+;
[ USING (SELECT ]+ Alltrim(Str(popers.id_salariat)) + [ as id_salariat, ']+;
ALLTRIM(STR(popers.marca))+[.]+JUSTEXT(lcPoza) +[' as numefis FROM dual) b ]+;
[ ON (a.id_salariat = b.id_salariat and a.sters = 0) ]+;
[ WHEN MATCHED THEN ]+;
[ UPDATE SET a.numefis = b.numefis ]+;
[WHEN NOT MATCHED THEN ]+;
[ INSERT (a.id_salariat, a.numefis) ]+;
[ VALUES (b.id_salariat, b.numefis) ]
lnSucces = goExecutor.oExecute(lcSQl)
If lnSucces < 0
amessagebox(goExecutor.cEroare,16,"Eroare")
RETURN
ENDIF
IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza)) AND FILE(lcNPoza)
RENAME (lcFispoza) TO (lcPozaren)
ENDIF
IF !FILE(lcNPoza)
IF ALLTRIM(UPPER(lcNPoza)) # ALLTRIM(UPPER(lcPOza))
COPY FILE (lcPOza) TO (lcNPoza)
ENDIF
ENDIF
thisform.page1.page1.imAGE1.picture = lcNpoza
thisform.page1.page1.imAGE1.Height = 121
thisform.page1.page1.imAGE1.Width = 109
thisform.page1.page1.imAGE1.Stretch= 1
thisform.lpozamodif = .t.
CD &DIRGEN
thisform.nrincarcaripoze = thisform.nrincarcaripoze +1
thisform.Refresh
ENDIF
*!*
*!* pcFisier = Filetostr(lcPoza)
*!*
*!* *!* [update sal_legitimatii set sters = 0 where id_salariat = ]+ Alltrim(Str(popers.id_salariat))+[;]+
*!* lcSQl = [ insert into sal_legitimatii (id_salariat,fisier,) ] + ;
*!* [values (?popers.id_salariat,?pcFisier) ]
*!* lnSucces = goExecutor.oExecute(lcSQl)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,16,"Eroare")
*!* ENDIF
*!* this.Picture = &lcPoza
*!* this.Refresh
ENDPROC
PROCEDURE page1.Page1.tx1.InteractiveChange
thisform.eticheta(this.value,popers.nume,popers.prenume)
ENDPROC
PROCEDURE page1.Page1.tx1.LostFocus
IF popers.nrctr=0
popers.nrctr=popers.marca
ENDIF
ENDPROC
PROCEDURE page1.Page1.tx15.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx16.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx17.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx18.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx19.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx2.InteractiveChange
thisform.eticheta(popers.marca,this.value,popers.prenume)
ENDPROC
PROCEDURE page1.Page1.tx2.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx20.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx25.LostFocus
thisform.KeyPress(-1,0)
ENDPROC
PROCEDURE page1.Page1.tx3.InteractiveChange
thisform.eticheta(popers.marca,popers.nume,this.value)
ENDPROC
PROCEDURE page1.Page1.tx3.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page1.tx4.LostFocus
Local lcCnp, lcCursor, lcSQl, ldDataLicVeche, lnMarca, lnSucces, lna, lnl, lnz
*:Global popers, popers_orig
If This.ReadOnly = .T.
Return
ENDIF
* ROASAL 2.1.52
* Nu validez CNP si nu caut salariat cu CNP daca CNP este gol
lcCnp = Alltrim(NVL(popers.codpers,''))
* Se poate pune 13x0 la CNP, sa treaca mai departe, face si alte instructiuni, chiar daca CNP este gol
*!* IF EMPTY(m.lcCNP)
*!* RETURN .T.
*!* ENDIF
* ROASAL 2.1.52 ^
*!* modificare ROARES v 2.0.8
If Empty(Nvl(popers.id_salariat,0)) Or ;
(!Empty(Nvl(popers.id_salariat,0)) And popers.codpers <> popers_orig.codpers)
*!* modificare ROARES v 2.0.8 ^
If !ValidCNP(Val(lcCnp))
aMessageBox('CNP-ul nu este valid',0+15,'Atentie')
Endif
*!* modificare v 2.0.16 : am adaugat and stare_contract <> 2 ( daca e incetat in luna,il las sa adauge un alt contract )
lcSQl= [select id_stat from sal_vnom_pers where codpers=']+lcCnp+[' and sters=0 and stare_contract <> 2]
lcCursor = 'v_cnp'
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16,"Eroare")
Return
ELSE
&&16.10.2014 -- pot exista mai multe contracte pe o singura persoana
*!* If Reccount('v_cnp')>0
*!* Select v_cnp
*!* Local lnIdstat
*!* lnIdstat = id_stat
*!* aMessageBox('Acest cnp mai exista in luna curenta!',0,'Atentie!')
*!* *!* modificare ROASAL v 2.0.0
*!* *!* THISFORM.do_readonly()
*!* Thisform.do_activeaza(.F.)
*!* *!* modificare ROASAL v 2.0.0 ^
*!* Thisform.actualizeaza_grid1('id_stat='+Alltrim(Str(lnIdstat)))
*!* Select v_personal
*!* Locate For id_stat=lnIdstat
*!* Thisform._GRID1.SetFocus()
*!* Use In v_cnp
*!* Else
&&16.10.2014 -- pot exista mai multe contracte pe o singura persoana
*!* modificare v 2.0.11 ROARES : am adaugat si tip 2 pentru cazul in care am un angajat in luna curenta, il sterg,
*!* dupa care vreau sa-l adaug din nou. El a fost sters din state, dar ramane in personal si imi da eroare cand verific
*!* marca
*!* aici trebuie modificat atunci cand se va popula sal_contracte pentru ca in sal_stat pot sa am un contract
*!* care sa fi avut intr-o luna un numar,iar in alta sa i se fi corectat ( si ar fi trebuit sa aiba acelasi id_sal_ctr pe ambele inreg )
lcSql = [select 1 as tip,MAX(s.id_stat) as id_stat,MAX(NVL(s.datalic, to_date('01011900', 'DDMMYYYY'))) as datalic,s.id_persoana as id_salariat, ] + ;
[MAX(s.id_sal_ctr) as id_sal_ctr,to_char(s.nrctr) || '/' || to_char(s.datactr, 'DD.MM.YYYY') as contract,s.datactr ] + ;
[ from sal_stat s ]+;
[left join sal_personal pers on s.id_persoana = pers.id_salariat ]+;
[left join nom_parteneri part on pers.id_part = part.id_part ]+;
[where part.cod_fiscal= '] + lcCnp + [' and s.sters = 0 and s.an * 12 + s.luna < ] + Alltrim(Str(gnAn)) + [ * 12 + ] + Alltrim(Str(gnLuna)) + [ ] + ;
[and pers.ID_SALARIAT <> pack_salarii.id_lipsa() ] +;
[group by id_persoana, datactr, to_char(nrctr) || '/' || to_char(datactr, 'DD.MM.YYYY') ] + ;
[union all ] + ;
[select 2 as tip, null as id_stat, to_date('01011900','DDMMYYYY') as datalic, id_salariat,null as id_sal_ctr,null as contract,null as datactr ] + ;
[from sal_personal where id_part in (select id_part from nom_parteneri where cod_fiscal = '] + lcCnp + [' and sters = 0) and sters = 0]
*!* lcSQl= [select MAX(id_stat) as id_stat,MAX(NVL(datalic,to_date('01011900','DDMMYYYY'))) as datalic from sal_vstattot where codpers=']+lcCnp+;
*!* [' and sters = 0 and an*12+luna<]+pcan+[*12+]+pcnl+[ and codpers<>0 order by dataang desc]
*!* modificare v 2.0.11 ROARES ^
lcCursor = 'v_cnp1'
lnSucces = goExecutor.oExecute(lcSQl,lcCursor)
If lnSucces < 0
aMessageBox(goExecutor.cEroare,0+16,"Eroare")
Return
Else
*!* modificare ROARES v 2.0.11
Local llContinua
llContinua = RECCOUNT(lcCursor)<>0
If llContinua
LOCAL loFrmCnp
Private pnOptiuneCNPExistent, pnIdStat, pnIdSalariat, pnTip
Select (lcCursor)
Go Top
pnTip = tip
ldDataLicVeche = datalic && modificare ROARES v 2.0.7
pnIdStat = id_stat
pnIdSalariat = id_salariat
Select id_stat,id_sal_ctr,contract,datactr From (lcCursor) Where tip = 1 Order By datactr Desc Into Cursor crsCtrTemp
*!* Select v_cnp1
*!* ldDataLicVeche = datalic && modificare ROARES v 2.0.7
*!* If Nvl(id_stat,0)>0
pnOptiuneCNPExistent = IIF(pnTip = 2,3,1)
*!* modificare ROARES v 2.0.11 ^
*!* modificare ROARES v 2.0.7
*!* IF aMESSAGEBOX('Aceasta persoana a mai fost angajata! Doriti sa copiati datele vechi?',32+4,'Atentie')=6
*!* modificare ROARES v 2.0.11
*!* Private pnOptiuneCNPExistent
*!* pnOptiuneCNPExistent = 1
*!* modificare ROARES v 2.0.11 ^
loFrmCnp = Createobject("frm_optiuni_cnpexistent",ldDataLicVeche <> Date(1900,1,1),[crsCtrTemp])
loFrmCnp.Show(1)
Release loFrmCnp
USE IN (SELECT('crsCtrTemp'))
If pnOptiuneCNPExistent <> 1
*!* IF gnscrieregistru=0
*!* SELECT v_cnp1
*!* private lcidstat,lcdata
*!* lcidstat = id_stat
*!* lcdata = DATE()
*!* lcsql = [begin pack_personal.res_reangajare(?gcs,?lcIdStat,?lcdata); end;]
*!* lnSucces = goExecutor.oExecute(lcsql)
*!* If lnSucces < 0
*!* aMessagebox(goExecutor.cEroare,0+16,"Eroare")
*!* ELSE
*!* *!* modificare ROASAL v 2.0.0
*!* *!* thisform.do_readonly()
*!* Thisform.do_activeaza(.F.)
*!* *!* modificare ROASAL v 2.0.0 ^
*!* thisform.actualizeaza_grid1([codpers=']+lcCnp+['])
*!* SELECT v_personal
*!* LOCATE FOR id_stat=lcidstat
*!* thisform._GRID1.SetFocus()
*!* ENDIF
*!* ELSE
*!* modificare ROARES v 2.0.7 ^
lcSQl = [{call pack_personal.cauta_date_angajat(?pnIdStat,?pnIdSalariat)}]
lcCursor = 'crsReangajare'
IF goExecutor.oExecuta(lcSQl,lcCursor)
Thisform.do_adauga()
Select crsReangajare
*!* modificare ROARES v 2.0.6 : am adaugat "MEMO"
lnMarca = popers.marca && modificare ROARES v 2.0.7
Scatter Memo Name popers
Scatter Memo Name popers_orig && modificare v 2.0.0
*!* modificare ROARES v 1.0.54 27.05.2011
*!* modificare ROARES v 2.0.7
*!* amessagebox("Doriti sa pastrati datele de mai jos pe noul contract? " + CRLF + ;
*!* " * marca" + CRLF + ;
*!* " * data angajarii" + CRLF + ;
*!* " * data terminarii contractului" + CRLF + ;
*!* " * data lichidarii" + CRLF + ;
*!* " * numar contract intern" + CRLF + ;
*!* " * data contract intern" + CRLF + ;
*!* " * numar contract ITM" + CRLF + ;
*!* " * data contract ITM",32+4,"Confirmare reangajare")
ADDPROPERTY(popers,'codcod',popers.cod)
ADDPROPERTY(popers_orig,'codcod',popers_orig.cod)
If Inlist(pnOptiuneCNPExistent,2,4)
*!* modificare ROARES v 2.0.7 ^
With popers
.marca = .marca && modificare ROARES v 2.0.7
.datactr = Ttod(.datactr) && modificare v 1.0.49
.dataang=Ttod(.dataang)
.datalic = Null
.datasfctr=Ttod(.datasfctr)
.datactrm=Ttod(.datactrm)
.stare_contract = 1
.oug114 = 2 && modificare ROARES v 2.0.7
Endwith
*!* modificare ROARES v 2.0.6
With popers_orig
.marca = .marca && modificare ROARES v 2.0.7
.datactr = Ttod(.datactr)
.dataang=Ttod(.dataang)
.datalic=Ttod(.datalic)
.datasfctr=Ttod(.datasfctr)
.datactrm=Ttod(.datactrm)
*!* modificare ROARES v 2.0.7 - reactivare
If pnOptiuneCNPExistent = 2
.stare_contract = 2
Thisform.do_modifica_stare()
Else
.stare_contract = 0
Endif
*!* modificare ROARES v 2.0.7 ^
Endwith
*!* modificare ROARES v 2.0.6 ^
Else
*!* modificare ROARES v 2.0.33
If aMESSAGEBOX("Se pastreaza data incadrarii de pe vechiul contract?",4+32+256,"Confirmare data incadrare")=7
popers.data_vech = {}
popers_orig.data_vech = {}
Endif
*!* modificare ROARES v 2.0.33 ^
With popers
.marca = IIF(pnOptiuneCNPExistent = 3 and pnTip = 2,.marca,lnMarca)
&& modificare ROARES v 2.0.11
&& modificare ROARES v 2.0.7 : lnMarca
.dataang = {}
.datasfctr = {}
.datalic = {}
.nrctr = Null
.datactr = {}
.nrctrmchr = Null
.datactrm = {}
*!* modificare ROARES v 2.0.6
.stare_contract = 1
.oug114 = 2
Endwith
With popers_orig
.marca = IIF(pnOptiuneCNPExistent = 3 and pnTip = 2,.marca,lnMarca)
&& modificare ROARES v 2.0.11
&& modificare ROARES v 2.0.7 : lnMarca
.dataang = {}
.datasfctr = {}
.datalic = {}
.nrctr = Null
.datactr = {}
.nrctrmchr = Null
.datactrm = {}
.stare_contract = 0
Endwith
*!* modificare ROARES v 2.0.6 ^
Endif
*!* popers.datactr = TTOD(datactr) && modificare v 1.0.49
*!* popers.dataang=TTOD(dataang)
*!* popers.datalic=TTOD(datalic)
*!* popers.datasfctr=TTOD(datasfctr)
*!* popers.datactrm=TTOD(datactrm)
*!* modificare ROARES v 1.0.54 27.05.2011 ^
Local lnpage
lnpage = Thisform.page1.ActivePage
Thisform.refresh_pagini(lnpage)
Use In crsReangajare
Endif
*!* ENDIF && modificare ROARES v 2.0.7
Else
This.Value=0
This.Refresh()
Endif
Release pnOptiuneCNPExistent, pnIdStat, pnIdSalariat, llContinua
Use In v_cnp1
Endif
*!* Endif
Endif
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
Endif
*!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
If Len(lcCnp)= 13
lna = Round(Val(Substr(lcCnp,2,2)),0)
lnl = Round(Val(Substr(lcCnp ,4,2)),0)
lnz = Round(Val(Substr(lcCnp ,6,2)),0)
If (lnl >0 And lnl<13) And (lnz>0 And lnz<32)
If Inlist(Left(lcCnp,1),'1','2')
Thisform.page1.page1._txbase5.Value = Date(1900+lna,lnl,lnz)
Else
If Inlist(Left(lcCnp ,1),'5','6')
Thisform.page1.page1._txbase5.Value = Date(2000+lna,lnl,lnz)
Endif
Endif
Endif
Else
Thisform.page1.page1._txbase5.Value = {}
Endif
Thisform.page1.page1._txbase5.Refresh
*!* modificare ROARES v 2.0.8
Endif
*!* modificare ROARES v 2.0.8 ^
ENDPROC
PROCEDURE page1.Page10.But_nou1.LostFocus
ENDPROC
PROCEDURE page1.Page10.gridAtasamente.Column1.Command1.Click
thisform.arata_linkuri
ENDPROC
PROCEDURE page1.Page10.Init
ENDPROC
PROCEDURE page1.Page2.tx26.LostFocus
If Thisform.cus_odata_opers1.cactiune='UPDATE'
If This.ReadOnly = .F. ;
AND Month(popers.dataang)+Year(popers.dataang)*12 <> Month(popers_orig.dataang)+Year(popers_orig.dataang)*12 && modificare ROASAL v 2.0.0
If Month(popers.dataang)+Year(popers.dataang)*12 <> gnLuna +gnAn*12
aMESSAGEBOX('Data angajarii nu este din luna in curs!',0+48,'Atentie')
Endif
Endif
If gnEvaluareRevisal5 = 1
*!* modificare ROARES v 1.0.49
*!* thisform.registru_unic(5)
Thisform.registru_unic(3)
*!* modificare ROARES v 1.0.49 ^
Endif
*!* modificare ROASAL v 2.0.20
Else
If Month(popers.dataang)+Year(popers.dataang)*12 <> gnLuna +gnAn*12
aMESSAGEBOX('Data angajarii nu este din luna in curs!',0+48,'Atentie')
Endif
*!* modificare ROASAL v 2.0.20 ^
Endif
ENDPROC
PROCEDURE page1.Page2.tx27.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(3)
Endif
DoDefault()
ENDPROC
PROCEDURE page1.Page2.tx40.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(3)
Endif
ENDPROC
PROCEDURE page1.Page2.tx41.InteractiveChange
If popers.id_durata_munca = 3
popers.fractie = This.Value
This.Parent.tx40.Refresh()
Endif
ENDPROC
PROCEDURE page1.Page2.tx43.LostFocus
*!* modificare v 2.0.9 ROARES
*!* If Thisform.cus_odata_opers1.cactiune = 'UPDATE' ;
*!* And ((popers.stare_contract = 2 And popers_orig.stare_contract <> 2) ;
*!* OR (popers.stare_contract = 1 AND popers_orig.stare_contract = 2)) ;
*!* AND gnEvaluareRevisal5 = 1
*!* popers.datalic = popers.datainceputs
*!* Thisform.registru_unic(2)
*!* ENDIF
*!* IF gnEvaluareRevisal5 = 0
*!* *!* modificare v 2.0.8
*!* *!* Thisform.page1.page2.tx47.SetFocus()
*!* Thisform.page1.page2.ct_clb_temei.tx_cautare.SetFocus()
*!* *!* modificare v 2.0.8 ^
*!* ENDIF
*!* modificare ROARES v 2.0.14
*!* If Inlist(popers.stare_contract,1,2)
IF this.Parent.opt_stare_contract.Value = 2 AND (MONTH(this.Value) <> gnLuna OR YEAR(this.Value) <> gnAn)
MESSAGEBOX('Data lichidarii nu este din luna curenta!',0+16,'Atentie!')
RETURN
ENDIF
If (popers.stare_contract = 1 And popers_orig.stare_contract = 2) Or ;
(popers.stare_contract = 2 And popers_orig.stare_contract = 1)
*!* modificare ROARES v 2.0.14 ^
Thisform.page1.page2.ct_clb_temei.SetFocus()
Endif
*!* modificare v 2.0.9 ROARES ^
ENDPROC
PROCEDURE page1.Page2.tx51.InteractiveChange
If this.Value = 1
this.Parent.tx52.Visible = .t.
this.Parent.tx53.Visible = .t.
this.Parent.lb_simplu4.Visible = .t.
this.Parent.lb_simplu5.Visible = .t.
Else
this.Parent.tx52.Visible = .f.
this.Parent.tx53.Visible = .f.
this.Parent.lb_simplu4.Visible = .f.
this.Parent.lb_simplu5.Visible = .f.
EndIf
ENDPROC
PROCEDURE page1.Page2.tx54.LostFocus
Do Case
Case popers.stare_contract = 3
*!* modificare v 2.0.8
*!* Thisform.page1.page2.tx47.SetFocus()
Thisform.page1.page2.ct_clb_temei.tx_cautare.SetFocus()
Case popers.stare_contract = 4
*!* Thisform.page1.page2.tx48.SetFocus()
Thisform.page1.page2.ct_clb_detasatla.tx_cautare.SetFocus()
*!* modificare v 2.0.8 ^
Otherwise
*!* nimic
Endcase
ENDPROC
PROCEDURE page1.Page2.tx67.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Thisform.page1.page8.tx67.Refresh()
Endif
If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
Thisform.page1.page8.tx67.Refresh()
Endif
ENDPROC
PROCEDURE page1.Page2.tx68.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Thisform.page1.page8.tx68.Refresh()
ENDIF
If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
Thisform.page1.page8.tx68.Refresh()
Endif
ENDPROC
PROCEDURE page1.Page2.tx69.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Endif
*!* modificare ROASAL v 2.0.20
If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
popers.nrctrmchr = STR(popers.nrctr)
Thisform.page1.page8.tx67.Refresh()
Thisform.page1.page2.tx67.Refresh()
Endif
*!* modificare ROASAL v 2.0.20 ^
ENDPROC
PROCEDURE page1.Page2.tx70.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Endif
*!* modificare ROASAL v 2.0.20
If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
popers.datactrm = popers.datactr
Thisform.page1.page8.tx68.Refresh()
Thisform.page1.page2.tx68.Refresh()
Endif
*!* modificare ROASAL v 2.0.20 ^
ENDPROC
PROCEDURE page1.Page3.txcopii.LostFocus
thisform.KeyPress(-3,0)
ENDPROC
PROCEDURE page1.Page7.tx56.LostFocus
this.Parent.cmd_executa2.Click
ENDPROC
PROCEDURE page1.Page7.tx58.LostFocus
IF !EMPTY(this.Value)
this.Parent.tx59.Value = FLOOR(this.Value/12)
this.Parent.tx60.Value = MOD(this.Value,12)
ELSE
this.Parent.tx59.Value=0
this.Parent.tx60.Value=0
ENDIF
thisform.co_calculcoefvechime
ENDPROC
PROCEDURE page1.Page7.tx59.LostFocus
IF !EMPTY(this.Value)
this.Parent.tx58.Value = this.Value*12+this.Parent.tx60.Value
ELSE
this.Parent.tx58.Value = this.Parent.tx60.Value
ENDIF
*!* this.Parent.cmd_executa2.Click
thisform.co_calculcoefvechime
ENDPROC
PROCEDURE page1.Page7.tx60.LostFocus
IF !EMPTY(this.Value)
this.Parent.tx58.Value = this.Parent.tx59.Value*12+this.value
ELSE
this.Parent.tx58.Value = this.Parent.tx59.Value*12
ENDIF
*!* this.Parent.cmd_executa2.Click
thisform.co_calculcoefvechime
ENDPROC
PROCEDURE page1.Page7.tx61.LostFocus
IF !EMPTY(this.Value)
this.Parent.tx62.Value = FLOOR(this.Value/12)
this.Parent.tx63.Value = MOD(this.Value,12)
ELSE
this.Parent.tx62.Value=0
this.Parent.tx63.Value=0
ENDIF
thisform.co_calculcoefvechime
ENDPROC
PROCEDURE page1.Page7.tx62.LostFocus
IF !EMPTY(this.Value)
this.Parent.tx61.Value = this.Value*12+this.Parent.tx63.Value
ELSE
this.Parent.tx61.Value = this.Parent.tx63.Value
ENDIF
*!* this.Parent.cmd_executa2.Click
thisform.co_calculcoefvechime
ENDPROC
PROCEDURE page1.Page7.tx63.LostFocus
IF !EMPTY(this.Value)
this.Parent.tx61.Value = this.Parent.tx62.Value*12+this.value
ELSE
this.Parent.tx61.Value = this.Parent.tx62.Value*12
ENDIF
*!* this.Parent.cmd_executa2.Click
thisform.co_calculcoefvechime
ENDPROC
PROCEDURE page1.Page8.tx65.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page8.tx66.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(7)
Endif
ENDPROC
PROCEDURE page1.Page8.tx67.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Endif
ENDPROC
PROCEDURE page1.Page8.tx68.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Endif
ENDPROC
PROCEDURE page1.Page8.tx69.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Endif
*!* modificare ROASAL v 2.0.20
If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
popers.nrctrm = STR(popers.nrctr)
Thisform.page1.page8.tx67.Refresh()
Endif
*!* modificare ROASAL v 2.0.20 ^
ENDPROC
PROCEDURE page1.Page8.tx70.LostFocus
If Thisform.cus_odata_opers1.cactiune = 'UPDATE' And gnEvaluareRevisal5 = 1
Thisform.registru_unic(5)
Endif
*!* modificare ROASAL v 2.0.20
If Thisform.cus_odata_opers1.cactiune = 'INSERT' And gnAn * 12 + gnLuna >= 2011 * 12 + 8
popers.datactrm = popers.datactr
Thisform.page1.page8.tx68.Refresh()
Endif
*!* modificare ROASAL v 2.0.20 ^
ENDPROC
PROCEDURE _GRID1.AfterRowColChange
Lparameters nColIndex
Local lnSecolulAnterior, lnSecolulCurent, lna, lnl, lnpage, lnz, ldDataNastere
*:Global popers, popers_orig
If Thisform.but_nou1.Visible = .F. ;
And !glLunaInchisa && modificare ROASAL v 2.0.14
Nodefault
Return
Endif
lnSecolulCurent = Int(Val(Substr(Alltrim(Str(Year(Date()))), 1, 2))) && 20
lnSecolulAnterior = m.lnSecolulCurent - 1
Select v_personal
*!* modificare ROARES v 2.0.6 : am adaugat "MEMO"
Scatter Memo Name popers
Scatter Memo Name popers_orig && modificare ROASAL v 2.0.0
m.ldDataNastere = {}
If Len(Alltrim(popers.codpers)) = 13
lna = Val(Substr(Alltrim(popers.codpers), 2, 2))
lnl = Val(Substr(Alltrim(popers.codpers), 4, 2))
lnz = Val(Substr(Alltrim(popers.codpers), 6, 2))
If (lnl > 0 And lnl < 13) And (lnz > 0 And lnz < 32)
If Inlist(Left(Alltrim(popers.codpers), 1), '1', '2')
ldDataNastere = Date(1900 + lna, lnl, lnz)
Else
If Inlist(Left(Alltrim(popers.codpers), 1), '5', '6')
ldDataNastere = Date(2000 + lna, lnl, lnz)
Else
If m.lna < Val(Substr(Str(Year(Date())), 3, 2))
ldDataNastere = Date(m.lnSecolulCurent * 100 + lna, lnl, lnz)
Else
ldDataNastere = Date(m.lnSecolulAnterior * 100 + lna, lnl, lnz)
Endif
ENDIF && inlist(5,6)
ENDIF && inlist (1,2)
ENDIF && ln1
ENDIF && 13
Thisform.page1.page1._txbase5.Value = m.ldDataNastere
Thisform.eticheta(popers.marca, popers.nume, popers.prenume)
lnpage = Thisform.page1.ActivePage &&nr paginii active
Thisform.refresh_pagini(lnpage) &&refresh pagina
Select v_personal
DoDefault(nColIndex)
ENDPROC
PROCEDURE _GRID1.BeforeRowColChange
LPARAMETERS nColIndex
If thisform.but_nou1.Visible=.f. ;
AND !glLunaInchisa && modificare ROASAL v 2.0.14
If aMessagebox('Alegand alta persoana modificarile facute se vor pierde!'+Chr(13) + 'Doriti sa reveniti?',4+48,'Atentie!')=6
*!* Thisform.page1.page1.tx1.SetFocus()
Nodefault
Return
Else
*!* modificare ROASAL v 2.0.0
*!* thisform.do_readonly()
Thisform.do_activeaza(.F.)
*!* modificare ROASAL v 2.0.0 ^
DoDefault(nColIndex)
Endif
Endif
SELECT v_personal
ENDPROC
PROCEDURE _GRID1.Column2.Header1.DblClick
thisform.corder(this.Parent.ControlSource)
ENDPROC
PROCEDURE _GRID1.Column3.Header1.DblClick
thisform.corder(this.Parent.ControlSource)
ENDPROC
PROCEDURE _GRID1.Column5.Header1.DblClick
thisform.corder(this.Parent.ControlSource)
ENDPROC
PROCEDURE _GRID1.Column5.Text1.GotFocus
*!* modificare ROARES v 2.0.21
DODEFAULT()
*!* *!* this.ReadOnly= .F.
*!* thisform.do_col_gotfocus(this.Value)
*!* *!* SELECT v_personal
*!* *!* Thisform.nsumainitial=this.Value
*!* *!* Thisform.nsumamodif =this.Value
*!* modificare ROARES v 2.0.21 ^
ENDPROC
PROCEDURE _GRID1.Column5.Text1.InteractiveChange
*!* modificare ROARES v 2.0.21
DODEFAULT()
*!* thisform.do_col_interactivechange(this.Value)
*!* *!* this.ReadOnly= .F.
*!* *!* MESSAGEBOX(this.ReadOnly)
*!* *!* Thisform.nsumamodif=this.Value
*!* *!* Thisform.lsalvat=.F.
*!* modificare ROARES v 2.0.21 ^
ENDPROC
PROCEDURE _GRID1.Column5.Text1.Valid
*!* modificare ROARES v 2.0.21
DoDefault()
*!* thisform.do_col_valid()
*!* modificare ROARES v 2.0.21 ^
ENDPROC
PROCEDURE _GRID1.Column6.Header1.DblClick
thisform.corder(this.Parent.ControlSource)
ENDPROC
PROCEDURE _shape1.DblClick
IF thisform.WindowState= 2
thisform.WindowState = 0
ELSE
thisform.WindowState= 2
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_optiuni_cnpexistent AS formtermin OF "_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="_optiongrup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cb_contracte" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: ccursor
*</DefinedPropArrayMethod>
*<PropValue>
ccursor =
DoCreate = .T.
Height = 145
Name = "frm_optiuni_cnpexistent"
Width = 423
_memberdata = <VFPData>
<memberdata name="ccursor" display="cCursor"/>
</VFPData>
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 420
_shape2.Height = 29
_shape2.Left = 384
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 39
Lb_titlu_alb_b121.Caption = "Angajat existent <20>n baza de date"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 5
BUT_TERMIN1.Left = 390
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
AutoSize = .F., ;
ButtonCount = 4, ;
ControlSource = "pnOptiuneCNPExistent", ;
Height = 84, ;
Left = 31, ;
Name = "_optiongrup1", ;
TabIndex = 1, ;
Top = 48, ;
Width = 361, ;
Option1.AutoSize = .T., ;
Option1.Caption = "Nu se copiaz<61> datele vechi ( angajat nou )", ;
Option1.FontCharSet = 238, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.TabIndex = 1, ;
Option1.Top = 5, ;
Option2.AutoSize = .T., ;
Option2.Caption = "Reactivare <20>n baza unui temei legal", ;
Option2.FontCharSet = 238, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.TabIndex = 2, ;
Option2.Top = 24, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Reangajare / Contract nou pe salariat existent", ;
Option3.FontCharSet = 238, ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.TabIndex = 3, ;
Option3.Top = 43, ;
Option3.Width = 268, ;
Option4.AutoSize = .T., ;
Option4.BackStyle = 0, ;
Option4.Caption = "Se copiaz<61> datele vechi ( corec<65>ie )", ;
Option4.FontCharSet = 238, ;
Option4.Height = 17, ;
Option4.Left = 5, ;
Option4.Name = "Option4", ;
Option4.TabIndex = 4, ;
Option4.Top = 62, ;
Option4.Width = 206
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT 'cb_contracte' AS _cbbase WITH ;
BoundTo = .T., ;
Height = 24, ;
Left = 252, ;
Name = "cb_contracte", ;
Top = 108, ;
Visible = .F., ;
Width = 134
*< END OBJECT: ClassLib="_cb_base.vcx" BaseClass="combobox" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Persoana cu acest CNP a mai fost angajat<61> <20>n firm<72>. Alege<67>i o op<6F>iune :", ;
Left = 13, ;
Name = "Lb_simplu1", ;
TabIndex = 6, ;
Top = 34
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE inainte_de_do_termin
If Inlist(pnOptiuneCNPExistent,2,4)
Select (This.cCursor)
pnIdStat = id_stat
Else
pnIdStat = Null
Endif
ENDPROC
PROCEDURE Init
Lparameters tlLichidat,tcCursor
DoDefault()
*!* modificare ROARES v 2.0.11 : in caz ca pnOptiuneCNPExistent nu e 1, atunci inseamna
*!* ca nu l-am gasit in lunile anterioare, ci doar in luna curenta in sal_personal ( adica
*!* a fost introdus o data, a fost sters si acum se incearca adaugarea lui )
*!* Thisform._optiongrup1.Buttons[2].Enabled = tlLichidat && daca nu are data lich. pe ctr. vechi, atunci nu poate fi reactivare
If pnOptiuneCNPExistent = 1
Thisform._optiongrup1.Buttons[2].Enabled = tlLichidat && daca nu are data lich. pe ctr. vechi, atunci nu poate fi reactivare
Else
Thisform._optiongrup1.Buttons[2].Enabled = .F.
Thisform._optiongrup1.Buttons[4].Enabled = .F.
Thisform._optiongrup1.Buttons[3].Caption = [Se copiaz<61> doar datele angajatului]
Endif
If !Empty(tcCursor)
Thisform.cCursor = tcCursor
If Reccount(Thisform.cCursor) > 0
Thisform.cb_contracte.RowSource = Thisform.cCursor + [.contract]
Thisform.cb_contracte.RowSourceType = 6
Thisform.cb_contracte.Value = Evaluate(Thisform.cCursor + [.contract]) && modificare ROARES v 2.0.33
Endif
Endif
*!* modificare ROARES v 2.0.11 ^
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=6 And nShiftAltCtrl=2 && CTRL + F
Nodefault
This.do_termin()
Else
Nodefault
Endif
ENDPROC
PROCEDURE _optiongrup1.InteractiveChange
Do Case
Case This.Value = 2
Thisform.cb_contracte.Visible = .T.
Thisform.cb_contracte.Top = 69
Case This.Value = 4
Thisform.cb_contracte.Visible = .T.
Thisform.cb_contracte.Top = 108
Otherwise
Thisform.cb_contracte.Visible = .F.
Endcase
ENDPROC
ENDDEFINE
DEFINE CLASS frm_redeschidere AS frm_termin_renunt OF "_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="redOpt" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page1._checkbox9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="page_detalii.Page2.Lb_simplu1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 302
Name = "frm_redeschidere"
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 313
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 58
Lb_titlu_alb_b121.Caption = "Redeschidere de luna"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
Gridsort1.Name = "Gridsort1"
But_renunt1.Name = "But_renunt1"
*</PropValue>
ADD OBJECT 'page_detalii' AS _pageframe WITH ;
ActivePage = 2, ;
ErasePage = .T., ;
Height = 258, ;
Left = 125, ;
Name = "page_detalii", ;
PageCount = 2, ;
TabOrientation = 0, ;
Tabs = .T., ;
TabStretch = 1, ;
TabStyle = 0, ;
Top = 39, ;
Width = 247, ;
Page1.BackColor = 242,240,238, ;
Page1.Caption = "Suprascriere", ;
Page1.Name = "Page1", ;
Page2.BackColor = 242,240,238, ;
Page2.Caption = "Completare", ;
Page2.Name = "Page2"
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="pageframe" />
ADD OBJECT 'page_detalii.Page1._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "State", ;
ControlSource = "taOpt[2]", ;
Left = 6, ;
Name = "_checkbox1", ;
Top = 14
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox2' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Pontaje", ;
ControlSource = "taOpt[3]", ;
Left = 6, ;
Name = "_checkbox2", ;
Top = 38
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox3' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Persoane in intretinere", ;
ControlSource = "taOpt[4]", ;
Left = 6, ;
Name = "_checkbox3", ;
Top = 62
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox4' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Popriri", ;
ControlSource = "taOpt[5]", ;
Left = 6, ;
Name = "_checkbox4", ;
Top = 86
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox5' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Sporuri", ;
ControlSource = "taOpt[6]", ;
Left = 6, ;
Name = "_checkbox5", ;
Top = 110
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox6' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Concedii de odihna", ;
ControlSource = "taOpt[7]", ;
Left = 6, ;
Name = "_checkbox6", ;
Top = 134
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox7' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Pensie alimentara", ;
ControlSource = "taOpt[8]", ;
Left = 6, ;
Name = "_checkbox7", ;
Top = 161
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox8' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Concedii medicale", ;
ControlSource = "taOpt[9]", ;
Left = 6, ;
Name = "_checkbox8", ;
Top = 185
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page1._checkbox9' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Concedii evenimente speciale", ;
ControlSource = "taOpt[10]", ;
Left = 6, ;
Name = "_checkbox9", ;
Top = 208
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'page_detalii.Page2.Lb_simplu1' AS lb_simplu WITH ;
Caption = "Se vor prelua persoanele care exista in luna anterioara si nu apar in luna in care se face redeschiderea.", ;
Height = 47, ;
Left = 6, ;
Name = "Lb_simplu1", ;
Top = 17, ;
Width = 223, ;
WordWrap = .T.
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'redOpt' AS _optiongrup WITH ;
AutoSize = .F., ;
ButtonCount = 2, ;
ControlSource = "taOpt[1]", ;
Height = 51, ;
Left = 6, ;
Name = "redOpt", ;
Top = 105, ;
Value = 2, ;
Width = 116, ;
Option1.AutoSize = .T., ;
Option1.Caption = "Cu suprascriere", ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option1.Value = 0, ;
Option2.AutoSize = .T., ;
Option2.Caption = "Cu completare", ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option2.Value = 1
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
PROCEDURE Init
PARAMETERS taOpt
DODEFAULT()
ENDPROC
PROCEDURE page_detalii.Page1.Activate
thisform.redOpt.Value=1
ENDPROC
PROCEDURE page_detalii.Page2.Activate
thisform.redOpt.Value=2
ENDPROC
PROCEDURE redOpt.InteractiveChange
IF this.Value=1
thisform.page_detalii.page1.SetFocus
ELSE
thisform.page_detalii.page2.SetFocus
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_salvare_opersonal AS formtermin OF "_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="_optiongrup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_dataconsemnare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_tipact
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 240
Name = "frm_salvare_opersonal"
Width = 423
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 420
_shape2.Height = 29
_shape2.Left = 357
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 66
Lb_titlu_alb_b121.Caption = "Salvare date contract"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 8
BUT_TERMIN1.Left = 391
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
ButtonCount = 3, ;
ControlSource = "popers.tip_modificare", ;
Left = 292, ;
Name = "_optiongrup1", ;
TabIndex = 1, ;
Top = 33, ;
Option1.AutoSize = .T., ;
Option1.Caption = "F<>r<EFBFBD> scriere", ;
Option1.FontCharSet = 238, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option2.AutoSize = .T., ;
Option2.Caption = "Corec<65>ie", ;
Option2.FontCharSet = 238, ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24, ;
Option3.AutoSize = .T., ;
Option3.BackStyle = 0, ;
Option3.Caption = "Modificare", ;
Option3.Height = 17, ;
Option3.Left = 5, ;
Option3.Name = "Option3", ;
Option3.Top = 43, ;
Option3.Width = 74
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Left = 360, ;
Name = "BUT_RENUNT1", ;
TabIndex = 7, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_dataconsemnare' AS clb_tx_simplu WITH ;
Left = 6, ;
Name = "Clb_dataconsemnare", ;
TabIndex = 2, ;
Top = 106, ;
Visible = .F., ;
Width = 402, ;
Text_simplu1.ControlSource = "popers.dataconsemnare", ;
Text_simplu1.Left = 317, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Width = 77, ;
Lb_simplu1.Caption = "Data de la care se produc efectele ( data consemnare )", ;
Lb_simplu1.Height = 17, ;
Lb_simplu1.Left = 8, ;
Lb_simplu1.Name = "Lb_simplu1", ;
Lb_simplu1.Width = 301, ;
Lb_simplu1.WordWrap = .T.
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Left = 6, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 3, ;
Top = 146, ;
Visible = .T., ;
Text_simplu1.ControlSource = "popers.nractmodif", ;
Text_simplu1.Name = "Text_simplu1", ;
Lb_simplu1.Caption = "Nr. document", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Left = 6, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 4, ;
Top = 174, ;
Visible = .T., ;
Text_simplu1.ControlSource = "popers.dataactmodif", ;
Text_simplu1.Name = "Text_simplu1", ;
Lb_simplu1.Caption = "Data document", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
cconditie = empty(popers.id_tipact), ;
cprocedura = thisform.do_alege_tipact, ;
cvar_afisata = popers.tipactmodif, ;
Left = 5, ;
Name = "Ct_clb_cautare1", ;
TabIndex = 5, ;
Top = 201, ;
Visible = .T., ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Tip document", ;
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
clb_tx_cautare.Name = "clb_tx_cautare", ;
clb_tx_cautare.Text_simplu1.ControlSource = "", ;
clb_tx_cautare.Text_simplu1.Height = 23, ;
clb_tx_cautare.Text_simplu1.Left = 102, ;
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
clb_tx_cautare.Text_simplu1.Top = 3, ;
clb_tx_cautare.Text_simplu1.Width = 205
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Tip opera<72>ie registru electronic al salaria<69>ilor", ;
Left = 39, ;
Name = "Lb_simplu1", ;
TabIndex = 9, ;
Top = 34
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE do_alege_tipact
pcselect = [select id_act,nume_act from sal_nom_acte]
pcfiltruOriginal = [sters = 0]
pcfiltru = [1=1]
pcorder = [nume_act]
pccoloane = [nume_act,id_act]
pcTitlu = [Tipuri documente]
pcTitluColoane = [Tip document,Id]
loHash=gethash()
loHash.setvalue('cSelect',pcselect)
loHash.setvalue('cFiltru',pcfiltru)
loHash.setvalue('cOrder',pcorder)
loHash.setvalue('cColoana',pccoloane)
loHash.setvalue('cTitlu',pcTitlu)
loHash.setvalue('cTitluColoana',pcTitluColoane)
loHash.setvalue('cFiltruOriginal',pcfiltruOriginal)
loCauta = cauta_alfa_hash(lohash)
IF !EMPTY(locauta.id_act)
popers.tipactmodif = loCauta.nume_act
popers.id_tipact = loCauta.id_act
this.Refresh
ENDIF
ENDPROC
PROCEDURE inainte_de_do_termin
Local llReturn
llReturn = .F.
Do Case
Case popers.tip_modificare <> 1 And Empty(Nvl(popers.dataconsemnare,{}))
amessagebox("Nu ati completat data de la care se produc efectele!",48,"Atentie")
Thisform.clb_dataconsemnare.text_simplu1.SetFocus()
*!* modificare ROARES v 2.0.14
*!* modificare ROADEFSALARII : v 2.0.3 - pot sa pun o data din luna curenta sau din luna urmatoare ( pentru sporuri )
*!* modificare ROARES v 2.0.21 : pot sa pun si ultima zi din luna anterioara ( pentru angajari incepand cu 01 )
*!* modificare ROARES v 2.0.23 : pot sa pun orice zi din luna anterioara
Case popers.tip_modificare <> 1 And !Between(popers.dataconsemnare,Gomonth(Date(gnAn,gnLuna,1),-1),Gomonth(Date(gnAn,gnLuna,1),2)-1)
amessagebox("Data de la care se produc efectele trebuie sa fie din intervalul " + ;
Padl(Alltrim(Str(Month(Gomonth(Date(gnAn,gnLuna,1),-1)))),2,[0]) + "/" + ;
ALLTRIM(Str(Year(Gomonth(Date(gnAn,gnLuna,1),-1)))) + " - " + ;
Padl(Alltrim(Str(Month(Gomonth(Date(gnAn,gnLuna,1),2)))),2,[0]) + "/" + ;
ALLTRIM(Str(Year(Gomonth(Date(gnAn,gnLuna,1),2)))) + " !",48,"Atentie")
Thisform.clb_dataconsemnare.text_simplu1.SetFocus()
*!* modificare ROARES v 2.0.14 ^
CASE popers.tip_modificare = 3 And EMPTY(popers.tipactmodif)
amessagebox("Nu ati ales tipul documentului!",48,"Atentie")
Thisform.ct_clb_cautare1.CLB_TX_CAUTARE.text_simplu1.SetFocus()
CASE popers.tip_modificare = 3 And EMPTY(popers.nractmodif)
amessagebox("Nu ati completat numarul documentului!",48,"Atentie")
Thisform.clb_tx_simplu1.text_simplu1.SetFocus()
CASE popers.tip_modificare = 3 And EMPTY(popers.dataactmodif)
amessagebox("Nu ati completat data documentului!",48,"Atentie")
Thisform.clb_tx_simplu2.text_simplu1.SetFocus()
Otherwise
llReturn = .T.
Endcase
Return llReturn
ENDPROC
PROCEDURE Init
Lparameters tlRestrans
If tlRestrans
Thisform._optiongrup1.option1.Enabled = .F.
Thisform._optiongrup1.Value = Iif(popers.tip_modificare=1,3,popers.tip_modificare)
Thisform.Clb_dataconsemnare.Visible = .T.
Endif
ENDPROC
PROCEDURE _optiongrup1.InteractiveChange
If Inlist(This.Value,2,3)
Thisform.Clb_dataconsemnare.Visible = .T.
Else
popers.dataconsemnare = {}
Thisform.Clb_dataconsemnare.Visible = .F.
ENDIF
*!* IF this.Value = 3
*!* thisform.clb_tx_simplu1.Visible = .t.
*!* thisform.clb_tx_simplu2.Visible = .t.
*!* thisform.ct_clb_cautare1.Visible= .t.
*!* ELSE
*!* thisform.clb_tx_simplu1.Visible = .f.
*!* thisform.clb_tx_simplu2.Visible = .f.
*!* thisform.ct_clb_cautare1.Visible= .f.
*!* ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_stud_nou AS frm_termin_renunt OF "_frm_child.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_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CUS_ODATA_STUD1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 119
Name = "frm_stud_nou"
nid = 0
orec =
Width = 373
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 312
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "<22>colarizare"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
Gridsort1.Name = "Gridsort1"
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 6
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 3, ;
Top = 73, ;
Width = 348, ;
TEXT_SIMPLU1.ControlSource = "porec.detalii", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 101, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 235, ;
LB_SIMPLU1.Caption = "Detalii :", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu4", ;
TabIndex = 2, ;
Top = 45, ;
Width = 348, ;
Text_simplu1.ControlSource = "porec.scoala", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 235, ;
Lb_simplu1.Caption = "<22>coala :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'CUS_ODATA_STUD1' AS cus_odata_stud WITH ;
Left = 36, ;
Name = "CUS_ODATA_STUD1", ;
Top = 36
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE Destroy
IF USED('v_stud')
USE IN v_stud
ENDIF
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
lcActiune = this.cus_odata_stud1.cactiune
PLRETURN=This.cus_odata_stud1.salvare(This.OREC,This.NID)
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_stud1.cactiune = tcActiune
ENDPROC
ENDDEFINE
DEFINE CLASS frm_temei_legal AS formtermin OF "_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="Cb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_editbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: alege_temei
*p: ccursor
*</DefinedPropArrayMethod>
*<PropValue>
ccursor = crsTemei
DoCreate = .T.
Height = 179
Name = "frm_temei_legal"
Width = 498
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 527
_shape2.Height = 29
_shape2.Left = 461
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 34
Lb_titlu_alb_b121.Caption = "Incetare Contract"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 464
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_editbox1' AS _editbox WITH ;
ControlSource = "pcExplicatieTemei", ;
Height = 82, ;
Left = 12, ;
Name = "_editbox1", ;
ReadOnly = .T., ;
Top = 86, ;
Width = 480
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="editbox" />
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Cb_tx_simplu1", ;
Top = 36, ;
Width = 480, ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 152, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 321, ;
_lbbase1.Caption = "Temei legal", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Explicatie temei incetare / Decizie incetare", ;
Left = 12, ;
Name = "Lb_simplu1", ;
Top = 68
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
PROCEDURE alege_temei
Select (Thisform.ccursor)
pnIdTemei=id_temei
pcExplicatieTemei=Alltrim(explicatie)
Thisform._editbox1.Refresh
ENDPROC
PROCEDURE Destroy
Unbindevents(Thisform.cb_tx_simplu1._CBBASE1,"InteractiveChange",Thisform,'alege_temei')
ENDPROC
PROCEDURE inainte_de_do_termin
Local llReturn
llReturn = .F.
If Empty(pnIdTemei)
amessagebox("Nu ati ales temeiul legal!",48,"Atentie")
Thisform.cb_tx_simplu1._CBBASE1.SetFocus()
Else
llReturn = .T.
Endif
Return llReturn
ENDPROC
PROCEDURE Init
Lparameters tnTip,tcCursor
Thisform.ccursor = tcCursor
DoDefault()
Do Case
Case tnTip = 1
Thisform.lb_simplu1.Caption = [Explica<63>ie temei <20>ncetare]
Thisform.lb_titlu_alb_b121.Caption = [<5B>ncetare contract]
Case tnTip = 2
Thisform.lb_simplu1.Caption = [Explica<63>ie temei reactivare]
Thisform.lb_titlu_alb_b121.Caption = [Reactivare contract]
Case tnTip = 3
Thisform.lb_simplu1.Caption = [Explica<63>ie temei suspendare]
Thisform.lb_titlu_alb_b121.Caption = [Suspendare contract]
Case tnTip = 4
Thisform.lb_simplu1.Caption = [Explica<63>ie temei excep<65>ie dat<61> sf<73>r<EFBFBD>it]
Thisform.lb_titlu_alb_b121.Caption = [Excep<65>ie dat<61> sf<73>r<EFBFBD>it]
Endcase
Thisform.cb_tx_simplu1._CBBASE1.RowSource = Thisform.ccursor + [.denumire]
Thisform.cb_tx_simplu1._cbbase1.RowSourceType = 2
Thisform.cb_tx_simplu1._cBBASE1.Refresh()
Bindevent(Thisform.cb_tx_simplu1._CBBASE1,"InteractiveChange",Thisform,'alege_temei',1)
ENDPROC
ENDDEFINE
DEFINE CLASS frm_vech_nou AS frm_termin_renunt OF "_frm_child.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_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_urmator1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu5.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_vech1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: ddata1
*p: ddata2
*p: nid
*p: nvechimel
*p: nvechimez
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
ddata1 = {}
ddata2 = {}
DoCreate = .T.
Height = 308
Name = "frm_vech_nou"
nid = 0
nvechimel = 0
nvechimez = 0
orec =
Width = 479
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 480
_shape2.Height = 29
_shape2.Left = 417
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "VECHIME"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 11
BUT_TERMIN1.Left = 447
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 9
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Left = 418
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 10
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT '_grdbase1' AS _grdbase WITH ;
ColumnCount = 4, ;
DeleteMark = .F., ;
Height = 168, ;
Left = 235, ;
Name = "_grdbase1", ;
Panel = 1, ;
RecordSource = "crsVechime ", ;
RowHeight = 21, ;
ScrollBars = 2, ;
TabIndex = 12, ;
Top = 36, ;
Width = 241, ;
Column1.ControlSource = "datainc", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "datasf", ;
Column2.Name = "Column2", ;
Column3.ControlSource = "nrLuni", ;
Column3.Name = "Column3", ;
Column3.Width = 28, ;
Column4.ControlSource = "nrZile", ;
Column4.Name = "Column4", ;
Column4.Width = 29
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ;
Caption = "Data inceput", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ;
Caption = "Data sfarsit", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ;
Caption = "Luni", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ;
Caption = "Zile", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_urmator1' AS but_urmator WITH ;
Left = 103, ;
Name = "But_urmator1", ;
TabIndex = 4, ;
ToolTipText = "Retine", ;
Top = 140
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
Left = 103, ;
Name = "But_verifica1", ;
TabIndex = 5, ;
ToolTipText = "Calculeaza", ;
Top = 167
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 3, ;
Top = 96, ;
Width = 209, ;
TEXT_SIMPLU1.ControlSource = "thisform.nvechimel", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 102, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 51, ;
LB_SIMPLU1.Caption = "Vechime :", ;
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
LB_SIMPLU1.Top = 6
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1.Lb_simplu2' AS lb_simplu WITH ;
Caption = "( luni )", ;
Left = 161, ;
Name = "Lb_simplu2", ;
Top = 6
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 1, ;
Top = 40, ;
Width = 209, ;
TEXT_SIMPLU1.ControlSource = "thisform.ddata1", ;
TEXT_SIMPLU1.Format = "KD", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 101, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 103, ;
LB_SIMPLU1.Caption = "Data <20>nceput:", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu3", ;
TabIndex = 2, ;
Top = 68, ;
Width = 209, ;
Text_simplu1.ControlSource = "thisform.ddata2", ;
Text_simplu1.Format = "KD", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.TabIndex = 1, ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 103, ;
Lb_simplu1.Caption = "Data sf<73>r<EFBFBD>it:", ;
Lb_simplu1.Name = "Lb_simplu1", ;
Lb_simplu1.TabIndex = 2
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu4", ;
TabIndex = 8, ;
Top = 267, ;
Width = 348, ;
Text_simplu1.ControlSource = "porec.modincadr", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 235, ;
Lb_simplu1.Caption = "Mod :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu5", ;
TabIndex = 7, ;
Top = 239, ;
Width = 209, ;
Text_simplu1.ControlSource = "porec.vechimei", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 102, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 51, ;
Lb_simplu1.Caption = "Vechime :", ;
Lb_simplu1.Name = "Lb_simplu1", ;
Lb_simplu1.Top = 6
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu5.Lb_simplu2' AS lb_simplu WITH ;
Caption = "( luni )", ;
Left = 161, ;
Name = "Lb_simplu2", ;
Top = 6
*< END OBJECT: ClassLib="lb.vcx" BaseClass="label" />
ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu6", ;
TabIndex = 6, ;
Top = 211, ;
Width = 209, ;
Text_simplu1.ControlSource = "porec.data_vech", ;
Text_simplu1.Format = "KD", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 103, ;
Lb_simplu1.Caption = "Data :", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_vech1' AS cus_odata_vech WITH ;
Left = 417, ;
Name = "Cus_odata_vech1", ;
Top = 264
*< END OBJECT: ClassLib="opersonal.vcx" BaseClass="custom" />
PROCEDURE do_urmator
INSERT INTO crsVechime (datasf,datainc,nrluni,nrZile) ;
VALUES (thisform.ddata1,thisform.ddata2,thisform.nvechimel,thisform.nvechimez)
thisform._grdbase1.Refresh
ENDPROC
PROCEDURE do_verifica
LOCAL lnTotLuni
STORE 0 TO lnTotLuni
SELECT crsVechime
SUM nrLuni TO lnTotLuni
porec.vechimei = ROUND(lnTotLuni,0)
lcSql = [select pack_personal.vechime_numar(]+str(porec.vechimei)+[,0) as vechime from dual]
lcCursor = [crsRez]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
Messagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Select crsRez
porec.data_vech = ttod(crsRez.vechime)
thisform.Refresh
USE IN crsRez
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN,lcActiune
this.but_TERMIN1.SetFocus()
lcActiune = this.cus_odata_vech1.cactiune
PLRETURN=This.cus_odata_vech1.salvare(This.OREC,This.NID)
Return PLRETURN
ENDPROC
PROCEDURE Init
Lparameters toRec, tnId, tcActiune
DoDefault()
This.orec= toRec
This.nid = tnId
This.cus_odata_vech1.cactiune = tcActiune
*!* IF tcActiune = 'UPDATE'
*!* SELECT v_curs
*!* LOCATE FOR id_c = toRec.id_c
*!* IF FOUND()
*!* this.cb_tx_simplu1._cbbase1.Value=torec.denumire
*!* this.cb_tx_simplu1._cbbase1.Refresh()
*!* ENDIF
*!* ENDIF
ENDPROC
PROCEDURE Clb_tx_simplu1.TEXT_SIMPLU1.LostFocus
*!* lcSql = [select pack_personal.vechime_numar(]+str(porec.vechimei)+[,0) as vechime from dual]
*!* lcCursor = [crsVechime]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* If lnSucces < 0
*!* Messagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* Endif
*!* Select crsVechime
*!* porec.data_vech = ttod(crsVechime.vechime)
*!* thisform.Refresh
*!* USE IN crsVechime
ENDPROC
PROCEDURE Clb_tx_simplu2.TEXT_SIMPLU1.LostFocus
*!* IF !ISNULL(porec.data_vech)
*!* lcSql = [select pack_personal.vechime_date(to_date(]+DTOS(porec.data_vech)+[,'yyyymmdd')) as vechime from dual]
*!* lcCursor = [crsVechime]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* If lnSucces < 0
*!* Messagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* Endif
*!* Select crsVechime
*!* porec.vechimei = Round(crsVechime.vechime,0)
*!* thisform.Refresh
*!* USE IN crsVechime
*!* ENDIF
ENDPROC
PROCEDURE Clb_tx_simplu3.Text_simplu1.LostFocus
IF !ISNULL(thisform.ddata1) AND !ISNULL(thisform.ddata2)
lcSql = [select pack_personal.vechime_date(to_date(]+DTOS(thisform.ddata1)+[,'yyyymmdd'),to_date(]+DTOS(thisform.ddata2)+[,'yyyymmdd')) as vechime from dual]
lcCursor = [crsRet]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
Messagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Select crsRet
thisform.nvechimel = Round(crsRet.vechime,0)
*!* porec.vechimei = Round(crsRet.vechime,0)
thisform.Refresh
USE IN crsRet
ENDIF
ENDPROC
PROCEDURE Clb_tx_simplu6.Text_simplu1.LostFocus
*!* IF !ISNULL(porec.data_vech)
*!* lcSql = [select pack_personal.vechime_date(to_date(]+DTOS(porec.data_vech)+[,'yyyymmdd')) as vechime from dual]
*!* lcCursor = [crsVechime]
*!* lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!* If lnSucces < 0
*!* Messagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* Endif
*!* Select crsVechime
*!* porec.vechimei = Round(crsVechime.vechime,0)
*!* thisform.Refresh
*!* USE IN crsVechime
*!* ENDIF
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink