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

*<MenuCode>
DEFINE POPUP Imprumutur SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Imprumutur PROMPT "Imprumuturi din emisiuni de obligatiuni 161"
ON BAR 1 OF Imprumutur ACTIVATE POPUP _0u60pn5yf

	*----------------------------------
	DEFINE POPUP _0u60pn5yf SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60pn5yf PROMPT "Emisiune obligatiuni" ;
		MESSAGE '461 :161 ;5121:461 '
	ON SELECTION BAR 1 OF _0u60pn5yf DO BAR_1_OF__0u60pn5yf_FB2P

	DEFINE BAR 2 OF _0u60pn5yf PROMPT "Prime de rambursare" ;
		MESSAGE '1691 :161 '
	ON SELECTION BAR 2 OF _0u60pn5yf DO BAR_2_OF__0u60pn5yf_FB2P

	DEFINE BAR 3 OF _0u60pn5yf PROMPT "Rascumparare obligatiuni" ;
		MESSAGE '505 :5121;161 :505 '
	ON SELECTION BAR 3 OF _0u60pn5yf DO BAR_3_OF__0u60pn5yf_FB2P

DEFINE BAR 2 OF Imprumutur PROMPT "Credite bancare pe termen lung 162"
ON BAR 2 OF Imprumutur ACTIVATE POPUP _0u60pv4cj

	*----------------------------------
	DEFINE POPUP _0u60pv4cj SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor" ;
		MESSAGE '401 :162 '
	ON SELECTION BAR 1 OF _0u60pv4cj DO BAR_1_OF__0u60pv4cj_FB2P

	DEFINE BAR 2 OF _0u60pv4cj PROMPT "Pentru achitarea furnizorilor de imob." ;
		MESSAGE '404 :162 '
	ON SELECTION BAR 2 OF _0u60pv4cj DO BAR_2_OF__0u60pv4cj_FB2P

	DEFINE BAR 3 OF _0u60pv4cj PROMPT "Virare in banca" ;
		MESSAGE '5121:162 '
	ON SELECTION BAR 3 OF _0u60pv4cj DO BAR_3_OF__0u60pv4cj_FB2P

	DEFINE BAR 4 OF _0u60pv4cj PROMPT "Rambursare credite" ;
		MESSAGE '162 :5121'
	ON SELECTION BAR 4 OF _0u60pv4cj DO BAR_4_OF__0u60pv4cj_FB2P

DEFINE BAR 3 OF Imprumutur PROMPT "Datorii ce privesc investitiile financiare 166"
ON BAR 3 OF Imprumutur ACTIVATE POPUP _0u60q01yu

	*----------------------------------
	DEFINE POPUP _0u60q01yu SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60q01yu PROMPT "Incasare sume" ;
		MESSAGE '5121:166 '
	ON SELECTION BAR 1 OF _0u60q01yu DO BAR_1_OF__0u60q01yu_FB2P

	DEFINE BAR 2 OF _0u60q01yu PROMPT "Restituire sume" ;
		MESSAGE '166 :5121'
	ON SELECTION BAR 2 OF _0u60q01yu DO BAR_2_OF__0u60q01yu_FB2P

DEFINE BAR 4 OF Imprumutur PROMPT "Alte imprumuturi si datorii asimilate 167"
ON BAR 4 OF Imprumutur ACTIVATE POPUP _0u60q3y8a

	*----------------------------------
	DEFINE POPUP _0u60q3y8a SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60q3y8a PROMPT "Incasari sume" ;
		MESSAGE '5121:167 '
	ON SELECTION BAR 1 OF _0u60q3y8a DO BAR_1_OF__0u60q3y8a_FB2P

	DEFINE BAR 2 OF _0u60q3y8a PROMPT "Rambursare imprumuturi" ;
		MESSAGE '167 :5121'
	ON SELECTION BAR 2 OF _0u60q3y8a DO BAR_2_OF__0u60q3y8a_FB2P

