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

*<MenuCode>
DEFINE POPUP Bancainval SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR "861" OF Bancainval PROMPT "Incasari"
ON BAR 861 OF Bancainval ACTIVATE POPUP Incasari

	*----------------------------------
	DEFINE POPUP Incasari SHORTCUT RELATIVE
	DEFINE BAR "86120" OF Incasari PROMPT "Depunere numerar 5314" ;
		MESSAGE '581 :5314;5124: 581'
	ON SELECTION BAR 86120 OF Incasari Lans(10431)

	DEFINE BAR "86110" OF Incasari PROMPT "Cumparare valuta 5121" ;
		MESSAGE '581 :5121;5124: 581'
	ON SELECTION BAR 86110 OF Incasari lans(10438)

	DEFINE BAR "86130" OF Incasari PROMPT "Incasare dobanzi 766" ;
		MESSAGE '5124: 766'
	ON SELECTION BAR 86130 OF Incasari lans(10439)

	DEFINE BAR 4 OF Incasari PROMPT "Creditori diversi 462" ;
		MESSAGE '5124 : 462'
	ON SELECTION BAR 4 OF Incasari lans(10499)

	DEFINE BAR 5 OF Incasari PROMPT "Asociati conturi curente 4551" ;
		MESSAGE ' 5124 : 4551'
	ON SELECTION BAR 5 OF Incasari lans(10530)

	DEFINE BAR 6 OF Incasari PROMPT "Credit bancar termen lung 1621" ;
		MESSAGE '5124 : 1621'
	ON SELECTION BAR 6 OF Incasari lans(10532)

	DEFINE BAR 7 OF Incasari PROMPT "Credit bancar 5191" ;
		MESSAGE '5124 : 5191'
	ON SELECTION BAR 7 OF Incasari lans(10533)

	DEFINE BAR 8 OF Incasari PROMPT "\-"
	ON BAR 8 OF Incasari ACTIVATE POPUP _0zm10vooj

		*----------------------------------
		DEFINE POPUP _0zm10vooj SHORTCUT RELATIVE
	DEFINE BAR 9 OF Incasari PROMPT "Incasari clienti 4111" ;
		MESSAGE '5124: 4111'
	ON SELECTION BAR 9 OF Incasari LANS(10425)

	DEFINE BAR 10 OF Incasari PROMPT "Incasari clienti valuta diferita 411" ;
		MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111'
	ON SELECTION BAR 10 OF Incasari lans(10600)

	DEFINE BAR 11 OF Incasari PROMPT "Incasari clienti LEI 411" ;
		MESSAGE '581 - 5124; 5124 - 581; 5124 - 5124; 5124 - 4111'
	ON SELECTION BAR 11 OF Incasari lans(10654)

	DEFINE BAR "86150" OF Incasari PROMPT "Incasare avans clienti 419" ;
		MESSAGE '5124: 419'
	ON SELECTION BAR 86150 OF Incasari lans(10440)

	DEFINE BAR 13 OF Incasari PROMPT "Incasari debitori diversi 461" ;
		MESSAGE '5124: 461'
	ON SELECTION BAR 13 OF Incasari lans(10497)

	DEFINE BAR 14 OF Incasari PROMPT "Incasari garantii 267X" ;
		MESSAGE '5124: 2678'
	ON SELECTION BAR 14 OF Incasari DO BAR_14_OF_Incasari_FB2P

	DEFINE BAR 15 OF Incasari PROMPT "\-"
	ON BAR 15 OF Incasari ACTIVATE POPUP _2070y920s

		*----------------------------------
		DEFINE POPUP _2070y920s SHORTCUT RELATIVE
	DEFINE BAR 16 OF Incasari PROMPT "Restituire avans 542" ;
		MESSAGE '5124: 542'
	ON SELECTION BAR 16 OF Incasari lans(10568)

	DEFINE BAR 17 OF Incasari PROMPT "\-"
	ON BAR 17 OF Incasari ACTIVATE POPUP _67q0z5eb3

		*----------------------------------
		DEFINE POPUP _67q0z5eb3 SHORTCUT RELATIVE
	DEFINE BAR 18 OF Incasari PROMPT "Incasare generica" ;
		MESSAGE '5124 - X'
	ON SELECTION BAR 18 OF Incasari DO BAR_18_OF_Incasari_FB2P

	DEFINE BAR 19 OF Incasari PROMPT "Incasare generica facturi valuta diferita" ;
		MESSAGE '5124 - X; 581 - 5124; 5124 - 581; 5124 - 5124'
	ON SELECTION BAR 19 OF Incasari DO BAR_19_OF_Incasari_FB2P

