*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="contab.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * DEFINE CLASS pagefr AS pageframe *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> * *m: activate_pag *p: c_deschis *p: c_gri *p: c_inchis * * c_deschis = 16777215 c_gri = 255 c_inchis = 8404992 ErasePage = .T. Height = 90 Name = "pagefr" PageCount = 7 TabStyle = 1 Themes = .F. Width = 787 Page1.Caption = " * " Page1.FontName = "Segoe UI" Page1.FontSize = 10 Page1.Name = "p1" Page2.Caption = "Capitaluri" Page2.FontName = "Segoe UI" Page2.FontSize = 10 Page2.Name = "p2" Page3.Caption = "Imobilizari" Page3.FontName = "Segoe UI" Page3.FontSize = 10 Page3.Name = "p3" Page4.Caption = " Terti " Page4.FontName = "Segoe UI" Page4.FontSize = 10 Page4.Name = "p4" Page5.Caption = "Trezorerie" Page5.FontName = "Segoe UI" Page5.FontSize = 10 Page5.Name = "p5" Page6.Caption = "Cheltuieli" Page6.FontName = "Segoe UI" Page6.FontSize = 10 Page6.Name = "p6" Page7.Caption = "Venituri" Page7.FontName = "Segoe UI" Page7.FontSize = 10 Page7.Name = "p7" * PROCEDURE activate_pag Lparameters toPagina, tnPagina1, tnPagina2 *!* FOR i=1 TO THIS.PAGECOUNT *!* zi='this.p'+ALLTRIM(STR(i))+'.' *!* IF i<>np *!* &zi.BACKCOLOR=THIS.c_gri *!* &zi.FORECOLOR=THIS.c_deschis *!* ELSE *!* &zi.BACKCOLOR=THIS.c_deschis *!* &zi.FORECOLOR=THIS.c_inchis *!* ENDIF *!* NEXT *nr_gest=np *osetgest.tbrprim.refresh ENDPROC PROCEDURE Init *!* this.c_gri = 11630087 this.c_gri = RGB(255,255,255) *!* this.c_deschis = RGB(255,255,255) && 016777215 this.c_deschis = RGB(255,255,255) && 016777215 this.c_inchis = RGB(255,255,255) && 0 &&8404992 this.SetAll('backcolor',this.c_gri,'page') ENDPROC PROCEDURE p1.Activate this.parent.activate_pag(1) ENDPROC PROCEDURE p2.Activate this.parent.activate_pag(2) ENDPROC PROCEDURE p3.Activate this.parent.activate_pag(3) ENDPROC PROCEDURE p4.Activate this.parent.activate_pag(4) ENDPROC PROCEDURE p5.Activate this.parent.activate_pag(5) ENDPROC PROCEDURE p6.Activate this.parent.activate_pag(6) ENDPROC PROCEDURE p7.Activate this.parent.activate_pag(7) ENDPROC 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="Pagefr1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p1.Pict_liniuta5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p2.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p3.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp1.Pict_liniuta3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Pict_liniuta3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp2.Cw101" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw11" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw12" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw13" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Pict_liniuta4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p4.Pfr.pp3.Cw14" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp1.Pict_liniuta4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp2.Pict_liniuta4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p5.Pfr.pp3.Pict_liniuta3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p6.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p6.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p6.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p7.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p7.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Pagefr1.p7.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine06" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine08" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine07" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine09" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine04" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine05" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine03" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="oContextMenu" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Imagine11" UniqueID="" Timestamp="" /> * *m: activate_pag2 *m: activate_pag3 *m: getcwbynumber *m: verifica_invalidat *p: npagina1 && numarul paginii din pageframe-ul principal *p: npagina2 && numarul paginii din pageframe-ul secundar *p: opaginaactiva *p: _memberdata && XML Metadata for customizable properties * * AlwaysOnTop = .F. BackColor = 255,255,255 BorderStyle = 1 DoCreate = .T. Height = 565 KeyPreview = .T. Name = "princ" npagina1 = 1 npagina2 = 1 opaginaactiva = NULL ShowTips = .T. Width = 800 WindowState = 2 WindowType = 0 _memberdata = * ADD OBJECT 'Container1' AS container WITH ; Anchor = 6, ; BackColor = 255,255,255, ; BackStyle = 0, ; BorderWidth = 0, ; Height = 48, ; Left = 204, ; Name = "Container1", ; SpecialEffect = 1, ; TabIndex = 2, ; TabStop = .F., ; Top = 478, ; Width = 302, ; ZOrderSet = 3 *< END OBJECT: BaseClass="container" /> ADD OBJECT 'Container1.Label1' AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Operator:", ; FontItalic = .T., ; ForeColor = 0,0,128, ; Height = 17, ; Left = 8, ; Name = "Label1", ; Top = 7, ; Width = 53 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Container1.Text1' AS label WITH ; BackStyle = 0, ; Caption = "Text", ; FontBold = .T., ; FontItalic = .T., ; ForeColor = 0,0,128, ; Height = 17, ; Left = 66, ; Name = "Text1", ; Top = 7, ; Width = 216 *< END OBJECT: BaseClass="label" /> ADD OBJECT 'Image1' AS image WITH ; Anchor = 12, ; BackStyle = 0, ; Height = 220, ; Left = 215, ; Name = "Image1", ; Picture = ..\grafice\roacont.bmp, ; Stretch = 0, ; Top = 279, ; Visible = .T., ; Width = 556, ; ZOrderSet = 2 *< END OBJECT: BaseClass="image" /> ADD OBJECT 'Image2' AS image WITH ; Height = 63, ; Left = -3, ; Name = "Image2", ; Picture = ..\comun\grafice\f1.jpg, ; Stretch = 2, ; Top = 0, ; Width = 851 *< END OBJECT: BaseClass="image" /> ADD OBJECT 'Imagine01' AS imagine WITH ; ccod = A01, ; Height = 55, ; Left = 3, ; Name = "Imagine01", ; nid_img = 1, ; ntip = 3, ; Picture = ..\grafice\bal1.bmp, ; picturedown = bal2.bmp, ; pictureup = bal1.bmp, ; ToolTipText = "Balanta", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine02' AS imagine WITH ; ccod = A02, ; Height = 55, ; Left = 56, ; Name = "Imagine02", ; nid_img = 2, ; ntip = 4, ; Picture = ..\comun\grafice\rj1.bmp, ; picturedown = rj2.bmp, ; pictureup = rj1.bmp, ; ToolTipText = "Registrul jurnal", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine03' AS imagine WITH ; ccod = EA04, ; Height = 55, ; Left = 108, ; Name = "Imagine03", ; nid_img = 3, ; ntip = 2, ; Picture = ..\grafice\casa1.bmp, ; picturedown = casa2.bmp, ; pictureup = casa1.bmp, ; ToolTipText = "Registrul de Casa", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine04' AS imagine WITH ; ccod = EB04, ; Height = 55, ; Left = 160, ; Name = "Imagine04", ; nid_img = 4, ; ntip = 2, ; Picture = ..\grafice\banca1.bmp, ; picturedown = banca2.bmp, ; pictureup = banca1.bmp, ; ToolTipText = "Registrul de Banca", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine05' AS imagine WITH ; ccod = DB06, ; Height = 55, ; Left = 212, ; Name = "Imagine05", ; nid_img = 5, ; ntip = 2, ; Picture = ..\comun\grafice\rv1.bmp, ; picturedown = rv2.bmp, ; pictureup = rv1.bmp, ; ToolTipText = "Registrul de vanzari", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine06' AS imagine WITH ; ccod = DA06, ; Height = 55, ; Left = 264, ; Name = "Imagine06", ; nid_img = 6, ; ntip = 2, ; Picture = ..\comun\grafice\rc1.bmp, ; picturedown = rc2.bmp, ; pictureup = rc1.bmp, ; ToolTipText = "Registrul de cumparari", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine07' AS imagine WITH ; ccod = DB08, ; Height = 55, ; Left = 315, ; Name = "Imagine07", ; nid_img = 7, ; ntip = 3, ; Picture = ..\grafice\fctv1.bmp, ; picturedown = fctv2.bmp, ; pictureup = fctv1.bmp, ; ToolTipText = "Facturi vanzari", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine08' AS imagine WITH ; ccod = DA08, ; Height = 55, ; Left = 367, ; Name = "Imagine08", ; nid_img = 8, ; ntip = 3, ; Picture = ..\grafice\fctc1.bmp, ; picturedown = fctc2.bmp, ; pictureup = fctc1.bmp, ; ToolTipText = "Facturi cumparari", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine09' AS imagine WITH ; ccod = DB07, ; Height = 55, ; Left = 419, ; Name = "Imagine09", ; nid_img = 9, ; ntip = 3, ; Picture = ..\grafice\clie1.bmp, ; picturedown = clie2.bmp, ; pictureup = clie1.bmp, ; ToolTipText = "Analitic Clienti", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine10' AS imagine WITH ; ccod = DA07, ; Height = 55, ; Left = 471, ; Name = "Imagine10", ; nid_img = 10, ; ntip = 3, ; Picture = ..\grafice\furn1.bmp, ; picturedown = furn2.bmp, ; pictureup = furn1.bmp, ; ToolTipText = "Analitic Furnizori", ; Top = 0, ; Width = 52 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Imagine11' AS imagine WITH ; BackStyle = 0, ; ccod = A01, ; Height = 55, ; Left = 522, ; Name = "Imagine11", ; nid_img = 10, ; ntip = 3, ; Picture = ..\comun\grafice\validare11.bmp, ; picturedown = validare12.bmp, ; pictureup = validare11.bmp, ; ToolTipText = "Situatii invalidate", ; Top = 0, ; Width = 42 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'oContextMenu' AS ctl32_contextmenu WITH ; Height = 21, ; Left = 204, ; Name = "oContextMenu", ; TabIndex = 3, ; Top = 444, ; Width = 64, ; lblname.Name = "lblname" *< END OBJECT: ClassLib="..\comun\utile\ctl32\ctl32_contextmenu.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1' AS pagefr WITH ; c_deschis = 255, ; c_gri = 16777215, ; c_inchis = 0, ; ErasePage = .T., ; Height = 487, ; Left = -1, ; Name = "Pagefr1", ; TabIndex = 1, ; TabStyle = 0, ; Top = 65, ; Width = 787, ; ZOrderSet = 1, ; p1.BackColor = 255,255,255, ; p1.Caption = " * ", ; p1.FontName = "Segoe UI", ; p1.FontSize = 10, ; p1.Name = "p1", ; p1.ToolTipText = "* (HOME)", ; p2.BackColor = 255,255,255, ; p2.Caption = "\ ADD OBJECT 'Pagefr1.p1.Cw1' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 3, ; TabIndex = 1, ; Top = 13, ; Width = 180, ; ZOrderSet = 1, ; Label_item1.Caption = "1. Balanta", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw10' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw10", ; nid_cw = 10, ; ntip = 4, ; TabIndex = 10, ; Top = 283, ; Width = 180, ; ZOrderSet = 2, ; LABEL_ITEM1.Caption = "10. Situatii extrabilantiere", ; LABEL_ITEM1.Name = "LABEL_ITEM1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw2' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 4, ; TabIndex = 2, ; Top = 42, ; Width = 180, ; ZOrderSet = 2, ; Label_item1.Caption = "2. Registrul Jurnal", ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 1 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw3' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw3", ; nid_cw = 3, ; ntip = 0, ; TabIndex = 3, ; Top = 79, ; Width = 180, ; ZOrderSet = 4, ; Label_item1.Caption = "3. Note fara predefinire", ; Label_item1.Enabled = .T., ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw4' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 0, ; TabIndex = 4, ; Top = 104, ; Width = 180, ; ZOrderSet = 4, ; Label_item1.Caption = "4. Note definite de utilizator", ; Label_item1.Enabled = .T., ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw5' AS cw_2019 WITH ; cmeniu = notei, ; Height = 20, ; Left = 5, ; Name = "Cw5", ; nid_cw = 5, ; ntip = 0, ; TabIndex = 5, ; Top = 131, ; Width = 180, ; ZOrderSet = 10, ; Label_item1.Caption = "5. Note de �nchidere", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw6' AS cw_2019 WITH ; cmeniu = fisedecont, ; Enabled = .F., ; Height = 20, ; Left = 5, ; Name = "Cw6", ; nid_cw = 6, ; ntip = 1, ; TabIndex = 6, ; Top = 168, ; Width = 180, ; ZOrderSet = 3, ; Label_item1.Caption = "6. Situatii contabile", ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw7' AS cw_2019 WITH ; Enabled = .F., ; Height = 20, ; Left = 5, ; Name = "Cw7", ; nid_cw = 7, ; TabIndex = 7, ; Top = 196, ; Width = 180, ; ZOrderSet = 5, ; Label_item1.Caption = "7. Inventarul patrimoniului", ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw8' AS cw_2019 WITH ; cmeniu = listgen, ; Enabled = .F., ; Height = 20, ; Left = 5, ; Name = "Cw8", ; nid_cw = 8, ; ntip = 1, ; TabIndex = 8, ; Top = 222, ; Width = 180, ; ZOrderSet = 8, ; Label_item1.Caption = "8. Rapoarte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Cw9' AS cw_2019 WITH ; Enabled = .F., ; Height = 20, ; Left = 5, ; Name = "Cw9", ; nid_cw = 9, ; TabIndex = 9, ; Top = 248, ; Width = 180, ; ZOrderSet = 8, ; Label_item1.Caption = "9. Notificari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p1.Pict_liniuta1' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 272, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p1.Pict_liniuta2' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 154, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p1.Pict_liniuta5' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta5", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 67, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p1.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 1, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = -39, ; Width = 200, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p2.Cw1' AS cw_2019 WITH ; cmeniu = capitaluri1, ; Height = 20, ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; TabIndex = 1, ; Top = 11, ; Width = 180, ; ZOrderSet = 1, ; Label_item1.Caption = "1. Capital social", ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Cw2' AS cw_2019 WITH ; cmeniu = capitaluri2, ; Height = 20, ; Left = 5, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 0, ; TabIndex = 2, ; Top = 34, ; Width = 180, ; ZOrderSet = 2, ; Label_item1.Caption = "2. Rezerve reevaluare", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Cw3' AS cw_2019 WITH ; cmeniu = capitaluri3, ; Height = 20, ; Left = 5, ; Name = "Cw3", ; nid_cw = 3, ; ntip = 0, ; TabIndex = 3, ; Top = 57, ; Width = 180, ; ZOrderSet = 4, ; Label_item1.Caption = "3. Rezerve", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Cw4' AS cw_2019 WITH ; cmeniu = capitaluri4, ; Height = 20, ; Left = 5, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 0, ; TabIndex = 4, ; Top = 80, ; Width = 180, ; ZOrderSet = 5, ; Label_item1.Caption = "4. Rezerve de conversie", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Cw5' AS cw_2019 WITH ; cmeniu = capitaluri5, ; Height = 20, ; Left = 5, ; Name = "Cw5", ; nid_cw = 5, ; ntip = 0, ; TabIndex = 5, ; Top = 103, ; Width = 180, ; ZOrderSet = 6, ; Label_item1.Caption = "5. Profit �i pierdere", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Cw6' AS cw_2019 WITH ; cmeniu = capitaluri6, ; Height = 20, ; Left = 5, ; Name = "Cw6", ; nid_cw = 6, ; ntip = 0, ; TabIndex = 6, ; Top = 126, ; Width = 180, ; ZOrderSet = 7, ; Label_item1.Caption = "6. Repartizarea profitului", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Cw7' AS cw_2019 WITH ; cmeniu = capitaluri7, ; Height = 20, ; Left = 5, ; Name = "Cw7", ; nid_cw = 7, ; ntip = 0, ; TabIndex = 7, ; Top = 149, ; Width = 180, ; ZOrderSet = 8, ; Label_item1.Caption = "7. �mprumuturi", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Cw8' AS cw_2019 WITH ; cmeniu = capitaluri8, ; Height = 20, ; Left = 5, ; Name = "Cw8", ; nid_cw = 7, ; ntip = 0, ; TabIndex = 8, ; Top = 172, ; Width = 180, ; ZOrderSet = 8, ; Label_item1.Caption = "8. Subventii", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p2.Pict_liniuta1' AS pict_liniuta WITH ; Left = 5, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 199, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p2.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 1, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 200, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p3.Cw1' AS cw_2019 WITH ; cmeniu = imobilizari1, ; Height = 20, ; Left = 5, ; Name = "Cw1", ; nid_cw = 5, ; ntip = 0, ; Top = 102, ; Width = 180, ; ZOrderSet = 1, ; Label_item1.Caption = "5. Leasing", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p3.Cw2' AS cw_2019 WITH ; cmeniu = imobilizari2, ; Height = 20, ; Left = 5, ; Name = "Cw2", ; nid_cw = 1, ; ntip = 0, ; Top = 10, ; Width = 180, ; ZOrderSet = 2, ; Label_item1.Caption = "1. Necorporale", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p3.Cw3' AS cw_2019 WITH ; cmeniu = imobilizari3, ; Height = 20, ; Left = 5, ; Name = "Cw3", ; nid_cw = 2, ; ntip = 0, ; Top = 33, ; Width = 180, ; ZOrderSet = 4, ; Label_item1.Caption = "2. Corporale", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p3.Cw4' AS cw_2019 WITH ; cmeniu = imobilizari4, ; Height = 20, ; Left = 5, ; Name = "Cw4", ; nid_cw = 3, ; ntip = 0, ; Top = 56, ; Width = 180, ; ZOrderSet = 5, ; Label_item1.Caption = "3. Financiare", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p3.Cw5' AS cw_2019 WITH ; cmeniu = imobilizari5, ; Height = 20, ; Left = 5, ; Name = "Cw5", ; nid_cw = 4, ; ntip = 0, ; Top = 79, ; Width = 180, ; ZOrderSet = 6, ; Label_item1.Caption = "4. �n curs", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p3.Cw6' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw6", ; nid_cw = 6, ; ntip = 0, ; Top = 137, ; Visible = .F., ; Width = 180, ; ZOrderSet = 7, ; Label_item1.Caption = "6. Rate", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p3.Pict_liniuta1' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 126, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p3.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 1, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 200, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr' AS pageframe WITH ; ErasePage = .T., ; Height = 438, ; Left = 0, ; Name = "Pfr", ; PageCount = 3, ; TabStyle = 0, ; Themes = .F., ; Top = -2, ; Width = 775, ; ZOrderSet = 3, ; Page1.BackColor = 255,255,255, ; Page1.Caption = "\ ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw1' AS cw_2019 WITH ; cmeniu = furnizori1, ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; TabIndex = 1, ; Top = 8, ; Width = 208, ; Label_item1.Caption = "1. Furnizori", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw10' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw10", ; nid_cw = 6, ; ntip = 2, ; TabIndex = 6, ; Top = 136, ; Width = 208, ; Label_item1.Caption = "6. Registrul de cumparari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw2' AS cw_2019 WITH ; cmeniu = furnizori2, ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 0, ; TabIndex = 2, ; Top = 31, ; Width = 208, ; Label_item1.Caption = "2. Furnizori de imobilizari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw3' AS cw_2019 WITH ; cmeniu = furnizori3, ; Height = 20, ; Left = 4, ; Name = "Cw3", ; nid_cw = 5, ; ntip = 0, ; TabIndex = 5, ; Top = 100, ; Width = 208, ; Label_item1.Caption = "5. Regularizari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw5' AS cw_2019 WITH ; cmeniu = furnizori4, ; Height = 20, ; Left = 4, ; Name = "Cw5", ; nid_cw = 4, ; ntip = 0, ; TabIndex = 4, ; Top = 77, ; Width = 208, ; Label_item1.Caption = "4. Efecte de platit", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw6' AS cw_2019 WITH ; cmeniu = vizfurn1, ; Height = 20, ; Left = 4, ; Name = "Cw6", ; nid_cw = 7, ; ntip = 3, ; TabIndex = 7, ; Top = 159, ; Width = 208, ; Label_item1.Caption = "7. Balante de furnizori", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw7' AS cw_2019 WITH ; cmeniu = vizfurn2, ; Left = 4, ; Name = "Cw7", ; nid_cw = 8, ; ntip = 3, ; TabIndex = 8, ; Top = 182, ; Width = 208, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "8. Situatii analitice si operative", ; Label_item1.Height = 33, ; Label_item1.Left = 4, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 2, ; Label_item1.Width = 195, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw8' AS cw_2019 WITH ; cmeniu = furnizori5, ; Height = 20, ; Left = 4, ; Name = "Cw8", ; nid_cw = 3, ; ntip = 0, ; TabIndex = 3, ; Top = 54, ; Width = 208, ; Label_item1.Caption = "3. Facturi nesosite", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Cw9' AS cw_2019 WITH ; cmeniu = listfurn, ; Enabled = .F., ; Height = 20, ; Left = 4, ; Name = "Cw9", ; nid_cw = 9, ; ntip = 1, ; TabIndex = 9, ; Top = 217, ; Width = 208, ; Label_item1.Caption = "9. Rapoarte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Pict_liniuta1' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 124, ; Width = 208 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Pict_liniuta2' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 205, ; Width = 208 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.Pict_liniuta3' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta3", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 241, ; Width = 208 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp1.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 0, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 228, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw1' AS cw_2019 WITH ; cmeniu = clienti1, ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; TabIndex = 1, ; Top = 8, ; Width = 208, ; Label_item1.Caption = "1. Clienti", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw10' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw10", ; nid_cw = 6, ; ntip = 2, ; TabIndex = 6, ; Top = 134, ; Width = 208, ; Label_item1.Caption = "6. Registrul de vanzari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw101' AS cw_2019 WITH ; Enabled = .F., ; Height = 20, ; Left = 4, ; Name = "Cw101", ; nid_cw = 10, ; ntip = 1, ; TabIndex = 9, ; Top = 250, ; Width = 208, ; Label_item1.Caption = "10. Istoric facturi", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw2' AS cw_2019 WITH ; cmeniu = clienti2, ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 0, ; TabIndex = 2, ; Top = 31, ; Width = 208, ; Label_item1.Caption = "2. Clienti incerti", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw3' AS cw_2019 WITH ; cmeniu = clienti3, ; Height = 20, ; Left = 3, ; Name = "Cw3", ; nid_cw = 5, ; ntip = 0, ; TabIndex = 5, ; Top = 100, ; Width = 208, ; Label_item1.Caption = "5. Regularizari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw4' AS cw_2019 WITH ; cmeniu = clienti4, ; Height = 20, ; Left = 4, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 0, ; TabIndex = 4, ; Top = 77, ; Width = 208, ; Label_item1.Caption = "4. Efecte de primit", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw5' AS cw_2019 WITH ; cmeniu = clienti5, ; Height = 20, ; Left = 4, ; Name = "Cw5", ; nid_cw = 3, ; ntip = 0, ; TabIndex = 3, ; Top = 54, ; Width = 208, ; Label_item1.Caption = "3. Facturi neintocmite", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw6' AS cw_2019 WITH ; cmeniu = vizcli1, ; Height = 20, ; Left = 4, ; Name = "Cw6", ; nid_cw = 7, ; ntip = 3, ; TabIndex = 7, ; Top = 157, ; Width = 208, ; Label_item1.Caption = "7. Balante de clienti", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw7' AS cw_2019 WITH ; cmeniu = vizcli2, ; Left = 4, ; Name = "Cw7", ; nid_cw = 8, ; ntip = 3, ; TabIndex = 8, ; Top = 180, ; Width = 208, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "8. Situatii analitice si operative", ; Label_item1.Height = 33, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 1, ; Label_item1.Width = 194, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Cw9' AS cw_2019 WITH ; cmeniu = listcli, ; Enabled = .F., ; Height = 20, ; Left = 4, ; Name = "Cw9", ; nid_cw = 9, ; ntip = 1, ; TabIndex = 9, ; Top = 216, ; Width = 208, ; Label_item1.Caption = "9. Rapoarte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Pict_liniuta1' AS pict_liniuta WITH ; Left = 2, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 123, ; Width = 208 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Pict_liniuta2' AS pict_liniuta WITH ; Left = 2, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 203, ; Width = 208 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.Pict_liniuta3' AS pict_liniuta WITH ; Left = 2, ; Name = "Pict_liniuta3", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 241, ; Width = 208 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp2.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 0, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 228, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw1' AS cw_2019 WITH ; cmeniu = debitori, ; Height = 20, ; Left = 5, ; Name = "Cw1", ; nid_cw = 4, ; ntip = 3, ; Top = 108, ; Width = 208, ; Label_item1.Caption = "5. Debitori", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw10' AS cw_2019 WITH ; cmeniu = dividende, ; Height = 20, ; Left = 5, ; Name = "Cw10", ; nid_cw = 2, ; ntip = 0, ; Top = 31, ; Width = 208, ; LABEL_ITEM1.Caption = "2. Dividende", ; LABEL_ITEM1.Name = "LABEL_ITEM1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw11' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw11", ; nid_cw = 10, ; ntip = 3, ; Top = 256, ; Width = 208, ; Label_item1.Caption = "11. Balanta Parteneri", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw12' AS cw_2019 WITH ; Left = 5, ; Name = "Cw12", ; nid_cw = 3, ; ntip = 0, ; Top = 54, ; Width = 208, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "3. Drepturi de personal neridicate", ; Label_item1.Height = 29, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 1, ; Label_item1.Width = 200, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw13' AS cw_2019 WITH ; cmeniu = decont4511, ; Left = 5, ; Name = "Cw13", ; nid_cw = 1, ; ntip = 0, ; Top = 9, ; Visible = .T., ; Width = 208, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "1. Decontari in cadrul grupului", ; Label_item1.Height = 30, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 1, ; Label_item1.Width = 177, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw14' AS cw_2019 WITH ; cmeniu = creditoriOp, ; Height = 20, ; Left = 5, ; Name = "Cw14", ; nid_cw = 14, ; ntip = 0, ; Top = 76, ; Width = 208, ; LABEL_ITEM1.Caption = "4. Creditori", ; LABEL_ITEM1.Name = "LABEL_ITEM1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw2' AS cw_2019 WITH ; cmeniu = creditori, ; Height = 20, ; Left = 5, ; Name = "Cw2", ; nid_cw = 5, ; ntip = 3, ; Top = 131, ; Width = 208, ; Label_item1.Caption = "6. Creditori", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw3' AS cw_2019 WITH ; cmeniu = cheltavans, ; Height = 20, ; Left = 5, ; Name = "Cw3", ; nid_cw = 7, ; ntip = 3, ; Top = 177, ; Width = 208, ; Label_item1.Caption = "8. Cheltuieli in avans", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw4' AS cw_2019 WITH ; cmeniu = actionari, ; Height = 20, ; Left = 5, ; Name = "Cw4", ; nid_cw = 9, ; ntip = 3, ; Top = 223, ; Width = 208, ; Label_item1.Caption = "10. Actionari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw5' AS cw_2019 WITH ; Left = 5, ; Name = "Cw5", ; nid_cw = 11, ; ntip = 3, ; Top = 302, ; Width = 208, ; LABEL_ITEM1.AutoSize = .F., ; LABEL_ITEM1.Caption = "13. Balanta Parteneri Cumulata", ; LABEL_ITEM1.Height = 32, ; LABEL_ITEM1.Left = 5, ; LABEL_ITEM1.Name = "LABEL_ITEM1", ; LABEL_ITEM1.Top = 3, ; LABEL_ITEM1.Width = 193, ; LABEL_ITEM1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw6' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw6", ; nid_cw = 13, ; ntip = 3, ; Top = 279, ; Width = 208, ; Label_item1.Caption = "12. Inregistrari Parteneri", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw7' AS cw_2019 WITH ; cmeniu = vnavans, ; Height = 20, ; Left = 5, ; Name = "Cw7", ; nid_cw = 8, ; ntip = 3, ; Top = 200, ; Width = 208, ; Label_item1.Caption = "9. Venituri in avans", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw8' AS cw_2019 WITH ; cmeniu = vizdividende, ; Height = 20, ; Left = 5, ; Name = "Cw8", ; nid_cw = 6, ; ntip = 3, ; Top = 154, ; Width = 208, ; Label_item1.Caption = "7. Dividende", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Cw9' AS cw_2019 WITH ; cmeniu = listterti, ; Enabled = .F., ; Height = 20, ; Left = 5, ; Name = "Cw9", ; nid_cw = 12, ; ntip = 1, ; Top = 336, ; Width = 208, ; Label_item1.Caption = "14. Rapoarte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta1' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 98, ; Width = 200 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta2' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 246, ; Width = 200 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta3' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta3", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 324, ; Width = 200 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.Pict_liniuta4' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta4", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 360, ; Width = 200 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p4.Pfr.pp3.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 0, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 228, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr' AS pageframe WITH ; ErasePage = .T., ; Height = 412, ; Left = 0, ; Name = "Pfr", ; PageCount = 3, ; TabStyle = 0, ; Themes = .F., ; Top = -2, ; Width = 775, ; ZOrderSet = 3, ; Page1.BackColor = 255,255,255, ; Page1.Caption = "\ ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw1' AS cw_2019 WITH ; cmeniu = casa1, ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; Top = 8, ; Width = 180, ; Label_item1.Caption = "1. Casa incasari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw2' AS cw_2019 WITH ; cmeniu = casa2, ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 0, ; Top = 31, ; Width = 180, ; Label_item1.Caption = "2. Casa plati", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw3' AS cw_2019 WITH ; cmeniu = casa3, ; Height = 20, ; Left = 4, ; Name = "Cw3", ; nid_cw = 3, ; ntip = 0, ; Top = 54, ; Width = 180, ; Label_item1.Caption = "3. Casa in valuta", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw4' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 2, ; Top = 89, ; Width = 180, ; Label_item1.Caption = "4. Registrul de casa", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw5' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw5", ; nid_cw = 5, ; ntip = 3, ; Top = 112, ; Width = 180, ; Label_item1.Caption = "5. Solduri case", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw6' AS cw_2019 WITH ; cmeniu = listcasa, ; Enabled = .F., ; Height = 20, ; Left = 4, ; Name = "Cw6", ; nid_cw = 8, ; ntip = 1, ; Top = 203, ; Width = 180, ; Label_item1.Caption = "8. Rapoarte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw7' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw7", ; nid_cw = 6, ; ntip = 2, ; Top = 145, ; Width = 180, ; Label_item1.Caption = "6. Reg.de casa in valuta", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Cw8' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw8", ; nid_cw = 7, ; ntip = 3, ; Top = 168, ; Width = 180, ; Label_item1.Caption = "7. Solduri case in valuta", ; Label_item1.Height = 19, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 139 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta1' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 78, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta2' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 135, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta3' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta3", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 192, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.Pict_liniuta4' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta4", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 228, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp1.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 0, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 200, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw1' AS cw_2019 WITH ; cmeniu = banca1, ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; Top = 8, ; Width = 180, ; Label_item1.Caption = "1. Banca incasari", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw2' AS cw_2019 WITH ; cmeniu = banca2, ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 0, ; Top = 31, ; Width = 180, ; Label_item1.Caption = "2. Banca plati", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw3' AS cw_2019 WITH ; cmeniu = banca3, ; Height = 20, ; Left = 4, ; Name = "Cw3", ; nid_cw = 3, ; ntip = 0, ; Top = 54, ; Width = 180, ; Label_item1.Caption = "3. Banca in valuta", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw4' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 2, ; Top = 88, ; Width = 180, ; Label_item1.Caption = "4. Registrul de banca", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw5' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw5", ; nid_cw = 6, ; ntip = 2, ; Top = 145, ; Width = 180, ; Label_item1.Caption = "6. Reg.de banca in valuta", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw6' AS cw_2019 WITH ; cmeniu = listbanca, ; Enabled = .F., ; Height = 20, ; Left = 4, ; Name = "Cw6", ; nid_cw = 8, ; ntip = 1, ; Top = 201, ; Width = 180, ; Label_item1.Caption = "8. Rapoarte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw7' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw7", ; nid_cw = 5, ; ntip = 3, ; Top = 111, ; Width = 180, ; Label_item1.Caption = "5. Solduri banci", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Cw8' AS cw_2019 WITH ; Height = 20, ; Left = 4, ; Name = "Cw8", ; nid_cw = 7, ; ntip = 3, ; Top = 168, ; Width = 180, ; Label_item1.Caption = "7. Solduri banci in valuta", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta1' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 77, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta2' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 134, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta3' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta3", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 191, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.Pict_liniuta4' AS pict_liniuta WITH ; Left = 3, ; Name = "Pict_liniuta4", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 225, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp2.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 0, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 200, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw1' AS cw_2019 WITH ; cmeniu = trez1, ; Height = 20, ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; Top = 8, ; Width = 200, ; Label_item1.Caption = "1. Avansuri de trezorerie", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw2' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw2", ; nid_cw = 7, ; ntip = 3, ; Top = 176, ; Width = 200, ; Label_item1.Caption = "7. Cec - Solduri ", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw3' AS cw_2019 WITH ; cmeniu = achi1, ; Height = 20, ; Left = 5, ; Name = "Cw3", ; nid_cw = 5, ; ntip = 3, ; Top = 130, ; Width = 200, ; Label_item1.Caption = "5. Achizitori", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw4' AS cw_2019 WITH ; Height = 20, ; Left = 5, ; Name = "Cw4", ; nid_cw = 6, ; ntip = 3, ; Top = 153, ; Width = 200, ; Label_item1.Caption = "6. Cec - Reg. operatiuni ", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw5' AS cw_2019 WITH ; cmeniu = trez2, ; Height = 20, ; Left = 5, ; Name = "Cw5", ; nid_cw = 3, ; ntip = 0, ; Top = 74, ; Width = 200, ; Label_item1.Caption = "3. Operatiuni cu cec", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw6' AS cw_2019 WITH ; cmeniu = trez, ; Height = 20, ; Left = 5, ; Name = "Cw6", ; nid_cw = 4, ; ntip = 0, ; Top = 97, ; Width = 200, ; Label_item1.Caption = "4. Alte operatiuni", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw7' AS cw_2019 WITH ; cmeniu = trez3, ; Height = 37, ; Left = 5, ; Name = "Cw7", ; nid_cw = 2, ; ntip = 0, ; Top = 32, ; Width = 200, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "2. Avansuri de trezorerie in valuta", ; Label_item1.Height = 33, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 2, ; Label_item1.Width = 115, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Cw8' AS cw_2019 WITH ; cmeniu = listtrez, ; Enabled = .F., ; Height = 20, ; Left = 4, ; Name = "Cw8", ; nid_cw = 8, ; ntip = 1, ; Top = 210, ; Width = 200, ; Label_item1.Caption = "8. Rapoarte", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Pict_liniuta1' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 120, ; Width = 200 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Pict_liniuta2' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 199, ; Width = 200 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.Pict_liniuta3' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta3", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 234, ; Width = 200 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p5.Pfr.pp3.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 0, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 228, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p6.Cw1' AS cw_2019 WITH ; cmeniu = cheltuieli1, ; Height = 20, ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; Top = 9, ; Width = 180, ; ZOrderSet = 1, ; Label_item1.Caption = "1. Cheltuieli materiale", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p6.Cw3' AS cw_2019 WITH ; Enabled = .F., ; Height = 20, ; Left = 5, ; Name = "Cw3", ; nid_cw = 0, ; ntip = 0, ; Top = 68, ; Visible = .F., ; Width = 180, ; ZOrderSet = 3, ; Label_item1.Caption = "3. Tipuri de cheltuieli", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p6.Cw4' AS cw_2019 WITH ; cmeniu = cheltuieli2, ; Height = 20, ; Left = 5, ; Name = "Cw4", ; nid_cw = 2, ; ntip = 0, ; Top = 32, ; Width = 180, ; ZOrderSet = 5, ; Label_item1.Caption = "2. Alte cheltuieli", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p6.Pict_liniuta1' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 55, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p6.Pict_liniuta2' AS pict_liniuta WITH ; Left = 4, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 92, ; Visible = .F., ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p6.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 1, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 200, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p7.Cw1' AS cw_2019 WITH ; cmeniu = venituri, ; Height = 20, ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 0, ; Top = 11, ; ZOrderSet = 1, ; Label_item1.Caption = "1. Inregistrare venituri", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p7.Cw3' AS cw_2019 WITH ; Enabled = .F., ; Height = 20, ; Left = 5, ; Name = "Cw3", ; ntip = 0, ; Top = 46, ; Visible = .F., ; ZOrderSet = 3, ; Label_item1.Caption = "2. Tipuri de venituri", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Pagefr1.p7.Pict_liniuta1' AS pict_liniuta WITH ; Left = 5, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 35, ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p7.Pict_liniuta2' AS pict_liniuta WITH ; Left = 5, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 70, ; Visible = .F., ; Width = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Pagefr1.p7.shape1' AS pict_meniu WITH ; Height = 492, ; Left = 1, ; Name = "shape1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 5, ; Width = 200, ; ZOrderSet = 0 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> PROCEDURE Activate *!* Local I *!* I=Iif(!luna_inchisa,.T.,.F.) *!* With This.pagefr1 *!* .P2.Enabled=Iif(.P2.Enabled And !luna_inchisa,.T.,.F.) *!* .P3.Enabled=Iif(.P3.Enabled And !luna_inchisa,.T.,.F.) *!* .P7.Enabled=Iif(.P7.Enabled And !luna_inchisa,.T.,.F.) *!* Endwith ENDPROC PROCEDURE activate_pag2 PARAMETERS np *!* FOR i=1 TO THIS.pagefr1.p4.pfr.PAGECOUNT *!* zi='this.pagefr1.p4.pfr.pp'+ALLTRIM(STR(i))+'.' *!* IF i<>np *!* &zi.BACKCOLOR=THIS.pagefr1.c_gri *!* &zi.FORECOLOR=THIS.pagefr1.c_deschis *!* ELSE *!* &zi.BACKCOLOR=THIS.pagefr1.c_deschis *!* &zi.FORECOLOR=THIS.pagefr1.c_inchis *!* ENDIF *!* NEXT ENDPROC PROCEDURE activate_pag3 PARAMETERS np *!* FOR i=1 TO this.pagefr1.p5.pfr.PageCount *!* zi='this.pagefr1.p5.pfr.pp'+ALLTRIM(STR(i))+'.' *!* IF i<>np *!* &zi.BackColor=this.pagefr1.c_gri *!* &zi.ForeColor=this.pagefr1.c_deschis *!* else *!* &zi.BackColor=this.pagefr1.c_deschis *!* &zi.ForeColor=this.pagefr1.c_inchis *!* ENDIF *!* NEXT ENDPROC PROCEDURE getcwbynumber Lparameters tnCWNumber LOCAL loControl, loCW, lcCaption, lnNumber, i, lnControlCount loCW = null loPaginaActiva = this.oPaginaActiva lnControlCount = this.oPaginaActiva.Controlcount FOR i = 1 TO lnControlCount loControl = loPaginaActiva.controls(i) If Lower(Left(loControl.Name,2)) = 'cw' lcCaption = loControl.label_item1.caption lnPos = AT('.', m.lcCaption) IF lnPos > 0 lnNumber = VAL(LEFT(lcCaption, lnPos - 1)) IF lnNumber = tnCWNumber loCW = loControl EXIT ENDIF ENDIF Endif Endfor RETURN loCW ENDPROC PROCEDURE KeyPress Lparameters nKeyCode, nShiftAltCtrl Local lcNumber, lnNumber, loCW, lcNextCharacter, loControl loControl = Null Do Case Case nShiftAltCtrl = 0 And Between(nKeyCode, 49, 57) && 1..9 lcNumber = Alltrim(Str(nKeyCode - 48)) If nKeyCode = 49 Set Cursor Off Wait "" To lcNextCharacter Timeout 0.5 Set Cursor On If Alltrim(m.lcNextCharacter)$'0123456789' lcNumber = m.lcNumber + Alltrim(m.lcNextCharacter) && 10, 11,12,13,14,15 Endif Endif lnNumber = Int(Val(m.lcNumber)) loCW = This.Getcwbynumber(m.lnNumber) If !Isnull(loCW) If loCW.Enabled loControl = loCW Endif Endif Case nShiftAltCtrl = 0 And nKeyCode = -4 && F5 Balanta If Pemstatus(This, "Imagine01", 5) And This.Imagine01.Visible loControl = This.Imagine01 Endif Case nShiftAltCtrl = 0 And nKeyCode = -5 && F6 Registrul Jurnal If Pemstatus(This, "Imagine02", 5) And This.Imagine02.Visible loControl = This.Imagine02 Endif Case nShiftAltCtrl = 0 And nKeyCode = -6 && F7 Registru casa lei If Pemstatus(This, "Imagine03", 5) And This.Imagine03.Visible loControl = This.Imagine03 Endif Case nShiftAltCtrl = 0 And nKeyCode = -7 && F8 Registru banca lei If Pemstatus(This, "Imagine04", 5) And This.Imagine04.Visible loControl = This.Imagine04 Endif Case nShiftAltCtrl = 0 And nKeyCode = -8 && F9 JV If Pemstatus(This, "Imagine05", 5) And This.Imagine05.Visible loControl = This.Imagine05 Endif Case nShiftAltCtrl = 2 And nKeyCode = 102 && CTRL + F9 JC If Pemstatus(This, "Imagine06", 5) And This.Imagine06.Visible loControl = This.Imagine06 Endif Case nShiftAltCtrl = 0 And nKeyCode = 96 && ` = F10 Facturi clienti 4111 (Tratat cu ON KEY LABEL F10) If Pemstatus(This, "Imagine07", 5) And This.Imagine07.Visible loControl = This.Imagine07 Endif Case nShiftAltCtrl = 2 And nKeyCode = 103 && CTRL+F10 Facturi furnizori 401 If Pemstatus(This, "Imagine08", 5) And This.Imagine08.Visible loControl = This.Imagine08 Endif Case nShiftAltCtrl = 0 And nKeyCode = 39 && ' = F11 Balanta clienti 4111 If Pemstatus(This, "Imagine09", 5) And This.Imagine09.Visible loControl = This.Imagine09 Endif Case nShiftAltCtrl = 2 And nKeyCode = 137 && CTRL+F11 Balanta furnizori 401 If Pemstatus(This, "Imagine10", 5) And This.Imagine10.Visible loControl = This.Imagine10 Endif Case nShiftAltCtrl = 0 And nKeyCode = 1 && HOME Pagina * This.Pagefr1.p1.Activate() Case nShiftAltCtrl = 0 And nKeyCode = 105 && I Pagina Imobilizari This.Pagefr1.p3.Activate() Case nShiftAltCtrl = 0 And nKeyCode = 116 && T Pagina Terti / Trezorerie If This.nPagina1 = 4 this.pagefr1.activate_pag(This.Pagefr1.p5, 5) this.pagefr1.p5.pfr.pp1.Activate() && Trezorerie > Casa ELSE this.pagefr1.activate_pag(This.Pagefr1.p4, 4) This.Pagefr1.p4.pfr.pp1.Activate() && Terti > Clienti ENDIF Case nShiftAltCtrl = 0 And nKeyCode = 102 && F Pagina Terti > Furnizori this.pagefr1.activate_pag(This.Pagefr1.p4, 4) this.pagefr1.p4.pfr.pp1.Activate() Case nShiftAltCtrl = 0 And nKeyCode = 99 && C Do Case Case (This.nPagina1 = 4 And This.nPagina2 <> 2) OR (This.nPagina1 = 2) && Terti sau Capitaluri this.pagefr1.activate_pag(This.Pagefr1.p4, 4) This.Pagefr1.p4.pfr.pp2.Activate() && Clienti Case (This.nPagina1 = 5 And This.nPagina2 <> 1) OR (This.nPagina1 = 4 And This.nPagina2 = 2)&& Trezorerie sau Terti > Clienti this.pagefr1.activate_pag(This.Pagefr1.p5, 5) This.Pagefr1.p5.pfr.pp1.Activate() && Casa Case (This.nPagina1 = 5 And This.nPagina2 = 1) && Trezorerie > Casa This.Pagefr1.p6.Activate()&& Cheltuieli OTHERWISE This.Pagefr1.p2.Activate() && Capitaluri Endcase Case nShiftAltCtrl = 0 And nKeyCode = 98 && B Pagina Banca this.pagefr1.activate_pag(This.Pagefr1.p5, 5) This.Pagefr1.p5.pfr.pp2.Activate() Case nShiftAltCtrl = 0 And nKeyCode = 97 && A Pagina Terti > Alti sau Trezorerie > Alte Do Case Case (This.nPagina1 = 4 And This.nPagina2 <> 3) Or (This.nPagina1 = 5 And This.nPagina2 = 3) this.pagefr1.activate_pag(This.Pagefr1.p4, 4) This.Pagefr1.p4.pfr.pp3.Activate() && Terti > Alti Case (This.nPagina1 = 5 And This.nPagina2 <> 3) Or (This.nPagina1 = 4 And This.nPagina2 = 3) this.pagefr1.activate_pag(This.Pagefr1.p5, 5) This.Pagefr1.p5.pfr.pp3.Activate() && Trezorerie > Alti Otherwise This.Pagefr1.p4.pfr.pp3.Activate() && Terti > Alti Endcase Case nShiftAltCtrl = 0 And nKeyCode = 118 && V This.Pagefr1.p7.Activate() Endcase If !Isnull(loControl) Nodefault With loControl .MouseEnter() .Click() .MouseLeave() Endwith Else DoDefault(nKeyCode, nShiftAltCtrl) Endif ENDPROC PROCEDURE RightClick DO start_firma IN ostartfirma.prg verifica_drepturi('oprinc','pagefr1') ENDPROC PROCEDURE Show Lparameters nStyle Local w,h verifica_drepturi('oprinc','pagefr1') w=_Screen.Width h=_Screen.Height This.Width=w This.Height=h * Image1 *!* This.image1.Left=w-This.image1.Width *!* This.image1.Top=h-This.image1.Height *!* This.container1.Top=h-This.container1.Height This.image2.Width = w + 180 *!* this.lbVersion.Left = this.Image1.Left + leftVer *!* this.lbVersion.Top = this.Image1.Top + topVer With This.pagefr1 .Width=w .Height=h .p1.shape1.Height=h .p2.shape1.Height=h .p3.shape1.Height=h .p4.pfr.Height=h .p4.pfr.Width=w .p4.pfr.pp1.shape1.Height=h .p4.pfr.pp2.shape1.Height=h .p4.pfr.pp3.shape1.Height=h .p5.pfr.Height=h .p5.pfr.Width=w .p5.pfr.pp1.shape1.Height=h .p5.pfr.pp2.shape1.Height=h .p5.pfr.pp3.shape1.Height=h .p6.shape1.Height=h .p7.shape1.Height=h Endwith Thisform.container1.texT1.Caption=gcUserNameApp ON KEY LABEL F10 KEYBOARD "`" && F10 activa meniul in loc sa apese pe imaginea Facturi Vanzari ON KEY LABEL F11 KEYBOARD "'" && F11 nu se stie ce activa, in loc sa apese pe imaginea Facturi Vanzari KEYBOARD '{CTRL+TAB}' * Verifica daca exista situatii contabile invalidate pentru a schimba imaginea de atentionare * Fac verificarea la fiecare actiune sau click dreapta pe fundal Thisform.verifica_invalidat() With Thisform.pagefr1 For i=1 To .PageCount With .Pages(i) For l=1 To .ControlCount If Alltrim(Upper(.Objects(l).Class))='CW' Bindevent(.Objects(l),"do_actiune",Thisform,"verifica_invalidat",1) Endif Endfor Endwith Endfor Endwith With Thisform For i=1 To .ControlCount If Alltrim(Upper(.Objects(i).Class))='IMAGINE' Bindevent(.Objects(i),"do_actiune",Thisform,"verifica_invalidat",1) Endif Endfor ENDWITH Bindevent(Thisform,"Rightclick",Thisform,"verifica_invalidat",1) ENDPROC PROCEDURE verifica_invalidat LOCAL llInvalidat, lcPictureDown, lcPictureUp * Verific daca orice luna este invalidata llInvalidat = VerificaInvalidat() && overificari.prg lcPictureUp = "validare" + IIF(m.llInvalidat, "3", "1") + "1.bmp" lcPictureDown = "validare" + IIF(m.llInvalidat, "3", "1") + "2.bmp" With this.imagine11 .picturedown = m.lcPictureDown .pictureup = m.lcPictureUp .ToolTipText = IIF(m.llInvalidat, 'Exista situatii contabile invalidate datorita modificarilor din lunile precedente!' + ; CHR(13) + CHR(13) + ; 'Situatiile se valideaza automat prin redeschidere de luna sau refaceri individuale sau se pot valida manual.', ; 'Nu exista situatii invalidate.') .picture = m.lcPictureUp Endwith ENDPROC PROCEDURE Image1.RightClick thisform.rightclick ENDPROC PROCEDURE Imagine01.do_actiune DO viz_balanta_contabilitate WITH "bal" IN ooperatii_comune.prg ENDPROC PROCEDURE Imagine02.do_actiune DO viz_act IN ooperatii_comune.prg ENDPROC PROCEDURE Imagine03.do_actiune DO viz_bancasa WITH '5311' IN ocasabanca.prg ENDPROC PROCEDURE Imagine04.do_actiune DO viz_bancasa WITH '5121' IN ocasabanca.prg ENDPROC PROCEDURE Imagine05.do_actiune DO viz_regvanz IN oproceduri_decont.prg ENDPROC PROCEDURE Imagine06.do_actiune DO viz_regcump IN oproceduri_decont.prg ENDPROC PROCEDURE Imagine07.do_actiune Do lans_ireg_parteneri With .F.,gcCont411,.T. ENDPROC PROCEDURE Imagine08.do_actiune Do lans_ireg_parteneri With .F.,'401',.F. ENDPROC PROCEDURE Imagine09.do_actiune DO lans_balanta_parteneri WITH gcCont411, .T. IN oparteneri.prg ENDPROC PROCEDURE Imagine10.do_actiune DO lans_balanta_parteneri WITH "401",.F. IN oparteneri.prg ENDPROC PROCEDURE Imagine11.do_actiune gcAcces = "1;2;3;4;" do SituatiiInvalidate in overificari.prg ENDPROC PROCEDURE Pagefr1.activate_pag Lparameters toPagina, tnPagina1, tnPagina2 thisform.oPaginaActiva = toPagina thisform.nPagina1 = IIF(!EMPTY(tnPagina1), tnPagina1, 1) thisform.nPagina2 = IIF(!EMPTY(tnPagina2), tnPagina2, 1) thisform.opaginaactiva.click() thisform.opaginaactiva.setfocus() ENDPROC PROCEDURE Pagefr1.p1.Activate this.Parent.activate_pag(this,1) ENDPROC PROCEDURE Pagefr1.p1.Cw1.do_actiune DO viz_balanta_contabilitate WITH "bal" IN ooperatii_comune.prg ENDPROC PROCEDURE Pagefr1.p1.Cw10.do_actiune x = xmenu("Balanta conturi \ 0 loAct = Null Do note_fara_predefinire With m.lnIdSet, , m.loAct In ocont2003.prg Endif ENDPROC PROCEDURE Pagefr1.p1.Cw4.do_actiune *!* 09.03.2026 *!* robert *!* Adaugat variabila loxSet, scatter name CrsUsets => parametru loxSet pentru procedura note_fara_predefinire Local lcKeyCategorie, lcKeySet, lcMenuRetVal, lcSql, llEnabled, lnIdSet, loCategorie, loAct, loxSet lnIdSet = 0 llEnabled = !luna_inchisa And m.nivel <= 3 If !m.llEnabled This.Enabled = .F. Return m.lnIdSet Endif TEXT To m.lcSql NOSHOW TEXTMERGE Select Nvl(c.ordine, 0) As ordine, ct.nr_seturi, ct.id_categorie, cast(Nvl(c.categorie, 'Fara categorie') as varchar2(100)) As categorie FROM (Select CAST(NVL(id_categorie, 0) as Number(6)) as id_categorie, Count(*) As nr_seturi From xsets where id_Set >= 1000000 Group By id_categorie) ct Left Join xsetscategorii c On ct.id_categorie = c.id_categorie ORDER By 1, 3; ENDTEXT llSucces = goExecutor.oExecuta(m.lcSql, "crsUCategorii") TEXT To m.lcSql NOSHOW TEXTMERGE Select id_set, id_categorie, nume_set From xsets Where id_set >= 1000000 ORDER BY id_categorie, nume_set; ENDTEXT llSucces = goExecutor.oExecuta(m.lcSql, "crsUSets") With Thisform.oContextMenu .Clear * creare meniu .Add("000000") * seturi definite de utilizator pe categorii Select crsUCategorii Scan Scatter Name m.loCategorie lcKeyCategorie = '_' + Alltrim(Str(Nvl(m.loCategorie.id_categorie, 0))) * categorie .Add("000000", m.lcKeyCategorie, m.loCategorie.categorie) * Seturi note utilizator pe categorie Select crsUSets Scan For Nvl(id_categorie,0) = Nvl(m.loCategorie.id_categorie, 0) lcKeySet = Alltrim(Str(id_set)) lcSet = Alltrim(crsUSets.nume_set) .Add(m.lcKeyCategorie, m.lcKeySet, m.lcSet) Endscan Endscan Endwith *Thisform.oContextMenu.ShowFlags = TPM_VERPOSANIMATION Thisform.oContextMenu.ShowFlags = 0x1000 lcMenuRetVal = Thisform.oContextMenu.Show() lnIdSet = Val(m.lcMenuRetVal) && id_set If m.lnIdSet > 0 loAct = Null Select crsUSets Locate For id_set = m.lnIdSet If Found() Scatter Name loxSet Else loxSet = .F. Endif If !Inlist(m.lnIdSet, 99998, 99999) lnButon = lans(m.lnIdSet) If m.lnButon = 2 Return Endif Select actactan Go Top Scatter Name loAct Endif Do note_fara_predefinire With m.lnIdSet, loxSet, m.loAct In ocont2003.prg Endif Use In (Select('crsUCategorii')) Use In (Select('crsUSets')) ENDPROC PROCEDURE Pagefr1.p1.Cw5.do_actiune gcAcces = [1;2;3;4;] DO notei.mpr *!* DO CASE *!* CASE LUNA_INCHISA *!* DO mesaj WITH 'Aceasta luna e blocata !','Nu se pot face inchideri!' *!* CASE luna_neplatita *!* DO mesaj WITH 'Introduceti seria periodica ! ','Meniu : Initializare / Serie periodica' *!* OTHERWISE *!* DO notei.mpr *!* ENDCASE ENDPROC PROCEDURE Pagefr1.p1.Cw6.do_actiune DO fisedecont.mpr ENDPROC PROCEDURE Pagefr1.p1.Cw7.do_actiune DO inventar_patrimoniu IN orapoarte.prg ENDPROC PROCEDURE Pagefr1.p1.Cw8.do_actiune DO listgen.mpr ENDPROC PROCEDURE Pagefr1.p1.Cw9.do_actiune do meniu_notificari in orapoarte.prg ENDPROC PROCEDURE Pagefr1.p1.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p2.Activate this.Parent.activate_pag(this,2) ENDPROC PROCEDURE Pagefr1.p2.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri1.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.Cw2.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.Cw3.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri3.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.Cw4.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri4.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.Cw5.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri5.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.Cw6.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri6.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.Cw7.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri7.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.Cw8.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO capitaluri8.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p2.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p3.Activate this.Parent.activate_pag(this,3) ENDPROC PROCEDURE Pagefr1.p3.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) Do imobilizari1.mpr Endif ENDPROC PROCEDURE Pagefr1.p3.Cw2.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO imobilizari2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p3.Cw3.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO imobilizari3.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p3.Cw4.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) Do imobilizari4.mpr Endif ENDPROC PROCEDURE Pagefr1.p3.Cw5.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) Do imobilizari5.mpr Endif ENDPROC PROCEDURE Pagefr1.p3.Cw6.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO imobilizari6.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p3.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p4.Activate this.Parent.activate_pag(this,4) ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Activate this.Parent.Parent.Parent.activate_pag(this,4,1) ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO furnizori1.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw10.do_actiune DO viz_regcump IN oproceduri_decont.prg ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw2.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO furnizori2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw3.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO furnizori3.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw5.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO furnizori4.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw6.do_actiune DO vizfurn1.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw7.do_actiune DO vizfurn2.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw8.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO furnizori5.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.Cw9.do_actiune DO listfurn.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp1.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Activate this.Parent.Parent.Parent.activate_pag(this,4,2) ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO clienti1.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw10.do_actiune DO viz_regvanz IN oproceduri_decont.prg ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw101.do_actiune DO istoric_clienti in orap_terti.prg ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw2.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO clienti2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw3.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO clienti3.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw4.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO clienti4.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw5.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO clienti5.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw6.do_actiune DO vizcli1.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw7.do_actiune DO vizcli2.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.Cw9.do_actiune DO listcli.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp2.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Activate this.Parent.Parent.Parent.activate_pag(this,4,3) ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw1.do_actiune DO debitori.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw10.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO dividende.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw11.do_actiune DO lans_balanta_parteneri IN OPARTENERI.prg ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw12.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) PRIVATE pcACN loCont = ret_cont("Selectati contul",'421,423,424,425') IF buton = 2 RELEASE loCont RETURN ENDIF CN = locont.cont PcACN = loCont.Acont lans(10517) ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw13.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO decont4511.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw14.do_actiune IF !(luna_inchisa OR m.glEMama) DO creditoriOp.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw2.do_actiune DO creditori.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw3.do_actiune DO cheltavans.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw4.do_actiune *osetviz.tbrprim.butonacti.click DO actionari.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw5.do_actiune *!* DO lans_balanta_cumulata IN OPARTENERI.prg DO balpartc.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw6.do_actiune DO lans_ireg_parteneri WITH .T.,'',.T. ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw7.do_actiune DO vnavans.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw8.do_actiune DO vizdividende.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.Cw9.do_actiune DO listterti.mpr ENDPROC PROCEDURE Pagefr1.p4.Pfr.pp3.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p5.Activate this.Parent.activate_pag(this,5) ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Activate this.Parent.Parent.Parent.activate_pag(this,5,1) ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO casa1.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw2.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO casa2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw3.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO casa3.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw4.do_actiune DO viz_bancasa WITH '5311' IN ocasabanca.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw5.do_actiune *DO afis_sold_casabanca WITH 'CASA','CASANUME','SOLDURI CASE','5311','CASA','INCASARI',.F. DO lans_balanta_parteneri WITH "5311",.T. IN oparteneri.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw6.do_actiune DO listcasa.mpr ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw7.do_actiune DO viz_bancasa WITH '5314' IN ocasabanca.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.Cw8.do_actiune *DO afis_sold_casabanca WITH 'CASA VALUTA','CASVNUME','SOLDURI CASE IN VALUTA','5314','NUME_5','INCASARI',.T. DO lans_balanta_parteneri WITH "5314",.T. IN oparteneri.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp1.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Activate this.Parent.Parent.Parent.activate_pag(this,5,2) ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO banca1.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw2.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO banca2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw3.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO banca3.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw4.do_actiune DO viz_bancasa WITH '5121' IN ocasabanca.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw5.do_actiune DO viz_bancasa WITH '5124' IN ocasabanca.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw6.do_actiune Do listbanca.mpr ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw7.do_actiune *DO afis_sold_casabanca WITH 'BANCA','BANNUME','SOLDURI BANCI','5121','NUME_2','INCASARI',.F. DO lans_balanta_parteneri WITH "5121,5126,5081",.T. IN oparteneri.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.Cw8.do_actiune *DO afis_sold_casabanca WITH 'BANCA VALUTA','BANVNUME','SOLDURI BANCI IN VALUTA','5124','NUME_3','INCASARI',.T. DO lans_balanta_parteneri WITH "5124,5127,5081",.T. IN oparteneri.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp2.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Activate this.Parent.Parent.Parent.activate_pag(this,5,3) ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO trez1.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw2.do_actiune *!* *!* SELE CECNUME *!* *!* oCEc=create('afCEC') *!* *!* oCEc.show(1) *!* DO afis_sold_casabanca WITH 'CEC','CECNUME','CECuri','5112','CEC','INCARCAT',.F. *!* *PARAMETERS tcTip,tcFis,tcTitlu,TcCont,TcNumeCol1,TcNumeCol2,tlVisibil DO lans_balanta_parteneri WITH "5112",.T. IN OPARTENERI.prg ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw3.do_actiune *osetviz.tbrprim.butonachi.click Do ACHI1.MPR ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw4.do_actiune *!* sele cEC *!* loca for cod=-1 *!* if !found() *!* appe blan *!* repl cod with -1 *!* endif *!* repl scc with '' *!* repl scd with '' *!* select BAL *!* loca for left(cont,4)='5112' *!* IF FOUND() *!* SCATTER MEMVAR *!* ELSE *!* STORE 0 TO M.PRECDEB,M.PRECCRED,M.SOLDDEB,M.SOLDCRED *!* ENDIF *!* SELECT distinct act.cod,act.fdoc,act.dataact,CEC.dataireg,act.nract,act.NUME,CEC.CEC,CEC.inCARCAT AS INCASARI,CEC.plati,CEC.scd,CEC.scc; *!* from act,CEC; *!* WHERE act.cod = CEC.cod and LEFT(ACT.SCC,4)=LEFT(CEC.SCC,4) and !deleted(); *!* into cursor casban *!* sele casban *!* INDEX ON DATAireg TAG DATAireg OF CASBAN *!* Oreg=CREATEOBJECT("casabanca") *!* with Oreg *!* .LABEL10.CAPTION="REGISTRUL DE CECURI" *!* .grid1.column4.header4.caption="CEC" *!* .grid1.column4.controlsource="CEC" *!* .check2.caption="CEC" *!* .nrcont='5112 ' *!* .cmdlist1.visible=.f. *!* .cmdlist2.visible=.f. *!* endwith *!* Oreg.SHOW(1) Do lans_ireg_parteneri With .F.,'5112',.T. ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw5.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO trez2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw6.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO trez.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw7.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO trez3.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.Cw8.do_actiune DO listtrez.mpr ENDPROC PROCEDURE Pagefr1.p5.Pfr.pp3.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p6.Activate this.Parent.activate_pag(this,6) ENDPROC PROCEDURE Pagefr1.p6.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO cheltuieli1.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p6.Cw3.do_actiune SELECT CHLTIND GO TOP ochlt=CREATEOBJECT('frm_tipchelt') ochlt.gridb1.recordsource='CHLTIND' ochlt.gridb1.column1.controlsource='dst_chlt' ochlt.pctip='CHLTIND' ochlt.show(1) *DO FORM cheltuieli ENDPROC PROCEDURE Pagefr1.p6.Cw4.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO cheltuieli2.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p6.RightClick thisform.rightclick ENDPROC PROCEDURE Pagefr1.p7.Activate this.Parent.activate_pag(this,7) ENDPROC PROCEDURE Pagefr1.p7.Cw1.do_actiune *!* 24.05.2011 *!* marius.mutu *!* nu se pot introduce documente de pe mama IF !(luna_inchisa OR m.glEMama) DO venituri.mpr ENDIF ENDPROC PROCEDURE Pagefr1.p7.Cw3.do_actiune SELECT VENITURI GO TOP ochlt=CREATEOBJECT('frm_tipchelt') ochlt.titluFrumos1.caption='Tipuri de venituri' ochlt.gridb1.recordsource='VENITURI' ochlt.gridb1.column1.controlsource='dst_chlt' ochlt.pctip='VENITURI' ochlt.show(1) ENDPROC PROCEDURE Pagefr1.p7.RightClick thisform.rightclick ENDPROC ENDDEFINE