romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 10:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

640
clase/onomenclatoare2.vc2 Normal file
View File

@@ -0,0 +1,640 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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