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

*<MenuCode>
DEFINE POPUP Casainvalu SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Casainvalu PROMPT "\<Incasari"
ON BAR 1 OF Casainvalu ACTIVATE POPUP _08x0o1q7r

	*----------------------------------
	DEFINE POPUP _08x0o1q7r SHORTCUT RELATIVE
	DEFINE BAR 1 OF _08x0o1q7r PROMPT "Ridicat numerar din banca" ;
		MESSAGE '5314: 581; 581:5124'
	ON SELECTION BAR 1 OF _08x0o1q7r DO BAR_1_OF__08x0o1q7r_FB2P

	DEFINE BAR 2 OF _08x0o1q7r PROMPT "Restituire avans materiale" ;
		MESSAGE '5314: 542'
	ON SELECTION BAR 2 OF _08x0o1q7r DO BAR_2_OF__08x0o1q7r_FB2P

	DEFINE BAR 3 OF _08x0o1q7r PROMPT "Creditori diversi" ;
		MESSAGE '5314: 462'
	ON SELECTION BAR 3 OF _08x0o1q7r DO BAR_3_OF__08x0o1q7r_FB2P

	DEFINE BAR 4 OF _08x0o1q7r PROMPT "Asociati cont curent" ;
		MESSAGE ' 5314 : 4551'
	ON SELECTION BAR 4 OF _08x0o1q7r lans(10528)

	DEFINE BAR 5 OF _08x0o1q7r PROMPT "Cumparare valuta" ;
		MESSAGE '5314 : 581; 581 : 5311'
	ON SELECTION BAR 5 OF _08x0o1q7r lans(10541)

	DEFINE BAR 6 OF _08x0o1q7r PROMPT "\-"
	ON BAR 6 OF _08x0o1q7r ACTIVATE POPUP _1600zs4h9

		*----------------------------------
		DEFINE POPUP _1600zs4h9 SHORTCUT RELATIVE
	DEFINE BAR 7 OF _08x0o1q7r PROMPT "Incasare clienti" ;
		MESSAGE '5314: 4111'
	ON SELECTION BAR 7 OF _08x0o1q7r DO BAR_7_OF__08x0o1q7r_FB2P

	DEFINE BAR 8 OF _08x0o1q7r PROMPT "Incasare avans clienti" ;
		MESSAGE '5314: 419'
	ON SELECTION BAR 8 OF _08x0o1q7r DO BAR_8_OF__08x0o1q7r_FB2P

	DEFINE BAR 9 OF _08x0o1q7r PROMPT "Incasare debitori diversi" ;
		MESSAGE '5314: 461'
	ON SELECTION BAR 9 OF _08x0o1q7r DO BAR_9_OF__08x0o1q7r_FB2P

