*       *********************************************************
*       *                                                         
*       * 02/18/17             MYMENU.MPR               12:48:51  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Golomety Adalbert                                       
*       *                                                         
*       * Copyright (C) 2017 Info Way                             
*       * Sibiu Negoveanu 14/53                                   
*       * Sibiu,     Zip                                          
*       * Romania                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _4uo0rgr00 OF _MSYSMENU PROMPT "Societati" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _4uo0rgr01 OF _MSYSMENU PROMPT "Intretinere" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR llist
DEFINE PAD _4uo0rgr02 OF _MSYSMENU PROMPT "Intrari-documente" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR llist
DEFINE PAD _4uo0rgr03 OF _MSYSMENU PROMPT "Iesiri-documente" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR llist
DEFINE PAD _4uo0rgr04 OF _MSYSMENU PROMPT "Abonamente" COLOR SCHEME 3 ;
	KEY ALT+A, ""
DEFINE PAD _4uo0rgr05 OF _MSYSMENU PROMPT "Devize" COLOR SCHEME 3 ;
	KEY ALT+D, "" ;
	SKIP FOR llist
DEFINE PAD _4uo0rgr06 OF _MSYSMENU PROMPT "Comenzi" COLOR SCHEME 3 ;
	KEY ALT+C, "" ;
	SKIP FOR !lprod.or.lfact
DEFINE PAD _4uo0rgr07 OF _MSYSMENU PROMPT "Liste-stocuri" COLOR SCHEME 3 ;
	KEY ALT+L, "" ;
	SKIP FOR lfact.or.llist
DEFINE PAD _4uo0rgr08 OF _MSYSMENU PROMPT "Liste-contabile" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _4uo0rgr09 OF _MSYSMENU PROMPT "\<Terminare" COLOR SCHEME 3 ;
	KEY ALT+T, ""
ON PAD _4uo0rgr00 OF _MSYSMENU ACTIVATE POPUP societati
ON PAD _4uo0rgr01 OF _MSYSMENU ACTIVATE POPUP intretiner
ON PAD _4uo0rgr02 OF _MSYSMENU ACTIVATE POPUP intraridoc
ON PAD _4uo0rgr03 OF _MSYSMENU ACTIVATE POPUP iesiridocu
ON PAD _4uo0rgr04 OF _MSYSMENU ACTIVATE POPUP abonamente
ON PAD _4uo0rgr05 OF _MSYSMENU ACTIVATE POPUP devize
ON PAD _4uo0rgr06 OF _MSYSMENU ACTIVATE POPUP comenzi
ON PAD _4uo0rgr07 OF _MSYSMENU ACTIVATE POPUP listestocu
ON PAD _4uo0rgr08 OF _MSYSMENU ACTIVATE POPUP listeconta
ON SELECTION PAD _4uo0rgr09 OF _MSYSMENU ;
	DO _4uo0rgr0g ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP societati MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF societati PROMPT "\<Cale SERVER" ;
	SKIP FOR llist
DEFINE BAR 2 OF societati PROMPT "\<Alegere/Creare societate de lucru" ;
	SKIP FOR !lsch_soc
DEFINE BAR 3 OF societati PROMPT "\<Date Firma/Societate" ;
	SKIP FOR !ladmin
DEFINE BAR 4 OF societati PROMPT "\<Gestiuni/Magazii" ;
	SKIP FOR !lsch_gest
DEFINE BAR 5 OF societati PROMPT "Imp\<orturi" ;
	SKIP FOR !ladmin
DEFINE BAR 6 OF societati PROMPT "\<Parametri casa marcat" ;
	SKIP FOR !ladmin
DEFINE BAR 7 OF societati PROMPT "Configurare Utilizatori" ;
	SKIP FOR !ladmin
ON SELECTION BAR 1 OF societati do form aleg_cale
ON SELECTION BAR 2 OF societati do form  aleg_soc with lsoc
ON SELECTION BAR 3 OF societati do form date_firma
ON SELECTION BAR 4 OF societati ;
	DO _4uo0rgr0h ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON BAR 5 OF societati ACTIVATE POPUP newitem
ON SELECTION BAR 6 OF societati do form casa_marcat
ON SELECTION BAR 7 OF societati ;
	DO _4uo0rgr0i ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP newitem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF newitem PROMPT "Stocuri din Ciel"
