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

*<MenuCode>
DEFINE POPUP Bancaincas SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR "83010" OF Bancaincas PROMPT "Depunere numerar in banca 5311" ;
	MESSAGE '581 :5311;5121:581'
ON SELECTION BAR 83010 OF Bancaincas lans(10364)

DEFINE BAR 2 OF Bancaincas PROMPT "Decontari intre subunitati 482" ;
	MESSAGE '5121:482'
ON SELECTION BAR 2 OF Bancaincas lans(10366)

DEFINE BAR 3 OF Bancaincas PROMPT "Incasari creditori / decontari intre subunitati 462/482" ;
	MESSAGE '5121:462; 462 :482'
ON SELECTION BAR 3 OF Bancaincas lans(50501)

DEFINE BAR 4 OF Bancaincas PROMPT "\-"
ON BAR 4 OF Bancaincas ACTIVATE POPUP _0h30u83jo

	*----------------------------------
	DEFINE POPUP _0h30u83jo SHORTCUT RELATIVE
DEFINE BAR "83050" OF Bancaincas PROMPT "Clienti 4111" ;
	MESSAGE '5121:4111'
ON BAR 83050 OF Bancaincas ACTIVATE POPUP Clienti411

	*----------------------------------
	DEFINE POPUP Clienti411 SHORTCUT RELATIVE
	DEFINE BAR 1 OF Clienti411 PROMPT "Fara listare" ;
		MESSAGE '5121:4111'
	ON SELECTION BAR 1 OF Clienti411 lans(10367)

	DEFINE BAR 2 OF Clienti411 PROMPT "Cu bon fiscal - CARD" ;
		MESSAGE '5125:4111 - listare bon fiscal la casa de marcat incasare prin card bancar'
	ON SELECTION BAR 2 OF Clienti411 DO casademarcat_roacont WITH 10617 IN oproceduri_casademarcat.prg

DEFINE BAR 6 OF Bancaincas PROMPT "Clienti 4111 in valuta" ;
	MESSAGE '581 - 5121; 5121 - 581; 5121 - 5121;  5121 - 4111'
ON SELECTION BAR 6 OF Bancaincas lans(10602)

DEFINE BAR "83060" OF Bancaincas PROMPT "Clienti incerti 4118" ;
	MESSAGE '5121: 4118'
ON SELECTION BAR 83060 OF Bancaincas lans(10368)

DEFINE BAR "83070" OF Bancaincas PROMPT "Clienti creditori 419" ;
	MESSAGE '5121:419 ;5121:4111 ; 4111:4427'
ON SELECTION BAR 83070 OF Bancaincas lans(10369)

DEFINE BAR 9 OF Bancaincas PROMPT "Incasarea la scadenta a efectelor depuse anterior la banca 5113" ;
	MESSAGE '5121:5113'
ON SELECTION BAR 9 OF Bancaincas lans(10629)

DEFINE BAR 10 OF Bancaincas PROMPT "Incasarea efectelor la banca la scadenta 413" ;
	MESSAGE '5121:413 '
ON SELECTION BAR 10 OF Bancaincas lans(10307)

DEFINE BAR 11 OF Bancaincas PROMPT "\-"
ON BAR 11 OF Bancaincas ACTIVATE POPUP _0ca0ycxcn

	*----------------------------------
	DEFINE POPUP _0ca0ycxcn SHORTCUT RELATIVE
DEFINE BAR 12 OF Bancaincas PROMPT "Restituit avans 542" ;
	MESSAGE '5121:542'
ON SELECTION BAR 12 OF Bancaincas lans(10566)

DEFINE BAR 13 OF Bancaincas PROMPT "\-"
ON BAR 13 OF Bancaincas ACTIVATE POPUP _2070wzyg6

	*----------------------------------
	DEFINE POPUP _2070wzyg6 SHORTCUT RELATIVE
DEFINE BAR "83090" OF Bancaincas PROMPT "TVA de recuperat 4424" ;
	MESSAGE '5121:4424'
ON SELECTION BAR 83090 OF Bancaincas lans(10370)

DEFINE BAR 15 OF Bancaincas PROMPT "\-"
ON BAR 15 OF Bancaincas ACTIVATE POPUP _0co1cdi8r

	*----------------------------------
	DEFINE POPUP _0co1cdi8r SHORTCUT RELATIVE
