*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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" /> * DataSource = .NULL. Height = 200 Left = 1 Name = "Dataenvironment" Top = 220 Width = 520 * 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="" /> * *m: arata_meniu_fluna *m: jurnal *m: sectii_requery *m: statusbarclick *p: cverificaresetari *p: ostatusbar *p: _memberdata && XML Metadata for customizable properties * * 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 = * 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ț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