DEFINE BAR 2 OF Casainvalu PROMPT "\<Plati"
ON BAR 2 OF Casainvalu ACTIVATE POPUP _08x0o1q7s

	*----------------------------------
	DEFINE POPUP _08x0o1q7s SHORTCUT RELATIVE
	DEFINE BAR 1 OF _08x0o1q7s PROMPT "Depunere numerar" ;
		MESSAGE '581 :5314;5124: 581'
	ON SELECTION BAR 1 OF _08x0o1q7s DO BAR_1_OF__08x0o1q7s_FB2P

	DEFINE BAR 2 OF _08x0o1q7s PROMPT "Acordare avans materiale" ;
		MESSAGE '542 :5314'
	ON SELECTION BAR 2 OF _08x0o1q7s DO BAR_2_OF__08x0o1q7s_FB2P

	DEFINE BAR 3 OF _08x0o1q7s PROMPT "Vanzare valuta" ;
		MESSAGE '5311:581 ; 581:5314'
	ON SELECTION BAR 3 OF _08x0o1q7s DO BAR_3_OF__08x0o1q7s_FB2P

	DEFINE BAR 4 OF _08x0o1q7s PROMPT "Plata deplasari" ;
		MESSAGE '625 : 5314'
	ON SELECTION BAR 4 OF _08x0o1q7s DO BAR_4_OF__08x0o1q7s_FB2P

	DEFINE BAR 5 OF _08x0o1q7s PROMPT "Debitori diversi" ;
		MESSAGE '461 : 5314'
	ON SELECTION BAR 5 OF _08x0o1q7s DO BAR_5_OF__08x0o1q7s_FB2P

	DEFINE BAR 6 OF _08x0o1q7s PROMPT "Asociati conturi curente" ;
		MESSAGE '4551:5314'
	ON SELECTION BAR 6 OF _08x0o1q7s lans(10529)

	DEFINE BAR 7 OF _08x0o1q7s PROMPT "\-"
	ON BAR 7 OF _08x0o1q7s ACTIVATE POPUP _15s0ksn23

		*----------------------------------
		DEFINE POPUP _15s0ksn23 SHORTCUT RELATIVE
	DEFINE BAR 8 OF _08x0o1q7s PROMPT "Plata furnizori 401" ;
		MESSAGE '401 :5314'
	ON SELECTION BAR 8 OF _08x0o1q7s DO BAR_8_OF__08x0o1q7s_FB2P

	DEFINE BAR 9 OF _08x0o1q7s PROMPT "Plata furnizori imobilizari 404" ;
		MESSAGE '404 :5314'
	ON SELECTION BAR 9 OF _08x0o1q7s DO BAR_9_OF__08x0o1q7s_FB2P

	DEFINE BAR 10 OF _08x0o1q7s PROMPT "Plata avansuri furnizori 409" ;
		MESSAGE '409 :5314'
	ON SELECTION BAR 10 OF _08x0o1q7s DO BAR_10_OF__08x0o1q7s_FB2P

	DEFINE BAR 11 OF _08x0o1q7s PROMPT "Plata creditori diversi" ;
		MESSAGE '462 : 5314'
	ON SELECTION BAR 11 OF _08x0o1q7s DO BAR_11_OF__08x0o1q7s_FB2P
ACTIVATE POPUP Casainvalu

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF__08x0o1q7r_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU81010
	
	lans(10427)
	*!*	m.scd='5314 '
	*!*	m.scc='581  '
	
	*!*	do alfabeta with;
	*!*	 'casaV','NUMELE CASEI IN VALUTA','CASVNUME','NUME_5',;
	*!*	 "NUMELE BANCII IN VALUTA","BANVNUME","NUME_3",;
	*!*	 'CURSUL VALUTAR','',"","DO CURS.SPR"
	*!*	*
	
	*!*	M.NUME=''
	*!*	M.NUME_2=''
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do INVALCASA
	*!*	m.scd='581  '
	*!*	m.scc='5124 '
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	DO PLVALBANCA
	*!*	do sterge
	*!*	RETURN
	
ENDPROC && BAR_1_OF__08x0o1q7r_FB2P

PROCEDURE BAR_2_OF__08x0o1q7r_FB2P
	lans(10430)
	*!*	m.scd='5314'
	*!*	m.scc='542 '
	
	*!*	do alfabeta with;
	*!*	 'casaV',;
	*!*	 "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
	*!*	  'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr'
	*!*	m.nume_3=m.nume_2
	*!*	M.NUME_2=''
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inVALCASA
	
	*!*	SELE ACHIT542
	*!*	REPLACE DAT WITH DAT+m.suma
	
	*!*	SELE ACT
	*!*	do sterge
	*!*	RETURN
	
ENDPROC && BAR_2_OF__08x0o1q7r_FB2P

PROCEDURE BAR_3_OF__08x0o1q7r_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU81060
	lans(10501)
	*!*	m.scd='5314 '
	*!*	m.scc='462  '
	
	*!*	do alfabeta with;
	*!*	 'casaV',;
	*!*	 "NUMELE CREDITORULUI","CREDITOR","NUME",;
	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
	*!*	  'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr'
	*!*	*
	*!*	M.NUME_2=''
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inVALCASA
	*!*	SELE CREDITOR
	*!*	REPLACE LUAT WITH LUAT +m.suma
	*!*	SELE ACT
	*!*	do sterge
	*!*	RETURN
	
ENDPROC && BAR_3_OF__08x0o1q7r_FB2P

PROCEDURE BAR_7_OF__08x0o1q7r_FB2P
	lans(10426)
	*!*	*____________________________________________________________________________________________
	*!*	*PROCEDURE MENIU86140
	*!*	local sumacorecta,diferente
	*!*	sTore 0 to sumacorecta,diferente
	*!*	m.scd='5314 '
	*!*	m.scc='411  '
	
	*!*	do alfabetaper with;
	*!*	 'casaPERVAL',;
	*!*	 "NUMELE CLIENTULUI","CLIEnti","NUME",   ;
	*!*	 "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5",  ;
	*!*	 'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr','v'
	*!*	*
	*!*	sumacorecta=m.suma*m.cursvechi/m.cursschimb
	*!*	diferente=m.suma-sumacorecta
	
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	
	*!*	*M.NUME_3=M.NUME_2
	*!*	M.NUME_2=''
	
	*!*	LOCAL C
	*!*	C=M.CURSSCHIMB
	*!*	M.CURSSCHIMB=M.CURSVECHI
	*!*	M.SUMA_3=M.CURSVECHI
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,sumacorecta,CLASAACT
	*!*	M.CASA=M.NUME_5
	*!*	DO INVALCASA
	
	
	*!*	DO CASE
	*!*	CASE diferente>0
	*!*		m.explicatia='DIFERENTE FAVORABILE'
	*!*		M.SUMA_3=C
	*!*		M.CURSSCHIMB=C
	*!*		M.SUMA_2=0
	*!*		DO CONTABILIZEAZA WITH '5314','765 ',diferente,CLASAACT
	*!*		M.SUMAVAL=0
	*!*		DO INVALBANCA
	*!*	CASE diferente<0
	*!*		m.explicatia='DIFERENTE NEFAVORABILE'
	*!*		M.SUMA_3=C
	*!*		M.CURSSCHIMB=C
	*!*		M.SUMA_2=0
	*!*		DO CONTABILIZEAZA WITH '665 ','411',-diferente,CLASAACT
	*!*		M.SUMAVAL=0
	*!*		DO PLVALBANCA
	*!*	endCASE
	
	
	
	
	*!*	SELE CLIEnti
	*!*	REPLACE CLIEnti.incasat WITH CLIEnti.incasat+m.suma
	
	*!*	do sterge
	*!*	RETURN
	
	
ENDPROC && BAR_7_OF__08x0o1q7r_FB2P

PROCEDURE BAR_8_OF__08x0o1q7r_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU86150
	lans(10428)
	*!*	m.scd='5314'
	*!*	m.scc='419 '
	
	*!*	do alfabeta with;
	*!*	 'casAV',;
	*!*	 "NUMELE CLIENTULUI","CLIEnti","NUME",   ;
	*!*	 "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5",  ;
	*!*	 'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr'
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	*M.NUME_3=M.NUME_2
	*!*	M.NUME_2=''
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	
	*!*	M.CASA=M.NUME_5
	*!*	DO INVALCASA
	*!*	SELE clienti
	*!*	REPLACE clienti.incasat WITH clienti.incasat+m.suma
	*!*	do sterge
ENDPROC && BAR_8_OF__08x0o1q7r_FB2P

PROCEDURE BAR_9_OF__08x0o1q7r_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU81050
	*lans(10429)
	lans(10503)
	*!*	m.scd='5314'
	*!*	m.scc='461 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casaV',;
	*!*	 "NUMELE DEBITORULUI","DEBITOR","NUME",;
	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
	*!*	  'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr'
	*!*	*
	*!*	M.NUME_2=''
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inVALCASA
	*!*	SELE DEBITOR
	*!*	REPLACE DAT WITH DAT +m.suma
	*!*	SELE ACT
	*!*	do sterge
	*!*	RETURN
ENDPROC && BAR_9_OF__08x0o1q7r_FB2P

PROCEDURE BAR_1_OF__08x0o1q7s_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU82010
	lans(10431)
	*!*	m.scd='581 '
	*!*	m.scc='5314'
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'casaV',;
	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
	*!*	 "BANCA IN VALUTA","BANVNUME","NUME_3",;
	*!*	 'CURSUL VALUTAR','',"","DO CURS.SPR"
	*!*	 
	*!*	 
	*!*	*
	*!*	M.NUME=''
	*!*	M.NUME_2=''
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	M.CASA=M.NUME_5
	*!*	do PLVALCASA
	*!*	m.scd='5124'
	*!*	m.scc='581 '
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	M.BANCA=M.NUME_3
	*!*	DO INVALBANCA
	*!*	do sterge