DEFINE BAR "83180" OF Bancaincas PROMPT "Asociati 4551" ;
	MESSAGE '5121:4551'
ON SELECTION BAR 83180 OF Bancaincas lans(10371)

DEFINE BAR "83100" OF Bancaincas PROMPT "Debitori diversi 461" ;
	MESSAGE '5121: 461'
ON SELECTION BAR 83100 OF Bancaincas lans(10372)

DEFINE BAR "83110" OF Bancaincas PROMPT "Creditori diversi 462" ;
	MESSAGE '5121:462'
ON SELECTION BAR 83110 OF Bancaincas lans(10373)

DEFINE BAR 19 OF Bancaincas PROMPT "\-"
ON BAR 19 OF Bancaincas ACTIVATE POPUP _saq0rc606

	*----------------------------------
	DEFINE POPUP _saq0rc606 SHORTCUT RELATIVE
DEFINE BAR "83020" OF Bancaincas PROMPT "Capital social varsat 456/1012" ;
	MESSAGE '5121:456 ;1011:1012'
ON SELECTION BAR 83020 OF Bancaincas lans(10374)

DEFINE BAR "83030" OF Bancaincas PROMPT "Credite bancare pe termen lung 1621" ;
	MESSAGE '5121:1621'
ON SELECTION BAR 83030 OF Bancaincas lans(10375)

DEFINE BAR "83120" OF Bancaincas PROMPT "Credite bancare 5191" ;
	MESSAGE '5121:5191'
ON SELECTION BAR 83120 OF Bancaincas lans(10376)

DEFINE BAR "83040" OF Bancaincas PROMPT "Incasare garantii 267X" ;
	MESSAGE '5121:267X'
ON SELECTION BAR 83040 OF Bancaincas DO BAR_"83040"_OF_Bancaincas_FB2P

DEFINE BAR 24 OF Bancaincas PROMPT "Subventii pentru investitii 131/445X" ;
	MESSAGE '5121: X(131/445)'
ON SELECTION BAR 24 OF Bancaincas DO BAR_24_OF_Bancaincas_FB2P

DEFINE BAR "83150" OF Bancaincas PROMPT "Venituri din dobanzi 766" ;
	MESSAGE '5121: 766'
ON SELECTION BAR 83150 OF Bancaincas lans(10379)

DEFINE BAR "83170" OF Bancaincas PROMPT "Sume in curs de clarificare 473" ;
	MESSAGE '5121: 473'
ON SELECTION BAR 83170 OF Bancaincas lans(10380)

DEFINE BAR 27 OF Bancaincas PROMPT "Decontari in cadrul grupului 4511" ;
	MESSAGE '5121 : 4511'
ON SELECTION BAR 27 OF Bancaincas lans(10524)

DEFINE BAR 28 OF Bancaincas PROMPT "Sume in curs de decontare 5125" ;
	MESSAGE '5121: 5125'
ON SELECTION BAR 28 OF Bancaincas lans(10618)

DEFINE BAR 29 OF Bancaincas PROMPT "\-"
ON BAR 29 OF Bancaincas ACTIVATE POPUP _67l0una2d

	*----------------------------------
	DEFINE POPUP _67l0una2d SHORTCUT RELATIVE
DEFINE BAR 30 OF Bancaincas PROMPT "Incasare generica prin banca X" ;
	MESSAGE '5121: X'
ON SELECTION BAR 30 OF Bancaincas DO BAR_30_OF_Bancaincas_FB2P

DEFINE BAR 31 OF Bancaincas PROMPT "Incasare generica facturi valuta" ;
	MESSAGE '5121: X; 581 : 5121; 5121 : 581; 5121 = 5121'
ON SELECTION BAR 31 OF Bancaincas DO BAR_31_OF_Bancaincas_FB2P
ACTIVATE POPUP Bancaincas

*</MenuCode>

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

PROCEDURE BAR_24_OF_Bancaincas_FB2P
	
	LOCAL loCont
	loCont = ret_cont("Alegeti contul creditor 5121 = 131/445X (Subventii)", "131,445")
	IF buton = 2
		RELEASE loCont
		RETURN 
	ENDIF 
	
	
	lans_generic(10378,loCont.cont, loCont.acont)
ENDPROC && BAR_24_OF_Bancaincas_FB2P

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

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

*</Procedures>
