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

*<MenuCode>
DEFINE POPUP Bancaplati SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR "84010" OF Bancaplati PROMPT "Ridicat numerar din banca 5311" ;
	MESSAGE '5311:581 ; 581:5121'
ON SELECTION BAR 84010 OF Bancaplati DO BAR_"84010"_OF_Bancaplati_FB2P

DEFINE BAR 2 OF Bancaplati PROMPT "Decontari intre subunitati 482" ;
	MESSAGE '482:5121'
ON SELECTION BAR 2 OF Bancaplati DO BAR_2_OF_Bancaplati_FB2P

DEFINE BAR 3 OF Bancaplati PROMPT "Decontari intre subunitati 462" ;
	MESSAGE '482 : 462; 462 : 5121'
ON SELECTION BAR 3 OF Bancaplati lans(50502)

DEFINE BAR "84190" OF Bancaplati PROMPT "Transferuri 5121" ;
	MESSAGE '581 :5121;5121: 581'
ON SELECTION BAR 84190 OF Bancaplati lans(10451)

DEFINE BAR 5 OF Bancaplati PROMPT "\-"
ON BAR 5 OF Bancaplati ACTIVATE POPUP _57v0tl3ms

	*----------------------------------
	DEFINE POPUP _57v0tl3ms SHORTCUT RELATIVE
DEFINE BAR 6 OF Bancaplati PROMPT "\<Depozite 5081"
ON BAR 6 OF Bancaplati ACTIVATE POPUP Depozite50

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

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

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

	DEFINE BAR 4 OF Depozite50 PROMPT "Inregistrare dobanda cont curent" ;
		MESSAGE '5088 : 766; 5121 : 5088'
	ON SELECTION BAR 4 OF Depozite50 lans(10637)

DEFINE BAR 7 OF Bancaplati PROMPT "\-"
ON BAR 7 OF Bancaplati ACTIVATE POPUP _saq0rjs7n

	*----------------------------------
	DEFINE POPUP _saq0rjs7n SHORTCUT RELATIVE
DEFINE BAR 8 OF Bancaplati PROMPT "Plati furnizori"
ON BAR 8 OF Bancaplati ACTIVATE POPUP _0yz0qm9kq

	*----------------------------------
	DEFINE POPUP _0yz0qm9kq SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0yz0qm9kq PROMPT "Plata furnizori 401" ;
		MESSAGE '401 :5121'
	ON SELECTION BAR 1 OF _0yz0qm9kq lans(10383)

	DEFINE BAR 2 OF _0yz0qm9kq PROMPT "Plata furnizori imobilizari 404" ;
		MESSAGE '404 :5121'
	ON SELECTION BAR 2 OF _0yz0qm9kq lans(10384)

	DEFINE BAR 3 OF _0yz0qm9kq PROMPT "Avansuri furnizori 409x" ;
		MESSAGE '409 :5121'
	ON SELECTION BAR 3 OF _0yz0qm9kq DO BAR_3_OF__0yz0qm9kq_FB2P

	DEFINE BAR 4 OF _0yz0qm9kq PROMPT "\-"
	ON BAR 4 OF _0yz0qm9kq ACTIVATE POPUP _1ot0t4sle

		*----------------------------------
		DEFINE POPUP _1ot0t4sle SHORTCUT RELATIVE
	DEFINE BAR 5 OF _0yz0qm9kq PROMPT "Avansuri furnizori imobilizari 23x"
	ON BAR 5 OF _0yz0qm9kq ACTIVATE POPUP Avansurifu

		*----------------------------------
		DEFINE POPUP Avansurifu SHORTCUT RELATIVE
		DEFINE BAR 1 OF Avansurifu PROMPT "Corporale" ;
			MESSAGE '232 : 5121'
		ON SELECTION BAR 1 OF Avansurifu lans(10560)

		DEFINE BAR 2 OF Avansurifu PROMPT "Necorporale" ;
			MESSAGE '234 : 5121'
		ON SELECTION BAR 2 OF Avansurifu lans(10561)

DEFINE BAR 9 OF Bancaplati PROMPT "Plati furnizori in valuta" ;
	MESSAGE '581 - 5121; 5121 - 581; 5121 - 5121; 5121 - 401'
