*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_facturare.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * DEFINE CLASS pg_meniu_princ 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="Page1.Pict_meniu1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw10" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Cw9" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Cw8" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Pict_liniuta2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw5" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw6" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Pict_liniuta1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw7" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page4.Cw8" UniqueID="" Timestamp="" /> * ErasePage = .T. Height = 422 Name = "pg_meniu_princ" PageCount = 4 Themes = .F. Width = 489 Page1.Caption = "Inițializări" Page1.FontCharSet = 238 Page1.Name = "Page1" Page1.PageOrder = 1 Page2.Caption = "Facturare" Page2.Name = "Page2" Page2.PageOrder = 2 Page3.BackColor = 255,255,255 Page3.Caption = "Altele" Page3.FontCharSet = 238 Page3.Name = "Page3" Page3.PageOrder = 3 Page4.BackColor = 255,255,255 Page4.Caption = "Rapoarte" Page4.Name = "Page4" Page4.PageOrder = 4 * ADD OBJECT 'Page1.Cw1' AS cw WITH ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 2, ; TabIndex = 1, ; Top = 18, ; Label_item1.Caption = "Clienți", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw10' AS cw WITH ; Left = 5, ; Name = "Cw10", ; nid_cw = 10, ; TabIndex = 8, ; Top = 255, ; Label_item1.Caption = "Opțiuni locale", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw2' AS cw WITH ; Left = 5, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 2, ; TabIndex = 2, ; Top = 40, ; Visible = .T., ; Label_item1.Caption = "Configurare articole si conturi", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw3' AS cw WITH ; Left = 5, ; Name = "Cw3", ; nid_cw = 3, ; ntip = 2, ; TabIndex = 3, ; Top = 62, ; Visible = .F., ; Label_item1.Caption = "Delegați", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw4' AS cw WITH ; Left = 5, ; Name = "Cw4", ; nid_cw = 4, ; ntip = 2, ; TabIndex = 4, ; Top = 84, ; Visible = .F., ; Label_item1.Caption = "Mașini", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw5' AS cw WITH ; Left = 5, ; Name = "Cw5", ; nid_cw = 5, ; TabIndex = 5, ; Top = 147, ; Visible = .F., ; Label_item1.Caption = "Model factură / aviz", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw6' AS cw WITH ; Left = 5, ; Name = "Cw6", ; nid_cw = 6, ; TabIndex = 6, ; Top = 169, ; Label_item1.Caption = "Serii numere", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw7' AS cw WITH ; Left = 5, ; Name = "Cw7", ; nid_cw = 7, ; ntip = 2, ; TabIndex = 7, ; Top = 191, ; Label_item1.Caption = "Curs valutar", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw8' AS cw WITH ; Left = 5, ; Name = "Cw8", ; nid_cw = 8, ; TabIndex = 8, ; Top = 233, ; Label_item1.Caption = "Opțiuni server", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw9' AS cw WITH ; Left = 5, ; Name = "Cw9", ; nid_cw = 9, ; ntip = 2, ; TabIndex = 4, ; Top = 106, ; Visible = .F., ; Label_item1.Caption = "Tarife", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ; Left = 6, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 219 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page1.Pict_liniuta2' AS pict_liniuta WITH ; Left = 6, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 134 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ; Left = 2, ; Name = "Pict_meniu1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 8 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page2.Cw1' AS cw WITH ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; TabIndex = 1, ; Top = 18, ; Label_item1.AutoSize = .T., ; Label_item1.Caption = "Tranzit", ; Label_item1.Height = 18, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 39, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page2.Cw2' AS cw WITH ; Left = 5, ; Name = "Cw2", ; nid_cw = 2, ; TabIndex = 2, ; Top = 41, ; Label_item1.Caption = "Cheiaj", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page2.Cw3' AS cw WITH ; Left = 5, ; Name = "Cw3", ; nid_cw = 3, ; TabIndex = 3, ; Top = 63, ; Label_item1.Caption = "Chirii si utilitati", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page2.Cw4' AS cw WITH ; Left = 5, ; Name = "Cw4", ; nid_cw = 4, ; TabIndex = 4, ; Top = 85, ; Label_item1.Caption = "Apa", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page2.Cw8' AS cw WITH ; Left = 4, ; Name = "Cw8", ; nid_cw = 4, ; TabIndex = 4, ; Top = 131, ; Label_item1.Caption = "Penalitati", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page2.Cw9' AS cw WITH ; Left = 5, ; Name = "Cw9", ; nid_cw = 4, ; TabIndex = 4, ; Top = 108, ; Label_item1.Caption = "Diverse", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page2.Pict_liniuta2' AS pict_liniuta WITH ; Left = 6, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 157 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ; Left = 2, ; Name = "Pict_meniu1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 8 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ; Left = 2, ; Name = "Pict_meniu1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 8 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page4.Cw1' AS cw WITH ; Left = 5, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 2, ; TabIndex = 1, ; Top = 18, ; Label_item1.Caption = "Listă facturi și avize", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Cw2' AS cw WITH ; Left = 5, ; Name = "Cw2", ; nid_cw = 2, ; ntip = 2, ; TabIndex = 2, ; Top = 40, ; LABEL_ITEM1.Caption = "Listă proforme", ; LABEL_ITEM1.Name = "LABEL_ITEM1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Cw3' AS cw WITH ; Left = 6, ; Name = "Cw3", ; nid_cw = 5, ; TabIndex = 5, ; Top = 127, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "Registru tranzit", ; Label_item1.Height = 29, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 181, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Cw4' AS cw WITH ; Left = 6, ; Name = "Cw4", ; nid_cw = 5, ; TabIndex = 5, ; Top = 215, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "Rapoarte diverse", ; Label_item1.Height = 29, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 181, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Cw5' AS cw WITH ; Left = 5, ; Name = "Cw5", ; nid_cw = 5, ; TabIndex = 5, ; Top = 78, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "Registru documente pe locatii", ; Label_item1.Height = 29, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 181, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Cw6' AS cw WITH ; Left = 5, ; Name = "Cw6", ; nid_cw = 5, ; TabIndex = 5, ; Top = 103, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "Registru convoaie facturate", ; Label_item1.Height = 29, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 181, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Cw7' AS cw WITH ; Left = 6, ; Name = "Cw7", ; nid_cw = 5, ; TabIndex = 5, ; Top = 191, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "Situatii venituri", ; Label_item1.Height = 29, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 181, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Cw8' AS cw WITH ; Left = 6, ; Name = "Cw8", ; nid_cw = 5, ; TabIndex = 5, ; Top = 151, ; Label_item1.AutoSize = .F., ; Label_item1.Caption = "Registru cheiaj", ; Label_item1.Height = 29, ; Label_item1.Left = 5, ; Label_item1.Name = "Label_item1", ; Label_item1.Top = 3, ; Label_item1.Width = 181, ; Label_item1.WordWrap = .T. *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page4.Pict_liniuta1' AS pict_liniuta WITH ; Left = 5, ; Name = "Pict_liniuta1", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 180 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page4.Pict_liniuta2' AS pict_liniuta WITH ; Left = 5, ; Name = "Pict_liniuta2", ; Picture = ..\comun\grafice\f3.jpg, ; Top = 66 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ; Left = 2, ; Name = "Pict_meniu1", ; Picture = ..\comun\grafice\f2.jpg, ; Top = 8 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> PROCEDURE Page1.Cw1.do_actiune gcAcces=[1;2;3;4;5;6;7;8;] Do vizualizare_clienti WITH .T. In onomenclatoare.prg ENDPROC PROCEDURE Page1.Cw10.do_actiune Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 2 ENDPROC PROCEDURE Page1.Cw2.do_actiune Do configurare_articole_conturi In proceduri_acnpro.prg ENDPROC PROCEDURE Page1.Cw3.do_actiune Do vizualizare_delegati In onomenclatoare.prg ENDPROC PROCEDURE Page1.Cw4.do_actiune Do vizualizare_masini In onomenclatoare2.prg ENDPROC PROCEDURE Page1.Cw5.do_actiune Do model.mpr ENDPROC PROCEDURE Page1.Cw6.do_actiune Do viz_config_serii_complet In oserii_numere.prg With 5 *!* DO serii_numere.mpr ENDPROC PROCEDURE Page1.Cw7.do_actiune DO vizualizeaza_curs IN oproceduri_curs.prg WITH Ttod(get_ora()) ENDPROC PROCEDURE Page1.Cw8.do_actiune Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 1 ENDPROC PROCEDURE Page1.Cw9.do_actiune DO tarife.mpr ENDPROC PROCEDURE Page2.Cw1.do_actiune DO factura_acn WITH "TRANZIT" IN proceduri_acnpro.prg * DO vizualizare_tranzit WITH 0 IN proceduri_acnpro.prg ENDPROC PROCEDURE Page2.Cw2.do_actiune DO factura_acn WITH "CHEIAJ" IN proceduri_acnpro.prg * DO vizualizare_tranzit WITH 1 IN proceduri_acnpro.prg ENDPROC PROCEDURE Page2.Cw3.do_actiune DO factura_acn WITH "CHIRII" IN proceduri_acnpro.prg * DO factura_contract WITH 'CHIRII' IN proceduri_acnpro.prg ENDPROC PROCEDURE Page2.Cw4.do_actiune DO factura_acn WITH "APA" IN proceduri_acnpro.prg ENDPROC PROCEDURE Page2.Cw8.do_actiune LOCAL lnOptiune lnOptiune = xmenu('Vizualizare penalitati;Factura penalitati') IF EMPTY(m.lnOptiune) RETURN ENDIF IF m.lnOptiune = 1 DO vizualizare_penalitati IN proceduri_acnpro.prg ELSE DO factura_acn WITH "PENALITATI" IN proceduri_acnpro.prg ENDIF ENDPROC PROCEDURE Page2.Cw9.do_actiune DO factura_acn WITH "DIVERSE" IN proceduri_acnpro.prg ENDPROC PROCEDURE Page4.Cw1.do_actiune DO vizualizare_facturi2 WITH .T. IN oproceduri_facturare.prg ENDPROC PROCEDURE Page4.Cw2.do_actiune Do vizualizare_proforme In oproceduri_facturare.prg ENDPROC PROCEDURE Page4.Cw3.do_actiune lnOptiune = xmenu('Fara valori pe SASn/CAMn;Cu valori pe SASn/CAMn') IF EMPTY(m.lnOptiune) RETURN ENDIF DO vizualizare_tranzit_nave WITH m.lnOptiune IN proceduri_acnpro.prg ENDPROC PROCEDURE Page4.Cw4.do_actiune lnOptiune = xmenu('Raport concordanta contabilitate - comercial') IF EMPTY(m.lnOptiune) RETURN ENDIF DO CASE CASE m.lnOptiune = 1 DO Raport1_Concordanta IN proceduri_acnpro_rapoarte.prg ENDCASE ENDPROC PROCEDURE Page4.Cw5.do_actiune DO vizualizare_regdoc IN proceduri_acnpro.prg ENDPROC PROCEDURE Page4.Cw6.do_actiune DO vizualizare_tranzit_facturi IN proceduri_acnpro.prg ENDPROC PROCEDURE Page4.Cw7.do_actiune DO situatii_venituri IN proceduri_acnpro_rapoarte.prg ENDPROC PROCEDURE Page4.Cw8.do_actiune DO vizualizare_cheiaj_nave IN proceduri_acnpro.prg ENDPROC ENDDEFINE