DEFINE BAR 2 OF newitem PROMPT "Stocuri din Gestiune DOS"
DEFINE BAR 3 OF newitem PROMPT "Stocuri din Gestiune STHIL"
DEFINE BAR 4 OF newitem PROMPT "Clienti din Gestiune STHIL"
DEFINE BAR 5 OF newitem PROMPT "Solduri clienti din Gestiune CIEL"
DEFINE BAR 6 OF newitem PROMPT "Solduri furnizori din Gestiune CIEL"
DEFINE BAR 7 OF newitem PROMPT "Solduri clienti din Gestiune DOS"
DEFINE BAR 8 OF newitem PROMPT "Solduri furnizori din Gestiune DOS"
DEFINE BAR 9 OF newitem PROMPT "Stocuri din Gestiune CARSYS"
DEFINE BAR 10 OF newitem PROMPT "Solduri clienti din Gestiune CARSYS"
DEFINE BAR 11 OF newitem PROMPT "Solduri furnizori din Gestiune CARSYS"
DEFINE BAR 12 OF newitem PROMPT "Furnizori din Contabilitate CIEL"
DEFINE BAR 13 OF newitem PROMPT "Comenzi din Gestiune DOS"
ON SELECTION BAR 1 OF newitem do form import_arti_ciel
ON SELECTION BAR 2 OF newitem do form import_arti_dos
ON SELECTION BAR 3 OF newitem do form import_arti_sthil
ON SELECTION BAR 4 OF newitem do form import_cli_sthil
ON SELECTION BAR 5 OF newitem do form import_sold_cli_ciel
ON SELECTION BAR 6 OF newitem do form import_sold_fur_ciel
ON SELECTION BAR 7 OF newitem do form import_sold_cli_dos
ON SELECTION BAR 8 OF newitem do form import_sold_fur_dos
ON SELECTION BAR 9 OF newitem do form  import_arti_carsys
ON SELECTION BAR 10 OF newitem do form import_sold_cli_carsys
ON SELECTION BAR 11 OF newitem do form import_sold_fur_carsys
ON SELECTION BAR 12 OF newitem do form import_fur_ciel_contab
ON SELECTION BAR 13 OF newitem do form import_comenzi_dos

DEFINE POPUP intretiner MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF intretiner PROMPT "\<Articole"
DEFINE BAR 2 OF intretiner PROMPT "\<Furnizori"
DEFINE BAR 3 OF intretiner PROMPT "C\<lienti"
DEFINE BAR 4 OF intretiner PROMPT "\<Delegati clienti"
DEFINE BAR 5 OF intretiner PROMPT "\<Valute"
DEFINE BAR 6 OF intretiner PROMPT "\<Cursuri valutare"
DEFINE BAR 7 OF intretiner PROMPT "\<Moduri Plati-Incasari"
DEFINE BAR 8 OF intretiner PROMPT "Cote \<TVA"
DEFINE BAR 9 OF intretiner PROMPT "\<Tipuri articole"
DEFINE BAR 10 OF intretiner PROMPT "Salvare date Societate" ;
	SKIP FOR !ladmin
DEFINE BAR 11 OF intretiner PROMPT "Restaurare date Societate" ;
	SKIP FOR !ladmin
DEFINE BAR 12 OF intretiner PROMPT "Test Baza de Date"
DEFINE BAR 13 OF intretiner PROMPT "Reindexare Fisere Date"
DEFINE BAR 14 OF intretiner PROMPT "\<Export Date" ;
	SKIP FOR !ladmin
DEFINE BAR 15 OF intretiner PROMPT "\<Import Date" ;
	SKIP FOR !ladmin
DEFINE BAR 16 OF intretiner PROMPT "\<Restaurare inainte de import" ;
	SKIP FOR !ladmin
ON SELECTION BAR 1 OF intretiner do form articole
ON SELECTION BAR 2 OF intretiner ;
	DO _4uo0rgr0j ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 3 OF intretiner do form clienti
ON SELECTION BAR 4 OF intretiner do form delegati
ON SELECTION BAR 5 OF intretiner do form valute
ON SELECTION BAR 6 OF intretiner do form curs
ON SELECTION BAR 7 OF intretiner do form modplata
ON SELECTION BAR 8 OF intretiner do form tva
ON SELECTION BAR 9 OF intretiner do form tip_arti
ON SELECTION BAR 10 OF intretiner do form salvare
ON SELECTION BAR 11 OF intretiner ;
	DO _4uo0rgr0k ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 12 OF intretiner do test_baza