DEFINE BAR 5 OF Imprumutur PROMPT "Dobanzi aferente ....   168"
ON BAR 5 OF Imprumutur ACTIVATE POPUP _0u60q6usc

	*----------------------------------
	DEFINE POPUP _0u60q6usc SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0u60q6usc PROMPT "Imprumuturilor din emisiuni de obligatiuni 1681" ;
		MESSAGE '666 :1681;1681:5121'
	ON SELECTION BAR 1 OF _0u60q6usc DO BAR_1_OF__0u60q6usc_FB2P

	DEFINE BAR 2 OF _0u60q6usc PROMPT "Creditelor bancare pe termen lung 1682" ;
		MESSAGE '666 :1682;1682:5121'
	ON SELECTION BAR 2 OF _0u60q6usc DO BAR_2_OF__0u60q6usc_FB2P

	DEFINE BAR 3 OF _0u60q6usc PROMPT "Datoriilor catre societatile din grup 1685" ;
		MESSAGE '666 :1685;1685:5121'
	ON SELECTION BAR 3 OF _0u60q6usc DO BAR_3_OF__0u60q6usc_FB2P

	DEFINE BAR 4 OF _0u60q6usc PROMPT "Datoriilor privind interesele de participare 1686" ;
		MESSAGE '666 :1686;1686:5121'
	ON SELECTION BAR 4 OF _0u60q6usc DO BAR_4_OF__0u60q6usc_FB2P

	DEFINE BAR 5 OF _0u60q6usc PROMPT "Altor imprumuturi si datorii asimilate 1687" ;
		MESSAGE '666 :1687;1687:5121'
	ON SELECTION BAR 5 OF _0u60q6usc DO BAR_5_OF__0u60q6usc_FB2P
ACTIVATE POPUP Imprumutur

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF__0u60pn5yf_FB2P
	***DO ABC2 WITH '461 ','161 ','5121','461 '
	*!*	m.scd='461 '
	*!*	m.scc='161 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "NUMELE CREDITORULUI","CREDITOR","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2",  ;
	*!*	 '','','IMPRUMUT EMIS. OBLIGATIUNI',   ;
	*!*	""
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	M.PERECHE=M.NRACT
	*!*	DO CONTABILIZEAZA WITH '5121','461 ',M.suma,CLASAACT
	
	*!*	do inBANCA
	lans(10051)
	*!*	sele credits
	*!*	if flock()
	*!*	REPLACE CREDITS.LUAT WITH CREDITS.LUAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
ENDPROC && BAR_1_OF__0u60pn5yf_FB2P

PROCEDURE BAR_2_OF__0u60pn5yf_FB2P
	*DO ABC1 WITH '169 ','161 '
	lans(10052)
ENDPROC && BAR_2_OF__0u60pn5yf_FB2P

PROCEDURE BAR_3_OF__0u60pn5yf_FB2P
	*DO ABC2 WITH '505 ','5121','161 ','505 '
	lans(10053)
ENDPROC && BAR_3_OF__0u60pn5yf_FB2P

PROCEDURE BAR_1_OF__0u60pv4cj_FB2P
	*!*	*DO ABC1 WITH '401 ','162 '
	*!*	m.scd='401 '
	*!*	m.scc='162 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "NUMELE CREDITULUI","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2",  ;
	*!*	 '','',"CREDIT FURNIZOR",  ;
	*!*	"INCASARE CREDIT"
	*!*	*
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10054)
ENDPROC && BAR_1_OF__0u60pv4cj_FB2P

PROCEDURE BAR_2_OF__0u60pv4cj_FB2P
	*!*	*DO ABC1 WITH '404 ','162 '
	
	*!*	m.scd='404 '
	*!*	m.scc='162 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "NUMELE CREDITULUI","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2",  ;
	*!*	 '','',"CREDIT FURNIZOR IMOB.",  ;
	*!*	"INCASARE CREDIT"
	*!*	*
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10055)
ENDPROC && BAR_2_OF__0u60pv4cj_FB2P

PROCEDURE BAR_3_OF__0u60pv4cj_FB2P
	*!*	*DO ABC1 WITH '5121','162 '
	*!*	m.scd='5121'
	*!*	m.scc='162 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "NUMELE CREDITULUI","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2",  ;
	*!*	 '','',"CREDIT IN BANCA",  ;
	*!*	"INCASARE CREDIT"
	*!*	*
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	
	lans(10056)
ENDPROC && BAR_3_OF__0u60pv4cj_FB2P

PROCEDURE BAR_4_OF__0u60pv4cj_FB2P
	*!*	*DO ABC1 WITH '162 ','5121'
	
	*!*	m.scd='162 '
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"RAMBURSARE CREDIT",  ;
	*!*	"RAMBURSARE CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	lans(10057)
ENDPROC && BAR_4_OF__0u60pv4cj_FB2P