DEFINE BAR "862" OF Bancainval PROMPT "Plati"
ON BAR 862 OF Bancainval ACTIVATE POPUP Plati

	*----------------------------------
	DEFINE POPUP Plati SHORTCUT RELATIVE
	DEFINE BAR "86230" OF Plati PROMPT "Ridicat numerar 5314" ;
		MESSAGE '5314:581 ;581 :5124'
	ON SELECTION BAR 86230 OF Plati lans(10427)

	DEFINE BAR "86220" OF Plati PROMPT "Plata comision 627" ;
		MESSAGE '627 :5124'
	ON SELECTION BAR 86220 OF Plati lans(10441)

	DEFINE BAR "86270" OF Plati PROMPT "Plati neclarificate 473" ;
		MESSAGE '473 :5124'
	ON SELECTION BAR 86270 OF Plati lans(10442)

	DEFINE BAR "86240" OF Plati PROMPT "Vanzare valuta 5121" ;
		MESSAGE '5121:581 ; 581:5124'
	ON SELECTION BAR 86240 OF Plati lans(10443)

	DEFINE BAR "86250" OF Plati PROMPT "Plata dobanda 5198" ;
		MESSAGE '5198:5124; 666:5198'
	ON SELECTION BAR 86250 OF Plati lans(10444)

	DEFINE BAR 6 OF Plati PROMPT "Debitori diversi 461" ;
		MESSAGE '461 : 5124'
	ON SELECTION BAR 6 OF Plati lans(10500)

	DEFINE BAR 7 OF Plati PROMPT "Asociati conturi curente 4511" ;
		MESSAGE ' 4511 : 5124'
	ON SELECTION BAR 7 OF Plati lans(10531)

	DEFINE BAR 8 OF Plati PROMPT "Rambursare credit lung 1621" ;
		MESSAGE '1621 : 5124'
	ON SELECTION BAR 8 OF Plati lans(10534)

	DEFINE BAR 9 OF Plati PROMPT "Dobanda credit termen lung 1682" ;
		MESSAGE '1682 : 5124; 666 : 1682'
	ON SELECTION BAR 9 OF Plati lans(10535)

	DEFINE BAR 10 OF Plati PROMPT "Rambursare credit termen scurt 5191" ;
		MESSAGE ' 5191 : 5124'
	ON SELECTION BAR 10 OF Plati lans(10537)

	DEFINE BAR 11 OF Plati PROMPT "Dobanda credit termen scurt 5198" ;
		MESSAGE '5198 : 5124; 666 : 5198'
	ON SELECTION BAR 11 OF Plati lans(10538)

	DEFINE BAR 12 OF Plati PROMPT "Penalitati 6581" ;
		MESSAGE '6581 : 5124'
	ON SELECTION BAR 12 OF Plati lans(10536)

	DEFINE BAR 13 OF Plati PROMPT "\-"
	ON BAR 13 OF Plati ACTIVATE POPUP _0zm10w916

		*----------------------------------
		DEFINE POPUP _0zm10w916 SHORTCUT RELATIVE
	DEFINE BAR 14 OF Plati PROMPT "Plati furnizori 401" ;
		MESSAGE '401 : 5124'
	ON SELECTION BAR 14 OF Plati lans(10445)

	DEFINE BAR 15 OF Plati PROMPT "Plati furnizori valuta diferita 401" ;
		MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124'
	ON SELECTION BAR 15 OF Plati lans(10601)

	DEFINE BAR 16 OF Plati PROMPT "Plati furnizori LEI 401" ;
		MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; 401 - 5124'
	ON SELECTION BAR 16 OF Plati lans(10655)

	DEFINE BAR 17 OF Plati PROMPT "Plati furnizori imobilizari 404" ;
		MESSAGE '404 : 5124'
	ON SELECTION BAR 17 OF Plati lans(10447)

	DEFINE BAR "86260" OF Plati PROMPT "Plata avans furnizori 409" ;
		MESSAGE '409 :5124'
	ON SELECTION BAR 86260 OF Plati DO BAR_"86260"_OF_Plati_FB2P

	DEFINE BAR 19 OF Plati PROMPT "Plata avans furnizori imobilizari 23x" ;
		MESSAGE '23x :5124'
	ON SELECTION BAR 19 OF Plati DO BAR_19_OF_Plati_FB2P

	DEFINE BAR 20 OF Plati PROMPT "Plata creditori diversi 462" ;
		MESSAGE '462 : 5124'
	ON SELECTION BAR 20 OF Plati lans(10498)

	DEFINE BAR 21 OF Plati PROMPT "Plata garantii 267X" ;
		MESSAGE '2678 : 5124'
	ON SELECTION BAR 21 OF Plati DO BAR_21_OF_Plati_FB2P

	DEFINE BAR 22 OF Plati PROMPT "\-"
	ON BAR 22 OF Plati ACTIVATE POPUP _2070ya95a

		*----------------------------------
		DEFINE POPUP _2070ya95a SHORTCUT RELATIVE
	DEFINE BAR 23 OF Plati PROMPT "Acordare avans 542" ;
		MESSAGE '542:5124'
	ON SELECTION BAR 23 OF Plati lans(10569)

	DEFINE BAR 24 OF Plati PROMPT "Diurna 625" ;
		MESSAGE '625 : 5124'
	ON SELECTION BAR 24 OF Plati lans(10584)

	DEFINE BAR 25 OF Plati PROMPT "\-"
	ON BAR 25 OF Plati ACTIVATE POPUP _67q0zac7s

		*----------------------------------
		DEFINE POPUP _67q0zac7s SHORTCUT RELATIVE
	DEFINE BAR 26 OF Plati PROMPT "Plata generica" ;
		MESSAGE 'X - 5124'
	ON SELECTION BAR 26 OF Plati DO BAR_26_OF_Plati_FB2P

	DEFINE BAR 27 OF Plati PROMPT "Plata generica facturi valuta diferita" ;
		MESSAGE 'X - 5124; 5124 - 581; 581 - 5124; 5124 - 5124'
	ON SELECTION BAR 27 OF Plati DO BAR_27_OF_Plati_FB2P

	DEFINE BAR 28 OF Plati PROMPT "Plata generica facturi LEI" ;
		MESSAGE '581 - 5124; 5124 - 581 5124 - 5124; X - 5124'
	ON SELECTION BAR 28 OF Plati DO BAR_28_OF_Plati_FB2P