ENDPROC && BAR_1_OF__08x0o1q7s_FB2P

PROCEDURE BAR_2_OF__08x0o1q7s_FB2P
	lans(10432)
	*!*	m.scd='542  '
	*!*	m.scc='5314'
	
	*!*	do alfabeta with;
	*!*	 'casaV',;
	*!*	 "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
	*!*	 'CURSUL VALUTAR','',"",;
	*!*	"DO CURS.SPR"
	*!*	*
	
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	M.NUME=M.NUME_2
	*!*	M.NUME_2=''
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do plVALCASA
	*!*	repl ACHIT542.LUAT with ACHIT542.LUAT+m.suma
	*!*	do sterge
	*!*	RETURN
ENDPROC && BAR_2_OF__08x0o1q7s_FB2P

PROCEDURE BAR_3_OF__08x0o1q7s_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU86240
	lans(10437)
	*!*	m.scd='5311 '
	*!*	m.scc='581  '
	*!*	***do CASA.spr
	*!*	do alfabeta with;
	*!*	 'CASAV',;
	*!*	 "CASA IN VALUTA","CASVNUME","NUME_5",   ;
	*!*	 "CASA IN LEI","CASANUME","CASA",  ;
	*!*	 'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr'
	*!*	*
	
	*!*	M.NUME_3=M.CASA
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	m.nume_2=''
	*!*	m.nume=''
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	*M.CASA=M.NUME_3
	*!*	DO INCASA
	*!*	m.scd='581  '
	*!*	m.scc='5314 '
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	M.CASA=M.NUME_5
	*!*	DO PLVALCASA
	*!*	do sterge
	*!*	RETURN
ENDPROC && BAR_3_OF__08x0o1q7s_FB2P

PROCEDURE BAR_4_OF__08x0o1q7s_FB2P
	lans(10486)
ENDPROC && BAR_4_OF__08x0o1q7s_FB2P

PROCEDURE BAR_5_OF__08x0o1q7s_FB2P
	lans(10502)
ENDPROC && BAR_5_OF__08x0o1q7s_FB2P

PROCEDURE BAR_8_OF__08x0o1q7s_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU86210
	lans(10434)
	*!*	m.scd='401 '
	*!*	m.scc='5314'
	*!*	***do BANCA.spr
	*!*	do alfabetaper with;
	*!*	 'CASAperval',;
	*!*	 "NUMELE FURNIZORULUI","FURNIZOR","NUME",   ;
	*!*	 "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5",  ;
	*!*	 'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr','c'
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	m.nume_3=''
	*!*	m.nume_2=''
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	M.CASA=M.NUME_5
	*!*	do plVALCASA
	
	*!*	SELE FURNIZOR
	*!*	repl furnizor.platit with furnizor.platit+m.suma
	*!*	do sterge
	*!*	RETURN
ENDPROC && BAR_8_OF__08x0o1q7s_FB2P

PROCEDURE BAR_9_OF__08x0o1q7s_FB2P
	lans(10435)
	*!*	m.scd='404  '
	*!*	m.scc='5314 '
	
	*!*	do alfabetaper with;
	*!*	 'CASAperval',;
	*!*	 "NUMELE FURNIZORULUI","FURNIZ404","NUME",   ;
	*!*	 "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5",  ;
	*!*	 'CURSUL VALUTAR','','',  ;
	*!*	'do curs.spr','p'
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	m.nume_3=''
	*!*	m.nume_2=''
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	M.CASA=M.NUME_5
	*!*	do plVALCASA
	
	*!*	SELE FURNIZ404
	*!*	repl platit with platit+m.suma
	*!*	do sterge
ENDPROC && BAR_9_OF__08x0o1q7s_FB2P

PROCEDURE BAR_10_OF__08x0o1q7s_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(10436)
ENDPROC && BAR_10_OF__08x0o1q7s_FB2P

PROCEDURE BAR_11_OF__08x0o1q7s_FB2P
	Lans(10504)
ENDPROC && BAR_11_OF__08x0o1q7s_FB2P

*</Procedures>