ON SELECTION BAR 13 OF intretiner do reindfis
ON SELECTION BAR 14 OF intretiner do form exp_date
ON SELECTION BAR 15 OF intretiner ;
	DO _4uo0rgr0l ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 16 OF intretiner ;
	DO _4uo0rgr0m ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP intraridoc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF intraridoc PROMPT "\<Receptii-Facturi furnizor"
DEFINE BAR 2 OF intraridoc PROMPT "\<Chitante Furnizori - Plati diverse"
DEFINE BAR 3 OF intraridoc PROMPT "\<Note de predare" ;
	SKIP FOR !ladmin
DEFINE BAR 4 OF intraridoc PROMPT "\<Facturi Import"
DEFINE BAR 5 OF intraridoc PROMPT "\<Inregistrare Plati furnizori"
DEFINE BAR 6 OF intraridoc PROMPT "Situatie \<Plati Furnizori"
DEFINE BAR 7 OF intraridoc PROMPT "S\<tergere Palti" ;
	SKIP FOR !ladmin
DEFINE BAR 8 OF intraridoc PROMPT "\<Situatie plati facturi import"
DEFINE BAR 9 OF intraridoc PROMPT "Situatie facturi interne si import in lei"
DEFINE BAR 10 OF intraridoc PROMPT "\<Modificari preturi" ;
	SKIP FOR !ladmin
DEFINE BAR 11 OF intraridoc PROMPT "\<Generare Comanda Furnizor"
ON SELECTION BAR 1 OF intraridoc do recep
ON SELECTION BAR 2 OF intraridoc do form cfiscf
ON SELECTION BAR 3 OF intraridoc ;
	DO _4uo0rgr0n ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 4 OF intraridoc do form facturi_import
ON SELECTION BAR 5 OF intraridoc ;
	DO _4uo0rgr0o ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 6 OF intraridoc do form sitfur
ON SELECTION BAR 7 OF intraridoc do form sterg_plati
ON SELECTION BAR 8 OF intraridoc do form sit_fimp
ON SELECTION BAR 9 OF intraridoc do form sitfur_tot
ON SELECTION BAR 10 OF intraridoc do form pv_modif_pret
ON SELECTION BAR 11 OF intraridoc do form comanda_fur

DEFINE POPUP iesiridocu MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF iesiridocu PROMPT "\<Facturi Clienti"
DEFINE BAR 2 OF iesiridocu PROMPT "\<Avize Expeditie"
DEFINE BAR 3 OF iesiridocu PROMPT "Facturare Avi\<ze"
DEFINE BAR 4 OF iesiridocu PROMPT "\<Chitante Clienti - Incasari diverse"
DEFINE BAR 5 OF iesiridocu PROMPT "\<Bonuri Consum"
DEFINE BAR 6 OF iesiridocu PROMPT "\<Vanzare Rapida (Magazin)"
DEFINE BAR 7 OF iesiridocu PROMPT "\<Bonuri Consum Productie" ;
	SKIP FOR !lprod.or.!ladmin
DEFINE BAR 8 OF iesiridocu PROMPT "\<Transfer" ;
	SKIP FOR !ladmin.and.!lfact
DEFINE BAR 9 OF iesiridocu PROMPT "Bonu\<ri de consum din Note Transfer" ;
	SKIP FOR !ladmin
DEFINE BAR 10 OF iesiridocu PROMPT "\<Inregistrare Incasari Clienti"
DEFINE BAR 11 OF iesiridocu PROMPT "Situatie \<Incasari Clienti"
DEFINE BAR 12 OF iesiridocu PROMPT "Situatie Incasari Clienti in valuta"
DEFINE BAR 13 OF iesiridocu PROMPT "S\<tergere incasari" ;
	SKIP FOR !ladmin
DEFINE BAR 14 OF iesiridocu PROMPT "Incasari in avans" ;
	SKIP FOR !ladmin.and.!lfact
DEFINE BAR 15 OF iesiridocu PROMPT "CEC / \<Bilte la Ordin" ;
	SKIP FOR !ladmin