ON BAR 9 OF Bancaplati ACTIVATE POPUP Platifurni

	*----------------------------------
	DEFINE POPUP Platifurni SHORTCUT RELATIVE
	DEFINE BAR 1 OF Platifurni PROMPT "Plati furnizori 401" ;
		MESSAGE '401 :5121'
	ON SELECTION BAR 1 OF Platifurni lans(10603)

	DEFINE BAR 2 OF Platifurni PROMPT "Plati furnizori imobilizari 404" ;
		MESSAGE '404 :5121'
	ON SELECTION BAR 2 OF Platifurni lans(10607)

	DEFINE BAR 3 OF Platifurni PROMPT "Plati creditori 462" ;
		MESSAGE '462 :5121'
	ON SELECTION BAR 3 OF Platifurni lans(10608)

DEFINE BAR "84140" OF Bancaplati PROMPT "Creditori diversi 462" ;
	MESSAGE '462 :5121'
ON SELECTION BAR 84140 OF Bancaplati DO BAR_"84140"_OF_Bancaplati_FB2P

DEFINE BAR 11 OF Bancaplati PROMPT "Debitori diversi 461" ;
	MESSAGE '461 :5121'
ON SELECTION BAR 11 OF Bancaplati DO BAR_11_OF_Bancaplati_FB2P

DEFINE BAR 12 OF Bancaplati PROMPT "Efecte comerciale 403" ;
	MESSAGE '403 :5121'
ON SELECTION BAR 12 OF Bancaplati LANS(10316)

DEFINE BAR 13 OF Bancaplati PROMPT "Efecte comerciale imobilizari 405" ;
	MESSAGE '405 :5121'
ON SELECTION BAR 13 OF Bancaplati lans(10319)

DEFINE BAR 14 OF Bancaplati PROMPT "\-"
ON BAR 14 OF Bancaplati ACTIVATE POPUP _54c0wl988

	*----------------------------------
	DEFINE POPUP _54c0wl988 SHORTCUT RELATIVE
DEFINE BAR "84130" OF Bancaplati PROMPT "Decontari cu asociati 456" ;
	MESSAGE ' 456:5121'
ON SELECTION BAR 84130 OF Bancaplati DO BAR_"84130"_OF_Bancaplati_FB2P

DEFINE BAR "84220" OF Bancaplati PROMPT "Asociati 4551" ;
	MESSAGE '4551:5121'
ON SELECTION BAR 84220 OF Bancaplati lans(10389)

DEFINE BAR "84160" OF Bancaplati PROMPT "Colaboratori 621" ;
	MESSAGE '621 :5121;4426:5121'
ON SELECTION BAR 84160 OF Bancaplati lans(10390)

DEFINE BAR 18 OF Bancaplati PROMPT "\-"
ON BAR 18 OF Bancaplati ACTIVATE POPUP _0qh0oeqdz

	*----------------------------------
	DEFINE POPUP _0qh0oeqdz SHORTCUT RELATIVE
DEFINE BAR 19 OF Bancaplati PROMPT "Acordare avans 542" ;
	MESSAGE '542 :5121'
ON SELECTION BAR 19 OF Bancaplati lans(10567)

DEFINE BAR 20 OF Bancaplati PROMPT "\-"
ON BAR 20 OF Bancaplati ACTIVATE POPUP _2070x74la

	*----------------------------------
	DEFINE POPUP _2070x74la SHORTCUT RELATIVE
DEFINE BAR 21 OF Bancaplati PROMPT "Salarii"
ON BAR 21 OF Bancaplati ACTIVATE POPUP Salarii

	*----------------------------------
	DEFINE POPUP Salarii SHORTCUT RELATIVE
	DEFINE BAR 1 OF Salarii PROMPT "Salarii 421" ;
		MESSAGE '421 :5121'
	ON SELECTION BAR 1 OF Salarii DO BAR_1_OF_Salarii_FB2P

	DEFINE BAR 2 OF Salarii PROMPT "Salarii 4211"
	ON SELECTION BAR 2 OF Salarii DO BAR_2_OF_Salarii_FB2P

	DEFINE BAR 3 OF Salarii PROMPT "Concedii medicale C.A.S" ;
		MESSAGE '423 : 5121'
	ON SELECTION BAR 3 OF Salarii lans(10549)

	DEFINE BAR 4 OF Salarii PROMPT "Avansuri salarii 425" ;
		MESSAGE '425 :5121'
	ON SELECTION BAR 4 OF Salarii DO BAR_4_OF_Salarii_FB2P