DEFINE BAR 3 OF Bancainval PROMPT "Transferuri 5124"
ON BAR 3 OF Bancainval ACTIVATE POPUP Transferur

	*----------------------------------
	DEFINE POPUP Transferur SHORTCUT RELATIVE
	DEFINE BAR 1 OF Transferur PROMPT "Transfer intre conturi aceeasi valuta" ;
		MESSAGE '581 :5124 ; 5124:581'
	ON SELECTION BAR 1 OF Transferur lans(10452)

	DEFINE BAR 2 OF Transferur PROMPT "Transfer intre conturi valute diferite" ;
		MESSAGE '581 :5124 ; 5124:581'
	ON SELECTION BAR 2 OF Transferur lans(10633)

DEFINE BAR 4 OF Bancainval PROMPT "Depozite 5081"
ON BAR 4 OF Bancainval ACTIVATE POPUP Depozite50

	*----------------------------------
	DEFINE POPUP Depozite50 SHORTCUT RELATIVE
	DEFINE BAR 1 OF Depozite50 PROMPT "Constituire depozit valuta" ;
		MESSAGE '581 : 5124;5081 : 581'
	ON SELECTION BAR 1 OF Depozite50 lans(10638)

	DEFINE BAR 2 OF Depozite50 PROMPT "Lichidare depozit valuta" ;
		MESSAGE '581 : 5081; 5124 : 581'
	ON SELECTION BAR 2 OF Depozite50 lans(10639)

	DEFINE BAR 3 OF Depozite50 PROMPT "Inregistrare dobanda capitalizare" ;
		MESSAGE '5088 : 766; 5081 : 5088'
	ON SELECTION BAR 3 OF Depozite50 lans(10640)

	DEFINE BAR 4 OF Depozite50 PROMPT "Inregistrare dobanda cont curent" ;
		MESSAGE '5088 : 766; 5124 : 5088'
	ON SELECTION BAR 4 OF Depozite50 lans(10641)
