*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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="Image2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page4.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page5.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" /> * *m: arata_meniu_fluna *m: do_cauta *m: esteuncontract *m: jurnal *m: statusbarclick * * AlwaysOnBottom = .T. AutoCenter = .T. BackColor = 255,255,255 Caption = "" Closable = .F. ControlBox = .F. DoCreate = .T. Enabled = .T. FillColor = 0,0,0 HalfHeightCaption = .F. Height = 455 MaxButton = .F. MinButton = .F. Movable = .F. Name = "Form1" Picture = ..\..\ ShowTips = .T. Width = 797 WindowState = 2 * ADD OBJECT 'Image1' AS image WITH ; Anchor = 12, ; Height = 220, ; Left = 226, ; Name = "Image1", ; Picture = ..\grafice\roaclienti.bmp, ; Top = 215, ; Width = 556, ; ZOrderSet = 2 *< END OBJECT: BaseClass="image" /> ADD OBJECT 'Image2' AS image WITH ; BackStyle = 1, ; Height = 63, ; Left = 0, ; Name = "Image2", ; Picture = ..\grafice\f1.jpg, ; Stretch = 2, ; Top = -3, ; Width = 804, ; ZOrderSet = 0 *< END OBJECT: BaseClass="image" /> ADD OBJECT 'Imagine01' AS imagine WITH ; ccod = A01, ; Height = 55, ; Left = 6, ; Name = "Imagine01", ; nid_img = 1, ; ntip = 4, ; ToolTipText = "iif(gnParametru_prog = 1,'Vizualizare clienti','Vizualizare furnizori')", ; Top = -3, ; Width = 42 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ; Anchor = 8, ; Caption = "Operator:", ; FontItalic = .T., ; ForeColor = 255,255,255, ; Left = 580, ; Name = "lb_utilizator", ; Top = 5, ; ZOrderSet = 4 *< 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 = 634, ; Name = "lb_utilizator1", ; Top = 5, ; Visible = .F., ; ZOrderSet = 5 *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> ADD OBJECT 'Pagefr1' AS pagefr WITH ; ErasePage = .T., ; Height = 475, ; Left = -1, ; Name = "Pagefr1", ; Top = 56, ; Width = 804, ; Page1.Name = "Page1", ; Page1.PageOrder = 1, ; Page2.Ct_contracte1.But_excel1.Name = "But_excel1", ; Page2.Ct_contracte1.but_factura.Name = "but_factura", ; Page2.Ct_contracte1.But_listare1.Name = "But_listare1", ; Page2.Ct_contracte1.BUT_MODIFICA1.Name = "BUT_MODIFICA1", ; Page2.Ct_contracte1.But_nou1.Name = "But_nou1", ; Page2.Ct_contracte1.But_nou_gri1.Name = "But_nou_gri1", ; Page2.Ct_contracte1.But_reset_criterii1.Name = "But_reset_criterii1", ; Page2.Ct_contracte1.But_start_criterii1.Name = "But_start_criterii1", ; Page2.Ct_contracte1.But_sterge1.Name = "But_sterge1", ; Page2.Ct_contracte1.Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ; Page2.Ct_contracte1.Clb_tx_simplu1.Name = "Clb_tx_simplu1", ; Page2.Ct_contracte1.Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ; Page2.Ct_contracte1.Gridsort1.Name = "Gridsort1", ; Page2.Ct_contracte1.grid_contracte.cAre_link.Command1.Name = "Command1", ; Page2.Ct_contracte1.grid_contracte.cAre_link.Command2.Name = "Command2", ; Page2.Ct_contracte1.grid_contracte.cAre_link.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cAre_link.Name = "cAre_link", ; Page2.Ct_contracte1.grid_contracte.cAre_link.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cData_ctr.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cData_ctr.Name = "cData_ctr", ; Page2.Ct_contracte1.grid_contracte.cData_ctr.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cDurata.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cDurata.Name = "cDurata", ; Page2.Ct_contracte1.grid_contracte.cDurata.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cInactiv.Check1.Alignment = 0, ; Page2.Ct_contracte1.grid_contracte.cInactiv.Check1.Name = "Check1", ; Page2.Ct_contracte1.grid_contracte.cInactiv.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cInactiv.Name = "cInactiv", ; Page2.Ct_contracte1.grid_contracte.cIncetat.Check1.Alignment = 0, ; Page2.Ct_contracte1.grid_contracte.cIncetat.Check1.Name = "Check1", ; Page2.Ct_contracte1.grid_contracte.cIncetat.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cIncetat.Name = "cIncetat", ; Page2.Ct_contracte1.grid_contracte.cNr_ctr.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cNr_ctr.Name = "cNr_ctr", ; Page2.Ct_contracte1.grid_contracte.cNr_ctr.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cNume.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cNume.Name = "cNume", ; Page2.Ct_contracte1.grid_contracte.cNume.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cNume_val.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cNume_val.Name = "cNume_val", ; Page2.Ct_contracte1.grid_contracte.cNume_val.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column12.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column12.Name = "Column12", ; Page2.Ct_contracte1.grid_contracte.Column12.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column13.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column13.Name = "Column13", ; Page2.Ct_contracte1.grid_contracte.Column13.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column14.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column14.Name = "Column14", ; Page2.Ct_contracte1.grid_contracte.Column14.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column15.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column15.Name = "Column15", ; Page2.Ct_contracte1.grid_contracte.Column15.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column16.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column16.Name = "Column16", ; Page2.Ct_contracte1.grid_contracte.Column16.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column17.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column17.Name = "Column17", ; Page2.Ct_contracte1.grid_contracte.Column17.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column18.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column18.Name = "Column18", ; Page2.Ct_contracte1.grid_contracte.Column18.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column20.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column20.Name = "Column20", ; Page2.Ct_contracte1.grid_contracte.Column20.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column22.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column22.Name = "Column22", ; Page2.Ct_contracte1.grid_contracte.Column22.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column23.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column23.Name = "Column23", ; Page2.Ct_contracte1.grid_contracte.Column23.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Column24.Check1.Alignment = 0, ; Page2.Ct_contracte1.grid_contracte.Column24.Check1.Name = "Check1", ; Page2.Ct_contracte1.grid_contracte.Column24.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.Column24.Name = "Column24", ; Page2.Ct_contracte1.grid_contracte.Column24.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cSemnat.Check1.Alignment = 0, ; Page2.Ct_contracte1.grid_contracte.cSemnat.Check1.Name = "Check1", ; Page2.Ct_contracte1.grid_contracte.cSemnat.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cSemnat.Name = "cSemnat", ; Page2.Ct_contracte1.grid_contracte.cSucursala.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cSucursala.Name = "cSucursala", ; Page2.Ct_contracte1.grid_contracte.cSucursala.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cTipc.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cTipc.Name = "cTipc", ; Page2.Ct_contracte1.grid_contracte.cTipc.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cValctva.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cValctva.Name = "cValctva", ; Page2.Ct_contracte1.grid_contracte.cValctva.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.cValvaluta.Header1.Name = "Header1", ; Page2.Ct_contracte1.grid_contracte.cValvaluta.Name = "cValvaluta", ; Page2.Ct_contracte1.grid_contracte.cValvaluta.Text1.Name = "Text1", ; Page2.Ct_contracte1.grid_contracte.Name = "grid_contracte", ; Page2.Ct_contracte1.Left = 1, ; Page2.Ct_contracte1.Name = "Ct_contracte1", ; Page2.Ct_contracte1.Top = 7, ; Page2.Ct_contracte1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ; Page2.Ct_contracte1._lbbase1.Name = "_lbbase1", ; Page2.Ct_contracte1._shape1.Name = "_shape1", ; Page2.Name = "Page2", ; Page2.PageOrder = 2, ; Page4.Enabled = .T., ; Page4.Name = "Page4", ; Page4.PageOrder = 3, ; Page5.Enabled = .T., ; Page5.Name = "Page5", ; Page5.PageOrder = 4 *< END OBJECT: ClassLib="..\clase\ofundal_roaclienti.vcx" BaseClass="pageframe" /> ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 4, ; Top = 21, ; Width = 142, ; Label_item1.Caption = "Parteneri", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 6, ; ntip = 4, ; Top = 144, ; Width = 142, ; Label_item1.Caption = "Opţiuni server", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page1.Cw3' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw3", ; nid_cw = 3, ; ntip = 4, ; Top = 70, ; Width = 142, ; Label_item1.Caption = "Tipuri contracte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page1.Cw4' AS cw WITH ; Left = 4, ; Name = "Cw4", ; nid_cw = 2, ; ntip = 2, ; TabIndex = 2, ; Top = 45, ; Width = 142, ; Label_item1.Caption = "Agenţi", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page1.Cw5' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw5", ; nid_cw = 4, ; ntip = 2, ; Top = 95, ; Width = 142, ; Label_item1.Caption = "Metode selecţie executant", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page1.Cw6' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw6", ; nid_cw = 7, ; ntip = 4, ; Top = 168, ; Width = 142, ; Label_item1.Caption = "Opţiuni locale", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page1.Cw7' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw7", ; nid_cw = 5, ; ntip = 2, ; TabIndex = 7, ; Top = 120, ; Width = 142, ; Label_item1.Caption = "Curs valutar", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page1.shape1' AS pict_meniu WITH ; Height = 362, ; Left = 0, ; Name = "shape1", ; Picture = ..\grafice\f2.jpg, ; Top = 7, ; Width = 160 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.Page4.Cw1' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 4, ; Top = 21, ; Width = 161, ; Label_item1.Caption = "Lista facturilor partenerului", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page4.Cw2' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 4, ; Top = 45, ; Width = 161, ; Label_item1.Caption = "Facturi ataşate la scadenţar", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page4.Cw3' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw3", ; nid_cw = 3, ; ntip = 4, ; Top = 69, ; Width = 161, ; Label_item1.Caption = "Rate de facturat", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page4.Cw4' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 2, ; TabIndex = 1, ; Top = 105, ; Width = 161, ; Label_item1.Caption = "Listă facturi şi avize", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page4.Cw5' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw5", ; nid_cw = 5, ; ntip = 2, ; TabIndex = 1, ; Top = 129, ; Width = 161, ; Label_item1.Caption = "Listă proforme", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page4.shape1' AS pict_meniu WITH ; Height = 362, ; Left = 0, ; Name = "shape1", ; Picture = ..\grafice\f2.jpg, ; Top = 7, ; Width = 178 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.Page5.Cw1' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 4, ; Top = 21, ; Width = 161, ; Label_item1.Caption = "Lista încasărilor", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page5.Cw2' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 3, ; ntip = 4, ; Top = 76, ; Width = 161, ; Label_item1.Caption = "Facturi - detalii încasare", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page5.Cw3' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw3", ; nid_cw = 2, ; ntip = 4, ; Top = 48, ; Width = 161, ; Label_item1.Caption = "Client - Contracte - Facturi", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page5.Cw4' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 4, ; Top = 104, ; Width = 161, ; Label_item1.Caption = "Facturi încasate în luna curentă", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.Page5.shape1' AS pict_meniu WITH ; Height = 362, ; Left = 0, ; Name = "shape1", ; Picture = ..\grafice\f2.jpg, ; Top = 7, ; Width = 178 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> PROCEDURE arata_meniu_fluna DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg ENDPROC PROCEDURE do_cauta thisform.pagefr1.page2.ct_contracte1.do_cauta ENDPROC PROCEDURE esteuncontract LOCAL llContract llContract = .T. IF EMPTY(NVL(goContract.id_ctr,0)) AMESSAGEBOX('Selectati un contract!',0+48,'Contract') llContract = .F. ENDIF RETURN llContract ENDPROC PROCEDURE Init thisform.imagine01.Init() ENDPROC PROCEDURE jurnal ENDPROC PROCEDURE KeyPress Lparameters nKeyCode, nShiftAltCtrl If nKeyCode==-1 &&F2 Quit Endif ENDPROC PROCEDURE RightClick Thisform.arata_meniu_fluna() ENDPROC PROCEDURE Show Lparameters nStyle DoDefault(nStyle) This.AlwaysOnBottom = .T. If Not Pemstatus(_Screen,"StatusBar", 5) Then _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 2) Endif Thisform.oStatusBar = _Screen.StatusBar Thisform.oStatusBar.ctlIcon="roaautomic.ico" Thisform.oStatusBar.ctlMessage = _Screen.Caption Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick]) 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 *!* modificare v 2.0.34 IF gnParametru_prog = 2 This.imaGE1.Picture = [roafurnizori.bmp] ELSE This.image1.Picture = [roaclienti.bmp] endif *!* modificare v 2.0.34 ^ Local w,h w=_Screen.Width h=_Screen.Height This.Width=w This.Height=h This.image1.Left=w-This.image1.Width-25 This.image1.Top=h-This.image1.Height-25 *!* This.lb_utilizator.Top=h-This.lb_utilizator.Height *!* This.lb_utilizator1.Top=h-This.lb_utilizator1.Height This.image2.Width = w + 180 With This.pagefr1 .Width=w .Height=h .page1.shape1.Height=h .page4.shape1.Height=h .page5.shape1.Height=h ENDWITH SELECT cContracte GO TOP this.pagefr1.paGE2.ct_contracte1.grID_CONTRACTE.SetFocus() Local lcfiltru, llcautare IF !PEMSTATUS(this,'lPrimaData',5) lcfiltru = [Stare;nofiled;1;] llcautare = this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare = .f. this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru) this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare = llcautare this.AddProperty('lPrimaData',.T.) ENDIF ENDPROC PROCEDURE statusbarclick Thisform.oStatusBar.newtooltip() ENDPROC PROCEDURE Image1.RightClick Thisform.arata_meniu_fluna() ENDPROC PROCEDURE Imagine01.do_actiune thisform.pagefr1.pAGE1.cw1.do_actiune ENDPROC PROCEDURE Imagine01.Init DODEFAULT() this.picturedown = iif(gnParametru_prog = 1,'clie2.bmp','furn2.bmp') this.pictureup = iif(gnParametru_prog = 1,'clie1.bmp','furn1.bmp') this.ToolTipText = iif(gnParametru_prog = 1,'Vizualizare clienti','Vizualizare furnizori') ENDPROC PROCEDURE lb_utilizator.RightClick Thisform.arata_meniu_fluna() ENDPROC PROCEDURE lb_utilizator1.RightClick Thisform.arata_meniu_fluna() ENDPROC PROCEDURE Pagefr1.Page1.Click IF TYPE('podg_dg.but_termin1') <> 'U' podg_dg.but_termin1.CLICK() ENDIF IF TYPE('podg_ob.but_termin1') <> 'U' podg_ob.but_termin1.CLICK() ENDIF IF TYPE('podg_tf.but_termin1') <> 'U' podg_tf.but_termin1.CLICK() ENDIF IF TYPE('podg_tl.but_termin1') <> 'U' podg_tl.but_termin1.CLICK() ENDIF IF TYPE('podg_obs.but_termin1') <> 'U' podg_obs.but_termin1.CLICK() ENDIF IF TYPE('podg_link.but_termin1') <> 'U' podg_link.but_termin1.CLICK() ENDIF IF TYPE('podg_fact.but_termin1') <> 'U' podg_fact.but_termin1.CLICK() ENDIF ENDPROC PROCEDURE Pagefr1.Page1.Cw1.do_actiune * DO viz_clienti IN onom_clienti.prg *!* modificare v 2.0.35 *!* DO viz_parteneri IN onomenclatoare.prg If gnParametru_prog = 1 Do vizualizare_clienti In onomenclatoare.prg Else Do vizualizare_furnizori In onomenclatoare.prg Endif *!* modificare v 2.0.35 ^ ENDPROC PROCEDURE Pagefr1.Page1.Cw1.Label_item1.Init this.Caption = iif(gnParametru_prog=1,'Clienţi',iif(gnParametru_prog=2,'Furnizori','Parteneri')) ENDPROC PROCEDURE Pagefr1.Page1.Cw2.do_actiune Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 1 ENDPROC PROCEDURE Pagefr1.Page1.Cw3.do_actiune DO viz_tipuri_ctr IN onomenclatoare.prg ENDPROC PROCEDURE Pagefr1.Page1.Cw4.do_actiune Do vizualizare_agenti In onomenclatoare.prg ENDPROC PROCEDURE Pagefr1.Page1.Cw5.do_actiune DO viz_selectii IN oproceduri_roacontracte.prg ENDPROC PROCEDURE Pagefr1.Page1.Cw6.do_actiune Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 2 ENDPROC PROCEDURE Pagefr1.Page1.Cw7.do_actiune DO vizualizeaza_curs IN oproceduri_curs.prg ENDPROC PROCEDURE Pagefr1.Page1.RightClick Thisform.arata_meniu_fluna() ENDPROC PROCEDURE Pagefr1.Page2.Activate thisform.image1.Visible = .F. If Type('poGeneratorNumere') = 'U' Private poGeneratorNumere poGeneratorNumere = Createobject('oGeneratorNumere') ENDIF *!* thisform.lb_nivel.Visible = .F. *!* thisform.lb_nivel1.Visible = .F. *!* thisform.lb_utilizator.Visible = .F. *!* thisform.lb_utilizator1.Visible = .F. ENDPROC PROCEDURE Pagefr1.Page2.Click * this.ct_contracte1.do_cauta() this.ct_contracte1.grid_contracte.Refresh ENDPROC PROCEDURE Pagefr1.Page2.Ct_contracte1.AddObject LPARAMETERS cName, cClass ENDPROC PROCEDURE Pagefr1.Page2.Deactivate thisform.image1.Visible = .T. *!* thisform.lb_nivel.Visible = .T. *!* thisform.lb_nivel1.Visible = .T. *!* thisform.lb_utilizator.Visible = .T. *!* thisform.lb_utilizator1.Visible = .T. *!* 27.01.2008 *!* IF EMPTY(goContract.id_ctr) *!* *!* AMESSAGEBOX('Nu este selectat nici un contract!',0+48,_SCREEN.CAPTION) *!* this.Parent.paGE4.Enabled = .F. *!* this.Parent.paGE5.Enabled = .F. *!* *!* _screen.LockScreen= .T. *!* ELSE *!* this.Parent.paGE4.Enabled = .T. *!* this.Parent.paGE5.Enabled = .T. *!* ENDIF *!* 27.01.2008 ^ ENDPROC PROCEDURE Pagefr1.Page4.Click IF TYPE('podg_dg.but_termin1') <> 'U' podg_dg.but_termin1.CLICK() ENDIF IF TYPE('podg_ob.but_termin1') <> 'U' podg_ob.but_termin1.CLICK() ENDIF IF TYPE('podg_tf.but_termin1') <> 'U' podg_tf.but_termin1.CLICK() ENDIF IF TYPE('podg_tl.but_termin1') <> 'U' podg_tl.but_termin1.CLICK() ENDIF IF TYPE('podg_obs.but_termin1') <> 'U' podg_obs.but_termin1.CLICK() ENDIF IF TYPE('podg_link.but_termin1') <> 'U' podg_link.but_termin1.CLICK() ENDIF IF TYPE('podg_fact.but_termin1') <> 'U' podg_fact.but_termin1.CLICK() ENDIF IF TYPE('podg_garantii.but_termin1') <> 'U' podg_garantii.but_termin1.CLICK() ENDIF ENDPROC PROCEDURE Pagefr1.Page4.Cw1.do_actiune IF !thisform.esteuncontract() RETURN ENDIF DO CASE CASE gnParametru_prog = 1 DO lans_ireg_parteneri WITH .F., gcCont411, .T. CASE gnParametru_prog = 2 DO lans_ireg_parteneri WITH .F.,'401', .F. ENDCASE * DO viz_facturi IN oproceduri_roacontracte.prg ENDPROC PROCEDURE Pagefr1.Page4.Cw1.Label_item1.Init this.Caption = iif(gnParametru_prog=1,'Lista facturilor clientului',iif(gnParametru_prog=2,'Lista facturilor furnizorului','Lista facturilor partenerului')) ENDPROC PROCEDURE Pagefr1.Page4.Cw2.do_actiune IF !thisform.esteuncontract() RETURN ENDIF DO facturi_atasate IN oproceduri_roacontracte.prg ENDPROC PROCEDURE Pagefr1.Page4.Cw3.do_actiune IF !thisform.esteuncontract() RETURN ENDIF DO rateDeFacturat IN oproceduri_roacontracte.prg ENDPROC PROCEDURE Pagefr1.Page4.Cw4.do_actiune Do vizualizare_facturi In oproceduri_facturare.prg ENDPROC PROCEDURE Pagefr1.Page4.Cw5.do_actiune Do vizualizare_proforme In oproceduri_facturare.prg ENDPROC PROCEDURE Pagefr1.Page4.RightClick Thisform.arata_meniu_fluna() ENDPROC PROCEDURE Pagefr1.Page5.Click IF TYPE('podg_dg.but_termin1') <> 'U' podg_dg.but_termin1.CLICK() ENDIF IF TYPE('podg_ob.but_termin1') <> 'U' podg_ob.but_termin1.CLICK() ENDIF IF TYPE('podg_tf.but_termin1') <> 'U' podg_tf.but_termin1.CLICK() ENDIF IF TYPE('podg_tl.but_termin1') <> 'U' podg_tl.but_termin1.CLICK() ENDIF IF TYPE('podg_obs.but_termin1') <> 'U' podg_obs.but_termin1.CLICK() ENDIF IF TYPE('podg_link.but_termin1') <> 'U' podg_link.but_termin1.CLICK() ENDIF IF TYPE('podg_fact.but_termin1') <> 'U' podg_fact.but_termin1.CLICK() ENDIF IF TYPE('podg_garantii.but_termin1') <> 'U' podg_garantii.but_termin1.CLICK() ENDIF ENDPROC PROCEDURE Pagefr1.Page5.Cw1.do_actiune IF !thisform.esteuncontract() RETURN ENDIF DO viz_incasari IN oproceduri_roacontracte.prg ENDPROC PROCEDURE Pagefr1.Page5.Cw1.Label_item1.Init this.Caption = iif(gnParametru_prog=1,'Lista încasărilor',iif(gnParametru_prog=2,'Lista plăţilor','Lista încasărilor/plăţilor')) ENDPROC PROCEDURE Pagefr1.Page5.Cw2.do_actiune IF !thisform.esteuncontract() RETURN ENDIF DO CASE CASE gnParametru_prog = 1 DO viz_frm_facturi WITH 2, gcCont411, goContract.id_part, goContract.denumire IN orap_terti_comun.prg CASE gnParametru_prog = 2 DO viz_frm_facturi WITH 2,[401], goContract.id_part, goContract.denumire IN orap_terti_comun.prg ENDCASE ENDPROC PROCEDURE Pagefr1.Page5.Cw2.Label_item1.Init this.Caption = iif(gnParametru_prog=1,'Facturi - detalii încasare',iif(gnParametru_prog=2,'Facturi - detalii plăţi','Facturi - detalii încasare/plăţi')) ENDPROC PROCEDURE Pagefr1.Page5.Cw3.do_actiune IF !thisform.esteuncontract() RETURN ENDIF LOCAL llActiv DO CASE CASE gnParametru_prog = 1 llActiv = .T. DO rap_fact_grup_ctr WITH gcCont411, llActiv IN oproceduri_roacontracte.prg CASE gnParametru_prog = 2 llActiv = .F. DO rap_fact_grup_ctr WITH '401', llActiv IN oproceduri_roacontracte.prg ENDCASE ENDPROC PROCEDURE Pagefr1.Page5.Cw3.Label_item1.Init this.Caption = iif(gnParametru_prog=1,'Client-Contracte-Facturi',iif(gnParametru_prog=2,'Furnizor-Contracte-Facturi','Partener-Contracte-Facturi')) ENDPROC PROCEDURE Pagefr1.Page5.Cw4.do_actiune IF !thisform.esteuncontract() RETURN ENDIF DO CASE CASE gnParametru_prog = 1 DO rapIncasari.mpr CASE gnParametru_prog = 2 *DO viz_frm_facturi WITH 2,[401], goContract.id_part, goContract.denumire IN orap_terti_comun.prg ENDCASE ENDPROC PROCEDURE Pagefr1.Page5.Cw4.Label_item1.Init IF gnParametru_prog = 1 this.Caption = 'Facturi încasate în luna curentă' ELSE this.Visible = .F. ENDIF ENDPROC PROCEDURE Pagefr1.Page5.RightClick Thisform.arata_meniu_fluna() ENDPROC ENDDEFINE