DEFINE BAR 22 OF Bancaplati PROMPT "\-"
ON BAR 22 OF Bancaplati ACTIVATE POPUP _saq0rlh6g

	*----------------------------------
	DEFINE POPUP _saq0rlh6g SHORTCUT RELATIVE
DEFINE BAR "84080" OF Bancaplati PROMPT "Plata retineri 427" ;
	MESSAGE '427 :5121'
ON SELECTION BAR 84080 OF Bancaplati lans(10394)

DEFINE BAR 24 OF Bancaplati PROMPT "Plata redeventa" ;
	MESSAGE '4463:5121; 635:4463'
ON SELECTION BAR 24 OF Bancaplati LANS(10465)

DEFINE BAR 25 OF Bancaplati PROMPT "Plata dividende 457" ;
	MESSAGE ' 457 : 5121'
ON SELECTION BAR 25 OF Bancaplati lans(10508)

DEFINE BAR 26 OF Bancaplati PROMPT "Plata amenzi, penalitati 448x" ;
	MESSAGE '448X : 5121'
ON SELECTION BAR 26 OF Bancaplati DO BAR_26_OF_Bancaplati_FB2P

DEFINE BAR 27 OF Bancaplati PROMPT "Credite"
ON BAR 27 OF Bancaplati ACTIVATE POPUP Credite

	*----------------------------------
	DEFINE POPUP Credite SHORTCUT RELATIVE
	DEFINE BAR 1 OF Credite PROMPT "Rambursat credit scurt 5191" ;
		MESSAGE '5191:5121'
	ON SELECTION BAR 1 OF Credite lans(10395)

	DEFINE BAR 2 OF Credite PROMPT "Rambursat credit lung 1621" ;
		MESSAGE '1621:5121'
	ON SELECTION BAR 2 OF Credite LANS(10396)

	DEFINE BAR 3 OF Credite PROMPT "Dobanzi credit termen scurt 5198" ;
		MESSAGE '5198:5121; 666:5198'
	ON SELECTION BAR 3 OF Credite LANS(10397)

	DEFINE BAR 4 OF Credite PROMPT "Dobanzi credit termen lung 1682" ;
		MESSAGE '1682:5121; 666:1682'
	ON SELECTION BAR 4 OF Credite LANS(10398)

DEFINE BAR "84030" OF Bancaplati PROMPT "Acordare garantii 267X" ;
	MESSAGE '2678:5121'
ON SELECTION BAR 84030 OF Bancaplati DO BAR_"84030"_OF_Bancaplati_FB2P

DEFINE BAR "84150" OF Bancaplati PROMPT "Comisioane bancare 627" ;
	MESSAGE '627 :5121'
ON SELECTION BAR 84150 OF Bancaplati DO BAR_"84150"_OF_Bancaplati_FB2P

DEFINE BAR "84170" OF Bancaplati PROMPT "Comisioane si onorarii 622" ;
	MESSAGE '622 :5121'
ON SELECTION BAR 84170 OF Bancaplati DO BAR_"84170"_OF_Bancaplati_FB2P

DEFINE BAR "84180" OF Bancaplati PROMPT "Cheltuieli exceptionale 6587" ;
	MESSAGE '6587:5121'
ON SELECTION BAR 84180 OF Bancaplati DO BAR_"84180"_OF_Bancaplati_FB2P

DEFINE BAR "84200" OF Bancaplati PROMPT "Sume in curs de clarificare 473" ;
	MESSAGE '473 :5121'
ON SELECTION BAR 84200 OF Bancaplati DO BAR_"84200"_OF_Bancaplati_FB2P

DEFINE BAR 33 OF Bancaplati PROMPT "Plati impozite 4xx" ;
	MESSAGE ' 4XXX - 5121'
ON SELECTION BAR 33 OF Bancaplati DO BAR_33_OF_Bancaplati_FB2P

DEFINE BAR 34 OF Bancaplati PROMPT "Plata alte impozite 446" ;
	MESSAGE '446 :5121'
ON SELECTION BAR 34 OF Bancaplati DO BAR_34_OF_Bancaplati_FB2P

DEFINE BAR 35 OF Bancaplati PROMPT "Cheltuieli in avans 471" ;
	MESSAGE '471:5121'
ON SELECTION BAR 35 OF Bancaplati DO BAR_35_OF_Bancaplati_FB2P

DEFINE BAR 36 OF Bancaplati PROMPT "Decontari in cadrul grupului 4511" ;
	MESSAGE ' 4511 : 5121'