DEFINE BAR 16 OF iesiridocu PROMPT "Import consumuri" ;
	SKIP FOR !ladmin
ON SELECTION BAR 1 OF iesiridocu do form facturi
ON SELECTION BAR 2 OF iesiridocu do form avize_cli
ON SELECTION BAR 3 OF iesiridocu do form facturare_avize
ON SELECTION BAR 4 OF iesiridocu do form chitante_cli
ON SELECTION BAR 5 OF iesiridocu do form bonuri
ON SELECTION BAR 6 OF iesiridocu do form bon_casa
ON SELECTION BAR 7 OF iesiridocu do form bon_prod
ON SELECTION BAR 8 OF iesiridocu do form notetra_amanunt
ON SELECTION BAR 9 OF iesiridocu do form notetra_bon
ON SELECTION BAR 10 OF iesiridocu do form clienti
ON SELECTION BAR 11 OF iesiridocu do form sitcli
ON SELECTION BAR 12 OF iesiridocu do form sitcli_valuta
ON SELECTION BAR 13 OF iesiridocu do form sterg_incas
ON BAR 14 OF iesiridocu ACTIVATE POPUP incasariin
ON SELECTION BAR 15 OF iesiridocu do form cec_incas
ON SELECTION BAR 16 OF iesiridocu do form import_bon_consum

DEFINE POPUP incasariin MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF incasariin PROMPT "\<Inregistrare"
DEFINE BAR 2 OF incasariin PROMPT "\<Distributie pe facturi"
ON SELECTION BAR 1 OF incasariin do form incas_avans
ON SELECTION BAR 2 OF incasariin do form distrib_avans

DEFINE POPUP abonamente MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF abonamente PROMPT "Tipuri Abonamente"
DEFINE BAR 2 OF abonamente PROMPT "Vanzari servicii fitnes"
DEFINE BAR 3 OF abonamente PROMPT "\<Abonamente"
DEFINE BAR 4 OF abonamente PROMPT "Inregistrare-Citire abonamente"
DEFINE BAR 5 OF abonamente PROMPT "Istoric + Statistici"
ON SELECTION BAR 1 OF abonamente do form tip_abon
ON SELECTION BAR 2 OF abonamente do form bon_casa_serv
ON SELECTION BAR 3 OF abonamente do form abon
ON SELECTION BAR 4 OF abonamente do form inreg_abon
ON SELECTION BAR 5 OF abonamente do form ist_abon

DEFINE POPUP devize MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF devize PROMPT "Devize (generale)"
DEFINE BAR 2 OF devize PROMPT "Operatii/Tarife Manopera"
ON SELECTION BAR 1 OF devize do form devizeg
ON SELECTION BAR 2 OF devize do form operatig

DEFINE POPUP comenzi MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF comenzi PROMPT "Comenzi" ;
	SKIP FOR NOT lprod
DEFINE BAR 2 OF comenzi PROMPT "Monetar-Centralizator chitante" ;
	SKIP FOR NOT lprod
DEFINE BAR 3 OF comenzi PROMPT "Vanzari pe delegati/ospatari" ;
	SKIP FOR NOT lprod
DEFINE BAR 4 OF comenzi PROMPT "Vanzari pe produse" ;
	SKIP FOR NOT lprod
DEFINE BAR 5 OF comenzi PROMPT "Lista consum"
ON SELECTION BAR 1 OF comenzi do form comenzi_mul
ON SELECTION BAR 2 OF comenzi do form monetar
ON SELECTION BAR 3 OF comenzi do form vanz_osp
ON SELECTION BAR 4 OF comenzi do form vanz_prod

