641 lines
19 KiB
Plaintext
641 lines
19 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="onomenclatoare2.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS cus_odata_masini AS _cusodatabase OF "_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
Name = "cus_odata_masini"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
Lparameters toRec,tnId
|
||
|
||
lcActiune = Alltrim(This.cActiune)
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE')
|
||
lcId = Alltrim(Str(tnId))
|
||
*!* lcnom = gcS + ".dev_masiniclienti"
|
||
*!* lcamp = "id_masiniclient"
|
||
*!* lclook = gcS + ".dev_vordl"
|
||
*!* lclookid = "id_masiniclient"
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||
lcId_partener = Nvl(Alltrim(Str(toRec.id_part)),"")
|
||
lcId_model_masina = Iif(Empty(Nvl(toRec.id_model_masina,0)) and Empty(Nvl(toRec.model_masina,[])),[NULL],;
|
||
Nvl(Alltrim(Str(toRec.id_model_masina)),""))
|
||
lcnrinmat = Nvl(Strtran(Alltrim(Upper(toRec.nrinmat)),['],['']),"")
|
||
lcculoare = Nvl(Strtran(Alltrim(Upper(toRec.culoare)),['],['']),"")
|
||
lcseries = Nvl(Strtran(Alltrim(Upper(toRec.series)),['],['']),"")
|
||
lcseriem = Nvl(Strtran(Alltrim(Upper(toRec.seriem)),['],['']),"")
|
||
lckmint = Nvl(Alltrim(Str(toRec.kmint)),"")
|
||
lcdataachi = Nvl(Alltrim(Dtos(toRec.dataachi)),"")
|
||
lcserief = Nvl(Strtran(Alltrim(Upper(toRec.serief)),['],['']),"")
|
||
lcId_furnizor = Nvl(Alltrim(Str(toRec.id_furnizor)),"")
|
||
lcinactiv = Nvl(Alltrim(Str(toRec.inactiv)),"")
|
||
Endif
|
||
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
lcSql = [begin pack_comenzi.adauga_masina(] + ;
|
||
lcId_model_masina + [,'] + lcnrinmat +[',']+lcculoare + [',]+ALLTRIM(STR(gnIdUtil))+[); end;]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
lcSql = [begin pack_comenzi.modifica_masina(]+lcId+[,] + lcId_model_masina +;
|
||
[,']+ lcnrinmat + [','] + lcculoare + [',]+ALLTRIM(STR(gnIdUtil))+[); end;]
|
||
|
||
Case lcActiune = "DELETE"
|
||
lcSql = [begin pack_comenzi.sterge_masina(]+lcId+[,]+ALLTRIM(STR(gnIdUtil))+[); end;]
|
||
*!* lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcId + [,'] + lclook + [','] + lclookid + ['); end;]
|
||
Endcase
|
||
This.csql = lcSql
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_masini AS _frmbase OF "_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cMarca.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cMarca.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cModel.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cModel.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cNrinmat.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cNrinmat.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cCuloare.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cCuloare.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cInactiv.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="gmasini.cInactiv.Check1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_marca" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_model" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
|
||
|
||
*<PropValue>
|
||
cgridsortlist = gmasini
|
||
DoCreate = .T.
|
||
Height = 590
|
||
Name = "frm_masini"
|
||
Width = 472
|
||
_shape1.Anchor = 10
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 470
|
||
_shape1.ZOrderSet = 2
|
||
_shape2.Anchor = 8
|
||
_shape2.Height = 29
|
||
_shape2.Left = 342
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = -1
|
||
_shape2.Width = 129
|
||
_shape2.ZOrderSet = 3
|
||
Lb_titlu_alb_b121.Caption = "Ma<4D>ini"
|
||
Lb_titlu_alb_b121.FontBold = .T.
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 18
|
||
Lb_titlu_alb_b121.ZOrderSet = 4
|
||
BUT_TERMIN1.Anchor = 8
|
||
BUT_TERMIN1.Left = 439
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 16
|
||
BUT_TERMIN1.Top = 0
|
||
BUT_TERMIN1.ZOrderSet = 8
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||
Anchor = 8, ;
|
||
Left = 378, ;
|
||
Name = "But_modifica1", ;
|
||
Top = 0
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 8, ;
|
||
Left = 347, ;
|
||
Name = "But_nou1", ;
|
||
Top = 0
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 8, ;
|
||
Left = 409, ;
|
||
Name = "But_sterge1", ;
|
||
Top = 0
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Ck_marca' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
camp_nume = marca_masina, ;
|
||
Caption = "Marca ma<6D>inii", ;
|
||
Left = 24, ;
|
||
Name = "Ck_marca", ;
|
||
TabIndex = 8, ;
|
||
Top = 36, ;
|
||
Width = 77, ;
|
||
ZOrderSet = 9
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_model' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
camp_nume = model_masina, ;
|
||
Caption = "Model", ;
|
||
Left = 24, ;
|
||
Name = "Ck_model", ;
|
||
TabIndex = 9, ;
|
||
Top = 51, ;
|
||
Width = 44, ;
|
||
ZOrderSet = 10
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ;
|
||
Alignment = 0, ;
|
||
camp_nume = nrinmat, ;
|
||
Caption = "Nr. <20>nmatriculare", ;
|
||
Left = 24, ;
|
||
Name = "Ck_nrinmat", ;
|
||
TabIndex = 10, ;
|
||
Top = 65, ;
|
||
Width = 87, ;
|
||
ZOrderSet = 11
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||
Anchor = 8, ;
|
||
Left = 252, ;
|
||
Name = "Cmd_cauta1", ;
|
||
TabIndex = 2, ;
|
||
Top = 45, ;
|
||
ZOrderSet = 14
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
|
||
Anchor = 8, ;
|
||
Left = 364, ;
|
||
Name = "Cmd_reset1", ;
|
||
TabIndex = 17, ;
|
||
Top = 45, ;
|
||
ZOrderSet = 15
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'gmasini' AS _grdrow WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 5, ;
|
||
DeleteMark = .F., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 480, ;
|
||
Left = 15, ;
|
||
Name = "gmasini", ;
|
||
Panel = 1, ;
|
||
ReadOnly = .T., ;
|
||
RecordSource = "crsmasini", ;
|
||
TabIndex = 4, ;
|
||
Top = 96, ;
|
||
Width = 441, ;
|
||
ZOrderSet = 7, ;
|
||
Column1.ControlSource = "marca_masina", ;
|
||
Column1.FontName = "Arial Narrow", ;
|
||
Column1.Name = "cMarca", ;
|
||
Column1.ReadOnly = .T., ;
|
||
Column1.Width = 119, ;
|
||
Column2.ControlSource = "model_masina", ;
|
||
Column2.FontName = "Arial Narrow", ;
|
||
Column2.Name = "cModel", ;
|
||
Column2.ReadOnly = .T., ;
|
||
Column2.Width = 93, ;
|
||
Column3.ControlSource = "nrinmat", ;
|
||
Column3.FontName = "Arial Narrow", ;
|
||
Column3.Name = "cNrinmat", ;
|
||
Column3.ReadOnly = .T., ;
|
||
Column3.Width = 76, ;
|
||
Column4.ControlSource = "culoare", ;
|
||
Column4.FontName = "Arial Narrow", ;
|
||
Column4.Name = "cCuloare", ;
|
||
Column4.ReadOnly = .T., ;
|
||
Column4.Width = 73, ;
|
||
Column5.ControlSource = "inactiv", ;
|
||
Column5.FontName = "Arial Narrow", ;
|
||
Column5.Name = "cInactiv", ;
|
||
Column5.ReadOnly = .T., ;
|
||
Column5.Sparse = .F., ;
|
||
Column5.Visible = .T., ;
|
||
Column5.Width = 36
|
||
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'gmasini.cCuloare.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Culoare", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'gmasini.cCuloare.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'gmasini.cInactiv.Check1' AS checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
FontName = "Arial Narrow", ;
|
||
Height = 17, ;
|
||
Left = 30, ;
|
||
Name = "Check1", ;
|
||
ReadOnly = .T., ;
|
||
Top = 40, ;
|
||
Visible = .T., ;
|
||
Width = 60
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'gmasini.cInactiv.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Inactiv", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'gmasini.cMarca.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Marca masinii", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'gmasini.cMarca.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'gmasini.cModel.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Model", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'gmasini.cModel.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'gmasini.cNrinmat.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nr. inmatriculare", ;
|
||
FontName = "Arial Narrow", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'gmasini.cNrinmat.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
FontName = "Arial Narrow", ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
Lparameters tcFiltru
|
||
Local lcFiltru
|
||
lcFiltru = tcFiltru
|
||
If Empty(lcFiltru)
|
||
lcFiltru = pomasini.ca_baza1.cfiltru
|
||
Endif
|
||
save_grid_comment(This.gmasini)
|
||
pomasini.ca_baza1.cfiltru = lcFiltru
|
||
pomasini.ca_baza1.afisare()
|
||
restore_grid_comment(This.gmasini)
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
Private pniesire
|
||
pniesire=0
|
||
|
||
Select crsmasini
|
||
Scatter Name loRec Blank
|
||
loRec.dataachi={}
|
||
Do Adauga_Modifica_Inregistrare With "masini",loRec,,"INSERT",,"addmasclie"
|
||
If pniesire=1
|
||
This.actualizeaza_grid1()
|
||
Endif
|
||
Thisform.gmasini.SetFocus()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
Local lcFiltru
|
||
Store [] To lcFiltru
|
||
|
||
If Thisform.ck_marca.Value = 1
|
||
lcFiltru = lcFiltru + Thisform.ck_marca.filtru
|
||
Endif
|
||
|
||
If Thisform.ck_model.Value = 1
|
||
lcFiltru = lcFiltru + Thisform.ck_model.filtru
|
||
Endif
|
||
|
||
If Thisform.ck_nrinmat.Value = 1
|
||
lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru
|
||
Endif
|
||
|
||
If !Empty(lcFiltru)
|
||
lcFiltru=Substr(lcFiltru,6)
|
||
Else
|
||
lcFiltru=[2=2]
|
||
Endif
|
||
|
||
Thisform.actualizeaza_grid1(lcFiltru)
|
||
|
||
If Reccount('crsmasini')=0
|
||
amessagebox("Cautarea nu a intors rezultate!",64,"Info cautare")
|
||
Thisform.ck_marca.SetFocus()
|
||
Else
|
||
Thisform.gmasini.SetFocus()
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
If Reccount('crsmasini')>0
|
||
Private pniesire
|
||
pniesire=0
|
||
|
||
Select crsmasini
|
||
Scatter Name loRec
|
||
Do Adauga_Modifica_Inregistrare With "masini",loRec,loRec.id_masina,"UPDATE",,"modmasclie"
|
||
If pniesire=1
|
||
This.actualizeaza_grid1()
|
||
Endif
|
||
Thisform.gmasini.SetFocus()
|
||
Else
|
||
amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie")
|
||
Thisform.ck_marca.SetFocus()
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_reset
|
||
Thisform.ck_marca.Value = 0
|
||
Thisform.ck_model.Value = 0
|
||
Thisform.ck_nrinmat.Value = 0
|
||
*!* modificare ROAFACTURARE v 2.0.71
|
||
*!* Thisform.ck_seriem.Value = 0
|
||
*!* Thisform.ck_series.Value = 0
|
||
*!* modificare ROAFACTURARE v 2.0.71 ^
|
||
Thisform.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
If Reccount('crsmasini')>0
|
||
Select crsmasini
|
||
Scatter Name loRec
|
||
Do STERGE_INREGISTRARE With "masini",loRec.id_masina
|
||
This.actualizeaza_grid1()
|
||
Else
|
||
amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie")
|
||
Endif
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_masini_nou AS _frmbase OF "_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="clb_nrinmat" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cb_model" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="clb_culoare" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cus_odata_masini1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ct_clb_marca" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_cauta_marca
|
||
*p: nid
|
||
*p: orec
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
DoCreate = .T.
|
||
Height = 193
|
||
Name = "frm_masini_nou"
|
||
Width = 374
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Height = 29
|
||
_shape2.Left = 312
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 64
|
||
Lb_titlu_alb_b121.Caption = "MA<4D>INA"
|
||
Lb_titlu_alb_b121.FontBold = .T.
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 8
|
||
BUT_TERMIN1.Left = 344
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 6
|
||
BUT_TERMIN1.Top = 1
|
||
GRIDSORT1.Name = "GRIDSORT1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_checkbox1' AS _checkbox WITH ;
|
||
Alignment = 0, ;
|
||
Caption = "Inactiv", ;
|
||
ControlSource = "porec.inactiv", ;
|
||
Left = 36, ;
|
||
Name = "_checkbox1", ;
|
||
TabIndex = 5, ;
|
||
Top = 168
|
||
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 314, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 7, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'cb_model' AS cb_tx_simplu WITH ;
|
||
Left = 29, ;
|
||
Name = "cb_model", ;
|
||
TabIndex = 2, ;
|
||
Top = 70, ;
|
||
_cbbase1.ControlSource = "porec.model_masina", ;
|
||
_cbbase1.Name = "_cbbase1", ;
|
||
_lbbase1.Caption = "Model:", ;
|
||
_lbbase1.Name = "_lbbase1"
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'clb_culoare' AS clb_tx_simplu WITH ;
|
||
Left = 29, ;
|
||
Name = "clb_culoare", ;
|
||
TabIndex = 4, ;
|
||
Top = 126, ;
|
||
Text_simplu1.ControlSource = "porec.culoare", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Culoare:", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'clb_nrinmat' AS clb_tx_simplu WITH ;
|
||
Left = 29, ;
|
||
Name = "clb_nrinmat", ;
|
||
TabIndex = 3, ;
|
||
Top = 98, ;
|
||
Text_simplu1.ControlSource = "porec.nrinmat", ;
|
||
Text_simplu1.MaxLength = 25, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Nr. <20>nmatriculare:", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ct_clb_marca' AS ct_clb_cautare WITH ;
|
||
cconditie = Empty(NVL(porec.id_marca_masina,0)), ;
|
||
cprocedura = Thisform.do_cauta_marca, ;
|
||
cvar_afisata = porec.marca_masina, ;
|
||
Height = 31, ;
|
||
Left = 28, ;
|
||
Name = "Ct_clb_marca", ;
|
||
TabIndex = 1, ;
|
||
Top = 41, ;
|
||
Width = 331, ;
|
||
IMG_CAUTARE.Left = 309, ;
|
||
IMG_CAUTARE.Name = "IMG_CAUTARE", ;
|
||
IMG_CAUTARE.Top = 5, ;
|
||
CLB_TX_CAUTARE.Height = 29, ;
|
||
CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Marca", ;
|
||
CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
CLB_TX_CAUTARE.Left = 1, ;
|
||
CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ;
|
||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 102, ;
|
||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ;
|
||
CLB_TX_CAUTARE.Top = 1, ;
|
||
CLB_TX_CAUTARE.Width = 290
|
||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cus_odata_masini1' AS cus_odata_masini WITH ;
|
||
Left = 6, ;
|
||
Name = "Cus_odata_masini1", ;
|
||
Top = 148
|
||
*< END OBJECT: ClassLib="onomenclatoare2.vcx" BaseClass="custom" />
|
||
|
||
PROCEDURE do_cauta_marca
|
||
locauta=caut_marca_masina()
|
||
If !Isnull(locauta)
|
||
porec.marca_masina = locauta.marca_masina
|
||
porec.id_marca_masina = locauta.id_marca_masina
|
||
|
||
update_modele_masini(porec.id_marca_masina)
|
||
Thisform.cb_model._CBBASE1.RowSource=[crsmodelemasini.model_masina,id_model_masina]
|
||
Thisform.cb_model._CBBASE1.RowSourceType= 6
|
||
|
||
Thisform.ct_clb_marca.Refresh()
|
||
Thisform.cb_model._CBBASE1.Requery
|
||
Thisform.cb_model._CBBASE1.Refresh()
|
||
Endif
|
||
|
||
*!* Select v_masini
|
||
*!* Set Filter To id_marca = porec.id_marca
|
||
*!* Locate For Alltrim(masina)=pcmasina
|
||
*!* porec.id_masina=id_masina
|
||
*!* Thisform.cb_tx_simplu2._CBBASE1.SetFocus()
|
||
*!* Thisform.clb_tx_simplu1.SetFocus()
|
||
|
||
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
|
||
*!* modificare ROAFACTURARE v 2.0.3
|
||
*!* Case Empty(porec.marca_masina)
|
||
*!* amessagebox('Nu ati completat marca masinii!',0+48,"Atentie")
|
||
*!* Thisform.ct_clb_marca.SetFocus()
|
||
*!* PLRETURN=.F.
|
||
*!* Case Empty(porec.model_masina)
|
||
*!* amessagebox('Nu ati completat modelul masinii!',0+48,"Atentie")
|
||
*!* Thisform.cb_model.SetFocus()
|
||
*!* PLRETURN=.F.
|
||
*!* modificare ROAFACTURARE v 2.0.3 ^
|
||
Case Empty(porec.nrinmat)
|
||
amessagebox('Nu ati completat numarul de inmatriculare al masinii!',0+48,"Atentie")
|
||
Thisform.clb_nrinmat.SetFocus()
|
||
PLRETURN=.F.
|
||
|
||
Otherwise
|
||
PLRETURN=This.cus_odata_masini1.salvare(This.OREC,This.NID)
|
||
If !PLRETURN
|
||
Thisform.clb_nrinmat.SetFocus()
|
||
Endif
|
||
Endcase
|
||
Return PLRETURN
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
Lparameters toRec, tnId, tcActiune
|
||
|
||
DoDefault()
|
||
|
||
This.orec= toRec
|
||
This.nid = tnId
|
||
This.cus_odata_masini1.cactiune = tcActiune
|
||
If tcActiune='UPDATE'
|
||
update_modele_masini(porec.id_marca_masina)
|
||
Thisform.cb_model._CBBASE1.RowSource=[crsmodelemasini.model_masina,id_model_masina]
|
||
Thisform.cb_model._CBBASE1.RowSourceType= 6
|
||
Select crsmodelemasini
|
||
Locate For model_masina=porec.model_masina
|
||
Thisform.cb_model._CBBASE1.Requery
|
||
Thisform.cb_model._CBBASE1.Refresh()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE cb_model._cbbase1.InteractiveChange
|
||
porec.id_model_masina = crsmodelemasini.id_model_masina
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|