ON SELECTION BAR 36 OF Bancaplati lans(10522)

DEFINE BAR 37 OF Bancaplati PROMPT "Diurna 625" ;
	MESSAGE '625 : 5121'
ON SELECTION BAR 37 OF Bancaplati lans(10585)

DEFINE BAR 38 OF Bancaplati PROMPT "\-"
ON BAR 38 OF Bancaplati ACTIVATE POPUP _67l0upxxf

	*----------------------------------
	DEFINE POPUP _67l0upxxf SHORTCUT RELATIVE
DEFINE BAR 39 OF Bancaplati PROMPT "Plata generica prin banca" ;
	MESSAGE 'X : 5121'
ON SELECTION BAR 39 OF Bancaplati DO BAR_39_OF_Bancaplati_FB2P

DEFINE BAR 40 OF Bancaplati PROMPT "Plata generica facturi valuta" ;
	MESSAGE 'X : 5121; 5121 : 581; 581 : 5121; 5121 = 5121'
ON SELECTION BAR 40 OF Bancaplati DO BAR_40_OF_Bancaplati_FB2P
ACTIVATE POPUP Bancaplati

*</MenuCode>

*<Procedures>
PROCEDURE BAR_"84010"_OF_Bancaplati_FB2P
	lans(10381)
	*DO MENIU84010
ENDPROC && BAR_"84010"_OF_Bancaplati_FB2P

PROCEDURE BAR_2_OF_Bancaplati_FB2P
	lans(10382)
	*!*	m.scC='5121'
	*!*	m.scD='482 '
	*!*	***do casa.spr
	*!*	DO alfabeta with;
	*!*		'casa',;
	*!*		'','','',  ;
	*!*		"NUMELE BANCII","BANNUME","NUME_2",   ;
	*!*		'','',"DECONTARI INTRE SUBUNITATI",  ;
	*!*		"DECONTARI INTRE SUBUNITATI"
	*!*	*
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	*!*	DO CODARE
	
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	DO PLBANCA
	*!*	DO STERGE
	*!*	RETURN
ENDPROC && BAR_2_OF_Bancaplati_FB2P

PROCEDURE BAR_3_OF__0yz0qm9kq_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(10385)
ENDPROC && BAR_3_OF__0yz0qm9kq_FB2P

PROCEDURE BAR_"84140"_OF_Bancaplati_FB2P
	LANS(10386)
	*DO MENIU84140
ENDPROC && BAR_"84140"_OF_Bancaplati_FB2P

PROCEDURE BAR_11_OF_Bancaplati_FB2P
	lans(10387)
	*DO MENIU82120B
ENDPROC && BAR_11_OF_Bancaplati_FB2P

PROCEDURE BAR_"84130"_OF_Bancaplati_FB2P
	*DO MENIU84130
	lans(10388)
ENDPROC && BAR_"84130"_OF_Bancaplati_FB2P

PROCEDURE BAR_1_OF_Salarii_FB2P
	lans(10391)
	*!*	*____________________________________________________________________________________________
	*!*	*PROCEDURE MENIU82070
	
	*!*	m.scd='421'
	*!*	m.scc='5121'
	
	*!*	m.explicatia='PLATA SALARII'
	*!*	oa=createo('actsimB')
	*!*	oa.show(1)
	*!*	*!*	DO alfabeta with;
	*!*	*!*		'actsimc',;
	*!*	*!*		"NUMELE FURNIZORULUI","FURNIZOR","NUME",   ;
	*!*	*!*		"NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	*!*		'','',"PLATA SALARII CONTRACT",  ;
	*!*	*!*		"PLATA SALARII CONTRACT"
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do plbanca
	*!*	do sterge
	
	*!*	*RETURN
ENDPROC && BAR_1_OF_Salarii_FB2P

PROCEDURE BAR_2_OF_Salarii_FB2P
	lans(10392)
	*!*	*____________________________________________________________________________________________
	*!*	*PROCEDURE MENIU82070
	
	*!*	m.scd='4211'
	*!*	m.scc='5121'
	
	*!*	m.explicatia='PLATA SALARII'
	*!*	oa=createo('actsimB')
	*!*	oa.show(1)
	*!*	*!*	DO alfabeta with;
	*!*	*!*		'actsimc',;
	*!*	*!*		"NUMELE FURNIZORULUI","FURNIZOR","NUME",   ;
	*!*	*!*		"NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	*!*		'','',"PLATA SALARII CONTRACT",  ;
	*!*	*!*		"PLATA SALARII CONTRACT"
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do plbanca
	*!*	do sterge
	
	*!*	*RETURN
