*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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="" /> * BackStyle = 0 BorderWidth = 0 Height = 35 Name = "_container" Width = 639 * 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="" /> * 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)" * ENDDEFINE DEFINE CLASS cus_odata_articol AS _cusodatabase OF "_cus_odata_base.vcx" *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> * Name = "cus_odata_articol" * 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="" /> * Name = "cus_odata_atas" * 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="" /> * Name = "cus_odata_avize" * 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="" /> * Name = "cus_odata_bazacm" * 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="" /> * Name = "cus_odata_completeznrdata112" * 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="" /> * Name = "cus_odata_cond" * 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="" /> * Name = "cus_odata_curs" * 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="" /> * Name = "cus_odata_echip" * 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="" /> * Name = "cus_odata_fam" * 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="" /> * Name = "cus_odata_intret" * 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="" /> * Name = "cus_odata_limbi" * 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="" /> * Name = "cus_odata_nom_acte" * 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="" /> * Name = "cus_odata_opers" * 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="" /> * Name = "cus_odata_stud" * 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="" /> * Name = "cus_odata_vech" * 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="" /> * *m: do_alege_articol *p: nid *p: orec * * 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 * 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="" /> * *p: nid *p: orec * * 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�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 * 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� 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�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�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="" /> * *p: nid *p: orec * * 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 * 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="" /> * *p: nid *p: orec * * 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 * 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="" /> * 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 * 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="" /> * *p: nid *p: orec * * 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 * 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="" /> * *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 * * 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 * 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 *-- 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="" /> * *m: do_sterge_conditie *p: temporar * * 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 * 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="" /> * *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 * * 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 * 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="" /> * 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" * 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="" /> * *m: do_cauta_curs *p: nid *p: orec * * 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 * 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="" /> * 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 * 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="" /> * *m: do_alege_articol *p: nid *p: orec * * 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 * 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="" /> * *p: nid *p: orec * * 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 * 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 = "�n �ntre�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�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="" /> * 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" * 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="" /> * 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" * 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="" /> * *p: nid *p: orec * * 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�/modific� persoana aflat� �n �ntre�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 * 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="" /> * *m: do_cauta_limba *p: nid *p: orec * * 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�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 * 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="" /> * *p: nan * * 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" * 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="" /> * *p: id_modlic * * 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" * 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="" /> * *p: id_modlic * * 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" * 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="" /> * 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" * 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 = "\ 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="" /> * 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 * 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="" /> * *p: nid *p: orec * * 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 * 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="" /> * *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 * * 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 = _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 * 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,�colarizare,Vechime,Documente,Altele,Documente ata�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�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��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�", ; 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�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�", ; 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�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�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�", ; 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�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 �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� na�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�ia militar�", ; 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�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�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 �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� timp norm�", ; 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�ie baz�", ; 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�te�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�te�te �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�", ; 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�", ; 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� s�n�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� 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�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�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�ii de munc�", ; 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 = "�ar�", ; 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� 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� sf�r�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�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�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�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. �i dat� 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. �i dat� 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. �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 = "", ; 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 = "�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�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� �n tur�", ; 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 �n vacan��", ; 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 = "�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�", ; 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� / so�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�", ; 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�", ; 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 �n �ntre�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�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 (�n luna curent�):", ; 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 �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� :", ; 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 �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� :", ; 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 �n func�ie de vechime. Dac� se dore�te recalcularea zilelor cuvenite, nu se completeaz�.)", ; 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 �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� :", ; 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 �ncadr�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 �ncadr�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 �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�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�ri / corec�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� (seria �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�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. �i dat� 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. �i dat� 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 &§ia *!* 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 = [�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 = [�ncetare deta�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� 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� �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� �ncetare deta�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� �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� 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� deta�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. *!* &®istru 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. *!* &®istru 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 *!* &®istru 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� 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� �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� �ncetare deta�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 &§ia *!* 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�r angaja�i selecta�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="" /> * *p: ccursor * * ccursor = DoCreate = .T. Height = 145 Name = "frm_optiuni_cnpexistent" Width = 423 _memberdata = _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 �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" * 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� 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 �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� datele vechi ( corec�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� �n firm�. Alege�i o op�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� 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="" /> * 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" * 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="" /> * *m: do_alege_tipact * * 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" * 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� scriere", ; Option1.FontCharSet = 238, ; Option1.Left = 5, ; Option1.Name = "Option1", ; Option1.Top = 5, ; Option2.AutoSize = .T., ; Option2.Caption = "Corec�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�ie registru electronic al salaria�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="" /> * *p: nid *p: orec * * 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 = "�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 * 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 = "�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="" /> * *m: alege_temei *p: ccursor * * 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" * 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�ie temei �ncetare] Thisform.lb_titlu_alb_b121.Caption = [�ncetare contract] Case tnTip = 2 Thisform.lb_simplu1.Caption = [Explica�ie temei reactivare] Thisform.lb_titlu_alb_b121.Caption = [Reactivare contract] Case tnTip = 3 Thisform.lb_simplu1.Caption = [Explica�ie temei suspendare] Thisform.lb_titlu_alb_b121.Caption = [Suspendare contract] Case tnTip = 4 Thisform.lb_simplu1.Caption = [Explica�ie temei excep�ie dat� sf�r�it] Thisform.lb_titlu_alb_b121.Caption = [Excep�ie dat� sf�r�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="" /> * *p: ddata1 *p: ddata2 *p: nid *p: nvechimel *p: nvechimez *p: orec * * 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 * 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 �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�r�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