*       *********************************************************
*       *                                                         
*       * 03/01/17           MENU_CLEAN.MPR             16:00:13  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2017 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _4uz0yauzj OF _MSYSMENU PROMPT "Societati" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _4uz0yauzk OF _MSYSMENU PROMPT "Intretinere" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR llist
DEFINE PAD _4uz0yauzl OF _MSYSMENU PROMPT "Intrari-documente" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR llist
DEFINE PAD _4uz0yauzm OF _MSYSMENU PROMPT "Iesiri-documente" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR llist
DEFINE PAD _4uz0yauzn OF _MSYSMENU PROMPT "Liste-stocuri" COLOR SCHEME 3 ;
	KEY ALT+L, "" ;
	SKIP FOR lfact.or.llist
DEFINE PAD _4uz0yauzo OF _MSYSMENU PROMPT "Liste-contabile" COLOR SCHEME 3 ;
	KEY ALT+L, ""
DEFINE PAD _4uz0yauzz OF _MSYSMENU PROMPT "\<Terminare" COLOR SCHEME 3 ;
	KEY ALT+T, ""
ON PAD _4uz0yauzj OF _MSYSMENU ACTIVATE POPUP societati
ON PAD _4uz0yauzk OF _MSYSMENU ACTIVATE POPUP intretiner
ON PAD _4uz0yauzl OF _MSYSMENU ACTIVATE POPUP intraridoc
ON PAD _4uz0yauzm OF _MSYSMENU ACTIVATE POPUP iesiridocu
ON PAD _4uz0yauzn OF _MSYSMENU ACTIVATE POPUP listestocu
ON PAD _4uz0yauzo OF _MSYSMENU ACTIVATE POPUP listeconta
ON SELECTION PAD _4uz0yauzz OF _MSYSMENU ;
	DO _4uz0yav00 ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MENU_CLEAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_CLEAN?")

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 _4uz0yav01 ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MENU_CLEAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_CLEAN?")
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 _4uz0yav02 ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MENU_CLEAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_CLEAN?")

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 "Cote \<TVA"
DEFINE BAR 5 OF intretiner PROMPT "\<Moduri Plati-Incasari"
DEFINE BAR 6 OF intretiner PROMPT "Salvare date Societate" ;
	SKIP FOR !ladmin
DEFINE BAR 7 OF intretiner PROMPT "Restaurare date Societate" ;
	SKIP FOR !ladmin
DEFINE BAR 8 OF intretiner PROMPT "Test Baza de Date"
DEFINE BAR 9 OF intretiner PROMPT "Reindexare Fisere Date"
ON SELECTION BAR 1 OF intretiner do form articole
ON SELECTION BAR 2 OF intretiner ;
	DO _4uz0yav03 ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MENU_CLEAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_CLEAN?")
ON SELECTION BAR 3 OF intretiner do form clienti
ON SELECTION BAR 4 OF intretiner do form tva
ON SELECTION BAR 5 OF intretiner do form modplata
ON SELECTION BAR 6 OF intretiner do form salvare
ON SELECTION BAR 7 OF intretiner ;
	DO _4uz0yav04 ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MENU_CLEAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_CLEAN?")
ON SELECTION BAR 8 OF intretiner do test_baza
ON SELECTION BAR 9 OF intretiner do reindfis

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 directe"
DEFINE BAR 3 OF intraridoc PROMPT "\<Inregistrare Plati furnizori"
DEFINE BAR 4 OF intraridoc PROMPT "Situatie \<Plati Furnizori"
DEFINE BAR 5 OF intraridoc PROMPT "S\<tergere Palti" ;
	SKIP FOR !ladmin
DEFINE BAR 6 OF intraridoc PROMPT "\<Situatie plati facturi import"
DEFINE BAR 7 OF intraridoc PROMPT "\<Modificari preturi" ;
	SKIP FOR !ladmin
ON SELECTION BAR 1 OF intraridoc do recep
ON SELECTION BAR 2 OF intraridoc do form cfiscf
ON SELECTION BAR 3 OF intraridoc ;
	DO _4uz0yav0e ;
	IN LOCFILE("\GESTIUNE2017\MENUS\MENU_CLEAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_CLEAN?")
ON SELECTION BAR 4 OF intraridoc do form sitfur
ON SELECTION BAR 5 OF intraridoc do form sterg_plati
ON SELECTION BAR 6 OF intraridoc do form sit_fimp
ON SELECTION BAR 7 OF intraridoc do form pv_modif_pret

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 directe"
DEFINE BAR 5 OF iesiridocu PROMPT "\<Bonuri Consum"
DEFINE BAR 6 OF iesiridocu PROMPT "\<Vanzare Rapida (Magazin)"
DEFINE BAR 7 OF iesiridocu PROMPT "\<Transfer" ;
	SKIP FOR !ladmin.and.!lfact
DEFINE BAR 8 OF iesiridocu PROMPT "\<Inregistrare Incasari Clienti"
DEFINE BAR 9 OF iesiridocu PROMPT "Situatie \<Incasari Clienti"
DEFINE BAR 10 OF iesiridocu PROMPT "Situatie Incasari Clienti in valuta"
DEFINE BAR 11 OF iesiridocu PROMPT "S\<tergere incasari" ;
	SKIP FOR !ladmin