ACTIVATE POPUP Bancainval

*</MenuCode>

*<Procedures>
PROCEDURE BAR_14_OF_Incasari_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul creditor 5124:267X",'267')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10577)
ENDPROC && BAR_14_OF_Incasari_FB2P

PROCEDURE BAR_18_OF_Incasari_FB2P
	LOCAL loCont
	loCont = ret_cont("Contul creditor")
	If buton = 2
		Release loCont
		Return
	Endif
	
	
	lans_generic(10650,loCont.Cont, loCont.Acont)
ENDPROC && BAR_18_OF_Incasari_FB2P

PROCEDURE BAR_19_OF_Incasari_FB2P
	LOCAL loCont
	loCont = ret_cont("Contul creditor")
	If buton = 2
		Release loCont
		Return
	Endif
	
	
	lans_generic(10652,loCont.Cont, loCont.Acont)
ENDPROC && BAR_19_OF_Incasari_FB2P

PROCEDURE BAR_"86260"_OF_Plati_FB2P
	PRIVATE pcACN, CN
	loCont = ret_cont("Selectati contul",'409')  && ,4091,4092')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton = 2
		RELEASE loCont
		RETURN 
	ENDIF 
	
	CN = locont.cont
	PcACN = loCont.Acont
	lans(10446)
ENDPROC && BAR_"86260"_OF_Plati_FB2P

PROCEDURE BAR_19_OF_Plati_FB2P
	PRIVATE pcACN, CN
	loCont = ret_cont("Selectati contul",'23')  && 232 IMOBILIZARI CORPORALE, 234 IMOBILIZARI NECORPORALE
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton = 2
		RELEASE loCont
		RETURN 
	ENDIF 
	
	CN = locont.cont
	PcACN = loCont.Acont
	lans(10596)
ENDPROC && BAR_19_OF_Plati_FB2P

PROCEDURE BAR_21_OF_Plati_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul debitor 267X:5124",'267')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10578)
ENDPROC && BAR_21_OF_Plati_FB2P

PROCEDURE BAR_26_OF_Plati_FB2P
	LOCAL loCont
	loCont = ret_cont("Contul debitor")
	If buton = 2
		Release loCont
		Return
	Endif
	
	
	lans_generic(10651,loCont.Cont, loCont.Acont)
ENDPROC && BAR_26_OF_Plati_FB2P

PROCEDURE BAR_27_OF_Plati_FB2P
	LOCAL loCont
	loCont = ret_cont("Contul debitor")
	If buton = 2
		Release loCont
		Return
	Endif
	
	
	lans_generic(10653,loCont.Cont, loCont.Acont)
ENDPROC && BAR_27_OF_Plati_FB2P

PROCEDURE BAR_28_OF_Plati_FB2P
	LOCAL loCont
	loCont = ret_cont("Contul debitor")
	If buton = 2
		Release loCont
		Return
	Endif
	
	
	lans_generic(10656,loCont.Cont, loCont.Acont)
ENDPROC && BAR_28_OF_Plati_FB2P

*</Procedures>