romfast/roadef
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roadef/Clase/ofundal_sal.vc2

4932 lines
146 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_sal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class.
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
clastcaption = Microsoft Visual FoxPro
clasticon =
Name = "capplication"
nformcount = 0
*</PropValue>
PROCEDURE doform
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
LOCAL lcFormName,lnFormCount
_screen.visible=.t.
lcFileName=UPPER(ALLTRIM(tcFileName))
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
IF tlNoMultipleInstances
FOR lnCount = 1 TO this.nFormCount
IF this.aFormNames[lnCount]==lcFormName AND ;
TYPE("this.aForms[lnCount]")=="O" AND ;
NOT ISNULL(this.aForms[lnCount])
this.aForms[lnCount].Show
RETURN .F.
ENDIF
ENDFOR
ENDIF
this.RefreshFormsCollection
this.nFormCount=this.nFormCount+1
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
this.aFormNames[this.nFormCount]=lcFormName
IF NOT EMPTY(lcClass)
SET CLASSLIB TO (lcFileName) ADDITIVE
this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
NOT ISNULL(this.aForms[this.nFormCount])
this.aForms[this.nFormCount].Show
ENDIF
ELSE
DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
ENDIF
lnFormCount=this.nFormCount
this.RefreshFormsCollection
IF this.lCascadeForms AND this.nFormCount>=lnFormCount
oForm=this.aForms[this.nFormCount]
lnTop=oForm.Top
lnLeft=oForm.Left
lcName=oForm.Name
IF WEXIST(lcName) AND oForm.WindowState#2
FOR lnCount = 1 TO (this.nFormCount-1)
oForm2=this.aForms[lnCount]
IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
LOOP
ENDIF
IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
WLCOL(lcName)=WLCOL(oForm2.Name)
lnTop=lnTop+this.nPixelOffset
lnLeft=lnLeft+this.nPixelOffset
ENDIF
ENDFOR
IF oForm.Top#lnTop
oForm.Top=lnTop
ENDIF
IF oForm.Left#lnLeft
oForm.Left=lnLeft
ENDIF
ENDIF
ENDIF
*!* modificat 14.12.2004
*!* liana
IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
this.aForms[this.nFormCount].Show
ENDIF
ENDPROC
PROCEDURE onshutdown
If glQuit
Do INCHIDPROG
Quit
Endif
OA=Createobject('frm_mesaj','ROA Definirea companiei','intreb.ico','INTREBARE','Dori<72>i s<> ie<69>i<EFBFBD>i din program?')
OA.lbl_mesaj1.FontBold=.T.
OA.lbl_mesaj1.FontSize=12
OA.lbl_mesaj1.Top=55
OA.Show(1)
If buton=1
ON SHUTDOWN
ON ERROR
CLEAR EVENTS
IF _VFP.StartMode <> 0
QUIT
ENDIF
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_calc AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_calc"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcid_sucursala = Nvl(ALLTRIM(STR(toRec.id_sucursala)),"")
lcCalc = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire)),['],['']),"")
lcDescriere = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"")
lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO ] + gcS + [.calculatoare (denumire,id_sucursala,inactiv,descriere) VALUES ('] + lcCalc + [',] + lcid_sucursala +[,]+lcInactiv+ [,']+lcDescriere+[')]
Case lcActiune = "UPDATE"
lcSql = [UPDATE ] + gcS + [.calculatoare SET denumire = '] + lcCalc+[', id_sucursala = ]+lcId_sucursala + [,inactiv = ] + lcinactiv + [,descriere = ']+lcDescriere+[' where id_calc = ] + lcId
Case lcActiune = "DELETE"
lcSql = [update calculatoare set sters=1 where id_calc=]+lcid
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_calcsetari AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_calcsetari"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcid_calc = Nvl(ALLTRIM(STR(toRec.id_calc)),"")
lcExplicatia = Nvl(STRTRAN(Alltrim(Upper(toRec.explicatia)),['],['']),"")
lcValoare = Nvl(STRTRAN(Alltrim(Upper(toRec.valoare)),['],['']),"")
lcSetare = Nvl(ALLTRIM(toRec.setare),"")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO ] + gcS + [.calculatoare_setari (explicatia,id_calc,valoare, setare) VALUES ('] +;
lcExplicatia + [',] + lcid_calc + [,'] + lcValoare+ [','] + lcSetare + [')]
Case lcActiune = "UPDATE"
lcSql = [UPDATE ] + gcS + [.calculatoare_setari SET explicatia = '] + lcExplicatia+[', id_calc = ]+lcId_calc +;
[,setare = '] + lcSetare + [',valoare = ']+lcValoare+[' where id_calcsetare = ] + lcId
Case lcActiune = "DELETE"
lcSql = [update calculatoare_setari set sters=1 where id_calcsetare=]+lcid
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
Endcase
*!* STRTOFILE(LCSQL,'C:\DELETE.SQL')
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_gruputil AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_gruputil"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL")
IF EMPTY(toRec.id_tata) OR ISNULL(toRec.id_tata)
lcid_tata = "NULL"
ELSE
lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL")
ENDIF
lcGrup = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire_grup)),['],['']),"")
lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO ] + gcS + [.grupuri_utilizatori (denumire_grup,id_tata,inactiv) VALUES ('] + lcGrup + [',] + lcid_tata +[,]+lcInactiv+ [)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE ] + gcS + [.grupuri_utilizatori SET denumire_grup = '] + lcGrup+[', id_tata = ]+lcId_tata + [,inactiv = ] + lcinactiv + [ where id_grup = ] + lcId
Case lcActiune = "DELETE"
lcSql = [update grupuri_utilizatori set sters=1 where id_grup=]+lcid
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
Endcase
*!* STRTOFILE(LCSQL,'C:\DELETE.SQL')
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_utilizatori AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_utilizatori"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcid_util = IIF(EMPTY(toRec.id_util),'null',Nvl(ALLTRIM(STR(toRec.id_util)),"null"))
lcid_partener = IIF(EMPTY(toRec.id_partener),'null',Nvl(ALLTRIM(STR(toRec.id_partener)),"null"))
lcid_contact = IIF(EMPTY(toRec.id_contact),'null',Nvl(ALLTRIM(STR(toRec.id_contact)),"null"))
lcid_grup = IIF(EMPTY(toRec.id_grup),'null',Nvl(ALLTRIM(STR(toRec.id_grup)),"null"))
lcid_sucursala = IIF(EMPTY(toRec.id_sucursala) and EMPTY(toRec.sucursala),'null',Nvl(ALLTRIM(STR(toRec.id_sucursala)),"null"))
lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0")
Endif
Do Case
Case lcActiune = "INSERT"
lcSql = [INSERT INTO ] + gcS + [.Utilizatori_rol_intern (id_util,id_partener,id_contact,id_grup,id_sucursala,inactiv) VALUES (] +;
lcid_util + [,] + lcid_partener + [,]+lcid_contact +[,] +lcid_grup +[,]+ lcid_sucursala +[,]+lcInactiv+ [)]
Case lcActiune = "UPDATE"
lcSql = [UPDATE ] + gcS + [.Utilizatori_rol_intern SET id_util = ] + lcid_util +[, id_partener= ]+lcid_partener +;
[,id_contact= ] + lcid_contact +[,id_grup=]+lcid_grup +[,id_sucursala = ]+lcid_sucursala +[,Inactiv=]+lcInactiv+ [ where id_util = ] + lcId
Case lcActiune = "DELETE"
lcSql = [update Utilizatori_rol_intern set sters=1 where id_util=]+lcid
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
Endcase
*!* STRTOFILE(LCSQL,'C:\DELETE.SQL')
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS frm_calc AS frm_termin 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="lb_nom_calc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" 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="But_excel1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 393
Name = "frm_calc"
Width = 404
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 408
_SHAPE2.Height = 29
_SHAPE2.Left = 300
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 104
LB_TITLU_ALB_B121.Caption = "Calculatoare"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Left = 372
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
Height = 310, ;
Left = 11, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "crsCalc", ;
ScrollBars = 2, ;
Top = 77, ;
Width = 384, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "denumire", ;
Column1.Name = "Column1", ;
Column1.Width = 111, ;
Column2.ColumnOrder = 1, ;
Column2.ControlSource = "sucursala", ;
Column2.Name = "Column2", ;
Column2.Width = 132, ;
Column3.ControlSource = "descriere", ;
Column3.Name = "Column3", ;
Column3.Width = 105
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Calculator", ;
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 = "Sucursala", ;
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 '_grdrow1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Descriere", ;
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"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Left = 253, ;
Name = "But_excel1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 313, ;
Name = "But_modifica1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 282, ;
Name = "But_nou1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 343, ;
Name = "But_sterge1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
Left = 312, ;
Name = "CMD_CAUTA1", ;
Top = 36
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "lb_nom_calc", ;
Top = 36, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Calculator", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=pocalc.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform._grdrow1)
pocalc.ca_baza1.cfiltru=lcFiltru
pocalc.ca_baza1.afisare()
restore_grid_tag(thisform._grdrow1)
IF RECCOUNT('crsCalc')>0
thisform._grdrow1.SetFocus()
ELSE
thisform.Lb_nom_calc.SetFocus()
ENDIF
ENDPROC
PROCEDURE do_adauga
DO nom_calculatoare_nou IN onomenclatoare.prg
IF gnButon = 1
THISFORM.actualizeaza_grid1()
ENDI
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru=[]
lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],[''])
If !Empty(lcNume)
lcFiltru=[denumire like ']+lcNume+[%']
ELSE
lcFiltru = [2=2]
Endif
This.MousePointer= 11
This.LockScreen=.T.
Thisform.actualizeaza_grid1(lcFiltru)
IF RECCOUNT()=0
aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
ENDIF
This.LockScreen=.F.
This.MousePointer= 0
ENDPROC
PROCEDURE do_excel
lcTabel = This._grdrow1.RecordSource
If Reccount(lcTabel)>0
Do export_excel_grid With This._grdrow1, "sucursala,denumire"
Else
amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie")
Endif
ENDPROC
PROCEDURE do_modifica
Local loRec, lnIdCalculator
If Reccount('crsCalc')>0
Select crsCalc
lnIdCalculator = id_calc
Scatter Name loRec
loRec = nom_calculatoare_modifica(lnIdCalculator)
If !Isnull(loRec)
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid1()
Select crsCalc
Locate For id_calc = loRec.id_calc
If !Found()
Go Top
Endif
Thisform._grdrow1.SetFocus()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Endif
Else
amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
Endif
ENDPROC
PROCEDURE do_sterge
If Reccount('crsCalc')>0
Select crsCalc
Scatter Name lorec
Do STERGE_INREGISTRARE With "calc",lorec.id_calc
This.actualizeaza_grid1()
Else
amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_calc_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="_checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CUS_ODATA_CALC1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_sucursala" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_sucursala
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 193
Name = "frm_calc_nou"
nid =
orec =
Width = 332
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Left = 258
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
LB_TITLU_ALB_B121.Caption = "Calculator"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 7
BUT_TERMIN1.Left = 300
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
BUT_RENUNT1.Left = 271
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 5
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT '_checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Inactiv", ;
ControlSource = "porec.inactiv", ;
Left = 24, ;
Name = "_checkbox1", ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 160
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ;
Left = 17, ;
Name = "Cb_sucursala", ;
TabIndex = 3, ;
Top = 108, ;
_cbbase1.ControlSource = "porec.sucursala", ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "vnom_sucursale.sucursala", ;
_cbbase1.RowSourceType = 2, ;
_lbbase1.Caption = "Sucursala", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Left = 17, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 52, ;
Width = 290, ;
TEXT_SIMPLU1.ControlSource = "porec.denumire", ;
TEXT_SIMPLU1.Format = "!K", ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Calculator", ;
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 = 17, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 2, ;
Top = 80, ;
Width = 290, ;
Text_simplu1.ControlSource = "porec.descriere", ;
Text_simplu1.Format = "!K", ;
Text_simplu1.Name = "Text_simplu1", ;
Lb_simplu1.Caption = "Descriere", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'CUS_ODATA_CALC1' AS cus_odata_calc WITH ;
Left = 288, ;
Name = "CUS_ODATA_CALC1", ;
Top = 156
*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />
PROCEDURE do_alege_sucursala
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.denumire)
aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie")
THIS.clb_tx_simplu1.SETFOCUS()
PLRETURN=.F.
CASE EMPTY(porec.sucursala)
aMESSAGEBOX('Nu ati completat sucursala!',0+48,"Atentie")
THIS.cb_sucursala._cbbase1.SETFOCUS()
PLRETURN=.F.
OTHERWISE
PLRETURN=THIS.cus_odata_calc1.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_calc1.cactiune = tcActiune
ENDPROC
PROCEDURE Cb_sucursala._cbbase1.Valid
porec.id_sucursala = vnom_sucursale.id_sucursala
ENDPROC
ENDDEFINE
DEFINE CLASS frm_calcsetari AS frm_termin 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_calculator" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" 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="clb_sucursala" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
cgridsortlist = _grdrow1
DoCreate = .T.
Height = 465
Name = "frm_calcsetari"
Width = 596
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 636
_SHAPE2.Height = 29
_SHAPE2.Left = 473
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 251
LB_TITLU_ALB_B121.Caption = "Setari calculatoare"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 9
BUT_TERMIN1.Left = 565
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
BUT_TERMIN1.Top = 0
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 5, ;
DeleteMark = .F., ;
Height = 364, ;
Left = 8, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "crsCalcsetari", ;
TabIndex = 4, ;
Top = 98, ;
Width = 578, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "calculator", ;
Column1.Name = "Column1", ;
Column1.Width = 115, ;
Column2.ColumnOrder = 5, ;
Column2.ControlSource = "explicatia", ;
Column2.Name = "Column2", ;
Column2.Width = 101, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "valoare_text", ;
Column3.Name = "Column3", ;
Column3.Width = 127, ;
Column4.ColumnOrder = 3, ;
Column4.ControlSource = "setare", ;
Column4.Name = "Column4", ;
Column4.Width = 113, ;
Column5.ColumnOrder = 1, ;
Column5.ControlSource = "sucursala", ;
Column5.Name = "Column5", ;
Column5.Width = 86
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Calculator", ;
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 = "Explicatia", ;
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 '_grdrow1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Valoare", ;
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"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Setare", ;
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"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
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"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 505, ;
Name = "But_modifica1", ;
TabIndex = 7, ;
Top = 0
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 474, ;
Name = "But_nou1", ;
TabIndex = 8, ;
Top = 0
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 535, ;
Name = "But_sterge1", ;
TabIndex = 6, ;
Top = 0
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'clb_calculator' AS clb_tx_simplu WITH ;
Left = 8, ;
Name = "clb_calculator", ;
TabIndex = 1, ;
Top = 38, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Calculator", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_sucursala' AS clb_tx_simplu WITH ;
Left = 8, ;
Name = "clb_sucursala", ;
TabIndex = 2, ;
Top = 66, ;
Text_simplu1.Name = "Text_simplu1", ;
Lb_simplu1.Caption = "Sucursala", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
Left = 308, ;
Name = "CMD_CAUTA1", ;
TabIndex = 3, ;
Top = 38
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE actualizeaza_grid1
Lparameters pcFiltru
Local lcFiltru
lcFiltru=pcFiltru
If Empty(lcFiltru)
lcFiltru=pocalc.ca_baza1.cfiltru
Endif
save_grid_tag(Thisform._grdrow1)
pocalc.ca_baza1.cfiltru=lcFiltru
pocalc.ca_baza1.afisare()
restore_grid_tag(Thisform._grdrow1)
If Reccount('crsCalcsetari')>0
Thisform._grdrow1.SetFocus()
Else
Thisform.clb_calculator.SetFocus()
Endif
ENDPROC
PROCEDURE do_adauga
DO calcsetare_nou IN onomenclatoare.prg
IF gnButon = 1
THISFORM.actualizeaza_grid1()
ENDI
ENDPROC
PROCEDURE do_cauta
LOCAL lcFiltru, lcCalculator, lcSucursala
lcFiltru=[]
lcCalculator = STRTRAN(UPPER(ALLTRIM(THIS.clb_calculator.text_simplu1.VALUE)),['],[''])
lcSucursala = STRTRAN(UPPER(ALLTRIM(THIS.clb_sucursala.text_simplu1.VALUE)),['],[''])
IF !EMPTY(lcCalculator)
lcFiltru = lcFiltru + [ and calculator like '%] + lcCalculator + [%']
ENDIF
IF !EMPTY(lcSucursala)
lcFiltru = lcFiltru + [ and sucursala like '%] + lcSucursala + [%']
ENDIF
IF !EMPTY(lcFiltru)
lcFiltru = SUBSTR(lcFiltru,6)
ELSE
lcFiltru = "2=2"
ENDIF
THIS.MOUSEPOINTER= 11
THIS.LOCKSCREEN=.T.
THISFORM.actualizeaza_grid1(lcFiltru)
IF RECCOUNT()=0
aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
ENDIF
THIS.LOCKSCREEN=.F.
THIS.MOUSEPOINTER= 0
ENDPROC
PROCEDURE do_modifica
LOCAL loRec, lnIdUtil
If Reccount('crsCalcSetari')>0
Select crsCalcSetari
lnId = id_calcsetare
Scatter Name loRec
loRec = calcsetare_modifica(lnId)
IF !ISNULL(loRec)
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid1()
SELECT crsCalcSetari
LOCATE FOR id_calcsetare = lorec.id_calcsetare
IF !FOUND()
GO top
ENDIF
thisform._grdrow1.SetFocus()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Endif
Else
amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
Endif
ENDPROC
PROCEDURE do_sterge
If Reccount('crsCalcSetari')>0
Select crsCalcSetari
Scatter Name lorec
Do STERGE_INREGISTRARE With "calcsetari",lorec.id_calcsetare
This.actualizeaza_grid1()
Else
amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_calcsetari_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_explicatia" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CUS_ODATA_CALCSETARI1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_calculator" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_setare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_valoare" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_valoare
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 169
Name = "frm_calcsetari_nou"
nid = .F.
orec =
Width = 381
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Left = 320
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
LB_TITLU_ALB_B121.Caption = "Setare calculator"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 7
BUT_TERMIN1.Left = 350
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
BUT_TERMIN1.Top = 1
GRIDSORT1.Left = 11
GRIDSORT1.Name = "GRIDSORT1"
GRIDSORT1.Top = 42
BUT_RENUNT1.Left = 321
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 6
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT 'Cb_calculator' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 23, ;
Name = "Cb_calculator", ;
TabIndex = 1, ;
Top = 48, ;
Width = 326, ;
_cbbase1.ControlSource = "porec.calculator", ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 96, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "vcalculatoare.denumire", ;
_cbbase1.RowSourceType = 2, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 225, ;
_lbbase1.Caption = "Calculator", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cb_setare' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 23, ;
Name = "Cb_setare", ;
TabIndex = 2, ;
Top = 76, ;
Width = 326, ;
_cbbase1.ControlSource = "porec.setare", ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 96, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "vsetari.setare", ;
_cbbase1.RowSourceType = 2, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 224, ;
_lbbase1.Caption = "Setare", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_explicatia' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 23, ;
Name = "Clb_explicatia", ;
TabIndex = 3, ;
Top = 104, ;
Width = 326, ;
TEXT_SIMPLU1.ControlSource = "porec.explicatia", ;
TEXT_SIMPLU1.Format = "!K", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 97, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 221, ;
LB_SIMPLU1.Caption = "Explicatie", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_valoare' AS ct_clb_cautare WITH ;
cconditie = Empty(NVL(porec.valoare,'')), ;
cprocedura = thisform.do_alege_valoare, ;
cvar_afisata = porec.valoare_text, ;
Height = 31, ;
Left = 22, ;
Name = "Clb_valoare", ;
TabIndex = 4, ;
Top = 131, ;
Width = 331, ;
img_cautare.Left = 308, ;
img_cautare.Name = "img_cautare", ;
img_cautare.Top = 5, ;
clb_tx_cautare.Lb_simplu1.Caption = "Valoare", ;
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
clb_tx_cautare.Name = "clb_tx_cautare", ;
clb_tx_cautare.Text_simplu1.ControlSource = "poRec.valoare", ;
clb_tx_cautare.Text_simplu1.Height = 23, ;
clb_tx_cautare.Text_simplu1.Left = 97, ;
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
clb_tx_cautare.Text_simplu1.Top = 3, ;
clb_tx_cautare.Text_simplu1.Width = 195, ;
clb_tx_cautare.Width = 300
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
ADD OBJECT 'CUS_ODATA_CALCSETARI1' AS cus_odata_calcsetari WITH ;
Left = 9, ;
Name = "CUS_ODATA_CALCSETARI1", ;
Top = 108
*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />
PROCEDURE do_alege_valoare
LOCAL loHash, lcVarResult, lcVarValoare
DO CASE
CASE vsetari.tip = 'L' AND !EMPTY(NVL(vsetari.tabel,'')) && L = LISTA; T = TEXT
loHash = GetHash()
WITH loHash
.SetValue("cSelect", "select " + ALLTRIM(NVL(vsetari.coloane,'')) + " from " + ALLTRIM(NVL(vsetari.tabel,'')))
.SetValue("cSchema", ALLTRIM(NVL(vsetari.Schema,'')))
.SetValue("cFiltru", ALLTRIM(NVL(vsetari.Filtru,'')))
.SetValue("cOrder", ALLTRIM(NVL(vsetari.Ordine,'')))
.SetValue("cColoana", ALLTRIM(NVL(vsetari.Coloane,'')))
.SetValue("cTitlu", ALLTRIM(NVL(vsetari.Titlu,'')))
.SetValue("cTitluColoana", ALLTRIM(NVL(vsetari.TitluColoane,'')))
.SetValue("cFiltruOriginal", ALLTRIM(NVL(vsetari.FiltruOriginal,'')))
.SetValue("cPrimaColoana", ALLTRIM(NVL(vsetari.ResultColoana,'')))
.SetValue("cEnums",ALLTRIM(NVL(vsetari.Enums,'')))
IF '2=2'$ALLTRIM(NVL(vsetari.Filtru,''))
.SetValue("nPornire", 6)
ENDIF
ENDWITH
loCauta = cauta_alfa_hash(loHash) && cauta_alfa.prg
lcVarResult = "loCauta." + ALLTRIM(vsetari.resultcoloana)
lcVarValoare = "loCauta." + ALLTRIM(vsetari.idcoloana)
IF !ISNULL(loCauta)
IF !EMPTY(&lcVarResult)
poRec.valoare_text = ALLTRIM(TRANSFORM(EVALUATE(lcVarResult)))
poRec.valoare = ALLTRIM(TRANSFORM(EVALUATE(lcVarValoare)))
ENDIF
ENDIF
OTHERWISE
lcTip = IIF(vsetari.tip = 'L' and !EMPTY(NVL(vsetari.enums,'')), 'COMBO','EDIT')
lcEnums = ALLTRIM(NVL(vsetari.enums,''))
poRec.valoare = GetText(GetHash("cTitlu=>" + ALLTRIM(vsetari.setare) + "??cText=>" + ALLTRIM(poRec.valoare)+"??cTip=>" + lcTip + "??cEnums=>" + lcEnums)) && ocautare.prg
poRec.valoare_text = poRec.valoare
ENDCASE
thisform.Refresh
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.calculator)
aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie")
THIS.cb_calculator.SETFOCUS()
PLRETURN=.F.
CASE EMPTY(porec.setare)
aMESSAGEBOX('Nu ati completat setarea!',0+48,"Atentie")
THIS.cb_setare.SETFOCUS()
PLRETURN=.F.
CASE EMPTY(porec.valoare_text)
aMESSAGEBOX('Nu ati completat valoarea!',0+48,"Atentie")
THIS.clb_valoare.SETFOCUS()
PLRETURN=.F.
OTHERWISE
PLRETURN=THIS.cus_odata_calcsetari1.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_calcsetari1.cactiune = tcActiune
IF UPPER(tcActiune) = 'UPDATE'
this.cb_calculator._cbbase1.Enabled = .F.
this.cb_setare._cbbase1.Enabled = .F.
this.clb_explicatia.SetFocus()
ENDIF
ENDPROC
PROCEDURE Cb_calculator._cbbase1.Valid
porec.id_calc = vcalculatoare.id_calc
ENDPROC
PROCEDURE Cb_setare._cbbase1.Valid
poRec.explicatia = ALLTRIM(vsetari.setare)
ENDPROC
ENDDEFINE
DEFINE CLASS frm_entitati_conturi_o AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_cont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.ck_tip_entitate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_cod_fiscal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_reg_comert" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3.But_nou3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3.But_modifica3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3.But_sterge3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3.Ck_filtru_cont2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_reset1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: actualizeaza_grid3
*m: actualizeaza_grid4
*m: actualizeaza_grid5
*m: adauga_cont
*m: do_adauga_coresp_tc
*m: do_adauga_tipuri
*m: do_cauta2
*m: do_modifica_coresp_tc
*m: do_modifica_tipuri
*m: do_reset2
*m: do_sterge_coresp_tc
*m: do_sterge_tipuri
*m: modifica_cont
*m: sterge_cont
*p: cul_activ
*p: temporar_id_tip_part
*p: temporar_tip_partener
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
cgridsortlist = _pageframe1.page1._grdrow1;_pageframe1.page3._grdrow4
DoCreate = .T.
Height = 420
Name = "frm_entitati_conturi_o"
temporar_id_tip_part = 0
temporar_tip_partener =
Width = 697
WindowState = 0
WindowType = 1
_shape1.Anchor = 10
_shape1.Comment = "*:OnResize=sR"
_shape1.Height = 30
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Tag = "W"
_shape1.Top = 0
_shape1.Width = 698
_shape2.Anchor = 8
_shape2.Comment = "*:OnResize=RT"
_shape2.Height = 29
_shape2.Left = 665
_shape2.Name = "_shape2"
_shape2.Tag = "L"
_shape2.Top = 1
_shape2.Width = 32
Lb_titlu_alb_b121.Caption = "Configurare Entitati"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 19
Lb_titlu_alb_b121.Tag = ""
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Comment = "*:OnResize=RT"
BUT_TERMIN1.Height = 27
BUT_TERMIN1.Left = 666
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 18
BUT_TERMIN1.Tag = "L"
BUT_TERMIN1.Top = 2
BUT_TERMIN1.Width = 30
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_pageframe1' AS _pageframe WITH ;
Anchor = 15, ;
Comment = "*:OnResize=sS", ;
ErasePage = .T., ;
Height = 391, ;
Left = 0, ;
Name = "_pageframe1", ;
PageCount = 3, ;
Tag = "WH", ;
Top = 29, ;
Width = 698, ;
PAGE1.BackColor = 255,255,255, ;
PAGE1.Caption = "Entitati", ;
PAGE1.Comment = "", ;
PAGE1.Name = "PAGE1", ;
PAGE1.Tag = "HW", ;
PAGE2.BackColor = 255,255,255, ;
PAGE2.Caption = "Tipuri Entitati - Conturi", ;
PAGE2.Comment = "", ;
PAGE2.Name = "PAGE2", ;
PAGE2.Tag = "HW", ;
Page3.BackColor = 255,255,255, ;
Page3.Caption = "Conturi", ;
Page3.Name = "Page3", ;
Page3.Tag = "HW"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 14, ;
Comment = "*:OnResize=SS", ;
DeleteMark = .F., ;
Height = 296, ;
HighlightStyle = 1, ;
Left = 4, ;
Name = "_grdrow1", ;
nrgbrow = 0, ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "crsparteneri", ;
TabIndex = 14, ;
Tag = "HW", ;
Top = 65, ;
Width = 551, ;
Column1.ControlSource = "crsparteneri.id_part", ;
Column1.Name = "Column1", ;
Column1.ReadOnly = .T., ;
Column1.Width = 65, ;
Column2.ControlSource = "crsparteneri.nume", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.Width = 174, ;
Column3.ControlSource = "crsparteneri.cod_fiscal", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column4.ControlSource = "crsparteneri.reg_comert", ;
Column4.Name = "Column4", ;
Column4.ReadOnly = .T., ;
Column5.ControlSource = "crsparteneri.adresa", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column6.ControlSource = "crsparteneri.localitate", ;
Column6.Name = "Column6", ;
Column6.ReadOnly = .T., ;
Column7.ControlSource = "crsparteneri.telefon", ;
Column7.Name = "Column7", ;
Column7.ReadOnly = .T., ;
Column8.ControlSource = "crsparteneri.banca", ;
Column8.Name = "Column8", ;
Column8.ReadOnly = .T., ;
Column9.ControlSource = "crsparteneri.cont_banca", ;
Column9.Name = "Column9", ;
Column9.ReadOnly = .T., ;
Column10.ControlSource = "crsparteneri.zona", ;
Column10.Name = "Column10", ;
Column10.ReadOnly = .T., ;
Column11.ControlSource = "crsparteneri.bloc", ;
Column11.Name = "Column11", ;
Column11.ReadOnly = .T., ;
Column12.ControlSource = "crsparteneri.scara", ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column13.ControlSource = "crsparteneri.apartament", ;
Column13.Name = "Column13", ;
Column13.ReadOnly = .T., ;
Column14.ControlSource = "crsparteneri.inactiv", ;
Column14.Name = "Column14", ;
Column14.ReadOnly = .T., ;
Column14.Width = 49
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._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 '_pageframe1.PAGE1._grdrow1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Zona", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column10.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 '_pageframe1.PAGE1._grdrow1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Bloc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column11.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 '_pageframe1.PAGE1._grdrow1.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Scara", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column12.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 '_pageframe1.PAGE1._grdrow1.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Apartament", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column13.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 '_pageframe1.PAGE1._grdrow1.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Inactiv", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column14.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 '_pageframe1.PAGE1._grdrow1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Denumire", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._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 '_pageframe1.PAGE1._grdrow1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod Fiscal / CNP", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._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 '_pageframe1.PAGE1._grdrow1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Reg. Comert", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column4.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 '_pageframe1.PAGE1._grdrow1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Adresa", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column5.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 '_pageframe1.PAGE1._grdrow1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Localitate", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column6.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 '_pageframe1.PAGE1._grdrow1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Telefon", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column7.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 '_pageframe1.PAGE1._grdrow1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Banca", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column8.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 '_pageframe1.PAGE1._grdrow1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont Banca", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column9.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 '_pageframe1.PAGE1._grdrow2' AS _grdrow WITH ;
Anchor = 13, ;
ColumnCount = 1, ;
crgb_row = 255,255,255, ;
DeleteMark = .F., ;
Height = 296, ;
Left = 554, ;
Name = "_grdrow2", ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "crscoresp_tip_parteneri", ;
TabIndex = 15, ;
Tag = "HL", ;
Top = 65, ;
Width = 131, ;
Column1.ControlSource = "crscoresp_tip_parteneri.tip_partener", ;
Column1.Name = "Column1", ;
Column1.Width = 121
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_pageframe1.PAGE1._grdrow2.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE1._grdrow2.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 '_pageframe1.PAGE1.But_modifica1' AS but_modifica WITH ;
Anchor = 8, ;
Comment = "*:OnResize=RT", ;
Left = 491, ;
Name = "But_modifica1", ;
TabIndex = 10, ;
Tag = "L", ;
Top = 34, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE1.But_nou1' AS but_nou WITH ;
Anchor = 8, ;
Comment = "*:OnResize=RT", ;
Left = 460, ;
Name = "But_nou1", ;
TabIndex = 5, ;
Tag = "L", ;
Top = 34
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE1.But_sterge1' AS but_sterge WITH ;
Anchor = 8, ;
Comment = "*:OnResize=RT", ;
Left = 520, ;
Name = "But_sterge1", ;
TabIndex = 12, ;
Tag = "L", ;
Top = 34, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE1.Ck_cod_fiscal' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = cod_fiscal, ;
Caption = "Cod Fiscal", ;
criteriu = 4, ;
criteriu2 = 4, ;
Left = 4, ;
Name = "Ck_cod_fiscal", ;
Top = 27
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_cont' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = cont, ;
Caption = "Cont", ;
Left = 167, ;
Name = "Ck_filtru_cont", ;
Top = 6
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = nume, ;
Caption = "Denumire", ;
Left = 4, ;
Name = "Ck_filtru_nume", ;
Top = 6
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.PAGE1.Ck_reg_comert' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = reg_comert, ;
Caption = "Reg. Comert", ;
criteriu = 4, ;
criteriu2 = 4, ;
Left = 84, ;
Name = "Ck_reg_comert", ;
Top = 27
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.PAGE1.ck_tip_entitate' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Tip Entitate", ;
FontName = "Arial Narrow", ;
Left = 84, ;
Name = "ck_tip_entitate", ;
Top = 6
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.PAGE1.Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 8, ;
Comment = "*:OnResize=RT", ;
Left = 219, ;
Name = "Cmd_cauta1", ;
TabIndex = 4, ;
Tag = "L", ;
Top = 5
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE1.Cmd_executa1' AS cmd_executa WITH ;
Anchor = 8, ;
Caption = "\<Modicare Id Partener", ;
Height = 46, ;
Left = 347, ;
Name = "Cmd_executa1", ;
Top = 15, ;
Visible = .F., ;
Width = 99, ;
WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE1.Cmd_reset1' AS cmd_reset WITH ;
Anchor = 8, ;
Comment = "*:OnResize=RT", ;
Left = 219, ;
Name = "Cmd_reset1", ;
Tag = "L", ;
Top = 34
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE1.Lb_simplu1' AS lb_simplu WITH ;
Caption = "Entitati", ;
FontSize = 10, ;
Left = 4, ;
Name = "Lb_simplu1", ;
Top = 50
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT '_pageframe1.PAGE1.Lb_simplu2' AS lb_simplu WITH ;
Anchor = 8, ;
Caption = "Tip/Tipuri ", ;
Comment = "*:OnResize=RT", ;
FontSize = 10, ;
Left = 554, ;
Name = "Lb_simplu2", ;
Tag = "L", ;
Top = 33
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT '_pageframe1.PAGE1.Lb_simplu3' AS lb_simplu WITH ;
Anchor = 8, ;
Caption = "Entitate Selectata", ;
Comment = "*:OnResize=RT", ;
FontSize = 10, ;
Left = 554, ;
Name = "Lb_simplu3", ;
Tag = "L", ;
Top = 50
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT '_pageframe1.PAGE2._grdrow3' AS _grdrow WITH ;
Anchor = 5, ;
ColumnCount = 3, ;
DeleteMark = .F., ;
Height = 296, ;
HighlightStyle = 1, ;
Left = 8, ;
Name = "_grdrow3", ;
nrgbrow = 0, ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "crstipuriparteneri", ;
ScrollBars = 2, ;
TabIndex = 16, ;
Tag = "H", ;
Top = 65, ;
Width = 238, ;
Column1.ControlSource = "crstipuriparteneri.id_tip_part", ;
Column1.Name = "Column1", ;
Column1.Width = 47, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "crstipuriparteneri.tip_partener", ;
Column2.Name = "Column2", ;
Column2.Width = 125, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "crstipuriparteneri.inactiv", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Sparse = .F., ;
Column3.Width = 43
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2._grdrow3.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 '_pageframe1.PAGE2._grdrow3.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip ", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2._grdrow3.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 '_pageframe1.PAGE2._grdrow3.Column3._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
Left = 38, ;
Name = "_checkbox1", ;
ReadOnly = .T., ;
Top = 93
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Inactiv", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 5, ;
DeleteMark = .F., ;
Height = 296, ;
Left = 248, ;
Name = "_grdrow4", ;
nrgbrow = 0, ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "crstipuriconturi", ;
ScrollBars = 2, ;
TabIndex = 17, ;
Tag = "HW", ;
Top = 65, ;
Width = 442, ;
Column1.ControlSource = "crstipuriconturi.tip_partener", ;
Column1.Name = "Column1", ;
Column1.Tag = "W", ;
Column1.Width = 68, ;
Column2.ControlSource = "crstipuriconturi.cont", ;
Column2.Name = "Column2", ;
Column2.Width = 72, ;
Column3.ControlSource = "crstipuriconturi.explicatie", ;
Column3.Name = "Column3", ;
Column3.Width = 122, ;
Column4.ControlSource = 'iif(crstipuriconturi.fel_cont<=0,"Activ","Pasiv")', ;
Column4.Name = "Column4", ;
Column4.Width = 71, ;
Column5.ControlSource = "crstipuriconturi.cu_inregistrari", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Sparse = .F., ;
Column5.Width = 83
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Tip", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4.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 '_pageframe1.PAGE2._grdrow4.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4.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 '_pageframe1.PAGE2._grdrow4.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4.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 '_pageframe1.PAGE2._grdrow4.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel Cont", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ControlSource = "crstipuriconturi.fel_cont", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
Left = 28, ;
Name = "_checkbox1", ;
Top = 45
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cu Inregistrari", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.PAGE2.But_modifica2' AS but_modifica WITH ;
caction = do_modifica_tipuri, ;
Comment = "*:OnResize=RT", ;
Left = 186, ;
Name = "But_modifica2", ;
TabIndex = 8, ;
Top = 35, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE2.But_modifica3' AS but_modifica WITH ;
Anchor = 8, ;
caction = do_modifica_coresp_tc, ;
Comment = "*:OnResize=RT", ;
Left = 633, ;
Name = "But_modifica3", ;
TabIndex = 9, ;
Tag = "L", ;
Top = 35, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE2.But_nou2' AS but_nou WITH ;
caction = do_adauga_tipuri, ;
Comment = "*:OnResize=RT", ;
Left = 155, ;
Name = "But_nou2", ;
TabIndex = 6, ;
Top = 35
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE2.But_nou3' AS but_nou WITH ;
Anchor = 8, ;
caction = do_adauga_coresp_tc, ;
Comment = "*:OnResize=RT", ;
Left = 602, ;
Name = "But_nou3", ;
TabIndex = 7, ;
Tag = "L", ;
Top = 35
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE2.But_sterge2' AS but_sterge WITH ;
caction = do_sterge_tipuri, ;
Comment = "*:OnResize=RT", ;
Left = 215, ;
Name = "But_sterge2", ;
TabIndex = 11, ;
Top = 35, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE2.But_sterge3' AS but_sterge WITH ;
Anchor = 8, ;
caction = do_sterge_coresp_tc, ;
Comment = "*:OnResize=RT", ;
Left = 662, ;
Name = "But_sterge3", ;
TabIndex = 13, ;
Tag = "L", ;
Top = 35, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.PAGE2.Lb_simplu1' AS lb_simplu WITH ;
Caption = "Tipuri Entitati", ;
FontSize = 10, ;
Left = 8, ;
Name = "Lb_simplu1", ;
Top = 48
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT '_pageframe1.PAGE2.Lb_simplu2' AS lb_simplu WITH ;
Caption = "Conturi", ;
Comment = "*:OnResize=RT", ;
FontSize = 10, ;
Left = 249, ;
Name = "Lb_simplu2", ;
Top = 48
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT '_pageframe1.Page3._grdrow4' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 6, ;
DeleteMark = .F., ;
Height = 297, ;
HighlightStyle = 1, ;
Left = 7, ;
Name = "_grdrow4", ;
nrgbrow = 0, ;
Panel = 1, ;
RecordMark = .F., ;
RecordSource = "crsconturi", ;
TabIndex = 17, ;
Tag = "HW", ;
Top = 62, ;
Width = 682, ;
Column1.ControlSource = "cont", ;
Column1.Name = "Column2", ;
Column1.Width = 72, ;
Column2.ControlSource = "explicatie", ;
Column2.Name = "Column3", ;
Column2.Width = 328, ;
Column3.ControlSource = "fel_cont", ;
Column3.Name = "Column4", ;
Column3.Width = 89, ;
Column4.ControlSource = "cu_inregistrari", ;
Column4.Name = "Column5", ;
Column4.ReadOnly = .T., ;
Column4.Sparse = .F., ;
Column4.Width = 83, ;
Column5.ControlSource = "cu_venchelt", ;
Column5.Name = "Column1", ;
Column5.ReadOnly = .T., ;
Column5.Sparse = .F., ;
Column5.Width = 97, ;
Column6.ControlSource = "cu_proc_tva", ;
Column6.Name = "Column6", ;
Column6.ReadOnly = .T., ;
Column6.Sparse = .F., ;
Column6.Width = 70
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Height = 17, ;
Left = 36, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 24, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Venituri/cheltuieli", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.Page3._grdrow4.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 '_pageframe1.Page3._grdrow4.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.Page3._grdrow4.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 '_pageframe1.Page3._grdrow4.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel Cont", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ControlSource = "crstipuriconturi.fel_cont", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column5._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
Left = 28, ;
Name = "_checkbox1", ;
Top = 45
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cu Inregistrari", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Height = 17, ;
Left = 22, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 24, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Procent TVA", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_pageframe1.Page3.But_modifica3' AS but_modifica WITH ;
Anchor = 8, ;
caction = modifica_cont, ;
Comment = "*:OnResize=RT", ;
Left = 628, ;
Name = "But_modifica3", ;
TabIndex = 9, ;
Tag = "L", ;
Top = 15, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.Page3.But_nou3' AS but_nou WITH ;
Anchor = 8, ;
caction = adauga_cont, ;
Comment = "*:OnResize=RT", ;
Left = 598, ;
Name = "But_nou3", ;
TabIndex = 7, ;
Tag = "L", ;
Top = 15
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.Page3.But_sterge3' AS but_sterge WITH ;
Anchor = 8, ;
caction = sterge_cont, ;
Comment = "*:OnResize=RT", ;
Left = 657, ;
Name = "But_sterge3", ;
TabIndex = 13, ;
Tag = "L", ;
Top = 15, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.Page3.Ck_filtru_cont2' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = cont, ;
Caption = "Cont", ;
Left = 4, ;
Name = "Ck_filtru_cont2", ;
Top = 6
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT '_pageframe1.Page3.Cmd_cauta1' AS cmd_cauta WITH ;
caction = do_cauta2, ;
Comment = "*:OnResize=RT", ;
Left = 119, ;
Name = "Cmd_cauta1", ;
TabIndex = 4, ;
Tag = "L", ;
Top = 3
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT '_pageframe1.Page3.Cmd_reset1' AS cmd_reset WITH ;
caction = do_reset2, ;
Comment = "*:OnResize=RT", ;
Left = 119, ;
Name = "Cmd_reset1", ;
Tag = "L", ;
Top = 32
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE Activate
thisform.WindowState = 2
THIS.Refresh
ENDPROC
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=poparteneri.ca_baza1.cfiltru
ENDIF
save_grid_comment(This._pageframe1.pAGE1._grdrow1)
poparteneri.ca_baza1.cfiltru=lcfiltru
poparteneri.ca_baza1.afisare()
restore_grid_comment(This._pageframe1.pAGE1._grdrow1)
Select CRSPARTENERI
IF (RECCOUNT()=0)
aMESSAGEBOX("Nu exista rezultate.",0+48,"Atentie")
ENDIF
ENDPROC
PROCEDURE actualizeaza_grid2
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=poparteneri.ca_baza1.cfiltru
MESSAGE("filtru gol")
ENDIF
save_grid_comment(This._pageframe1.pAGE1._grdrow2)
pocoresp_tip_parteneri.ca_baza1.cfiltru=lcfiltru
pocoresp_tip_parteneri.ca_baza1.afisare()
restore_grid_comment(This._pageframe1.pAGE1._grdrow2)
Select crscoresp_tip_parteneri
Go Top
IF (RECCOUNT()=0)
* WAIT "Acest partener nu are setat tipul." WINDOW NOWAIT
ELSE
** thisform._grdrow1.SetFocus()
ENDIF
ENDPROC
PROCEDURE actualizeaza_grid3
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=potipuri_parteneri.ca_baza1.cfiltru
ENDIF
save_grid_comment(This._pageframe1.pAGE2._grdrow3)
potipuri_parteneri.ca_baza1.cfiltru=lcfiltru
potipuri_parteneri.ca_baza1.afisare()
restore_grid_comment(This._pageframe1.pAGE2._grdrow3)
*!* Select crstipuriparteneri
*!* Go Top
ENDPROC
PROCEDURE actualizeaza_grid4
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=potipuri_conturi.ca_baza1.cfiltru
ENDIF
save_grid_comment(THIS._pageframe1.pAGE2._grdrow4)
potipuri_conturi.ca_baza1.cfiltru=lcFiltru
potipuri_conturi.ca_baza1.afisare()
restore_grid_comment(THIS._pageframe1.pAGE2._grdrow4)
*!* SELECT crstipuriconturi
*!* GO TOP
*!* IF (RECCOUNT()=0)
*!* * WAIT "Acest tip nu are setate conturi." WINDOW NOWAIT
*!* ELSE
*!* ** thisform._grdrow1.SetFocus()
*!* ENDIF
ENDPROC
PROCEDURE actualizeaza_grid5
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=poconturi.ca_baza1.cfiltru
ENDIF
save_grid_comment(This._pageframe1.page3._grdrow4)
poconturi.ca_baza1.cfiltru=lcfiltru
poconturi.ca_baza1.afisare()
restore_grid_comment(This._pageframe1.page3._grdrow4)
*!* Select crsconturi
*!* Go Top
ENDPROC
PROCEDURE adauga_cont
SELECT crsconturi
SCATTER NAME loRecI BLANK
lorecI.Fel_cont = 0
loRecI.cu_inregistrari = 0
loRecI.cu_venchelt = 0
loRecI.cu_proc_tva = 0
config_ireg()
lnSucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRecI,,"INSERT",.f.,'oAddConfig')
IF lnSucces > 0
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid5()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
ENDIF
close_config_ireg()
ENDPROC
PROCEDURE do_adauga
SELECT crsparteneri
SCATTER NAME loRec BLANK
pccontinua=.F.
ADDPROPERTY(lorec,"id_tip_part",0)
ADDPROPERTY(lorec,"tip_partener",0)
lorec.adresa=""
=cclocalitati()
=cctipuri()
=cctipuri_selectate(loRec.id_tip_part)
DO Adauga_Modifica_Inregistrare WITH "parteneri",loRec,,"INSERT" IN oproceduri_ams.prg
=close_cclocalitati()
=close_cctipuri()
=close_cctipuri_selectate()
IF pccontinua=.T.
thisform.actualizeaza_grid1()
ENDIF
If Used('localitati')
Use In localitati
Endif
ENDPROC
PROCEDURE do_adauga_coresp_tc
SELECT crstipuriconturi
SCATTER NAME loRec BLANK
lorec.Fel_cont = 0
loRec.tip_partener = thisform.temporar_tip_partener
pncontinua = 0
*!* ADDPROPERTY(lorec,"id_tip_part",0)
lnSucces = cctipuri()
IF lnSucces < 0
RETURN
ENDIF
lnSucces = config_ireg()
IF lnSucces < 0
RETURN
ENDIF
pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,,"INSERT")
=close_cctipuri()
=close_config_ireg()
IF pncontinua = 1
thisform.actualizeaza_grid4()
ENDIF
ENDPROC
PROCEDURE do_adauga_tipuri
SELECT crstipuriparteneri
SCATTER NAME loRec BLANK
pccontinua=.F.
DO Adauga_Modifica_Inregistrare WITH "tipuri_parteneri",loRec,,"INSERT" IN oproceduri_ams.prg
IF pccontinua=.T.
thisform.actualizeaza_grid3()
ENDIF
ENDPROC
PROCEDURE do_cauta
Private lcfiltru,lcval1
lcfiltru=''
*!* If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value)
*!* lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value)),['],[''])
*!* lcfiltru=lcfiltru+[ and nume like ']+Iif(lcval1='%',[%'],lcval1+[%'])
*!* Endif
If ThisForm._pageframe1.pAGE1.Ck_filtru_nume.Value = 1
lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_nume.filtru
Endif
*!* **If !Empty(ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value)
*!* If (ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value <> "<Toate>")
*!* lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part))
*!* ENDIF
If ThisForm._pageframe1.pAGE1.Ck_tip_entitate.Value = 1
If !empty(ThisForm.temporar_id_tip_part)
lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part))
ENDIF
ENDIF
*!* If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value)
*!* lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value)),['],[''])
*!* lcfiltru=lcfiltru+[ and cont like ']+Iif(lcval1='%',[%'],lcval1+[%'])
*!* Endif
If ThisForm._pageframe1.pAGE1.Ck_filtru_cont.Value = 1
lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_cont.filtru
ENDIF
If ThisForm._pageframe1.pAGE1.Ck_cod_fiscal.Value = 1
lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_cod_fiscal.filtru
ENDIF
If ThisForm._pageframe1.pAGE1.Ck_reg_comert.Value = 1
lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_reg_comert.filtru
ENDIF
If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1
lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru
Endif
If !Empty(lcfiltru)
lcfiltru=Substr(lcfiltru,5)
Else
*!* MESSAGEBOX("Alegeti un criteriu!",0+48,"Atentie")
*!* ThisForm._pageframe1.pAGE1._grdrow1.setfocus()
*!* RETURN
lcfiltru = [1=1]
ENDIF
thisform.actualizeaza_grid1(lcFiltru)
ENDPROC
PROCEDURE do_cauta2
Private lcfiltru,lcval1
lcfiltru=''
If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1
lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru
Endif
If !Empty(lcfiltru)
lcfiltru=Substr(lcfiltru,5)
Else
lcfiltru = [1=1]
ENDIF
thisform.actualizeaza_grid5(lcFiltru)
ENDPROC
PROCEDURE do_executa
LOCAL loPart, loCauta, lnIdPartProst, lnIdPartBun, lnAn1, lnAn2, lnLuna1, lnLuna2, lnInit, lnFinal, lcMesaj
LOCAL lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcFiltruOriginal, lcNumeProc, llAllInlist
SELECT crsParteneri
SCATTER NAME loPart
IF loPart.id_part = 0
RETURN
ENDIF
lcParola = INPUTBOX('Parola','Parola','')
IF lcParola # TRANSFORM(YEAR(DATE())) + PADL(TRANSFORM(MONTH(DATE())),2,'0') + PADL(TRANSFORM(DAY(DATE())),2,'0')
RETURN
ENDIF
lcselect = [select p.nume, p.cod_fiscal, p.id_part,p.inactiv FROM ] + gcs + [.Vnom_parteneri p where]
lcfiltru = []
lcschema = []
lcorder = [P.NUME]
lccoloane = [nume,cod_fiscal,id_part,inactiv]
lcTitlu = [Alegeti parterul cu Id Partener corect]
lcTitluColoane = [Nume,Cod fiscal,Id Partener, Inactiv]
lcFiltruOriginal = [p.inactiv = 0 and id_part <> ] + TRANSFORM(loPart.id_part)
lcNumeProc = ""
llAllInlist = .F.
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llAllInlist, lcFiltruOriginal)
IF locauta.id_part = 0
RETURN
ENDIF
pcondper=""
ofrmperioada=CREATEOBJECT('frm_perioada_luni')
ofrmperioada.SHOW(1)
IF gnButon=2
RETURN
ENDIF
plPerioada=.F.
lnPoz=AT('_',pcondper)
IF lnPoz>0
plPerioada=.T.
ENDIF
IF plPerioada
lnAn1 = VAL(SUBSTR(pcondper,3,4))
lnLuna1 = VAL(SUBSTR(pcondper,1,2))
lnAn2 = VAL(SUBSTR(pcondper,10,4))
lnLuna2 = VAL(SUBSTR(pcondper,8,2))
lnInit = lnAn1 * 12 + lnLuna1
lnFinal = lnAn2 * 12 + lnLuna2
lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,8,2)+'/'+SUBSTR(pcondper,10,4)
ELSE
lnAn1 = VAL(SUBSTR(pcondper,3,4))
lnLuna1 = VAL(SUBSTR(pcondper,1,2))
lnAn2 = VAL(SUBSTR(pcondper,3,4))
lnLuna2 = VAL(SUBSTR(pcondper,1,2))
lnInit = lnAn1 * 12 + lnLuna1
lnFinal = lnAn2 * 12 + lnLuna2
lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4)
ENDIF
lnRaspuns = aMESSAGEBOX('Doriti sa inlocuiti in registrul jurnal, balanta verificare, balanta partener si inregistrari partener ' + CHR(13) + ;
lcPerioada + CHR(13) + ;
ALLTRIM(loPart.Nume) + '(' + TRANSFORM(loPart.id_part) +')' + CHR(13) + ;
'cu ' + ALLTRIM(locauta.Nume) + '(' + TRANSFORM(locauta.id_part) +')?',4+32,'Inlocuire ID Partener')
IF lnRaspuns # 6
RETURN
ENDIF
lnIdPartProst = loPart.id_part
lnIdPartBun = locauta.id_part
lcEroare = ''
lcEroare = modifica_id_partener(lnIdPartProst, lnIdPartBun, lnAn1, lnLuna1, lnAn2, lnLuna2)
IF !EMPTY(lcEroare)
lcMesaj = lcEroare
ELSE
lcMesaj = 'S-au terminat modificarile.'
ENDIF
aMESSAGEBOX(lcMesaj,0+48,"Atentie")
ENDPROC
PROCEDURE do_modifica
LOCAL lnRecno
If Reccount('crsparteneri')>0
Private pccod_fiscal
Select crsparteneri
Scatter Name loRec
lnRecno = RECNO()
SELECT crscoresp_tip_parteneri
GO TOP
lnid_tip_part = crscoresp_tip_parteneri.id_tip_part
lctip_part = crscoresp_tip_parteneri.tip_partener
**BROWSE
**!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ADDPROPERTY(lorec,"id_tip_part",lnid_tip_part)
ADDPROPERTY(lorec,"tip_partener",lctip_part)
pccod_fiscal=loRec.cod_fiscal
pccontinua=.F.
=cclocalitati()
=cctipuri()
* INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('<Toate>')
=cctipuri_selectate(loRec.id_part)
Do Adauga_Modifica_Inregistrare With "parteneri",loRec,loRec.ID_part,"UPDATE" IN oproceduri_ams.prg
=close_cclocalitati()
=close_cctipuri()
=close_cctipuri_selectate()
If pccontinua=.T.
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid1()
SELECT crsParteneri
LOCATE FOR id_part = lorec.id_part
IF !FOUND()
GO top
ENDIF
thisform._pageframe1.pAGE1._grdrow1.SetFocus()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Endif
Endif
ENDPROC
PROCEDURE do_modifica_coresp_tc
If Reccount('crstipuriconturi')>0
Select crstipuriconturi
Scatter Name loRec
loRec.tip_partener = thisform.temporar_tip_partener
pncontinua = 0
lnSucces = cctipuri()
IF lnSucces < 0
RETURN
ENDIF
lnSucces = config_ireg()
IF lnSucces < 0
RETURN
ENDIF
pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,loRec.ID_coresp_tip_cont,"UPDATE") && IN oproceduri_ams.prg
=close_cctipuri()
=close_config_ireg()
IF pncontinua = 1
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid4()
Select crstipuriconturi
LOCATE FOR ID_coresp_tip_cont = loRec.ID_coresp_tip_cont
IF !FOUND()
GO top
ENDIF
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Endif
ENDIF
ENDPROC
PROCEDURE do_modifica_tipuri
If Reccount('crstipuriparteneri')>0
Select crstipuriparteneri
Scatter Name loRec
pctip_partener = loRec.tip_partener
pccontinua=.F.
Do Adauga_Modifica_Inregistrare With "tipuri_parteneri",loRec,loRec.ID_tip_part,"UPDATE" IN oproceduri_ams.prg
If pccontinua=.T.
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid3()
Select crstipuriparteneri
LOCATE FOR id_tip_part = loRec.ID_tip_part
IF !FOUND()
GO top
ENDIF
this._pageframe1.page2._grdrow3.Refresh()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Endif
Endif
ENDPROC
PROCEDURE do_reset
this._pageframe1.page1.clb_tx_simplu1.text_simplu1.Value = ""
this._pageframe1.page1.clb_tx_simplu3.text_simplu1.Value = ""
this._pageframe1.page1.cb_tip_partener._cbbase1.Value = "<Toate>"
ENDPROC
PROCEDURE do_reset2
this._pageframe1.page3.ck_filtru_cont2.Value=0
this._pageframe1.page3.cmd_cauta1.Click
ENDPROC
PROCEDURE do_sterge
SELECT crsparteneri
SCATTER NAME loRec
SQLSETPROP(gnHandle,"Transactions",2) && tranzactie manuala
llSucces = .F.
lnSucces = -1
**llSucces = sterge_inregistrare("parteneri",loRec,loRec.id_part,"DELETE")
llSucces = sterge_inregistrare("parteneri",loRec.id_part)
IF llSucces
lcSql = [DELETE FROM ] + gcS + [.CORESP_TIP_PART WHERE ID_PART = ] + ALLTRIM(STR(loRec.id_part))
lnSucces = goExecutor.oExecute(lcSql)
ENDIF
IF lnSucces > 0
SQLCOMMIT(gnHandle)
ELSE
SQLROLLBACK(gnHandle)
ENDIF
SQLSETPROP(gnHandle,"Transactions",1) && tranzactie automata
IF lnSucces > 0
SELECT crsParteneri
*!* DELETE
*!* thisform._pageframe1.page1._grdrow1.SetFocus()
*!* thisform._pageframe1.page1._grdrow1.Refresh()
THISFORM.actualizeaza_grid1()
ENDIF
ENDPROC
PROCEDURE do_sterge_coresp_tc
Select crstipuriconturi
Scatter Name loRec
Do sterge_inregistrare With "coresp_tipuri_conturi",lorec.id_coresp_tip_cont IN oproceduri_ams.prg
Thisform.actualizeaza_grid4()
ENDPROC
PROCEDURE do_sterge_tipuri
Select crstipuriparteneri
Scatter Name loRec
Do sterge_inregistrare With "tipuri_parteneri",lorec.id_tip_part IN oproceduri_ams.prg
Thisform.actualizeaza_grid3()
Thisform.actualizeaza_grid4()
ENDPROC
PROCEDURE Init
DODEFAULT()
thisform.WindowState = 2
THIS.Refresh
SELECT crstipuriparteneri
GO TOP
this.temporar_tip_partener = crstipuriparteneri.tip_partener
THIS._pageframe1.PAGE1._grdrow1.SetFocus
**INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('<Toate>')
ENDPROC
PROCEDURE Load
ENDPROC
PROCEDURE modifica_cont
SELECT crsconturi
SCATTER NAME loRec
config_ireg()
lnsucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRec,loRec.ID_cont_ireg,"UPDATE",.f.)
IF lnSucces > 0
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid5()
Select crsconturi
LOCATE FOR ID_cont_ireg = loRec.ID_cont_ireg
IF !FOUND()
GO top
ENDIF
this._pageframe1.page3._grdrow4.Refresh
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
ENDIF
close_config_ireg()
ENDPROC
PROCEDURE Resize
THISFORM.Refresh()
*this.resizer1.onresize
ENDPROC
PROCEDURE sterge_cont
Select crsconturi
Scatter Name loRec
lnsucces = sterge_inregistrare("config_cont_ireg",lorec.id_cont_ireg)
Thisform.actualizeaza_grid5()
ENDPROC
PROCEDURE _pageframe1.PAGE1.ck_tip_entitate.Valid
IF this.Value = 1
pcselect = [select tip_partener,id_tip_part from ] + gcs + [.VNOM_TIP_PARTENERI]
pcfiltru = []
pcschema = []
pcorder = [tip_partener]
pccoloane = [tip_partener]
pcTitlu = [Tip partener]
pcTitluColoane = [Tip partener]
pcFiltruOriginal = [inactiv = 0]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.f.,pcFiltruOriginal)
thisform.temporar_id_tip_part = locauta.id_tip_part
ENDIF
ENDPROC
PROCEDURE _pageframe1.PAGE1.DblClick
THIS.CMD_executa1.Visible = .T.
ENDPROC
PROCEDURE _pageframe1.PAGE1._grdrow1.AfterRowColChange
LPARAMETERS nColIndex
DODEFAULT()
SELECT crsparteneri
lcFiltru2 = [ID_PART=]+ALLTRIM(STR(crsparteneri.id_part))
thisform.actualizeaza_grid2(lcFiltru2)
ENDPROC
PROCEDURE _pageframe1.PAGE1._grdrow1.Column1.Text1.Click
ENDPROC
PROCEDURE _pageframe1.PAGE1._grdrow1.Init
this.SetAll("DynamicBackColor","iif(inactiv = 1, RGB(200,200,200), RGB(255,255,255))","Column")
ENDPROC
PROCEDURE _pageframe1.PAGE1._grdrow1.Valid
**thisform._grdrow2.Left=thisform._grdrow2.Left+30
ENDPROC
PROCEDURE _pageframe1.PAGE1._grdrow1.When
**thisform._grdrow2.Left=thisform._grdrow2.Left-30
ENDPROC
PROCEDURE _pageframe1.PAGE2._grdrow3.AfterRowColChange
LPARAMETERS nColIndex
DODEFAULT()
SELECT crstipuriparteneri
lcFiltru4 = [ID_TIP_PART=]+ALLTRIM(STR(crstipuriparteneri.id_tip_part))
thisform.actualizeaza_grid4(lcFiltru4)
thisform.temporar_tip_partener=crstipuriparteneri.tip_partener
ENDPROC
PROCEDURE _shape1.DblClick
IF thisform.WindowState = 2
thisform.WindowState = 0
ELSE
thisform.WindowState = 2
ENDIF
THISFORM.Refresh
THISFORM._pageframe1.Page1._grdrow1.SetFocus()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_gruputil AS frm_termin 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="lb_nom_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" 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="But_excel1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 381
Name = "frm_gruputil"
Width = 401
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Height = 29
_SHAPE2.Left = 276
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 132
LB_TITLU_ALB_B121.Caption = "Grupuri utilizatori"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Left = 369
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 0
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 3, ;
DeleteMark = .F., ;
Height = 292, ;
Left = 8, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "crsGrup", ;
ScrollBars = 2, ;
Top = 78, ;
Width = 384, ;
Column1.ControlSource = "id_grup", ;
Column1.Name = "Column1", ;
Column1.Width = 58, ;
Column2.ColumnOrder = 3, ;
Column2.ControlSource = "nume_parinte", ;
Column2.Name = "Column2", ;
Column2.Width = 123, ;
Column3.ColumnOrder = 2, ;
Column3.ControlSource = "denumire_grup", ;
Column3.Name = "Column3", ;
Column3.Width = 168
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id Grup", ;
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 = "Grup parinte", ;
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 '_grdrow1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Grup utilizatori", ;
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"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Left = 248, ;
Name = "But_excel1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 309, ;
Name = "But_modifica1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 279, ;
Name = "But_nou1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 340, ;
Name = "But_sterge1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
Left = 309, ;
Name = "CMD_CAUTA1", ;
Top = 37
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'lb_nom_grup' AS clb_tx_simplu WITH ;
Left = 9, ;
Name = "lb_nom_grup", ;
Top = 37, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Grup", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=pogrup.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform._grdrow1)
pogrup.ca_baza1.cfiltru=lcFiltru
pogrup.ca_baza1.afisare()
restore_grid_tag(thisform._grdrow1)
IF RECCOUNT('crsGrup')>0
thisform._grdrow1.SetFocus()
ELSE
thisform.Lb_nom_grup.SetFocus()
ENDIF
ENDPROC
PROCEDURE do_adauga
SELECT crsGrup
SCATTER NAME loRec blank
DO Adauga_Modifica_Inregistrare WITH "gruputil",loRec,,"INSERT"
this.actualizeaza_grid1()
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru=[]
lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_grup.text_simplu1.value)),['],[''])
If !Empty(lcNume)
lcFiltru=[denumire_grup like ']+lcNume+[%']
ELSE
lcFiltru = [2=2]
Endif
This.MousePointer= 11
This.LockScreen=.T.
Thisform.actualizeaza_grid1(lcFiltru)
IF RECCOUNT()=0
aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
ENDIF
This.LockScreen=.F.
This.MousePointer= 0
ENDPROC
PROCEDURE do_excel
lcTabel = This._grdrow1.RecordSource
If Reccount(lcTabel)>0
Do export_excel_grid With This._grdrow1, "denumire_grup"
Else
amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie")
Endif
ENDPROC
PROCEDURE do_modifica
If Reccount('crsGrup')>0
Select crsGrup
Scatter Name loRec
Do Adauga_Modifica_Inregistrare With "gruputil",loRec,loRec.id_grup,"UPDATE"
Thisform.actualizeaza_grid1()
Else
amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
Endif
ENDPROC
PROCEDURE do_sterge
If Reccount('crsGrup')>0
Select crsGrup
Scatter Name lorec
Do STERGE_INREGISTRARE With "gruputil",lorec.id_grup
This.actualizeaza_grid1()
Else
amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_gruputil_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_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CUS_ODATA_GRUPUTIL1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="img_parinte" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_parinte" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_parinte
*m: do_alege_tata
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 135
Name = "frm_gruputil_nou"
nid =
orec =
Width = 375
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Name = "_SHAPE2"
LB_TITLU_ALB_B121.Caption = "Grup utilizator"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 5
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
GRIDSORT1.Name = "GRIDSORT1"
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 3
*</PropValue>
ADD OBJECT '_checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Inactiv", ;
ControlSource = "porec.inactiv", ;
Left = 32, ;
Name = "_checkbox1", ;
TabIndex = 6, ;
TabStop = .F., ;
Top = 113
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Clb_grup' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 25, ;
Name = "Clb_grup", ;
TabIndex = 1, ;
Top = 71, ;
Width = 313, ;
TEXT_SIMPLU1.ControlSource = "porec.denumire_grup", ;
TEXT_SIMPLU1.Format = "!K", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 101, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 206, ;
LB_SIMPLU1.Caption = "Grup", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_parinte' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 25, ;
Name = "clb_parinte", ;
TabIndex = 4, ;
TabStop = .F., ;
ToolTipText = "Pentru modificare, faceti dublu-click!", ;
Top = 43, ;
Width = 313, ;
Text_simplu1.ControlSource = "porec.nume_parinte", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 101, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Value = , ;
Text_simplu1.Width = 206, ;
Lb_simplu1.Caption = "Grup parinte", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\..\roaauto\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'CUS_ODATA_GRUPUTIL1' AS cus_odata_gruputil WITH ;
Left = 336, ;
Name = "CUS_ODATA_GRUPUTIL1", ;
Top = 48
*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />
ADD OBJECT 'img_parinte' AS _image WITH ;
Height = 24, ;
Left = 344, ;
Name = "img_parinte", ;
Picture = ..\comun\grafice\alege.bmp, ;
Stretch = 2, ;
ToolTipText = "Alegeti valuta", ;
Top = 45, ;
Width = 24
*< END OBJECT: ClassLib="..\..\roaauto\comun\clase\_baza.vcx" BaseClass="image" />
PROCEDURE do_alege_parinte
Local loCauta
loCauta = caut_gruputilizatori()
IF ISNULL(loCauta)
RETURN
ENDIF
IF !EMPTY(loCauta.id_grup)
poRec.id_tata = loCauta.id_grup
poRec.nume_parinte = loCauta.denumire_grup
ELSE
poRec.id_tata = NULL
poRec.nume_parinte = ""
ENDIF
this.clb_parinte.text_simplu1.Refresh()
ENDPROC
PROCEDURE do_alege_tata
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.denumire_grup)
aMESSAGEBOX('Nu ati completat denumirea grupului!',0+48,"Atentie")
THIS.clb_grup.text_simplu1.SETFOCUS()
PLRETURN=.F.
OTHERWISE
PLRETURN=THIS.cus_odata_gruputil1.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_gruputil1.cactiune = tcActiune
ENDPROC
PROCEDURE clb_parinte.Text_simplu1.DblClick
Thisform.do_alege_parinte()
ENDPROC
PROCEDURE img_parinte.Click
Thisform.do_alege_parinte()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_listutil 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="_optiongrup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_optiongrup2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtSucursala" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_cautareSucursala" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtGrupUtil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_cautareGrupUtil" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_cauta_grup
*m: do_cauta_sucursala
*p: nidgest
*p: nvalgrup
*p: nvalselectie
*p: ogruputil
*p: orezult
*p: osucursala
*p: pcnumegest
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 259
Name = "frm_listutil"
nidgest = .F.
nvalgrup = 1
nvalselectie = 1
ogruputil = .NULL.
orezult = .F.
osucursala = .NULL.
pcnumegest =
Width = 375
_memberdata = <VFPData>
<memberdata name="osucursala" display="oSucursala"/>
<memberdata name="ogruputil" display="oGrupUtil"/>
</VFPData>
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 312
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 63
Lb_titlu_alb_b121.Caption = "Listare utilizatori"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Left = 343
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
But_renunt1.Left = 360
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 6
But_renunt1.Top = 36
But_renunt1.Visible = .F.
*</PropValue>
ADD OBJECT '_label1' AS _label WITH ;
BackColor = 255,255,255, ;
Caption = "Grupare", ;
Left = 22, ;
Name = "_label1", ;
TabIndex = 8, ;
Top = 48
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT '_label2' AS _label WITH ;
BackColor = 255,255,255, ;
Caption = "Selectie", ;
Left = 23, ;
Name = "_label2", ;
TabIndex = 9, ;
Top = 114
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT '_label3' AS _label WITH ;
BackStyle = 0, ;
Caption = "Sucursala", ;
Left = 23, ;
Name = "_label3", ;
TabIndex = 11, ;
Top = 181
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT '_label4' AS _label WITH ;
BackStyle = 0, ;
Caption = "Grup utilizatori", ;
Left = 23, ;
Name = "_label4", ;
TabIndex = 13, ;
Top = 213
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
AutoSize = .F., ;
ControlSource = "thisform.nvalgrup", ;
Height = 46, ;
Left = 13, ;
Name = "_optiongrup1", ;
TabIndex = 1, ;
Top = 60, ;
Width = 305, ;
Option1.AutoSize = .T., ;
Option1.Caption = "Puncte de lucru (sucursale)", ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option2.AutoSize = .T., ;
Option2.Caption = "Grupuri de utilizatori", ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT '_optiongrup2' AS _optiongrup WITH ;
AutoSize = .F., ;
ControlSource = "thisform.nvalselectie", ;
Height = 124, ;
Left = 13, ;
Name = "_optiongrup2", ;
TabIndex = 2, ;
Top = 126, ;
Width = 324, ;
Option1.AutoSize = .T., ;
Option1.Caption = "Angajati (asociere utilizator - partener)", ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option2.AutoSize = .T., ;
Option2.Caption = "Colaboratori (asociere utilizator - contact)", ;
Option2.Left = 5, ;
Option2.Name = "Option2", ;
Option2.Top = 24
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT 'But_cautareGrupUtil' AS but_cautare WITH ;
caction = do_cauta_grup, ;
Left = 292, ;
Name = "But_cautareGrupUtil", ;
TabIndex = 4, ;
Top = 207
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_cautareSucursala' AS but_cautare WITH ;
caction = do_cauta_sucursala, ;
Left = 292, ;
Name = "But_cautareSucursala", ;
TabIndex = 3, ;
Top = 175
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 313, ;
Name = "But_listare1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'txtGrupUtil' AS _textbox WITH ;
FontItalic = .T., ;
Height = 23, ;
Left = 107, ;
Name = "txtGrupUtil", ;
ReadOnly = .T., ;
TabIndex = 12, ;
TabStop = .F., ;
Top = 210, ;
Width = 180
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtSucursala' AS _textbox WITH ;
FontItalic = .T., ;
Height = 23, ;
Left = 107, ;
Name = "txtSucursala", ;
ReadOnly = .T., ;
TabIndex = 10, ;
TabStop = .F., ;
Top = 178, ;
Width = 180
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
PROCEDURE do_cauta
LPARAMETERS tnTip
&& tnTip: 1 = sucursala; 2 = grup
IF tnTip = 1
This.oSucursala = caut_sucursala() && ocautare.prg
IF !ISNULL(This.oSucursala)
this.txtSucursala.Value = this.oSucursala.sucursala
ENDIF
ELSE
This.oGrupUtil = caut_gruputilizatori() && ocautare.prg
IF !ISNULL(This.oGrupUtil)
this.txtGrupUtil.Value = This.oGrupUtil.denumire_grup
ENDIF
ENDIF
ENDPROC
PROCEDURE do_cauta_grup
this.do_cauta(2)
ENDPROC
PROCEDURE do_cauta_sucursala
this.do_cauta(1)
ENDPROC
PROCEDURE do_listare
*!* DEBUG
*!* SUSPEND
Private pcPartener,pcPctlucru
Local lcCursor, lcMenu, lcOrdine, lcRaport, lcSelect, lcWhere, lnMenu, lnSucces
pcPartener = 'EOF()'
pcPctlucru = 'EOF()'
lcWhere = ""
lcMenu = [Listare]
IF this.lactiv7 && listare parole cod de bare
lcMenu = m.lcMenu + [;Listare etichete parole cod de bare]
ENDIF
lnMenu = xmenu(m.lcMenu)
IF !INLIST(lnMenu,1,2)
RETURN
ENDIF
lcRaport = [utilizatori.frx]
IF lnMenu = 2
lcRaport = [utilizatori_parole.lbx]
ENDIF
If Thisform.nvalgrup = 1
*!* lcWhere1 = [where id_partener is not null]
pcPctlucru = 'sucursala'
lcOrdine = [ order by sucursala]
*!* pcPartener = 'nume'
Else
pcPctlucru = 'denumire_grup'
lcOrdine = [ order by denumire_grup]
Endif
If Thisform.nvalselectie = 1
lcWhere = [where id_partener is not null]
lcOrdine = lcOrdine + [,partener]
Else
lcWhere = [where id_contact is not null]
lcOrdine = lcOrdine + [,contact]
If Thisform.nvalgrup = 1
pcPctlucru = 'partener'
Endif
ENDIF
IF !ISNULL(This.oSucursala) AND !EMPTY(NVL(This.oSucursala.id_sucursala,0))
lcWhere = lcWhere + [ and id_sucursala = ] + ALLTRIM(STR(This.oSucursala.id_sucursala))
ENDIF
IF !ISNULL(This.oGrupUtil) AND !EMPTY(NVL(This.oGrupUtil.id_grup,0))
lcWhere = lcWhere + [ and id_grup = ] + ALLTRIM(STR(This.oGrupUtil.id_grup))
ENDIF
lcSelect = [select * from vutilizatori_rol_intern ] + lcWhere + lcOrdine
lcCursor = [crsUtilizatori]
lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
If lnSucces < 0
aMessagebox(goExecutor.cEroare,0+64,"Eroare")
Exit
Endif
If Reccount('crsUtilizatori')>0
Thisform.AlwaysOnTop = .F.
Select crsUtilizatori
Report Form &lcRaport To Printer Prompt Preview
USE IN (SELECT('crsUtilizatori'))
Thisform.AlwaysOnTop = .F.
Else
aMessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
Endif
Return .F.
ENDPROC
ENDDEFINE
DEFINE CLASS frm_utilizatori AS frm_termin 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="lb_nom_calc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cPartener.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cPartener.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cContact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.cContact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 414
Name = "frm_utilizatori"
Width = 598
_SHAPE1.Height = 29
_SHAPE1.Left = -2
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 615
_SHAPE2.Height = 29
_SHAPE2.Left = 446
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 152
LB_TITLU_ALB_B121.Caption = "Utilizatorii companiei"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Left = 567
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 6, ;
DeleteMark = .F., ;
Height = 326, ;
Left = 16, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "crsUtil", ;
Top = 80, ;
Width = 572, ;
Column1.ColumnOrder = 4, ;
Column1.ControlSource = "partener", ;
Column1.Name = "cPartener", ;
Column1.Width = 113, ;
Column2.ColumnOrder = 2, ;
Column2.ControlSource = "denumire_grup", ;
Column2.Name = "cDenumire_grup", ;
Column2.Width = 94, ;
Column3.ColumnOrder = 6, ;
Column3.ControlSource = "inactiv", ;
Column3.CurrentControl = "Check1", ;
Column3.Name = "cInactiv", ;
Column3.Sparse = .F., ;
Column3.Width = 43, ;
Column4.ColumnOrder = 3, ;
Column4.ControlSource = "utilizator", ;
Column4.Name = "cUtilizator", ;
Column4.Width = 126, ;
Column5.ColumnOrder = 1, ;
Column5.ControlSource = "sucursala", ;
Column5.Name = "cSucursala", ;
Column5.Width = 112, ;
Column6.ColumnOrder = 5, ;
Column6.ControlSource = "contact", ;
Column6.Name = "cContact", ;
Column6.Width = 108
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.cContact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contact", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cContact.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.cDenumire_grup.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Grup", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cDenumire_grup.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.cInactiv.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Height = 17, ;
Left = 17, ;
Name = "Check1", ;
Top = 51, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT '_grdrow1.cInactiv.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Inactiv", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cPartener.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cPartener.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.cSucursala.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sucursala", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cSucursala.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.cUtilizator.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Utilizator", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.cUtilizator.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_excel1' AS but_excel WITH ;
Left = 448, ;
Name = "But_excel1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 506, ;
Name = "But_modifica1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 476, ;
Name = "But_nou1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 537, ;
Name = "But_sterge1", ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
Left = 318, ;
Name = "CMD_CAUTA1", ;
Top = 39
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ;
Left = 18, ;
Name = "lb_nom_calc", ;
Top = 39, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
LB_SIMPLU1.Caption = "Utilizator", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru=pcFiltru
IF EMPTY(lcFiltru)
lcFiltru=poutil.ca_baza1.cfiltru
ENDIF
save_grid_tag(thisform._grdrow1)
poutil.ca_baza1.cfiltru=lcFiltru
poutil.ca_baza1.afisare()
restore_grid_tag(thisform._grdrow1)
IF RECCOUNT('crsUtil')>0
thisform._grdrow1.SetFocus()
ELSE
thisform.Lb_nom_calc.SetFocus()
ENDIF
ENDPROC
PROCEDURE do_adauga
DO utilizatorintern_nou IN onomenclatoare.prg
IF gnButon = 1
THISFORM.actualizeaza_grid1()
ENDI
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru=[]
lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],[''])
If !Empty(lcNume)
lcFiltru=[utilizator like ']+lcNume+[%']
ELSE
lcFiltru = [2=2]
Endif
This.MousePointer= 11
This.LockScreen=.T.
Thisform.actualizeaza_grid1(lcFiltru)
IF RECCOUNT()=0
aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
ENDIF
This.LockScreen=.F.
This.MousePointer= 0
ENDPROC
PROCEDURE do_excel
lcTabel = This._grdrow1.RecordSource
If Reccount(lcTabel)>0
Do export_excel_grid With This._grdrow1, "sucursala,utilizator"
Else
amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie")
Endif
ENDPROC
PROCEDURE do_modifica
LOCAL loRec, lnIdUtil
If Reccount('crsUtil')>0
Select crsUtil
lnIdUtil = id_util
Scatter Name loRec
loRec = utilizatorintern_modifica(lnIdUtil)
IF !ISNULL(loRec)
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.actualizeaza_grid1()
SELECT crsUtil
LOCATE FOR id_util = lorec.id_util
IF !FOUND()
GO top
ENDIF
thisform._grdrow1.SetFocus()
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
Endif
Else
amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
Endif
ENDPROC
PROCEDURE do_sterge
If Reccount('crsUtil')>0
Select crsUtil
Scatter Name lorec
Do STERGE_INREGISTRARE With "utilizatori",lorec.id_util
This.actualizeaza_grid1()
Else
amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
Endif
ENDPROC
PROCEDURE Init
DODEFAULT()
Thisform._grdrow1.SetAll("DynamicBackColor","IIF(inactiv=1,RGB(128,128,128),RGB(255,255,255))","Column")
Thisform._grdrow1.cPartener.DynamicBackColor = [IIF(inactiv = 1 or part_inactiv = 1,RGB(128,128,128),RGB(255,255,255))]
Thisform._grdrow1.cUtilizator.DynamicBackColor = [IIF(inactiv = 1 or util_inactiv = 1,RGB(128,128,128),RGB(255,255,255))]
ENDPROC
ENDDEFINE
DEFINE CLASS frm_utilizatori_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="_checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_contact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cus_odata_utilizatori1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_sucursala" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_grup" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cb_utilizator" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_partener" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_alege_grup
*m: do_alege_sucursala
*m: do_alege_utilizator
*m: do_aleg_persoana
*m: schimb_tip_utilizator
*p: nid
*p: orec
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 221
Name = "frm_utilizatori_nou"
nid = .F.
orec = .F.
Width = 351
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Height = 29
_SHAPE2.Left = 287
_SHAPE2.Name = "_SHAPE2"
_SHAPE2.Top = 0
_SHAPE2.Width = 65
LB_TITLU_ALB_B121.Caption = "Utilizator"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 9
BUT_TERMIN1.Left = 320
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 6
BUT_TERMIN1.Top = 1
GRIDSORT1.Name = "GRIDSORT1"
BUT_RENUNT1.Left = 291
BUT_RENUNT1.Name = "BUT_RENUNT1"
BUT_RENUNT1.TabIndex = 7
BUT_RENUNT1.Top = 1
*</PropValue>
ADD OBJECT '_checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Inactiv", ;
ControlSource = "porec.inactiv", ;
Left = 19, ;
Name = "_checkbox1", ;
TabIndex = 8, ;
TabStop = .F., ;
Top = 198
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cb_grup' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Cb_grup", ;
TabIndex = 4, ;
Top = 129, ;
Width = 326, ;
_cbbase1.ControlSource = "porec.denumire_grup", ;
_cbbase1.Left = 138, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "vgrupuri_utilizatori.denumire_grup", ;
_cbbase1.RowSourceType = 2, ;
_cbbase1.Top = 3, ;
_lbbase1.Caption = "Grup", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Cb_sucursala", ;
TabIndex = 5, ;
Top = 157, ;
Width = 326, ;
_cbbase1.ControlSource = "porec.sucursala", ;
_cbbase1.Height = 23, ;
_cbbase1.Left = 138, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "vnom_sucursale.sucursala", ;
_cbbase1.RowSourceType = 2, ;
_cbbase1.Top = 3, ;
_cbbase1.Width = 184, ;
_lbbase1.Caption = "Sucursala", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cb_utilizator' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Cb_utilizator", ;
TabIndex = 1, ;
Top = 45, ;
Width = 326, ;
_cbbase1.ControlSource = "porec.utilizator", ;
_cbbase1.Left = 137, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "vutilizatori.utilizator", ;
_cbbase1.RowSourceType = 2, ;
_cbbase1.Top = 3, ;
_lbbase1.Caption = "Utilizator", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_contact' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_contact", ;
TabIndex = 3, ;
ToolTipText = "Pentru modificare, faceti dublu-click!", ;
Top = 101, ;
Width = 326, ;
TEXT_SIMPLU1.ControlSource = "porec.contact", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 138, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.ReadOnly = .T., ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 183, ;
LB_SIMPLU1.Caption = "Persoana contact", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_partener' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_partener", ;
TabIndex = 2, ;
ToolTipText = "Pentru modificare, faceti dublu-click!", ;
Top = 73, ;
Width = 326, ;
Text_simplu1.ControlSource = "porec.partener", ;
Text_simplu1.Height = 23, ;
Text_simplu1.Left = 138, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 183, ;
Lb_simplu1.Caption = "Partener", ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cus_odata_utilizatori1' AS cus_odata_utilizatori WITH ;
Height = 18, ;
Left = 312, ;
Name = "Cus_odata_utilizatori1", ;
Top = 24, ;
Width = 56
*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />
PROCEDURE do_alege_grup
ENDPROC
PROCEDURE do_alege_sucursala
ENDPROC
PROCEDURE do_alege_utilizator
ENDPROC
PROCEDURE do_aleg_persoana
LPARAMETERS nTipPersoana
&& 1 pentru partener, 2 pentru persoana contact
IF nTipPersoana = 1
LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
lcselect = [select * FROM ] + gcs + [.vnom_parteneri]
lcfiltru = [1=2]
lcschema = []
lcorder = [denumire]
lccoloane = [denumire]
lcTitlu = [Alegeti partenerul]
lcTitluColoane = [Denumire]
lcFiltruOriginal = [inactiv=0]
lcNumeProc = ""
lnPornire = 1
llDesktop = .F.
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop)
IF buton=2
RETURN
ENDIF
porec.id_partener = locauta.id_part
porec.partener = locauta.denumire
THISFORM.clb_partener.teXT_SIMPLU1.REFRESH
ENDIF
IF nTipPersoana = 2
LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
lcselect = [select * FROM ] + gcs + [.vpers_contact]
lcfiltru = [1=2]
lcschema = []
lcorder = [denumire]
lccoloane = [denumire]
lcTitlu = [Alegeti persoana de contact]
lcTitluColoane = [Nume, Prenume]
lcFiltruOriginal = [inactiv=0]
lcNumeProc = ""
lnPornire = 6
llDesktop = .F.
locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop)
IF buton=2
RETURN
ENDIF
porec.id_contact = locauta.id_pers
porec.contact = ALLTRIM(locauta.denumire)
THISFORM.clb_contact.teXT_SIMPLU1.REFRESH
ENDIF
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.partener)
AMESSAGEBOX('Completati partenerul!',0+48,'Atentie')
THIS.clb_partener.text_simplu1.SETFOCUS()
PLRETURN = .F.
OTHERWISE
PLRETURN=THIS.cus_odata_utilizatori1.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_utilizatori1.cactiune = tcActiune
*!* modificare v 2.0.11
If Reccount('vnom_sucursale') = 1
Select vnom_sucursale
If e_mama = 0
poRec.id_sucursala = Null
poRec.sucursala = []
Thisform.RemoveObject('cb_sucursala')
Endif
Else
If !Isnull(gnIdSucursala)
Select vnom_sucursale
Locate For id_sucursala = gnIdSucursala
If Found()
poRec.id_sucursala = id_sucursala
poRec.sucursala = Alltrim(sucursala)
Thisform.RemoveObject('cb_sucursala')
Else
Go Top
Endif
Endif
Endif
*!* modificare v 2.0.11 ^
ENDPROC
PROCEDURE schimb_tip_utilizator
LPARAMETERS tnTip
THISFORM.do_aleg_persoana(tnTip) && 1 pentru partener, 2 pentru persoana contact
ENDPROC
PROCEDURE Cb_grup._cbbase1.Valid
porec.id_grup = vgrupuri_utilizatori.id_grup
ENDPROC
PROCEDURE Cb_sucursala._cbbase1.Valid
porec.id_sucursala = vnom_sucursale.id_sucursala
ENDPROC
PROCEDURE Cb_utilizator._cbbase1.Valid
porec.id_util = vutilizatori.id_util
ENDPROC
PROCEDURE Clb_contact.TEXT_SIMPLU1.DblClick
thisform.schimb_tip_utilizator(2)
ENDPROC
PROCEDURE Clb_contact.TEXT_SIMPLU1.GotFocus
IF EMPTY(poRec.contact)
thisform.schimb_tip_utilizator(2)
ENDIF
ENDPROC
PROCEDURE Clb_partener.Text_simplu1.DblClick
thisform.schimb_tip_utilizator(1)
ENDPROC
PROCEDURE Clb_partener.Text_simplu1.GotFocus
IF EMPTY(poRec.partener)
thisform.schimb_tip_utilizator(1)
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx"
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw8" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw11" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw12" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw13" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.Cw9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page4.Cw10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page4.Cw5" UniqueID="" Timestamp="" />
*<PropValue>
ActivePage = 1
ErasePage = .T.
Height = 422
Name = "pg_meniu_princ"
PageCount = 4
Width = 456
Page1.Caption = "Organizarea companiei"
Page1.Name = "Page1"
Page1.PageOrder = 1
Page2.Caption = "Liste nomenclatoare"
Page2.Name = "Page2"
Page2.PageOrder = 3
Page3.BackColor = 255,255,255
Page3.Caption = "Entit<69><74>i"
Page3.FontCharSet = 238
Page3.FontSize = 10
Page3.Name = "Page3"
Page3.PageOrder = 2
Page4.BackColor = 255,255,255
Page4.Caption = "Utilit<69><74>i"
Page4.FontCharSet = 238
Page4.FontSize = 10
Page4.Name = "Page4"
Page4.PageOrder = 4
*</PropValue>
ADD OBJECT 'Page1.Cw1' AS cw WITH ;
Left = 5, ;
Name = "Cw1", ;
nid_cw = 1, ;
TabIndex = 1, ;
Top = 20, ;
Label_item1.Caption = "Datele firmei", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw11' AS cw WITH ;
Left = 5, ;
Name = "Cw11", ;
nid_cw = 5, ;
ntip = 2, ;
TabIndex = 5, ;
Top = 116, ;
Label_item1.Caption = "Calculatoare", ;
Label_item1.Enabled = .T., ;
Label_item1.FontName = "Arial", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw12' AS cw WITH ;
Left = 5, ;
Name = "Cw12", ;
nid_cw = 6, ;
ntip = 2, ;
TabIndex = 6, ;
Top = 140, ;
Label_item1.Caption = "Utilizatori", ;
Label_item1.Enabled = .T., ;
Label_item1.FontName = "Arial", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw13' AS cw WITH ;
Left = 5, ;
Name = "Cw13", ;
nid_cw = 7, ;
ntip = 0, ;
TabIndex = 7, ;
Top = 164, ;
Label_item1.Caption = "Rapoarte", ;
Label_item1.Enabled = .T., ;
Label_item1.FontName = "Arial", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw5' AS cw WITH ;
Left = 5, ;
Name = "Cw5", ;
nid_cw = 2, ;
ntip = 0, ;
TabIndex = 2, ;
Top = 44, ;
Label_item1.Caption = "Sucursale/puncte de lucru", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw6' AS cw WITH ;
Left = 5, ;
Name = "Cw6", ;
nid_cw = 3, ;
ntip = 2, ;
TabIndex = 3, ;
Top = 68, ;
Label_item1.Caption = "Departamente/ Sec<65>ii", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw8' AS cw WITH ;
Left = 5, ;
Name = "Cw8", ;
nid_cw = 4, ;
ntip = 2, ;
TabIndex = 4, ;
Top = 92, ;
Label_item1.Caption = "Gestiuni", ;
Label_item1.Enabled = .T., ;
Label_item1.FontName = "Arial", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page2.Cw1' AS cw WITH ;
Left = 6, ;
Name = "Cw1", ;
nid_cw = 8, ;
ntip = 2, ;
TabIndex = 7, ;
Top = 187, ;
Label_item1.Caption = "Categorii de entit<69><74>i", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw2' AS cw WITH ;
Left = 6, ;
Name = "Cw2", ;
nid_cw = 3, ;
ntip = 2, ;
TabIndex = 3, ;
Top = 67, ;
Label_item1.Caption = "Tipuri de documente", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw3' AS cw WITH ;
Left = 6, ;
Name = "Cw3", ;
nid_cw = 5, ;
ntip = 2, ;
TabIndex = 4, ;
Top = 115, ;
Label_item1.Caption = "Jude<64>e", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw4' AS cw WITH ;
Left = 6, ;
Name = "Cw4", ;
nid_cw = 2, ;
ntip = 2, ;
TabIndex = 2, ;
Top = 43, ;
Label_item1.Caption = "Lucr<63>ri", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw5' AS cw WITH ;
Left = 6, ;
Name = "Cw5", ;
nid_cw = 6, ;
ntip = 2, ;
TabIndex = 5, ;
Top = 139, ;
Label_item1.Caption = "Localit<69><74>i", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw6' AS cw WITH ;
Left = 6, ;
Name = "Cw6", ;
nid_cw = 7, ;
ntip = 2, ;
TabIndex = 6, ;
Top = 163, ;
Label_item1.Caption = "Valute", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw7' AS cw WITH ;
Left = 6, ;
Name = "Cw7", ;
nid_cw = 4, ;
ntip = 2, ;
TabIndex = 3, ;
Top = 91, ;
Label_item1.Caption = "Medii de transmisie", ;
Label_item1.Enabled = .T., ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw9' AS cw WITH ;
Left = 6, ;
Name = "Cw9", ;
nid_cw = 1, ;
ntip = 2, ;
TabIndex = 1, ;
Top = 19, ;
Width = 180, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "Tipuri de venituri <20>i cheltuieli", ;
Label_item1.Height = 18, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 1, ;
Label_item1.Width = 162, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page3.Cw1' AS cw WITH ;
Left = 7, ;
linactiv = .T., ;
Name = "Cw1", ;
nid_cw = 4, ;
ntip = 2, ;
TabIndex = 2, ;
Top = 104, ;
Visible = .F., ;
Label_item1.Caption = "Angaja<6A>i", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page3.Cw2' AS cw WITH ;
Left = 7, ;
Name = "Cw2", ;
nid_cw = 2, ;
ntip = 2, ;
TabIndex = 3, ;
Top = 42, ;
Label_item1.Caption = "Responsabili", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page3.Cw4' AS cw WITH ;
Height = 38, ;
Left = 7, ;
Name = "Cw4", ;
nid_cw = 3, ;
ntip = 2, ;
TabIndex = 4, ;
Top = 64, ;
Label_item1.Caption = "Asociere entit<69><74>i-sec<65>ii/gestiuni", ;
Label_item1.Height = 34, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 3, ;
Label_item1.Width = 125, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page3.Cw9' AS cw WITH ;
Left = 7, ;
Name = "Cw9", ;
nid_cw = 1, ;
ntip = 2, ;
TabIndex = 1, ;
Top = 20, ;
Label_item1.Caption = "Entit<69><74>i", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page4.Cw1' AS cw WITH ;
Left = 5, ;
Name = "Cw1", ;
nid_cw = 6, ;
Top = 148, ;
LABEL_ITEM1.Caption = "Configurare seturi", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page4.Cw10' AS cw WITH ;
Left = 6, ;
Name = "Cw10", ;
nid_cw = 4, ;
TabIndex = 4, ;
Top = 100, ;
Label_item1.Caption = "Op<4F>iuni", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page4.Cw2' AS cw WITH ;
Left = 6, ;
Name = "Cw2", ;
nid_cw = 1, ;
ntip = 2, ;
TabIndex = 2, ;
Top = 14, ;
Label_item1.Caption = "Deschidere de lun<75>", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page4.Cw3' AS cw WITH ;
Enabled = .F., ;
Left = 6, ;
Name = "Cw3", ;
nid_cw = 3, ;
TabIndex = 3, ;
Top = 76, ;
Label_item1.Caption = "Blocare de lun<75>", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page4.Cw4' AS cw WITH ;
Height = 34, ;
Left = 6, ;
Name = "Cw4", ;
nid_cw = 2, ;
TabIndex = 2, ;
Top = 38, ;
Label_item1.AutoSize = .F., ;
Label_item1.Caption = "Vizualizare istoric (re)deschideri luna", ;
Label_item1.Height = 50, ;
Label_item1.Left = 5, ;
Label_item1.Name = "Label_item1", ;
Label_item1.Top = 0, ;
Label_item1.Width = 172, ;
Label_item1.WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page4.Cw5' AS cw WITH ;
Left = 5, ;
Name = "Cw5", ;
nid_cw = 5, ;
ntip = 2, ;
Top = 124, ;
LABEL_ITEM1.Caption = "Categorii seturi", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\comun\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
PROCEDURE Page1.Cw1.do_actiune
DO viz_firme
ENDPROC
PROCEDURE Page1.Cw11.do_actiune
DO calculatoare.mpr
ENDPROC
PROCEDURE Page1.Cw12.do_actiune
DO utilizatori.mpr
ENDPROC
PROCEDURE Page1.Cw13.do_actiune
DO rapoarte.mpr
ENDPROC
PROCEDURE Page1.Cw5.do_actiune
DO viz_sucursale IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page1.Cw6.do_actiune
DO viz_sectii IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page1.Cw8.do_actiune
DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page2.Cw1.do_actiune
Do viz_categorii_entitati In oproceduri_roadef.prg
ENDPROC
PROCEDURE Page2.Cw2.do_actiune
DO VIZ_FDOC IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page2.Cw3.do_actiune
DO VIZ_JUDETE IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page2.Cw4.do_actiune
DO viz_lucrari IN onomenclatoare.prg
ENDPROC
PROCEDURE Page2.Cw5.do_actiune
DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page2.Cw6.do_actiune
DO viz_valute IN onomenclatoare.prg
ENDPROC
PROCEDURE Page2.Cw7.do_actiune
DO viz_medii_transmisie IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page2.Cw9.do_actiune
DO viz_venchel IN onomenclatoare.prg
ENDPROC
PROCEDURE Page3.Cw1.do_actiune
DO viz_pers IN osalarii_comun.prg
ENDPROC
PROCEDURE Page3.Cw2.Click
DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG
ENDPROC
PROCEDURE Page3.Cw4.do_actiune
Local loCauta, lcSelect, lcTitlu, lcFiltru, lcFiltruOriginal, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
store Null To loCauta
lcSelect = [select denumire, id_tip, tip from tipuri_asocieri]
lcFiltru = [2=2]
lcSchema = []
lcOrder = [id_tip]
lccoloane = [denumire, id_tip]
lcFiltruOriginal = []
lcTitlu = "Alegeti tipul de asociere"
lcNumeProc = []
llToateIreg = .F.
lcTitluColoane = [Tip asociere,Id]
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal)
Do CASE
Case Upper(Alltrim(loCauta.tip)) = 'SECTIE'
DO asociere_parteneri_sectii WITH loCauta.id_tip IN oproceduri_roadef.prg
Case Upper(Alltrim(loCauta.tip)) = 'GESTIUNE'
DO asociere_parteneri_gestiuni WITH loCauta.id_tip IN oproceduri_roadef.prg
EndCase
ENDPROC
PROCEDURE Page3.Cw9.do_actiune
DO entitati.mpr
ENDPROC
PROCEDURE Page4.Cw1.do_actiune
Local lcSql, lnSucces
If !glLunaInchisa
lcSql = [select a.*, 1 as cu_tva from Vact a where 1 = 2]
lcCursor = [actactan]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
If lnSucces >0
Select actactan
Scatter Name oAct
Do update_coresp_tip_part
Do update_coresp_tip_cont
Do update_jtva_coloane With [],[],1
ooo = Createobject('frm_configurare')
ooo.Show(1)
If Used('coresp_tip_part')
Use In coresp_tip_part
Endif
If Used('coresp_tip_cont')
Use In coresp_tip_cont
Endif
If Used('actactan')
Use In actactan
Endif
If Used('jtva_coloane')
Use In jtva_coloane
Endif
Endif
Else
amessagebox("Aceasta luna este blocata si nu puteti face introduceri!",0+48,"Atentie")
Endif
ENDPROC
PROCEDURE Page4.Cw10.do_actiune
DO optiuni.mpr
ENDPROC
PROCEDURE Page4.Cw2.do_actiune
DO deschidluna WITH .T. IN oredeschid.prg
ENDPROC
PROCEDURE Page4.Cw3.do_actiune
DO VIZ_LUNI_BLOCATE IN oproceduri_roadef.prg
ENDPROC
PROCEDURE Page4.Cw4.do_actiune
DO viz_log_redeschid IN oproceduri_roadef.prg
ENDPROC
PROCEDURE Page4.Cw5.do_actiune
LOCAL lcForm
lcform = CREATEOBJECT("frm_categorii")
lcform.show(1)
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink