*       *********************************************************
*       *                                                         
*       * 01.07.2007           D394MENU.MPR             22:50:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Golomety Adalbert                                       
*       *                                                         
*       * Copyright (C) 2007 Info Way                             
*       * Sibiu Negoveanu 14/53                                   
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _24f1cy099 OF _MSYSMENU PROMPT "\<Societati" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _24f1cy09a OF _MSYSMENU PROMPT "Int\<retinere" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _24f1cy09b OF _MSYSMENU PROMPT "\<Intrari-documente" COLOR SCHEME 3 ;
	KEY ALT+I, ""
DEFINE PAD _24f1cy09c OF _MSYSMENU PROMPT "I\<esiri-documente" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _24f1cy09d OF _MSYSMENU PROMPT "\<Liste-stocuri" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _24f1cy09e OF _MSYSMENU PROMPT "Liste-\<contabile" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _24f1cy09f OF _MSYSMENU PROMPT "\<Terminare" COLOR SCHEME 3 ;
	KEY ALT+T, ""
ON PAD _24f1cy099 OF _MSYSMENU ACTIVATE POPUP societati
ON PAD _24f1cy09a OF _MSYSMENU ACTIVATE POPUP intretiner
ON PAD _24f1cy09b OF _MSYSMENU ACTIVATE POPUP intraridoc
ON PAD _24f1cy09c OF _MSYSMENU ACTIVATE POPUP iesiridocu
ON PAD _24f1cy09d OF _MSYSMENU ACTIVATE POPUP listestocu
ON PAD _24f1cy09e OF _MSYSMENU ACTIVATE POPUP listeconta
ON SELECTION PAD _24f1cy09f OF _MSYSMENU ;
	DO _24f1cy09g ;
	IN LOCFILE("\GESTIUNE.JCV\MENUS\D394MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is D394MENU?")

DEFINE POPUP societati MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF societati PROMPT "\<Cale SERVER"
DEFINE BAR 2 OF societati PROMPT "\<Alegere/Creare societate de lucru"
DEFINE BAR 3 OF societati PROMPT "\<Date Firma/Societate"
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

DEFINE POPUP intretiner MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF intretiner PROMPT "\<Furnizori"
DEFINE BAR 2 OF intretiner PROMPT "C\<lienti"
DEFINE BAR 3 OF intretiner PROMPT "Cote \<TVA"
ON SELECTION BAR 1 OF intretiner ;
	DO _24f1cy09t ;
	IN LOCFILE("\GESTIUNE.JCV\MENUS\D394MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is D394MENU?")
ON SELECTION BAR 2 OF intretiner do form clienti
ON SELECTION BAR 3 OF intretiner do form tva

DEFINE POPUP intraridoc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF intraridoc PROMPT "\<Receptii-Facturi furnizor"
ON SELECTION BAR 1 OF intraridoc do recep_394

DEFINE POPUP iesiridocu MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF iesiridocu PROMPT "\<Facturi Clienti"
ON SELECTION BAR 1 OF iesiridocu do form facturi_d394

DEFINE POPUP listestocu MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF listestocu PROMPT "Centralizator Note Receptie Furnizori"
DEFINE BAR 2 OF listestocu PROMPT "Centralizator Facturi Clienti"
DEFINE BAR 3 OF listestocu PROMPT "Statistici vanzari clienti"
DEFINE BAR 4 OF listestocu PROMPT "Lista Inventar"
ON SELECTION BAR 1 OF listestocu do form cenfac
ON SELECTION BAR 2 OF listestocu do form cenfacc
ON BAR 3 OF listestocu ACTIVATE POPUP statistici
ON SELECTION BAR 4 OF listestocu do form inventar

DEFINE POPUP statistici MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF statistici PROMPT "Lista clienti/oras/judet" ;
	SKIP FOR NOT lprod
DEFINE BAR 2 OF statistici PROMPT "Valoare vanzari" ;
	SKIP FOR NOT lprod
DEFINE BAR 3 OF statistici PROMPT "Frecventa vanzari" ;
	SKIP FOR NOT lprod
DEFINE BAR 4 OF statistici PROMPT "Clienti noi" ;
	SKIP FOR NOT lprod
DEFINE BAR 5 OF statistici PROMPT "Bucati dupa denumire articol(dimensiune anvelope)" ;
	SKIP FOR NOT lprod
DEFINE BAR 6 OF statistici PROMPT "Valoare dupa denumimre articol (dim anvelope)" ;
	SKIP FOR NOT lprod
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 "Jurnal TVA Cumparare"
DEFINE BAR 2 OF listeconta PROMPT "Jurnal TVA Vanzari"
DEFINE BAR 3 OF listeconta PROMPT "Generare Declaratie 394"
DEFINE BAR 4 OF listeconta PROMPT "Reluare Declaratie 394"
ON SELECTION BAR 1 OF listeconta do form jurnal_cump
ON SELECTION BAR 2 OF listeconta do form jurnal_vanz
ON SELECTION BAR 3 OF listeconta do form decl_394
ON SELECTION BAR 4 OF listeconta do form rel_decl_394


*       *********************************************************
*       *                                                         
*       * _24F1CY09G  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  D394MENU.MPR,            Record:   38       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Terminare                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _24f1cy09g
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


*       *********************************************************
*       *                                                         
*       * _24F1CY09T  ON SELECTION BAR 1 OF POPUP intretiner      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  D394MENU.MPR,            Record:   10       
*       * Called By:  ON SELECTION BAR 1 OF POPUP intretiner      
*       * Prompt:     Furnizori                                   
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _24f1cy09t
do form furnizori
SELECT fur
USE