PROCEDURE BAR_1_OF__0u60q01yu_FB2P
	*!*	*DO ABC1 WITH '5121','166 '
	*!*	m.scd='5121'
	*!*	m.scc='166 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "NUMELE CREDITULUI","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2",  ;
	*!*	 '','',"DATORII-INVESTITII FINANCIARE",  ;
	*!*	"INCASARE CREDIT"
	*!*	*
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10058)
ENDPROC && BAR_1_OF__0u60q01yu_FB2P

PROCEDURE BAR_2_OF__0u60q01yu_FB2P
	*!*	*DO ABC1 WITH '166 ','5121'
	*!*	m.scd='166 '
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"RAMBURSARE CREDIT",  ;
	*!*	"RAMBURSARE CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10059)
ENDPROC && BAR_2_OF__0u60q01yu_FB2P

PROCEDURE BAR_1_OF__0u60q3y8a_FB2P
	*!*	*DO ABC1 WITH '5121','167 '
	*!*	m.scd='5121'
	*!*	m.scc='167 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "NUMELE CREDITULUI","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2",  ;
	*!*	 '','',"ALTE IMPRUMUTURI ASIMILATE",  ;
	*!*	"INCASARE CREDIT"
	*!*	*
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.LUAT WITH CREDITL.LUAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10060)
ENDPROC && BAR_1_OF__0u60q3y8a_FB2P

PROCEDURE BAR_2_OF__0u60q3y8a_FB2P
	*!*	*DO ABC1 WITH '167 ','5121'
	*!*	m.scd='167 '
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"RAMBURSARE ALTE IMPRUMUTURI",  ;
	*!*	"RAMBURSARE CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DAT WITH CREDITL.DAT+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10061)
ENDPROC && BAR_2_OF__0u60q3y8a_FB2P

PROCEDURE BAR_1_OF__0u60q6usc_FB2P
	*!*	*DO ABC2 WITH '666 ','1681','1681','5121'
	
	*!*	m.scd='1681'
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"DOBANZI-IMPRUM.EMIS.OBLIG.",  ;
	*!*	"DOBANZI LA CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	m.scd='666 '
	*!*	m.scc='1681' 
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	lans(10062)
ENDPROC && BAR_1_OF__0u60q6usc_FB2P

PROCEDURE BAR_2_OF__0u60q6usc_FB2P
	*!*	*DO ABC2 WITH '666 ','1682','1682','5121'
	
	*!*	m.scd='1682'
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"DOBANZI-CREDIT TERM. LUNG",  ;
	*!*	"DOBANZI LA CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	m.scd='666  '
	*!*	m.scc='1682'
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10063)
ENDPROC && BAR_2_OF__0u60q6usc_FB2P

PROCEDURE BAR_3_OF__0u60q6usc_FB2P
	*!*	*DO ABC2 WITH '666 ','1685','1685','5121'
	*!*	m.scd='1685'
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"DOBANZI-DATORII SOC.GRUP",  ;
	*!*	"DOBANZI LA CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	m.scd='666  '
	*!*	m.scc='1685'
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	Lans(10064)
ENDPROC && BAR_3_OF__0u60q6usc_FB2P

PROCEDURE BAR_4_OF__0u60q6usc_FB2P
	*!*	*DO ABC2 WITH '666 ','1686','1686','5121'
	*!*	m.scd='1686'
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"DOBANZI-DATORII ALTE SOC.",  ;
	*!*	"DOBANZI LA CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	m.scd='666  '
	*!*	m.scc='1686'
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10065)
ENDPROC && BAR_4_OF__0u60q6usc_FB2P

PROCEDURE BAR_5_OF__0u60q6usc_FB2P
	*!*	*DO ABC2 WITH '666 ','1687','1687','5121'
	*!*	m.scd='1687'
	*!*	m.scc='5121'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casa',;
	*!*	 "CREDITUL","CREDITL","NUME",   ;
	*!*	 "NUMELE BANCII","BANNUME","NUME_2", ;
	*!*	 '','',"DOBANZI ALTE IMPRUMUTURI",  ;
	*!*	"DOBANZI LA CREDIT"
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do PLBANCA
	*!*	m.scd='666 '
	*!*	m.scc='1687'
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	sele creditl
	*!*	if flock()
	*!*	REPLACE CREDITL.DOBANDA WITH CREDITL.DOBANDA+m.suma
	*!*	endif
	*!*	unlock
	*!*	do sterge
	
	lans(10066)
ENDPROC && BAR_5_OF__0u60q6usc_FB2P

*</Procedures>
