*       *********************************************************
*       *                                                         
*       * 21.10.2009           KALMENIZ.MPR             09:28:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Sasa Vukusic                                            
*       *                                                         
*       * Copyright (C) 2009 TWIN-SOFT                            
*       * V.Brigada 48                                            
*       * Futog, YU  21410                                        
*       * Yugoslavia                                        
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "Otkljucaj/Zakljucaj"
ON SELECTION BAR 1 OF shortcut ;
	DO _2rx0kan87 ;
	IN LOCFILE("ROBNO\KALMENIZ" ,"MPX;MPR|FXP;PRG" ,"WHERE is KALMENIZ?")

ACTIVATE POPUP shortcut

*       *********************************************************
*       *                                                         
*       * _2RX0KAN87  ON SELECTION BAR 1 OF POPUP shortcut        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KALMENIZ.MPR,            Record:    5       
*       * Called By:  ON SELECTION BAR 1 OF POPUP shortcut        
*       * Prompt:     Otkljucaj/Zakljucaj                         
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2rx0kan87
SELECT pregled
IF pregled.zakljucan=0
	replace pregled.zakljucan WITH 1
else
	masterpass=.f.
	DO FORM unoslozinke
	IF masterpass=.t.
		replace pregled.zakljucan WITH 0
	endif	
ENDIF
m.brdok=pregled.brdok
SELECT zagkalk
SET ORDER TO tag brdok
GOTO top
SEEK m.brdok
IF FOUND()
	pripremi("zagkalk")
	replace zagkalk.zakljucan WITH pregled.zakljucan
	upisi()
ENDIF

SELECT pregled