DEFINE POPUP listestocu MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF listestocu PROMPT "Fisa magazie"
DEFINE BAR 2 OF listestocu PROMPT "Lista Stocuri"
DEFINE BAR 3 OF listestocu PROMPT "Lista Stocuri in valuta"
DEFINE BAR 4 OF listestocu PROMPT "Balanta Stocuri"
DEFINE BAR 5 OF listestocu PROMPT "Balanta Stocuri in Valuta"
DEFINE BAR 6 OF listestocu PROMPT "Centralizator/Lista Bonuri consum"
DEFINE BAR 7 OF listestocu PROMPT "Centralizator Bonuri consum in valuta"
DEFINE BAR 8 OF listestocu PROMPT "Centralizator Note Receptie Furnizori"
DEFINE BAR 9 OF listestocu PROMPT "Centralizator Chitante Furnizor"
DEFINE BAR 10 OF listestocu PROMPT "Centralizator Note Predare"
DEFINE BAR 11 OF listestocu PROMPT "Centralizator Facturi Clienti"
DEFINE BAR 12 OF listestocu PROMPT "Centralizator Chitante Client"
DEFINE BAR 13 OF listestocu PROMPT "Centralizator Facturi Import"
DEFINE BAR 14 OF listestocu PROMPT "Centralizator Note de trnasfer"
DEFINE BAR 15 OF listestocu PROMPT "Listare Receptii"
DEFINE BAR 16 OF listestocu PROMPT "Raport vanzari"
DEFINE BAR 17 OF listestocu PROMPT "Rapoarte vanzari/traseu"
DEFINE BAR 18 OF listestocu PROMPT "Statistici vanzari/furnizori"
DEFINE BAR 19 OF listestocu PROMPT "Rapoarte vanzari/cod agent"
DEFINE BAR 20 OF listestocu PROMPT "Statistici vanzari clienti"
DEFINE BAR 21 OF listestocu PROMPT "Raport Vanzari Produse pe Client" ;
	SKIP FOR !ladmin
DEFINE BAR 22 OF listestocu PROMPT "Export Cheltuieli pe Comenzi"
DEFINE BAR 23 OF listestocu PROMPT "Lista Inventar"
DEFINE BAR 24 OF listestocu PROMPT "Centralizator Intrari Import dupa cod vamal"
ON SELECTION BAR 1 OF listestocu do form fisamag
ON SELECTION BAR 2 OF listestocu do form stoc
ON SELECTION BAR 3 OF listestocu do form stoc_valuta
ON SELECTION BAR 4 OF listestocu do form balanta
ON SELECTION BAR 5 OF listestocu do form balanta_valuta
ON SELECTION BAR 6 OF listestocu do form cenbon
ON SELECTION BAR 7 OF listestocu do form cenbon_valuta
ON SELECTION BAR 8 OF listestocu do form cenfac
ON SELECTION BAR 9 OF listestocu do form cenchit
ON SELECTION BAR 10 OF listestocu do form cennp
ON SELECTION BAR 11 OF listestocu do form cenfacc
ON SELECTION BAR 12 OF listestocu do form cench
ON SELECTION BAR 13 OF listestocu do form cenfaci
ON SELECTION BAR 14 OF listestocu do form cennt
ON SELECTION BAR 15 OF listestocu do form lnir
ON SELECTION BAR 16 OF listestocu do form raport_vanzari
ON BAR 17 OF listestocu ACTIVATE POPUP raportvanz
ON BAR 18 OF listestocu ACTIVATE POPUP _2m00olzu1
ON BAR 19 OF listestocu ACTIVATE POPUP rapoarteva
ON BAR 20 OF listestocu ACTIVATE POPUP statistici
ON SELECTION BAR 21 OF listestocu do form vanz_clienti_prod
ON SELECTION BAR 22 OF listestocu do form expcom
ON SELECTION BAR 23 OF listestocu do form inventar
ON SELECTION BAR 24 OF listestocu do form cen_import

DEFINE POPUP raportvanz MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF raportvanz PROMPT "Vanzari"
DEFINE BAR 2 OF raportvanz PROMPT "Lipsa incasari/vanzari"
ON SELECTION BAR 1 OF raportvanz do form sitvanz
ON SELECTION BAR 2 OF raportvanz do form sitvanz_lipsa

DEFINE POPUP _2m00olzu1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _2m00olzu1 PROMPT "Furnizori/ oras"
DEFINE BAR 2 OF _2m00olzu1 PROMPT "Valoare vanzari/furnizori"
DEFINE BAR 3 OF _2m00olzu1 PROMPT "Valoare vanz/furniz pe traseu"
DEFINE BAR 4 OF _2m00olzu1 PROMPT "Frecventa cantitativa vanz/furnizori"
ON SELECTION BAR 1 OF _2m00olzu1 do form statistica_f
ON SELECTION BAR 2 OF _2m00olzu1 do form valoare_vanz_f
ON SELECTION BAR 3 OF _2m00olzu1 do form valoare_vanz_f_traseu
ON SELECTION BAR 4 OF _2m00olzu1 do form fur_frecventa

