*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>

*<MenuCode>
DEFINE POPUP Leasing SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Leasing PROMPT "Financiar"
ON BAR 1 OF Leasing ACTIVATE POPUP Financiar

	*----------------------------------
	DEFINE POPUP Financiar SHORTCUT RELATIVE
	DEFINE BAR 1 OF Financiar PROMPT "La societatea de leasing"
	ON BAR 1 OF Financiar ACTIVATE POPUP Lasocietat

		*----------------------------------
		DEFINE POPUP Lasocietat SHORTCUT RELATIVE
		DEFINE BAR 1 OF Lasocietat PROMPT "Achizitie imobilizari" ;
			MESSAGE 'X:404; 4426:404'
		ON SELECTION BAR 1 OF Lasocietat DO BAR_1_OF_Lasocietat_FB2P

		DEFINE BAR 2 OF Lasocietat PROMPT "Inregistrare contract" ;
			MESSAGE '2673:21X ; 2674:472'
		ON SELECTION BAR 2 OF Lasocietat DO BAR_2_OF_Lasocietat_FB2P

	DEFINE BAR 2 OF Financiar PROMPT "La utilizatori"
	ON BAR 2 OF Financiar ACTIVATE POPUP Lautilizat

		*----------------------------------
		DEFINE POPUP Lautilizat SHORTCUT RELATIVE
		DEFINE BAR 1 OF Lautilizat PROMPT "Inregistrarea contractului" ;
			MESSAGE '21X :167 ; 471:1687'
		ON SELECTION BAR 1 OF Lautilizat DO BAR_1_OF_Lautilizat_FB2P

		DEFINE BAR 2 OF Lautilizat PROMPT "Rate leasing"
		ON SELECTION BAR 2 OF Lautilizat DO BAR_2_OF_Lautilizat_FB2P

		DEFINE BAR 3 OF Lautilizat PROMPT "Reziliere contract - lei" ;
			MESSAGE '461 :404 '
		ON SELECTION BAR 3 OF Lautilizat DO BAR_3_OF_Lautilizat_FB2P

		DEFINE BAR 4 OF Lautilizat PROMPT "Reziliere contract - valuta" ;
			MESSAGE '461 :404 '
		ON SELECTION BAR 4 OF Lautilizat DO BAR_4_OF_Lautilizat_FB2P

DEFINE BAR 2 OF Leasing PROMPT "Operational"
ON BAR 2 OF Leasing ACTIVATE POPUP Operationa

	*----------------------------------
	DEFINE POPUP Operationa SHORTCUT RELATIVE
	DEFINE BAR 1 OF Operationa PROMPT "La societatea de leasing"
	ON BAR 1 OF Operationa ACTIVATE POPUP _09a12zk34

		*----------------------------------
		DEFINE POPUP _09a12zk34 SHORTCUT RELATIVE
		DEFINE BAR 1 OF _09a12zk34 PROMPT "Rate leasing" ;
			MESSAGE '4111 :706 ;4111 :4427'
		ON SELECTION BAR 1 OF _09a12zk34 DO BAR_1_OF__09a12zk34_FB2P

		DEFINE BAR 2 OF _09a12zk34 PROMPT "Valoare reziduala" ;
			MESSAGE '461:7721;461:4427'
		ON SELECTION BAR 2 OF _09a12zk34 DO BAR_2_OF__09a12zk34_FB2P

	DEFINE BAR 2 OF Operationa PROMPT "La utilizator"
	ON BAR 2 OF Operationa ACTIVATE POPUP _09a12q2o8

		*----------------------------------
		DEFINE POPUP _09a12q2o8 SHORTCUT RELATIVE
		DEFINE BAR 1 OF _09a12q2o8 PROMPT "Avans+Taxa contract" ;
			MESSAGE '471 :401 ;4426 :401 '
		ON SELECTION BAR 1 OF _09a12q2o8 DO BAR_1_OF__09a12q2o8_FB2P

		DEFINE BAR 2 OF _09a12q2o8 PROMPT "Rate leasing" ;
			MESSAGE '612 :401 ;4426 :401 '
		ON SELECTION BAR 2 OF _09a12q2o8 DO BAR_2_OF__09a12q2o8_FB2P

		DEFINE BAR 3 OF _09a12q2o8 PROMPT "Valoare reziduala" ;
			MESSAGE 'X:404; 4426:404'
		ON SELECTION BAR 3 OF _09a12q2o8 DO BAR_3_OF__09a12q2o8_FB2P
ACTIVATE POPUP Leasing

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Lasocietat_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'20,21')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10067)
ENDPROC && BAR_1_OF_Lasocietat_FB2P

PROCEDURE BAR_2_OF_Lasocietat_FB2P
	buton = lans(10482)
	IF buton=2
		*DO STERGE
		DO deschid_actc
		RETURN
	ENDIF 
	DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'INREGISTRAREA CONTRACTULUI','',10482
ENDPROC && BAR_2_OF_Lasocietat_FB2P

PROCEDURE BAR_1_OF_Lautilizat_FB2P
	buton = lans(10481)
	IF buton=2
		*DO STERGE
		DO deschid_actc
		RETURN
	ENDIF 
	DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'INREGISTRAREA CONTRACTULUI','',10481
ENDPROC && BAR_1_OF_Lautilizat_FB2P

PROCEDURE BAR_2_OF_Lautilizat_FB2P
	Local lnDeducere
	lnDeducere = 0
	buton = lans(10455,,,,@lnDeducere)
	
	IF buton=2
		*DO STERGE
		DO deschid_actc
		RETURN
	ENDIF 
	DO introducere_compacta WITH 'achi_mat','','404 ',.T.,.F.,'RATE LEASING','4426',10455,,lnDeducere
	Release lnDeducere
ENDPROC && BAR_2_OF_Lautilizat_FB2P

PROCEDURE BAR_3_OF_Lautilizat_FB2P
	lans(10079)
ENDPROC && BAR_3_OF_Lautilizat_FB2P

PROCEDURE BAR_4_OF_Lautilizat_FB2P
	lans(10595)
ENDPROC && BAR_4_OF_Lautilizat_FB2P

PROCEDURE BAR_1_OF__09a12zk34_FB2P
	*DO ABC2 WITH '411 ',"706 ","411 ","4427"
	lans(10187)
ENDPROC && BAR_1_OF__09a12zk34_FB2P

PROCEDURE BAR_2_OF__09a12zk34_FB2P
	lans(10188)
ENDPROC && BAR_2_OF__09a12zk34_FB2P

PROCEDURE BAR_1_OF__09a12q2o8_FB2P
	lans(10410)
ENDPROC && BAR_1_OF__09a12q2o8_FB2P

PROCEDURE BAR_2_OF__09a12q2o8_FB2P
	lans(10189)
ENDPROC && BAR_2_OF__09a12q2o8_FB2P

PROCEDURE BAR_3_OF__09a12q2o8_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'20,21')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10308)
ENDPROC && BAR_3_OF__09a12q2o8_FB2P

*</Procedures>