ENDPROC && BAR_2_OF_Salarii_FB2P

PROCEDURE BAR_4_OF_Salarii_FB2P
	lans(10393)
	*!*	m.scd='425  '
	*!*	m.scc='5121 '
	*!*	***do casa.spr
	*!*	DO alfabeta with;
	*!*		'actsimB',;
	*!*		'','','',   ;
	*!*		'','','',  ;
	*!*		'','',"PLATIT AVANS",  ;
	*!*		"PLATIT AVANS"
	*!*	*
	*!*	IF BUTON=2
	*!*		DO STERGE
	*!*		RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	DO PLbanca
	*!*	DO STERGE
ENDPROC && BAR_4_OF_Salarii_FB2P

PROCEDURE BAR_26_OF_Bancaplati_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'448') && ,4481,4482')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10512)
ENDPROC && BAR_26_OF_Bancaplati_FB2P

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

PROCEDURE BAR_"84150"_OF_Bancaplati_FB2P
	LANS(10400)
	*DO MENIU84150
ENDPROC && BAR_"84150"_OF_Bancaplati_FB2P

PROCEDURE BAR_"84170"_OF_Bancaplati_FB2P
	*DO MENIU84170
	LANS(10401)
ENDPROC && BAR_"84170"_OF_Bancaplati_FB2P

PROCEDURE BAR_"84180"_OF_Bancaplati_FB2P
	LANS(10402)
	*DO MENIU84180
ENDPROC && BAR_"84180"_OF_Bancaplati_FB2P

PROCEDURE BAR_"84200"_OF_Bancaplati_FB2P
	LANS(10403)
	*DO MENIU84200
ENDPROC && BAR_"84200"_OF_Bancaplati_FB2P

PROCEDURE BAR_33_OF_Bancaplati_FB2P
	lans(10467)
	IF buton=2
		DO deschid_actc
		RETURN
	ENDIF 
	DO plati_impozite WITH 10467 IN ocont2003.prg 
	
	*!*		IF USED('plimp')
	*!*			USE IN plimp
	*!*		ENDIF 
	*!*		
	*!*		COPY FILE &DIRGEN\_ALFA\AN0000\DATE00\plimp.* to &LOC\&NFSCURT\TEMPO\plimp.*
	*!*		DO des WITH 'PLIMP'
	*!*		
	*!*		SELE PLIMP
	*!*		INDEX ON scd TAG scd OF &loc\&nfscurt\tempo\ZZZ
	*!*		SET ORDER TO TAG scd
	
	*!*		REPL ALL SUMA WITH 0
	*!*		REPL ALL NRACT WITH M.NRACT
	*!*		REPL ALL scc WITH '5121'
	
	*!*		GO TOP
	*!*		oaf=CREATE('afisanaa')
	*!*		oaf.SHOW(1)
	*!*		m.NUME=''
	*!*		SELE PLIMP
	*!*		SUM SUMA TO M.SUMA
	
	
	*!*		IF buton=2
	*!*			DO deschid_actc
	*!*			RETURN 
	*!*		ENDIF
	*!*		
	*!*		SELECT PLIMP
	*!*		SCAN FOR SUMA#0
	*!*			SCATTER MEMVAR
	*!*			SELECT actactan
	*!*			GO top
	*!*			SCATTER FIELDS id_set, nume_2, dataact, dataireg, fdoc MEMVAR 
	*!*			DELETE 
	*!*			APPEND BLANK
	*!*			GATHER memv
	*!*			
	*!*			SCRIE_IN_FISIERE(' ')
	*!*			SELECT PLIMP
	*!*		ENDSCAN
	*!*		
	*!*	DO deschid_actc
ENDPROC && BAR_33_OF_Bancaplati_FB2P

PROCEDURE BAR_34_OF_Bancaplati_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'446')  && ,4461,4462,4463,4464,4465,4466,4467,4468,4469')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10466)
	
ENDPROC && BAR_34_OF_Bancaplati_FB2P

PROCEDURE BAR_35_OF_Bancaplati_FB2P
	lans(10405)
ENDPROC && BAR_35_OF_Bancaplati_FB2P

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

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

*</Procedures>