DEFINE POPUP rapoarteva MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF rapoarteva PROMPT "Vanzari cod agent din client"
DEFINE BAR 2 OF rapoarteva PROMPT "Vanzari cod agent din facturi"
ON SELECTION BAR 1 OF rapoarteva do form valoare_vanz_f_agent_cli
ON SELECTION BAR 2 OF rapoarteva do form valoare_vanz_f_agent_fac

DEFINE POPUP statistici MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF statistici PROMPT "Lista clienti/oras/judet" ;
	SKIP FOR !ladmin
DEFINE BAR 2 OF statistici PROMPT "Valoare vanzari" ;
	SKIP FOR NOT ladmin
DEFINE BAR 3 OF statistici PROMPT "Frecventa vanzari" ;
	SKIP FOR NOT ladmin
DEFINE BAR 4 OF statistici PROMPT "Clienti noi" ;
	SKIP FOR NOT ladmin
DEFINE BAR 5 OF statistici PROMPT "Bucati dupa denumire articol" ;
	SKIP FOR NOT ladmin
DEFINE BAR 6 OF statistici PROMPT "Valoare dupa denumimre articol" ;
	SKIP FOR NOT ladmin
ON SELECTION BAR 1 OF statistici do form statistica
ON SELECTION BAR 2 OF statistici do form valoare_vanz
ON SELECTION BAR 3 OF statistici do form cli_frecventa
ON SELECTION BAR 4 OF statistici do form cli_noi
ON SELECTION BAR 5 OF statistici do form dim_anv_bucati
ON SELECTION BAR 6 OF statistici do form dim_anv_valoare

DEFINE POPUP listeconta MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF listeconta PROMPT "Registru de Casa"
DEFINE BAR 2 OF listeconta PROMPT "Registru de Casa in valuta"
DEFINE BAR 3 OF listeconta PROMPT "Raport de gestiune"
DEFINE BAR 4 OF listeconta PROMPT "Jurnal TVA Cumparare" ;
	SKIP FOR lfact
DEFINE BAR 5 OF listeconta PROMPT "Jurnal TVA Vanzari" ;
	SKIP FOR lfact
DEFINE BAR 6 OF listeconta PROMPT "Generare Note contabile" ;
	SKIP FOR !ladmin
DEFINE BAR 7 OF listeconta PROMPT "Vizualizare Note Contabile"
DEFINE BAR 8 OF listeconta PROMPT "Centralizator Note Contabile"
DEFINE BAR 9 OF listeconta PROMPT "Export Nota contabile" ;
	SKIP FOR !ladmin
DEFINE BAR 10 OF listeconta PROMPT "Fisa inregistrari contabile"
DEFINE BAR 11 OF listeconta PROMPT "Jurnal Incasari-Plati" ;
	SKIP FOR !ladmin
DEFINE BAR 12 OF listeconta PROMPT "Jurnal Cumparari 2013 cu TVA la plata" ;
	SKIP FOR !ladmin
ON SELECTION BAR 1 OF listeconta do form regcasa
ON SELECTION BAR 2 OF listeconta do form regcasa_valuta
ON SELECTION BAR 3 OF listeconta do form rapgest
ON SELECTION BAR 4 OF listeconta do form jurnal_cump
ON SELECTION BAR 5 OF listeconta do form jurnal_vanz
ON SELECTION BAR 6 OF listeconta do form gennc
ON SELECTION BAR 7 OF listeconta do form viznc
ON SELECTION BAR 8 OF listeconta do form centrnc
ON SELECTION BAR 9 OF listeconta do form expnc
ON SELECTION BAR 10 OF listeconta do form fisa_cont
ON SELECTION BAR 11 OF listeconta do form jurnal_incpla
ON SELECTION BAR 12 OF listeconta do form jurnal_cump_2013