DEFINE BAR 12 OF iesiridocu PROMPT "Incasari in avans" ;
	SKIP FOR !ladmin.and.!lfact
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 notetra_amanunt
ON SELECTION BAR 8 OF iesiridocu do form clienti
ON SELECTION BAR 9 OF iesiridocu do form sitcli
ON SELECTION BAR 10 OF iesiridocu do form sitcli_valuta
ON SELECTION BAR 11 OF iesiridocu do form sterg_incas
ON BAR 12 OF iesiridocu ACTIVATE POPUP incasariin

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 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 "Balanta Stocuri"
DEFINE BAR 4 OF listestocu PROMPT "Centralizator/Lista Bonuri consum"
DEFINE BAR 5 OF listestocu PROMPT "Centralizator Bonuri consum in valuta"
DEFINE BAR 6 OF listestocu PROMPT "Centralizator Note Receptie Furnizori"
DEFINE BAR 7 OF listestocu PROMPT "Centralizator Chitante Furnizor"
DEFINE BAR 8 OF listestocu PROMPT "Centralizator Facturi Clienti"
DEFINE BAR 9 OF listestocu PROMPT "Centralizator Chitante Client"
DEFINE BAR 10 OF listestocu PROMPT "Centralizator Note de trnasfer"
DEFINE BAR 11 OF listestocu PROMPT "Listare Receptii"
DEFINE BAR 12 OF listestocu PROMPT "Raport vanzari"
DEFINE BAR 13 OF listestocu PROMPT "Rapoarte vanzari/traseu"
DEFINE BAR 14 OF listestocu PROMPT "Statistici vanzari/furnizori"
DEFINE BAR 15 OF listestocu PROMPT "Rapoarte vanzari/cod agent"
DEFINE BAR 16 OF listestocu PROMPT "Statistici vanzari clienti"
DEFINE BAR 17 OF listestocu PROMPT "Raport Vanzari Produse pe Client" ;
	SKIP FOR !ladmin
DEFINE BAR 18 OF listestocu PROMPT "Lista Inventar"
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 balanta
ON SELECTION BAR 4 OF listestocu do form cenbon
ON SELECTION BAR 5 OF listestocu do form cenbon_valuta
ON SELECTION BAR 6 OF listestocu do form cenfac
ON SELECTION BAR 7 OF listestocu do form cenchit
ON SELECTION BAR 8 OF listestocu do form cenfacc
ON SELECTION BAR 9 OF listestocu do form cench
ON SELECTION BAR 10 OF listestocu do form cennt
ON SELECTION BAR 11 OF listestocu do form lnir
ON SELECTION BAR 12 OF listestocu do form raport_vanzari
ON BAR 13 OF listestocu ACTIVATE POPUP raportvanz
ON BAR 14 OF listestocu ACTIVATE POPUP _2m00olzu1
ON BAR 15 OF listestocu ACTIVATE POPUP rapoarteva
ON BAR 16 OF listestocu ACTIVATE POPUP statistici
ON SELECTION BAR 17 OF listestocu do form vanz_clienti_prod
ON SELECTION BAR 18 OF listestocu do form inventar

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 "Raport de gestiune"
DEFINE BAR 3 OF listeconta PROMPT "Jurnal TVA Cumparare" ;
	SKIP FOR lfact
DEFINE BAR 4 OF listeconta PROMPT "Jurnal TVA Vanzari" ;
	SKIP FOR lfact
DEFINE BAR 5 OF listeconta PROMPT "Generare Note contabile" ;
	SKIP FOR !ladmin
DEFINE BAR 6 OF listeconta PROMPT "Vizualizare Note Contabile"
DEFINE BAR 7 OF listeconta PROMPT "Centralizator Note Contabile"
DEFINE BAR 8 OF listeconta PROMPT "Export Nota contabile" ;
	SKIP FOR !ladmin
DEFINE BAR 9 OF listeconta PROMPT "Fisa inregistrari contabile"
DEFINE BAR 10 OF listeconta PROMPT "Jurnal Incasari-Plati" ;
	SKIP FOR !ladmin
ON SELECTION BAR 1 OF listeconta do form regcasa
ON SELECTION BAR 2 OF listeconta do form rapgest
ON SELECTION BAR 3 OF listeconta do form jurnal_cump
ON SELECTION BAR 4 OF listeconta do form jurnal_vanz
ON SELECTION BAR 5 OF listeconta do form gennc
ON SELECTION BAR 6 OF listeconta do form viznc
ON SELECTION BAR 7 OF listeconta do form centrnc
ON SELECTION BAR 8 OF listeconta do form expnc
ON SELECTION BAR 9 OF listeconta do form fisa_cont
ON SELECTION BAR 10 OF listeconta do form jurnal_incpla


*       *********************************************************
*       *                                                         
*       * _4UZ0YAV00  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_CLEAN.MPR,            Record:  113     
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     Terminare                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uz0yav00
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


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



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



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


*       *********************************************************
*       *                                                         
*       * _4UZ0YAV04  ON SELECTION BAR 7 OF POPUP intretiner      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_CLEAN.MPR,            Record:   34     
*       * Called By:  ON SELECTION BAR 7 OF POPUP intretiner      
*       * Prompt:     Restaurare date Societate                   
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uz0yav04
lf_ret=.f.
DO FORM parola
IF lf_ret
  DO FORM restaurare
ENDIF


*       *********************************************************
*       *                                                         
*       * _4UZ0YAV0E  ON SELECTION BAR 3 OF POPUP intraridoc      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_CLEAN.MPR,            Record:   41     
*       * Called By:  ON SELECTION BAR 3 OF POPUP intraridoc      
*       * Prompt:     Inregistrare Plati furnizori                
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _4uz0yav0e
do form furnizori
SELECT fur
USE
