*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * DEFINE CLASS pagefr AS pg_meniu OF "..\comun\clase\ofundal.vcx" *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Page2.Ct_contracte1" UniqueID="" Timestamp="" /> * ActivePage = 2 ErasePage = .T. Height = 578 Name = "pagefr" PageCount = 4 Themes = .F. Width = 800 Page1.Caption = "Definire" Page1.Name = "Page1" Page1.PageOrder = 1 Page2.Caption = "Lista contractelor" Page2.Name = "Page2" Page2.PageOrder = 2 Page3.BackColor = 255,255,255 Page3.Caption = "Facturi" Page3.Name = "Page4" Page3.PageOrder = 3 Page4.BackColor = 255,255,255 Page4.Caption = "Încasări (Plăţi)" Page4.FontCharSet = 238 Page4.Name = "Page5" Page4.PageOrder = 4 * ADD OBJECT 'Page2.Ct_contracte1' AS ct_contracte WITH ; Anchor = 15, ; Left = 1, ; Name = "Ct_contracte1", ; Top = 0, ; _shape1.Name = "_shape1", ; Gridsort1.Name = "Gridsort1", ; _ct_controller_keypress1.Name = "_ct_controller_keypress1", ; grid_contracte.cAre_link.Command1.Name = "Command1", ; grid_contracte.cAre_link.Command2.Name = "Command2", ; grid_contracte.cAre_link.Header1.Name = "Header1", ; grid_contracte.cAre_link.Name = "cAre_link", ; grid_contracte.cAre_link.Text1.Name = "Text1", ; grid_contracte.cData_ctr.Header1.Name = "Header1", ; grid_contracte.cData_ctr.Name = "cData_ctr", ; grid_contracte.cData_ctr.Text1.Name = "Text1", ; grid_contracte.cDurata.Header1.Name = "Header1", ; grid_contracte.cDurata.Name = "cDurata", ; grid_contracte.cDurata.Text1.Name = "Text1", ; grid_contracte.cInactiv.Check1.Alignment = 0, ; grid_contracte.cInactiv.Check1.Name = "Check1", ; grid_contracte.cInactiv.Header1.Name = "Header1", ; grid_contracte.cInactiv.Name = "cInactiv", ; grid_contracte.cIncetat.Check1.Alignment = 0, ; grid_contracte.cIncetat.Check1.Name = "Check1", ; grid_contracte.cIncetat.Header1.Name = "Header1", ; grid_contracte.cIncetat.Name = "cIncetat", ; grid_contracte.cNr_ctr.Header1.Name = "Header1", ; grid_contracte.cNr_ctr.Name = "cNr_ctr", ; grid_contracte.cNr_ctr.Text1.Name = "Text1", ; grid_contracte.cNume.Header1.Name = "Header1", ; grid_contracte.cNume.Name = "cNume", ; grid_contracte.cNume.Text1.Name = "Text1", ; grid_contracte.cNume_val.Header1.Name = "Header1", ; grid_contracte.cNume_val.Name = "cNume_val", ; grid_contracte.cNume_val.Text1.Name = "Text1", ; grid_contracte.COLUMN12.Header1.Name = "Header1", ; grid_contracte.COLUMN12.Name = "COLUMN12", ; grid_contracte.COLUMN12.Text1.Name = "Text1", ; grid_contracte.COLUMN13.Header1.Name = "Header1", ; grid_contracte.COLUMN13.Name = "COLUMN13", ; grid_contracte.COLUMN13.Text1.Name = "Text1", ; grid_contracte.COLUMN14.Header1.Name = "Header1", ; grid_contracte.COLUMN14.Name = "COLUMN14", ; grid_contracte.COLUMN14.Text1.Name = "Text1", ; grid_contracte.COLUMN15.Header1.Name = "Header1", ; grid_contracte.COLUMN15.Name = "COLUMN15", ; grid_contracte.COLUMN15.Text1.Name = "Text1", ; grid_contracte.COLUMN16.Header1.Name = "Header1", ; grid_contracte.COLUMN16.Name = "COLUMN16", ; grid_contracte.COLUMN16.Text1.Name = "Text1", ; grid_contracte.COLUMN17.Header1.Name = "Header1", ; grid_contracte.COLUMN17.Name = "COLUMN17", ; grid_contracte.COLUMN17.Text1.Name = "Text1", ; grid_contracte.COLUMN18.Header1.Name = "Header1", ; grid_contracte.COLUMN18.Name = "COLUMN18", ; grid_contracte.COLUMN18.Text1.Name = "Text1", ; grid_contracte.COLUMN20.Header1.Name = "Header1", ; grid_contracte.COLUMN20.Name = "COLUMN20", ; grid_contracte.COLUMN20.Text1.Name = "Text1", ; grid_contracte.COLUMN22.Header1.Name = "Header1", ; grid_contracte.COLUMN22.Name = "COLUMN22", ; grid_contracte.COLUMN22.Text1.Name = "Text1", ; grid_contracte.COLUMN23.Header1.Name = "Header1", ; grid_contracte.COLUMN23.Name = "COLUMN23", ; grid_contracte.COLUMN23.Text1.Name = "Text1", ; grid_contracte.COLUMN24.Check1.Alignment = 0, ; grid_contracte.COLUMN24.Check1.Name = "Check1", ; grid_contracte.COLUMN24.Header1.Name = "Header1", ; grid_contracte.COLUMN24.Name = "COLUMN24", ; grid_contracte.COLUMN24.Text1.Name = "Text1", ; grid_contracte.cSemnat.Check1.Alignment = 0, ; grid_contracte.cSemnat.Check1.Name = "Check1", ; grid_contracte.cSemnat.Header1.Name = "Header1", ; grid_contracte.cSemnat.Name = "cSemnat", ; grid_contracte.cSucursala.Header1.Name = "Header1", ; grid_contracte.cSucursala.Name = "cSucursala", ; grid_contracte.cSucursala.Text1.Name = "Text1", ; grid_contracte.cTipc.Header1.Name = "Header1", ; grid_contracte.cTipc.Name = "cTipc", ; grid_contracte.cTipc.Text1.Name = "Text1", ; grid_contracte.cValctva.Header1.Name = "Header1", ; grid_contracte.cValctva.Name = "cValctva", ; grid_contracte.cValctva.Text1.Name = "Text1", ; grid_contracte.cValvaluta.Header1.Name = "Header1", ; grid_contracte.cValvaluta.Name = "cValvaluta", ; grid_contracte.cValvaluta.Text1.Name = "Text1", ; grid_contracte.Name = "grid_contracte", ; _lbbase1.Name = "_lbbase1", ; But_nou_gri1.Name = "But_nou_gri1", ; BUT_MODIFICA1.Name = "BUT_MODIFICA1", ; But_nou1.Name = "But_nou1", ; But_sterge1.Name = "But_sterge1", ; but_factura.Name = "but_factura", ; Clb_tx_simplu1.LB_SIMPLU1.Name = "LB_SIMPLU1", ; Clb_tx_simplu1.Name = "Clb_tx_simplu1", ; Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ; But_listare1.Name = "But_listare1", ; But_start_criterii1.Name = "But_start_criterii1", ; But_excel1.Name = "But_excel1", ; But_reset_criterii1.Name = "But_reset_criterii1" *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> ENDDEFINE DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx" *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="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: esteuncontract *p: cgridsortlist *p: llnou * * AlwaysOnTop = .F. BackColor = 255,255,255 BorderStyle = 1 Caption = "" cgridsortlist = grid_contracte Closable = .F. ControlBox = .F. DoCreate = .T. Height = 584 KeyPreview = .T. Left = 0 llnou = .F. MaxButton = .F. MinButton = .F. Movable = .F. Name = "princ" ShowTips = .T. Top = 0 Width = 793 WindowState = 2 * ADD OBJECT 'Image1' AS image WITH ; Anchor = 12, ; Height = 220, ; Left = 226, ; Name = "Image1", ; Picture = ..\grafice\roaclienti.bmp, ; Top = 235, ; 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 = 0, ; 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 = 0, ; 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 = 8, ; 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 = 8, ; 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 = 59, ; 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="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 do_cauta thisform.pagefr1.page2.ct_contracte1.do_cauta ENDPROC PROCEDURE do_reset *!* Local llcautare *!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty = "" *!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro = "" *!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro_full = "" *!* If Type ("thisform.pagefr1.page2.ct_contracte1.but_start_criterii1") = 'O' *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.ToolTipText=Thisform.pagefr1.page2.ct_contracte1.filtru_pretty *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.SetFocus *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.pornit = "nu" *!* Endif *!* *!* SET STEP ON *!* lcfiltru = [Stare;nofiled;1;] *!* *!* llcautare = This.Parent.but_start_criterii1.lcautare *!* *!* This.Parent.but_start_criterii1.lcautare = .F. *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru) *!* *!* This.Parent.but_start_criterii1.lcautare = llcautare *!* *Thisform.pagefr1.page2.ct_contracte1.do_cauta(.T.) *!* Thisform.pagefr1.page2.ct_contracte1.Refresh 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 RightClick *!* modificare v 2.0.39 *!* save_grid_tag(This.pagefr1.page2.ct_contracte1.grid_contracte) *!* lcsql = [SELECT * FROM vcontracte_toate WHERE 1=2] *!* lcCursor = [cContracte] *!* lnSucces = goExecutor.oExecute(lcsql, lcCursor) *!* If lnSucces < 0 *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") *!* Return *!* ENDIF *!* restore_grid_tag(This.pagefr1.page2.ct_contracte1.grid_contracte) *!* ***------------------------------------------------- *!* Do start_firma In ostartfirma.prg *!* verifica_drepturi('oprinc','pagefr1') *!* actualizeaza_drepturi_roacontracte() DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg *!* modificare v 2.0.39 ^ ENDPROC PROCEDURE Show Lparameters nStyle LOCAL lnPornire verifica_drepturi('oprinc','pagefr1') actualizeaza_drepturi_roacontracte() *!* 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 Image1.RightClick *!* modificare v 2.0.39 *!* save_grid_tag(oprinc.pagefr1.page2.ct_contracte1.grid_contracte) *!* lcsql = [SELECT * FROM vcontracte_toate WHERE 1=2] *!* lcCursor = [cContracte] *!* lnSucces = goExecutor.oExecute(lcsql, lcCursor) *!* If lnSucces < 0 *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") *!* Return *!* ENDIF *!* restore_grid_tag(oprinc.pagefr1.page2.ct_contracte1.grid_contracte) *!* ***------------------------------------------------- *!* Do start_firma In ostartfirma.prg *!* verifica_drepturi('oprinc','pagefr1') *!* actualizeaza_drepturi_roacontracte() DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg *!* modificare v 2.0.39 ^ 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.rightclick ENDPROC PROCEDURE lb_utilizator1.RightClick thisform.rightclick 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 *!* modificare v 2.0.39 *!* DO start_firma IN ostartfirma.prg *!* verifica_drepturi('oprinc','pagefr1') *!* actualizeaza_drepturi_roacontracte() DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg *!* modificare v 2.0.39 ^ 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 *!* modificare v 2.0.39 *!* DO start_firma IN ostartfirma.prg *!* verifica_drepturi('oprinc','pagefr1') *!* actualizeaza_drepturi_roacontracte() DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg *!* modificare v 2.0.39 ^ 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 *!* modificare v 2.0.39 *!* DO start_firma IN ostartfirma.prg *!* verifica_drepturi('oprinc','pagefr1') *!* actualizeaza_drepturi_roacontracte() DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg *!* modificare v 2.0.39 ^ ENDPROC ENDDEFINE