*       *********************************************************
*       *                                                         
*       * _4UO0RGR0G  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:  154         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Terminare                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0g
nrasp=MESSAGEBOX("Confirmati Terminare Program",4+16)
IF nrasp=6
  SELE 23 && Configurari forma articole
	use temp!config alias config
		GO top
        replace config.grid1_partition WITH m.grid1_partition
        replace config.code_width WITH m.code_width
        replace config.des1_width WITH m.des1_width
        replace config.form_width with   m.form_width
        replace config.form_height with  m.form_height
        replace config.grid_height WITH m.grid_height
        replace config.grid_width WITH m.grid_width
        replace config.grid_fontsize WITH m.grid_fontzize
        replace config.grid_rowheight WITH m.grid_rowheight
	    replace config.storeel_width WITH m.storeel_width
	    replace config.pxventht_order WITH m.pxventht_order
	    replace config.pxventht_width WITH m.pxventht_width
	    replace config.pxventttc_order WITH m.pxventttc_order
	    replace config.pxventttc_width WITH m.pxventttc_width
	    replace	config.cmd_top with m.cmd_top
    use	
CLEAR EVENTS
DO Load_env
ON ERROR
SET PROCEDURE TO
*SET TALK &oldTalk
CLEAR DLLS
CLEAR ALL
RELEASE ALL EXTENDED
SET SYSMENU TO DEFA
ENDIF
*QUIT


*       *********************************************************
*       *                                                         
*       * _4UO0RGR0H  ON SELECTION BAR 4 OF POPUP societati       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:    8         
*       * Called By:  ON SELECTION BAR 4 OF POPUP societati       
*       * Prompt:     Gestiuni/Magazii                            
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0h
do form gestiuni with .T.
SELECT fur
USE



*       *********************************************************
*       *                                                         
*       * _4UO0RGR0I  ON SELECTION BAR 7 OF POPUP societati       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   25         
*       * Called By:  ON SELECTION BAR 7 OF POPUP societati       
*       * Prompt:     Configurare Utilizatori                     
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0i
lf_ret=.f.
DO FORM parola
IF lf_ret
  DO FORM config_user
ENDIF



*       *********************************************************
*       *                                                         
*       * _4UO0RGR0J  ON SELECTION BAR 2 OF POPUP intretiner      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   29         
*       * Called By:  ON SELECTION BAR 2 OF POPUP intretiner      
*       * Prompt:     Furnizori                                   
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0j
do form furnizori
SELECT fur
USE


*       *********************************************************
*       *                                                         
*       * _4UO0RGR0K  ON SELECTION BAR 11 OF POPUP intretiner     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   38         
*       * Called By:  ON SELECTION BAR 11 OF POPUP intretiner     
*       * Prompt:     Restaurare date Societate                   
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0k
lf_ret=.f.
DO FORM parola
IF lf_ret
  DO FORM restaurare
ENDIF


*       *********************************************************
*       *                                                         
*       * _4UO0RGR0L  ON SELECTION BAR 15 OF POPUP intretiner     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   42         
*       * Called By:  ON SELECTION BAR 15 OF POPUP intretiner     
*       * Prompt:     Import Date                                 
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0l
lf_ret=.f.
DO FORM parola
IF lf_ret
	do form import_date
ENDIF 	


*       *********************************************************
*       *                                                         
*       * _4UO0RGR0M  ON SELECTION BAR 16 OF POPUP intretiner     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   43         
*       * Called By:  ON SELECTION BAR 16 OF POPUP intretiner     
*       * Prompt:     Restaurare inainte de import                
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0m
lf_ret=.f.
DO FORM parola
IF lf_ret
	do form restaurare_import
ENDIF 	


*       *********************************************************
*       *                                                         
*       * _4UO0RGR0N  ON SELECTION BAR 3 OF POPUP intraridoc      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   48         
*       * Called By:  ON SELECTION BAR 3 OF POPUP intraridoc      
*       * Prompt:     Note de predare                             
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0n
IF lservice
	lparola=.f.
	DO FORM parola_refmisc TO lparola
 ELSE
	lparola=.t.
ENDIF  	
IF lparola
  do form pred
 ELSE
  WAIT WINDOW "Nu aveti acces la aceasta operatie"
ENDIF


*       *********************************************************
*       *                                                         
*       * _4UO0RGR0O  ON SELECTION BAR 5 OF POPUP intraridoc      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   50         
*       * Called By:  ON SELECTION BAR 5 OF POPUP intraridoc      
*       * Prompt:     Inregistrare Plati furnizori                
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uo0rgr0o
do form furnizori
SELECT fur
USE
