990 lines
38 KiB
Plaintext
990 lines
38 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS dataenvironment AS dataenvironment
|
||
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||
|
||
*<PropValue>
|
||
DataSource = .NULL.
|
||
Height = 200
|
||
Left = 1
|
||
Name = "Dataenvironment"
|
||
Top = 220
|
||
Width = 520
|
||
*</PropValue>
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS form1 AS form
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page5.Gridextra1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page5.Gridextra2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page6.Gridextra1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page6.Gridextra2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="_pgfrmbase1.Page6.Gridextra3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Imagine1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Imagine2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Imagine3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Imagine4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="cbo_sectii" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="but_alerta" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: arata_meniu_fluna
|
||
*m: jurnal
|
||
*m: sectii_requery
|
||
*m: statusbarclick
|
||
*p: cverificaresetari
|
||
*p: ostatusbar
|
||
*p: _memberdata && XML Metadata for customizable properties
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
AlwaysOnBottom = .T.
|
||
AutoCenter = .T.
|
||
BackColor = 255,255,255
|
||
BorderStyle = 1
|
||
Caption = ""
|
||
Closable = .F.
|
||
ControlBox = .F.
|
||
cverificaresetari =
|
||
DoCreate = .T.
|
||
Enabled = .T.
|
||
FillColor = 0,0,0
|
||
HalfHeightCaption = .F.
|
||
Height = 633
|
||
MaxButton = .F.
|
||
MinButton = .F.
|
||
Movable = .F.
|
||
Name = "Form1"
|
||
ostatusbar = .NULL.
|
||
Picture = ..\..\
|
||
ShowTips = .T.
|
||
Width = 797
|
||
WindowState = 2
|
||
_memberdata = <VFPData>
|
||
<memberdata name="ostatusbar" display="oStatusBar"/>
|
||
<memberdata name="statusbarclick" display="StatusBarClick"/>
|
||
<memberdata name="cverificaresetari" display="cVerificareSetari"/>
|
||
</VFPData>
|
||
*</PropValue>
|
||
|
||
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
|
||
Anchor = 15, ;
|
||
ErasePage = .T., ;
|
||
Height = 575, ;
|
||
Left = 0, ;
|
||
Name = "_pgfrmbase1", ;
|
||
Top = 60, ;
|
||
Width = 800, ;
|
||
Page1.Cw1.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw1.Name = "Cw1", ;
|
||
Page1.Cw10.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw10.Name = "Cw10", ;
|
||
Page1.Cw2.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw2.Name = "Cw2", ;
|
||
Page1.Cw3.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw3.Name = "Cw3", ;
|
||
Page1.Cw4.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw4.Name = "Cw4", ;
|
||
Page1.Cw5.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw5.Name = "Cw5", ;
|
||
Page1.Cw6.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw6.Name = "Cw6", ;
|
||
Page1.Cw7.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw7.Name = "Cw7", ;
|
||
Page1.Cw8.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw8.Name = "Cw8", ;
|
||
Page1.Cw9.Label_item1.Name = "Label_item1", ;
|
||
Page1.Cw9.Name = "Cw9", ;
|
||
Page1.Name = "Page1", ;
|
||
Page1.PageOrder = 1, ;
|
||
Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
||
Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||
Page1.Pict_meniu1.Anchor = 5, ;
|
||
Page1.Pict_meniu1.Height = 700, ;
|
||
Page1.Pict_meniu1.Left = 0, ;
|
||
Page1.Pict_meniu1.Name = "Pict_meniu1", ;
|
||
Page1.Pict_meniu1.Top = 8, ;
|
||
Page1.Pict_meniu1.Width = 200, ;
|
||
Page2.Cw1.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw1.Name = "Cw1", ;
|
||
Page2.Cw2.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw2.Name = "Cw2", ;
|
||
Page2.Cw3.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw3.Name = "Cw3", ;
|
||
Page2.Cw4.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw4.Name = "Cw4", ;
|
||
Page2.Cw5.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw5.Name = "Cw5", ;
|
||
Page2.Cw6.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw6.Name = "Cw6", ;
|
||
Page2.Cw7.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw7.Name = "Cw7", ;
|
||
Page2.Cw8.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw8.Name = "Cw8", ;
|
||
Page2.Cw9.Label_item1.Name = "Label_item1", ;
|
||
Page2.Cw9.Name = "Cw9", ;
|
||
Page2.Name = "Page2", ;
|
||
Page2.PageOrder = 4, ;
|
||
Page2.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||
Page2.Pict_meniu1.Anchor = 5, ;
|
||
Page2.Pict_meniu1.Height = 700, ;
|
||
Page2.Pict_meniu1.Name = "Pict_meniu1", ;
|
||
Page2.Pict_meniu1.Top = 10, ;
|
||
Page2.Pict_meniu1.Width = 200, ;
|
||
Page3.Cw1.Label_item1.Name = "Label_item1", ;
|
||
Page3.Cw1.Name = "Cw1", ;
|
||
Page3.Cw2.Label_item1.Name = "Label_item1", ;
|
||
Page3.Cw2.Name = "Cw2", ;
|
||
Page3.Cw3.Label_item1.Name = "Label_item1", ;
|
||
Page3.Cw3.Name = "Cw3", ;
|
||
Page3.Cw4.Label_item1.Name = "Label_item1", ;
|
||
Page3.Cw4.Name = "Cw4", ;
|
||
Page3.Name = "Page3", ;
|
||
Page3.PageOrder = 5, ;
|
||
Page3.Pict_meniu1.Anchor = 5, ;
|
||
Page3.Pict_meniu1.Height = 700, ;
|
||
Page3.Pict_meniu1.Left = 0, ;
|
||
Page3.Pict_meniu1.Name = "Pict_meniu1", ;
|
||
Page3.Pict_meniu1.Top = 8, ;
|
||
Page3.Pict_meniu1.Width = 200, ;
|
||
Page4.Cw1.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw1.Name = "Cw1", ;
|
||
Page4.Cw10.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw10.Name = "Cw10", ;
|
||
Page4.Cw11.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw11.Name = "Cw11", ;
|
||
Page4.Cw12.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw12.Name = "Cw12", ;
|
||
Page4.Cw13.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw13.Name = "Cw13", ;
|
||
Page4.Cw2.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw2.Name = "Cw2", ;
|
||
Page4.Cw3.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw3.Name = "Cw3", ;
|
||
Page4.Cw4.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw4.Name = "Cw4", ;
|
||
Page4.Cw5.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw5.Name = "Cw5", ;
|
||
Page4.Cw6.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw6.Name = "Cw6", ;
|
||
Page4.Cw7.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw7.Name = "Cw7", ;
|
||
Page4.Cw8.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw8.Name = "Cw8", ;
|
||
Page4.Cw9.Label_item1.Name = "Label_item1", ;
|
||
Page4.Cw9.Name = "Cw9", ;
|
||
Page4.Name = "Page4", ;
|
||
Page4.PageOrder = 6, ;
|
||
Page4.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
||
Page4.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
||
Page4.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
||
Page4.Pict_liniuta4.Name = "Pict_liniuta4", ;
|
||
Page4.Pict_meniu1.Anchor = 5, ;
|
||
Page4.Pict_meniu1.Height = 700, ;
|
||
Page4.Pict_meniu1.Left = 0, ;
|
||
Page4.Pict_meniu1.Name = "Pict_meniu1", ;
|
||
Page4.Pict_meniu1.Top = 8, ;
|
||
Page4.Pict_meniu1.Width = 200, ;
|
||
Page5.Ct_comenzi1.But_copie.Name = "But_copie", ;
|
||
Page5.Ct_comenzi1.But_factura1.Name = "But_factura1", ;
|
||
Page5.Ct_comenzi1.But_listare1.Name = "But_listare1", ;
|
||
Page5.Ct_comenzi1.But_modifica1.Name = "But_modifica1", ;
|
||
Page5.Ct_comenzi1.But_nou1.Name = "But_nou1", ;
|
||
Page5.Ct_comenzi1.But_reset_criterii1.Name = "But_reset_criterii1", ;
|
||
Page5.Ct_comenzi1.But_start_criterii1.Name = "But_start_criterii1", ;
|
||
Page5.Ct_comenzi1.But_sterge1.Name = "But_sterge1", ;
|
||
Page5.Ct_comenzi1.Clb_tx_total.Lb_simplu1.Name = "Lb_simplu1", ;
|
||
Page5.Ct_comenzi1.Clb_tx_total.Left = 489, ;
|
||
Page5.Ct_comenzi1.Clb_tx_total.Name = "Clb_tx_total", ;
|
||
Page5.Ct_comenzi1.Clb_tx_total.Text_simplu1.Name = "Text_simplu1", ;
|
||
Page5.Ct_comenzi1.Clb_tx_total.Top = 471, ;
|
||
Page5.Ct_comenzi1.Cmd_executa1.Left = 125, ;
|
||
Page5.Ct_comenzi1.Cmd_executa1.Name = "Cmd_executa1", ;
|
||
Page5.Ct_comenzi1.Cmd_executa1.Top = 470, ;
|
||
Page5.Ct_comenzi1.Cmd_executa2.Left = 203, ;
|
||
Page5.Ct_comenzi1.Cmd_executa2.Name = "Cmd_executa2", ;
|
||
Page5.Ct_comenzi1.Cmd_executa2.Top = 507, ;
|
||
Page5.Ct_comenzi1.Cmd_executa3.Left = 7, ;
|
||
Page5.Ct_comenzi1.Cmd_executa3.Name = "Cmd_executa3", ;
|
||
Page5.Ct_comenzi1.Cmd_executa3.Top = 507, ;
|
||
Page5.Ct_comenzi1.Cmd_executa4.Left = 240, ;
|
||
Page5.Ct_comenzi1.Cmd_executa4.Name = "Cmd_executa4", ;
|
||
Page5.Ct_comenzi1.Cmd_executa4.Top = 470, ;
|
||
Page5.Ct_comenzi1.Cmd_select_adv1.Left = 7, ;
|
||
Page5.Ct_comenzi1.Cmd_select_adv1.Name = "Cmd_select_adv1", ;
|
||
Page5.Ct_comenzi1.Cmd_select_adv1.Top = 470, ;
|
||
Page5.Ct_comenzi1.Cmd_select_adv1.Width = 110, ;
|
||
Page5.Ct_comenzi1.Gridsort1.Name = "Gridsort1", ;
|
||
Page5.Ct_comenzi1.Height = 542, ;
|
||
Page5.Ct_comenzi1.lb_comenzi_elemente.Left = 98, ;
|
||
Page5.Ct_comenzi1.lb_comenzi_elemente.Name = "lb_comenzi_elemente", ;
|
||
Page5.Ct_comenzi1.lb_comenzi_elemente.Top = 33, ;
|
||
Page5.Ct_comenzi1.Left = 0, ;
|
||
Page5.Ct_comenzi1.Name = "Ct_comenzi1", ;
|
||
Page5.Ct_comenzi1.Top = -3, ;
|
||
Page5.Ct_comenzi1.Width = 781, ;
|
||
Page5.Ct_comenzi1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAdresa_facturare.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAdresa_facturare.Name = "cAdresa_facturare", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAdresa_facturare.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAdresa_livrare.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAdresa_livrare.Name = "cAdresa_livrare", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAdresa_livrare.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAgent.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAgent.Name = "cAgent", ;
|
||
Page5.Ct_comenzi1._grdrow1.cAgent.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cComanda_externa.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cComanda_externa.Name = "cComanda_externa", ;
|
||
Page5.Ct_comenzi1._grdrow1.cComanda_externa.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDataLivrat.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDataLivrat.Name = "cDataLivrat", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDataLivrat.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDataora.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDataora.Name = "cDataora", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDataora.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cData_comanda.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cData_comanda.Name = "cData_comanda", ;
|
||
Page5.Ct_comenzi1._grdrow1.cData_comanda.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cData_livrare.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cData_livrare.Name = "cData_livrare", ;
|
||
Page5.Ct_comenzi1._grdrow1.cData_livrare.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDelegat.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDelegat.Name = "cDelegat", ;
|
||
Page5.Ct_comenzi1._grdrow1.cDelegat.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cFacturat.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cFacturat.Name = "cFacturat", ;
|
||
Page5.Ct_comenzi1._grdrow1.cFacturat._checkbox1.Alignment = 2, ;
|
||
Page5.Ct_comenzi1._grdrow1.cFacturat._checkbox1.Name = "_checkbox1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cLucrare.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cLucrare.Name = "cLucrare", ;
|
||
Page5.Ct_comenzi1._grdrow1.cLucrare.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNrinmat.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNrinmat.Name = "cNrinmat", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNrinmat.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNr_comanda.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNr_comanda.Name = "cNr_comanda", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNr_comanda.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNr_comanda.Width = 83, ;
|
||
Page5.Ct_comenzi1._grdrow1.cNr_livrare.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNr_livrare.Name = "cNr_livrare", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNr_livrare.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNumar_contract.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNumar_contract.Name = "cNumar_contract", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNumar_contract.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNume.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNume.Name = "cNume", ;
|
||
Page5.Ct_comenzi1._grdrow1.cNume.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cSelectat.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cSelectat.Name = "cSelectat", ;
|
||
Page5.Ct_comenzi1._grdrow1.cSelectat._checkbox1.Alignment = 2, ;
|
||
Page5.Ct_comenzi1._grdrow1.cSelectat._checkbox1.Name = "_checkbox1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cTip_comanda.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cTip_comanda.Name = "cTip_comanda", ;
|
||
Page5.Ct_comenzi1._grdrow1.cTip_comanda.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cUtilizator.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow1.cUtilizator.Name = "cUtilizator", ;
|
||
Page5.Ct_comenzi1._grdrow1.cUtilizator.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow1.Height = 413, ;
|
||
Page5.Ct_comenzi1._grdrow1.Left = 6, ;
|
||
Page5.Ct_comenzi1._grdrow1.Name = "_grdrow1", ;
|
||
Page5.Ct_comenzi1._grdrow1.Top = 52, ;
|
||
Page5.Ct_comenzi1._grdrow1.Width = 86, ;
|
||
Page5.Ct_comenzi1._grdrow2.cCantitate.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCantitate.Name = "cCantitate", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCantitate.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCodBare.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCodBare.Name = "cCodBare", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCodBare.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCodmat.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCodmat.Name = "cCodmat", ;
|
||
Page5.Ct_comenzi1._grdrow2.cCodmat.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cDenumire.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cDenumire.Name = "cDenumire", ;
|
||
Page5.Ct_comenzi1._grdrow2.cDenumire.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cNrCrt.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cNrCrt.Name = "cNrCrt", ;
|
||
Page5.Ct_comenzi1._grdrow2.cNrCrt.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cNumeListaPreturi.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cNumeListaPreturi.Name = "cNumeListaPreturi", ;
|
||
Page5.Ct_comenzi1._grdrow2.cNumeListaPreturi.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPret.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPret.Name = "cPret", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPret.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPret_cu_tva.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPret_cu_tva.Name = "cPret_cu_tva", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPret_cu_tva._checkbox1.Alignment = 2, ;
|
||
Page5.Ct_comenzi1._grdrow2.cPret_cu_tva._checkbox1.Name = "_checkbox1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPTVA.Header1.Name = "Header1", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPTVA.Name = "cPTVA", ;
|
||
Page5.Ct_comenzi1._grdrow2.cPTVA.Text1.Name = "Text1", ;
|
||
Page5.Ct_comenzi1._grdrow2.Height = 413, ;
|
||
Page5.Ct_comenzi1._grdrow2.Left = 95, ;
|
||
Page5.Ct_comenzi1._grdrow2.Name = "_grdrow2", ;
|
||
Page5.Ct_comenzi1._grdrow2.Top = 52, ;
|
||
Page5.Ct_comenzi1._grdrow2.Width = 685, ;
|
||
Page5.Name = "Page5", ;
|
||
Page5.PageOrder = 2, ;
|
||
Page6.Ct_lucrari_detalii1.But_listare1.Name = "But_listare1", ;
|
||
Page6.Ct_lucrari_detalii1.But_modifica1.Name = "But_modifica1", ;
|
||
Page6.Ct_lucrari_detalii1.But_nou1.Name = "But_nou1", ;
|
||
Page6.Ct_lucrari_detalii1.But_reset_criterii1.Name = "But_reset_criterii1", ;
|
||
Page6.Ct_lucrari_detalii1.But_start_criterii1.Name = "But_start_criterii1", ;
|
||
Page6.Ct_lucrari_detalii1.But_sterge1.Name = "But_sterge1", ;
|
||
Page6.Ct_lucrari_detalii1.Gridsort1.Name = "Gridsort1", ;
|
||
Page6.Ct_lucrari_detalii1.Height = 540, ;
|
||
Page6.Ct_lucrari_detalii1.lb_comenzi.Left = 9, ;
|
||
Page6.Ct_lucrari_detalii1.lb_comenzi.Name = "lb_comenzi", ;
|
||
Page6.Ct_lucrari_detalii1.lb_comenzi.Top = 352, ;
|
||
Page6.Ct_lucrari_detalii1.lb_lucrari_elemente.Left = 372, ;
|
||
Page6.Ct_lucrari_detalii1.lb_lucrari_elemente.Name = "lb_lucrari_elemente", ;
|
||
Page6.Ct_lucrari_detalii1.lb_lucrari_elemente.Top = 33, ;
|
||
Page6.Ct_lucrari_detalii1.Left = 0, ;
|
||
Page6.Ct_lucrari_detalii1.Name = "Ct_lucrari_detalii1", ;
|
||
Page6.Ct_lucrari_detalii1.Top = -1, ;
|
||
Page6.Ct_lucrari_detalii1.Width = 781, ;
|
||
Page6.Ct_lucrari_detalii1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cDataora.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cDataora.Name = "cDataora", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cDataora.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cData_lucrare.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cData_lucrare.Name = "cData_lucrare", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cData_lucrare.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cExecutata.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cExecutata.Name = "cExecutata", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cExecutata._checkbox1.Alignment = 0, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cExecutata._checkbox1.Name = "_checkbox1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cExplicatie.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cExplicatie.Name = "cExplicatie", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cExplicatie.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cInchisa.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cInchisa.Name = "cInchisa", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cInchisa._checkbox1.Alignment = 2, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cInchisa._checkbox1.Name = "_checkbox1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cNrord.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cNrord.Name = "cNrord", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cNrord.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cTermen_executie.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cTermen_executie.Name = "cTermen_executie", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cTermen_executie.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cUtilizator.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cUtilizator.Name = "cUtilizator", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.cUtilizator.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.Height = 296, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.Left = 6, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.Name = "_grdrow1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow1.Width = 360, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cData_comanda.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cData_comanda.Name = "cData_comanda", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cData_comanda.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cData_livrare.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cData_livrare.Name = "cData_livrare", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cData_livrare.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cNr_comanda.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cNr_comanda.Name = "cNr_comanda", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cNr_comanda.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cNume.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cNume.Name = "cNume", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cNume.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cTip_comanda.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cTip_comanda.Name = "cTip_comanda", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.cTip_comanda.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.Height = 152, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.Left = 9, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.Name = "_grdrow2", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.Top = 373, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow2.Width = 360, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCantitate.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCantitate.Name = "cCantitate", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCantitate.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCantitate2.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCantitate2.Name = "cCantitate2", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCantitate2.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCodmat.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCodmat.Name = "cCodmat", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cCodmat.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cDenumire.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cDenumire.Name = "cDenumire", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cDenumire.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cUM.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cUM.Name = "cUM", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cUM.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cUM2.Header1.Name = "Header1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cUM2.Name = "cUM2", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.cUM2.Text1.Name = "Text1", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.Height = 480, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.Left = 372, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.Name = "_grdrow3", ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.Top = 53, ;
|
||
Page6.Ct_lucrari_detalii1._grdrow3.Width = 408, ;
|
||
Page6.Name = "Page6", ;
|
||
Page6.PageOrder = 3
|
||
*< END OBJECT: ClassLib="..\clase\ofundal_facturare.vcx" BaseClass="pageframe" />
|
||
|
||
ADD OBJECT '_pgfrmbase1.Page5.Gridextra1' AS gridextra WITH ;
|
||
gridexpression = thisform._pgfrmbase1.page5.ct_comenzi1._grdrow1, ;
|
||
Left = 239, ;
|
||
Name = "Gridextra1", ;
|
||
productname = ROA, ;
|
||
Top = 18
|
||
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT '_pgfrmbase1.Page5.Gridextra2' AS gridextra WITH ;
|
||
gridexpression = thisform._pgfrmbase1.page5.ct_comenzi1._grdrow2, ;
|
||
Left = 299, ;
|
||
Name = "Gridextra2", ;
|
||
productname = ROA, ;
|
||
Top = 18
|
||
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT '_pgfrmbase1.Page6.Gridextra1' AS gridextra WITH ;
|
||
gridexpression = thisform._pgfrmbase1.page6.ct_lucrari_detalii1._grdrow1, ;
|
||
Left = 255, ;
|
||
Name = "Gridextra1", ;
|
||
productname = ROA, ;
|
||
Top = 21
|
||
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT '_pgfrmbase1.Page6.Gridextra2' AS gridextra WITH ;
|
||
gridexpression = thisform._pgfrmbase1.page6.ct_lucrari_detalii1._grdrow2, ;
|
||
Left = 315, ;
|
||
Name = "Gridextra2", ;
|
||
productname = ROA, ;
|
||
Top = 21
|
||
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT '_pgfrmbase1.Page6.Gridextra3' AS gridextra WITH ;
|
||
gridexpression = thisform._pgfrmbase1.page6.ct_lucrari_detalii1._grdrow3, ;
|
||
Left = 367, ;
|
||
Name = "Gridextra3", ;
|
||
productname = ROA, ;
|
||
Top = 26
|
||
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT 'but_alerta' AS _image WITH ;
|
||
BackStyle = 0, ;
|
||
Height = 32, ;
|
||
Left = 306, ;
|
||
Name = "but_alerta", ;
|
||
Picture = ..\comun\grafice\exclam.ico, ;
|
||
Top = 10, ;
|
||
Visible = .F., ;
|
||
Width = 32
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'cbo_sectii' AS combobox WITH ;
|
||
Anchor = 8, ;
|
||
FontBold = .T., ;
|
||
FontSize = 10, ;
|
||
ForeColor = 73,74,171, ;
|
||
Height = 24, ;
|
||
ItemForeColor = 73,74,171, ;
|
||
Left = 405, ;
|
||
Name = "cbo_sectii", ;
|
||
RowSourceType = 2, ;
|
||
SelectedBackColor = 73,74,171, ;
|
||
SelectedItemBackColor = 73,74,171, ;
|
||
Style = 2, ;
|
||
ToolTipText = "Sectia folosita pentru Comenzi si Lucrari", ;
|
||
Top = 5, ;
|
||
Width = 163
|
||
*< END OBJECT: BaseClass="combobox" />
|
||
|
||
ADD OBJECT 'Image1' AS image WITH ;
|
||
Anchor = 12, ;
|
||
Height = 220, ;
|
||
Left = 108, ;
|
||
Name = "Image1", ;
|
||
Picture = ..\grafice\roafacturare.bmp, ;
|
||
Stretch = 0, ;
|
||
Top = 264, ;
|
||
Width = 556
|
||
*< END OBJECT: BaseClass="image" />
|
||
|
||
ADD OBJECT 'Image2' AS image WITH ;
|
||
Anchor = 10, ;
|
||
Height = 63, ;
|
||
Left = -11, ;
|
||
Name = "Image2", ;
|
||
Picture = ..\comun\grafice\f1.jpg, ;
|
||
Stretch = 2, ;
|
||
Top = -1, ;
|
||
Width = 851
|
||
*< END OBJECT: BaseClass="image" />
|
||
|
||
ADD OBJECT 'Imagine1' AS imagine WITH ;
|
||
Height = 48, ;
|
||
Left = 5, ;
|
||
Name = "Imagine1", ;
|
||
picturedown = icon_listapreturi1.png, ;
|
||
pictureup = icon_listapreturi2.png, ;
|
||
ToolTipText = "Facturare pe baza de lista de preturi", ;
|
||
Top = 1, ;
|
||
Width = 48
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'Imagine2' AS imagine WITH ;
|
||
Height = 48, ;
|
||
Left = 66, ;
|
||
Name = "Imagine2", ;
|
||
picturedown = icon_contracte1.png, ;
|
||
pictureup = icon_contracte2.png, ;
|
||
ToolTipText = "Facturare pe baza de contract", ;
|
||
Top = 1, ;
|
||
Width = 48
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'Imagine3' AS imagine WITH ;
|
||
Height = 48, ;
|
||
Left = 127, ;
|
||
Name = "Imagine3", ;
|
||
picturedown = icon_comenzi1.png, ;
|
||
pictureup = icon_comenzi2.png, ;
|
||
ToolTipText = "Facturare pe baza de comanda", ;
|
||
Top = 1, ;
|
||
Width = 48
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'Imagine4' AS imagine WITH ;
|
||
Height = 48, ;
|
||
Left = 189, ;
|
||
Name = "Imagine4", ;
|
||
picturedown = icon_avize1.png, ;
|
||
pictureup = icon_avize2.png, ;
|
||
ToolTipText = "Facturare din aviz", ;
|
||
Top = 1, ;
|
||
Width = 48
|
||
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||
|
||
ADD OBJECT 'Label1' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Operator:", ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 17, ;
|
||
Left = 7, ;
|
||
Name = "Label1", ;
|
||
Top = 381, ;
|
||
Width = 53
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label2' AS label WITH ;
|
||
AutoSize = .T., ;
|
||
BackStyle = 0, ;
|
||
Caption = "Nivel de acces:", ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 17, ;
|
||
Left = 7, ;
|
||
Name = "Label2", ;
|
||
Top = 401, ;
|
||
Width = 85
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'Label3' AS label WITH ;
|
||
Anchor = 8, ;
|
||
BackStyle = 0, ;
|
||
Caption = "Sec<65>ie", ;
|
||
FontCharSet = 238, ;
|
||
ForeColor = 255,255,255, ;
|
||
Height = 17, ;
|
||
Left = 369, ;
|
||
Name = "Label3", ;
|
||
Top = 9, ;
|
||
Width = 36
|
||
*< END OBJECT: BaseClass="label" />
|
||
|
||
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
||
Anchor = 8, ;
|
||
Caption = "Operator:", ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 255,255,255, ;
|
||
Left = 576, ;
|
||
Name = "lb_utilizator", ;
|
||
Top = 8
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
||
Anchor = 8, ;
|
||
Caption = "nume_utilizator", ;
|
||
FontBold = .T., ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 255,255,255, ;
|
||
Left = 630, ;
|
||
Name = "lb_utilizator1", ;
|
||
Top = 8, ;
|
||
Visible = .F.
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||
|
||
ADD OBJECT 'Text1' AS textbox WITH ;
|
||
BackStyle = 0, ;
|
||
BorderStyle = 0, ;
|
||
ControlSource = "utilizator", ;
|
||
FontBold = .T., ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 23, ;
|
||
Left = 62, ;
|
||
Name = "Text1", ;
|
||
ReadOnly = .T., ;
|
||
TabStop = .F., ;
|
||
Top = 380, ;
|
||
Width = 147
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'Text2' AS textbox WITH ;
|
||
BackStyle = 0, ;
|
||
BorderStyle = 0, ;
|
||
ControlSource = "m.nivel", ;
|
||
FontBold = .T., ;
|
||
FontItalic = .T., ;
|
||
ForeColor = 0,0,128, ;
|
||
Height = 23, ;
|
||
Left = 93, ;
|
||
Name = "Text2", ;
|
||
ReadOnly = .T., ;
|
||
TabStop = .F., ;
|
||
Top = 400, ;
|
||
Width = 28
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE Activate
|
||
*!* Local lnScrH,lnScrW
|
||
*!* lnScrW = _Screen.Width
|
||
*!* lnScrH = _Screen.Height
|
||
|
||
*!* Thisform.image1.Top = lnScrH - Thisform.image1.Height - 50
|
||
*!* Thisform.image1.Left = lnScrW - Thisform.image1.Width - 30
|
||
*!* Thisform.image2.Width = lnScrW + 30
|
||
*!* With Thisform._pgfrmbase1
|
||
*!* .Width = lnScrW
|
||
*!* .Height = Thisform.Height-Thisform.image2.Height
|
||
*!* .page1.Pict_meniu1.Height = .Height
|
||
*!* .page2.Pict_meniu1.Height = .Height
|
||
*!* .page3.Pict_meniu1.Height = .Height
|
||
*!* .page4.Pict_meniu1.Height = .Height
|
||
*!* Endwith
|
||
|
||
*!* If primadata
|
||
*!* primadata = .F.
|
||
|
||
*!* Do start_firma In ostartfirma.prg
|
||
*!* verifica_drepturi2('gofundal','_pgfrmbase1')
|
||
*!* Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
|
||
*!* Thisform.lb_utilizator1.Visible=.T.
|
||
|
||
*!* Endif
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE arata_meniu_fluna
|
||
Do start_firma In ostartfirma.prg
|
||
verifica_drepturi('gofundal','_pgfrmbase1')
|
||
ENDPROC
|
||
|
||
PROCEDURE jurnal
|
||
ENDPROC
|
||
|
||
PROCEDURE KeyPress
|
||
Lparameters nKeyCode, nShiftAltCtrl
|
||
If nKeyCode==-1 &&F2
|
||
Quit
|
||
Endif
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
|
||
Thisform.sectii_requery()
|
||
ENDPROC
|
||
|
||
PROCEDURE sectii_requery
|
||
*!* modificare v 2.0.11
|
||
Thisform.cbo_sectii.RowSource=""
|
||
Thisform.cbo_sectii.Value=""
|
||
Thisform.cbo_sectii.Refresh()
|
||
*!* Do make_sectii_utilizator In onom_comenzi.prg
|
||
Do make_sectii_utilizator In proceduri_comune.prg
|
||
*!* modificare v 2.0.11 ^
|
||
Select crsSectii
|
||
Go Top
|
||
gcNumeSectie = sectie
|
||
gnId_sectie = id_sectie
|
||
|
||
lcSql = [begin pack_sesiune.set_id_sectie_comenzi(?gnId_sectie); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
Endif
|
||
|
||
Thisform.cbo_sectii.RowSource="crsSectii.sectie,id_sectie"
|
||
Thisform.cbo_sectii.Value=gcNumeSectie
|
||
Thisform.cbo_sectii.Refresh()
|
||
|
||
*!* modificare v 2.0.11
|
||
If Reccount('crsSectii')=0
|
||
*!* AMESSAGEBOX('Pentru activarea paginilor "Comenzi" si "Lucrari", configurati sectiile la care aveti dreptul in' + Chr(13)+ ;
|
||
*!* 'Definirea companiei : "Entitati > Asociere entitati-sectii" (Tipul "COMENZI")!', 48, "Atentie")
|
||
This._pgfrmbase1.ActivePage = 4 && facturare
|
||
This._pgfrmbase1.page5.Enabled= .F. && comenzi
|
||
This._pgfrmbase1.page6.Enabled= .F. && lucrari
|
||
*This._pgfrmbase1.page4.Enabled = .F.
|
||
*!* For i = 1 To This._pgfrmbase1.page1.Objects.Count
|
||
*!* If Upper(This._pgfrmbase1.page1.Objects(i).Class) = [CW]
|
||
*!* This._pgfrmbase1.page1.Objects(i).dezactiveaza()
|
||
*!* Endif
|
||
*!* Endfor
|
||
Else
|
||
*!* This._pgfrmbase1.page5.Enabled= .T.
|
||
*!* This._pgfrmbase1.page6.Enabled= .T.
|
||
Do Case
|
||
Case Thisform._pgfrmbase1.ActivePage = 2 && comenzi
|
||
Thisform._pgfrmbase1.page5.Activate()
|
||
Case Thisform._pgfrmbase1.ActivePage = 3 && lucrari
|
||
Thisform._pgfrmbase1.page6.Activate()
|
||
Otherwise
|
||
*!*
|
||
Endcase
|
||
Endif
|
||
|
||
*!* modificare v 2.0.15
|
||
*!* gnTipUzualComanda = Val(extrage_optiuni(gcTipUzualComanda, gnId_sectie))
|
||
*!* gnOre_inchidere = Val(extrage_optiuni(gcOre_inchidere, gnId_sectie))
|
||
*!* gnOre_livrare = Val(extrage_optiuni(gcOre_livrare, gnId_sectie))
|
||
*!* gnOre_executie = Val(extrage_optiuni(gcOre_executie, gnId_sectie))
|
||
*!* gnCopiereCantitate = Val(extrage_optiuni(gcCopiereCantitate, gnId_sectie))
|
||
*!* gnIdPoliticaPretC = Val(extrage_optiuni(gcIdPoliticaPretC, gnId_sectie))
|
||
*!* gnIdPoliticaPret = Val(extrage_optiuni(gcIdPoliticaPret, gnId_sectie))
|
||
*!* gnId_lista_preturi_PV = Val(extrage_optiuni(gcId_lista_preturi_PV, gnId_sectie))
|
||
DO extrage_optiuni_firma IN update_comenzi.prg
|
||
*!* modificare v 2.0.15 ^
|
||
*!* modificare v 2.0.11 ^
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Show
|
||
Lparameters nStyle
|
||
Local lcMesaj, llShowRezultate
|
||
*:Global primadata
|
||
DoDefault(nStyle)
|
||
Thisform.arata_meniu_fluna()
|
||
primadata = .F.
|
||
Thisform.lb_utilizator1.Caption = Alltrim(gcUserNameApp)
|
||
Thisform.lb_utilizator1.Visible = .T.
|
||
Do lansare_toolbar In oproceduri_comune.prg
|
||
Do lansare_help In oproceduri_comune.prg
|
||
|
||
Thisform._pgfrmbase1.ActivePage = 4 && facturare
|
||
|
||
Thisform.sectii_requery()
|
||
|
||
***********************************************
|
||
*** Verificare setari
|
||
lcMesaj = verifica_setari(.T.) && In oproceduri_facturare.prg
|
||
If Reccount('crsSectii') = 0
|
||
lcMesaj = lcMesaj + 'Pentru activarea paginilor "Comenzi" si "Lucrari", configurati sectiile la care aveti dreptul in' + Chr(13)+ ;
|
||
'Definirea companiei : "Entitati > Asociere entitati-sectii" (Tipul "COMENZI")!'
|
||
ENDIF
|
||
|
||
This.cVerificareSetari = Nvl(m.lcMesaj, '')
|
||
If !Empty(This.cVerificareSetari)
|
||
This.but_alerta.Visible = .T.
|
||
Endif
|
||
***********************************************
|
||
|
||
*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
|
||
*!* Trebuie adaugata o proprietate OstatusBar la forma
|
||
*!* si o metoda statusbarclik care sa contina comanda
|
||
*!* Thisform.oStatusBar.newtooltip()
|
||
*!*
|
||
If Not Pemstatus(_Screen, "StatusBar", 5) Then
|
||
*!* 31.01.2008 TEST FARA STATUSBAR
|
||
*!* _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
|
||
_Screen.Newobject("StatusBar", "ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 3)
|
||
*!* 31.01.2008 TEST FARA STATUSBAR ^
|
||
Endif
|
||
Thisform.oStatusBar = _Screen.StatusBar
|
||
Thisform.oStatusBar.ctlIcon = "roastartmic.ico"
|
||
Thisform.oStatusBar.ctlMessage = _Screen.Caption
|
||
Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
|
||
*!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
|
||
|
||
* Populez comenzile
|
||
With This._pgfrmbase1.page5
|
||
*!* .ct_comenzi1.creeaza_cursoare()
|
||
.ct_comenzi1.actualizeaza_cursoare()
|
||
|
||
llShowRezultate = .ct_comenzi1.lShowRezultate
|
||
.ct_comenzi1.lShowRezultate = .F. && nu afisez "Nu exista rezultate"
|
||
.ct_comenzi1.but_reset_criterii1.Click()
|
||
.ct_comenzi1.lShowRezultate = m.llShowRezultate
|
||
|
||
.ct_comenzi1._grdrow1.AfterRowColChange()
|
||
|
||
.gridextra1.Setup()
|
||
.gridextra2.Setup()
|
||
Endwith
|
||
|
||
* Populez lucrarile
|
||
With This._pgfrmbase1.page6
|
||
.ct_lucrari_detalii1.actualizeaza_cursoare()
|
||
|
||
llShowRezultate = .ct_lucrari_detalii1.lShowRezultate
|
||
.ct_lucrari_detalii1.lShowRezultate = .F. && nu afisez "Nu exista rezultate"
|
||
.ct_lucrari_detalii1.but_reset_criterii1.Click()
|
||
.ct_lucrari_detalii1.lShowRezultate = m.llShowRezultate
|
||
|
||
.ct_lucrari_detalii1._grdrow1.AfterRowColChange()
|
||
|
||
.gridextra1.Setup()
|
||
.gridextra2.Setup()
|
||
.gridextra3.Setup()
|
||
Endwith
|
||
|
||
|
||
This.WindowState = 2
|
||
ENDPROC
|
||
|
||
PROCEDURE statusbarclick
|
||
Thisform.oStatusBar.newtooltip()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE but_alerta.Click
|
||
AMESSAGEBOX(Thisform.cVerificareSetari,0+48,_Screen.Caption)
|
||
ENDPROC
|
||
|
||
PROCEDURE but_alerta.MouseEnter
|
||
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||
this.ToolTipText = Thisform.cVerificareSetari
|
||
ENDPROC
|
||
|
||
PROCEDURE cbo_sectii.InteractiveChange
|
||
Select crsSectii
|
||
gnId_sectie = id_sectie
|
||
gcNumeSectie = Alltrim(sectie)
|
||
|
||
lcSql = [begin pack_sesiune.set_id_sectie_comenzi(?gnId_sectie); end;]
|
||
lnSucces = goExecutor.oExecute(lcSql)
|
||
If lnSucces < 0
|
||
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||
Endif
|
||
|
||
*!* modificare v 2.0.15
|
||
*!* gnTipUzualComanda = Val(extrage_optiuni(gcTipUzualComanda, gnId_sectie))
|
||
*!* gnOre_inchidere = Val(extrage_optiuni(gcOre_inchidere, gnId_sectie))
|
||
*!* gnOre_livrare = Val(extrage_optiuni(gcOre_livrare, gnId_sectie))
|
||
*!* gnOre_executie = Val(extrage_optiuni(gcOre_executie, gnId_sectie))
|
||
*!* gnCopiereCantitate = Val(extrage_optiuni(gcCopiereCantitate, gnId_sectie))
|
||
*!* gnIdPoliticaPretC = Val(extrage_optiuni(gcIdPoliticaPretC, gnId_sectie))
|
||
*!* gnIdPoliticaPret = Val(extrage_optiuni(gcIdPoliticaPret, gnId_sectie))
|
||
*!* gnId_lista_preturi_PV = Val(extrage_optiuni(gcId_lista_preturi_PV, gnId_sectie))
|
||
extrage_optiuni_firma()
|
||
*!* modificare v 2.0.15 ^
|
||
Do Case
|
||
Case Thisform._pgfrmbase1.ActivePage = 2
|
||
Thisform._pgfrmbase1.page2.Activate()
|
||
Case Thisform._pgfrmbase1.ActivePage = 3
|
||
Thisform._pgfrmbase1.page3.Activate()
|
||
Otherwise
|
||
*!*
|
||
Endcase
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Image1.RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
ENDPROC
|
||
|
||
PROCEDURE Imagine1.do_actiune
|
||
DO facturare_lista_de_preturi IN oproceduri_facturare.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Imagine2.do_actiune
|
||
DO facturare_contracte IN oproceduri_facturare.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Imagine3.do_actiune
|
||
DO facturare_comenzi IN oproceduri_facturare.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE Imagine4.do_actiune
|
||
DO facturare_avize IN oproceduri_facturare.prg
|
||
ENDPROC
|
||
|
||
PROCEDURE lb_utilizator.RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
ENDPROC
|
||
|
||
PROCEDURE lb_utilizator1.RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page1.Activate
|
||
Thisform.image1.Visible=.T.
|
||
DODEFAULT()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page1.RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page2.Activate
|
||
Thisform.image1.Visible=.T.
|
||
DODEFAULT()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page2.RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page3.Activate
|
||
Thisform.image1.Visible=.T.
|
||
DODEFAULT()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page3.RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page4.Activate
|
||
Thisform.image1.Visible=.T.
|
||
DODEFAULT()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page4.RightClick
|
||
Thisform.arata_meniu_fluna()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page5.Activate
|
||
Thisform.image1.Visible=.F.
|
||
DODEFAULT()
|
||
ENDPROC
|
||
|
||
PROCEDURE _pgfrmbase1.Page6.Activate
|
||
Thisform.image1.Visible=.F.
|
||
DODEFAULT()
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|