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

*<MenuCode>
DEFINE POPUP Introducer SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Introducer PROMPT "\<Introducere" ;
	SKIP FOR luna_inchisa OR m.nivel>3 ;
	MESSAGE 'Trezorerie'
ON BAR 1 OF Introducer ACTIVATE POPUP _0bh0pul28

	*----------------------------------
	DEFINE POPUP _0bh0pul28 SHORTCUT RELATIVE
	DEFINE BAR "81" OF _0bh0pul28 PROMPT "Casa incasari"
	ON BAR 81 OF _0bh0pul28 ACTIVATE POPUP Casaincasa

		*----------------------------------
		DEFINE POPUP Casaincasa SHORTCUT RELATIVE
		DEFINE BAR "81010" OF Casaincasa PROMPT "Ridicat numerar din banca 581" ;
			MESSAGE '5311:581 ;581 :5121'
		ON SELECTION BAR 81010 OF Casaincasa DO BAR_"81010"_OF_Casaincasa_FB2P

		DEFINE BAR 2 OF Casaincasa PROMPT "Transfer intre case 581" ;
			MESSAGE '5311:581'
		ON SELECTION BAR 2 OF Casaincasa DO BAR_2_OF_Casaincasa_FB2P

		DEFINE BAR 3 OF Casaincasa PROMPT "\-"
		ON BAR 3 OF Casaincasa ACTIVATE POPUP _0j10xmir1

			*----------------------------------
			DEFINE POPUP _0j10xmir1 SHORTCUT RELATIVE
		DEFINE BAR "81070" OF Casaincasa PROMPT "Restituit avans 542" ;
			MESSAGE '5311:542'
		ON SELECTION BAR 81070 OF Casaincasa DO BAR_"81070"_OF_Casaincasa_FB2P

		DEFINE BAR "81080" OF Casaincasa PROMPT "Asociati cont curent" ;
			MESSAGE '5311:4551'
		ON SELECTION BAR 81080 OF Casaincasa DO BAR_"81080"_OF_Casaincasa_FB2P

		DEFINE BAR 6 OF Casaincasa PROMPT "\-"
		ON BAR 6 OF Casaincasa ACTIVATE POPUP _saq0r80dh

			*----------------------------------
			DEFINE POPUP _saq0r80dh SHORTCUT RELATIVE
		DEFINE BAR "81020" OF Casaincasa PROMPT "Clienti 411" ;
			MESSAGE '5311:411'
		ON SELECTION BAR 81020 OF Casaincasa DO BAR_"81020"_OF_Casaincasa_FB2P

		DEFINE BAR "81030" OF Casaincasa PROMPT "Clienti incerti 416" ;
			MESSAGE '5331:416'
		ON SELECTION BAR 81030 OF Casaincasa DO BAR_"81030"_OF_Casaincasa_FB2P

		DEFINE BAR "81040" OF Casaincasa PROMPT "Avansuri TVA 419" ;
			MESSAGE '5311:419 ;5311:411 ; 411:4427'
		ON SELECTION BAR 81040 OF Casaincasa DO BAR_"81040"_OF_Casaincasa_FB2P

		DEFINE BAR "81050" OF Casaincasa PROMPT "Debitori diversi 461" ;
			MESSAGE '5311:461'
		ON SELECTION BAR 81050 OF Casaincasa DO BAR_"81050"_OF_Casaincasa_FB2P

		DEFINE BAR "81060" OF Casaincasa PROMPT "Creditori diversi 462" ;
			MESSAGE '5311:462'
		ON SELECTION BAR 81060 OF Casaincasa DO BAR_"81060"_OF_Casaincasa_FB2P

		DEFINE BAR 12 OF Casaincasa PROMPT "\-"
		ON BAR 12 OF Casaincasa ACTIVATE POPUP _00i0rr0vq

			*----------------------------------
			DEFINE POPUP _00i0rr0vq SHORTCUT RELATIVE
		DEFINE BAR 13 OF Casaincasa PROMPT "\<Incasare monetar"
		ON SELECTION BAR 13 OF Casaincasa DO BAR_13_OF_Casaincasa_FB2P

	DEFINE BAR "82" OF _0bh0pul28 PROMPT "Casa plati"
	ON BAR 82 OF _0bh0pul28 ACTIVATE POPUP Casaplati

		*----------------------------------
		DEFINE POPUP Casaplati SHORTCUT RELATIVE
		DEFINE BAR "82010" OF Casaplati PROMPT "Depunere numerar in banca" ;
			MESSAGE '581 :5311;5121:581'
		ON SELECTION BAR 82010 OF Casaplati DO BAR_"82010"_OF_Casaplati_FB2P

		DEFINE BAR 2 OF Casaplati PROMPT "Transfer intre case 581" ;
			MESSAGE '581 :5311'
		ON SELECTION BAR 2 OF Casaplati DO BAR_2_OF_Casaplati_FB2P

		DEFINE BAR 3 OF Casaplati PROMPT "\-"
		ON BAR 3 OF Casaplati ACTIVATE POPUP _0c70oxuh2

			*----------------------------------
			DEFINE POPUP _0c70oxuh2 SHORTCUT RELATIVE
		DEFINE BAR "82020" OF Casaplati PROMPT "Acordare avans materiale 542" ;
			MESSAGE '542 :5311'
		ON SELECTION BAR 82020 OF Casaplati DO BAR_"82020"_OF_Casaplati_FB2P

		DEFINE BAR "82040" OF Casaplati PROMPT "Plata furnizori din 542" ;
			MESSAGE '401 :542'
		ON SELECTION BAR 82040 OF Casaplati DO BAR_"82040"_OF_Casaplati_FB2P

		DEFINE BAR 6 OF Casaplati PROMPT "Plata deplasari din 542" ;
			MESSAGE '625 :542'
		ON SELECTION BAR 6 OF Casaplati DO BAR_6_OF_Casaplati_FB2P

		DEFINE BAR "82100" OF Casaplati PROMPT "Asociati conturi curente" ;
			MESSAGE '4551:5311'
		ON SELECTION BAR 82100 OF Casaplati DO BAR_"82100"_OF_Casaplati_FB2P

		DEFINE BAR 8 OF Casaplati PROMPT "\-"
		ON BAR 8 OF Casaplati ACTIVATE POPUP _saq0r5jfn

			*----------------------------------
			DEFINE POPUP _saq0r5jfn SHORTCUT RELATIVE
		DEFINE BAR "82030" OF Casaplati PROMPT "Furnizori 401 din casa" ;
			MESSAGE '401 :5311'
		ON SELECTION BAR 82030 OF Casaplati DO BAR_"82030"_OF_Casaplati_FB2P

		DEFINE BAR "82050" OF Casaplati PROMPT "Furnizori imobilizari 404" ;
			MESSAGE '404 :5311'
		ON SELECTION BAR 82050 OF Casaplati DO BAR_"82050"_OF_Casaplati_FB2P

		DEFINE BAR "82060" OF Casaplati PROMPT "Avansuri furnizori 409" ;
			MESSAGE '409 :5311'
		ON SELECTION BAR 82060 OF Casaplati DO BAR_"82060"_OF_Casaplati_FB2P

		DEFINE BAR "82120" OF Casaplati PROMPT "Debitori diversi" ;
			MESSAGE '461 :5311'
		ON SELECTION BAR 82120 OF Casaplati DO BAR_"82120"_OF_Casaplati_FB2P

		DEFINE BAR "82130" OF Casaplati PROMPT "Creditori diversi" ;
			MESSAGE '462 :5311'
		ON SELECTION BAR 82130 OF Casaplati DO BAR_"82130"_OF_Casaplati_FB2P

		DEFINE BAR 14 OF Casaplati PROMPT "\-"
		ON BAR 14 OF Casaplati ACTIVATE POPUP _saq0r5jfo

			*----------------------------------
			DEFINE POPUP _saq0r5jfo SHORTCUT RELATIVE
		DEFINE BAR "82070" OF Casaplati PROMPT "Salarii"
		ON BAR 82070 OF Casaplati ACTIVATE POPUP Salarii

			*----------------------------------
			DEFINE POPUP Salarii SHORTCUT RELATIVE
			DEFINE BAR 1 OF Salarii PROMPT "\<Salarii contract" ;
				MESSAGE '4211:5311'
			ON SELECTION BAR 1 OF Salarii DO BAR_1_OF_Salarii_FB2P

			DEFINE BAR 2 OF Salarii PROMPT "Salarii \<conventie" ;
				MESSAGE '4212:5311'
			ON SELECTION BAR 2 OF Salarii DO BAR_2_OF_Salarii_FB2P

			DEFINE BAR 3 OF Salarii PROMPT "\<Datorii legate de personal" ;
				MESSAGE '4281:5311'
			ON SELECTION BAR 3 OF Salarii DO BAR_3_OF_Salarii_FB2P

		DEFINE BAR "82080" OF Casaplati PROMPT "Concedii medicale C.A.S." ;
			MESSAGE '423 :5311'
		ON SELECTION BAR 82080 OF Casaplati DO BAR_"82080"_OF_Casaplati_FB2P

		DEFINE BAR "82090" OF Casaplati PROMPT "Avansuri salarii 425" ;
			MESSAGE '425 :5311'
		ON SELECTION BAR 82090 OF Casaplati DO BAR_"82090"_OF_Casaplati_FB2P

		DEFINE BAR "82110" OF Casaplati PROMPT "Drepturi neridicate 426" ;
			MESSAGE '426 :5311'
		ON SELECTION BAR 82110 OF Casaplati DO BAR_"82110"_OF_Casaplati_FB2P

		DEFINE BAR 19 OF Casaplati PROMPT "\-"
		ON BAR 19 OF Casaplati ACTIVATE POPUP _saq0r5jfp

			*----------------------------------
			DEFINE POPUP _saq0r5jfp SHORTCUT RELATIVE
		DEFINE BAR "82140" OF Casaplati PROMPT "Plata alte impozite 446" ;
			MESSAGE '446 :5311; 635:446'
		ON SELECTION BAR 82140 OF Casaplati DO BAR_"82140"_OF_Casaplati_FB2P

		DEFINE BAR "82150" OF Casaplati PROMPT "Plata alte datorii 448" ;
			MESSAGE '448 :5311;6711: 448'
		ON SELECTION BAR 82150 OF Casaplati DO BAR_"82150"_OF_Casaplati_FB2P

		DEFINE BAR "82160" OF Casaplati PROMPT "Plata tratamente" ;
			MESSAGE '423 :5311;6458:423'
		ON SELECTION BAR 82160 OF Casaplati DO BAR_"82160"_OF_Casaplati_FB2P

		DEFINE BAR "82170" OF Casaplati PROMPT "Plata dividende" ;
			MESSAGE '457 :5311'
		ON SELECTION BAR 82170 OF Casaplati DO BAR_"82170"_OF_Casaplati_FB2P

		DEFINE BAR "82180" OF Casaplati PROMPT "Plata gratificatii" ;
			MESSAGE '424 :5311; 112: 424'
		ON SELECTION BAR 82180 OF Casaplati DO BAR_"82180"_OF_Casaplati_FB2P

		DEFINE BAR 25 OF Casaplati PROMPT "Plata deplasari" ;
			MESSAGE '625 :5311'
		ON SELECTION BAR 25 OF Casaplati DO BAR_25_OF_Casaplati_FB2P

		DEFINE BAR 26 OF Casaplati PROMPT "\-"
		ON BAR 26 OF Casaplati ACTIVATE POPUP _saq0r5jfq

			*----------------------------------
			DEFINE POPUP _saq0r5jfq SHORTCUT RELATIVE
		DEFINE BAR "82190" OF Casaplati PROMPT "Cheltuieli de infiintare" ;
			MESSAGE '201 :5311'
		ON SELECTION BAR 82190 OF Casaplati DO BAR_"82190"_OF_Casaplati_FB2P

DEFINE BAR 2 OF Introducer PROMPT "\-"
ON BAR 2 OF Introducer ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 3 OF Introducer PROMPT "\<Vizualizare"
ON BAR 3 OF Introducer ACTIVATE POPUP Vizualizar

	*----------------------------------
	DEFINE POPUP Vizualizar SHORTCUT RELATIVE
	DEFINE BAR 1 OF Vizualizar PROMPT "\<Registrul de casa"
	ON SELECTION BAR 1 OF Vizualizar DO BAR_1_OF_Vizualizar_FB2P

	DEFINE BAR 2 OF Vizualizar PROMPT "\<Solduri case"
	ON SELECTION BAR 2 OF Vizualizar DO BAR_2_OF_Vizualizar_FB2P

DEFINE BAR 4 OF Introducer PROMPT "\-"
ON BAR 4 OF Introducer ACTIVATE POPUP _0bh0v7gzk

	*----------------------------------
	DEFINE POPUP _0bh0v7gzk SHORTCUT RELATIVE
DEFINE BAR 5 OF Introducer PROMPT "\<Listare"
ON SELECTION BAR 5 OF Introducer DO BAR_5_OF_Introducer_FB2P
ACTIVATE POPUP Introducer

*</MenuCode>

*<Procedures>
PROCEDURE BAR_"81010"_OF_Casaincasa_FB2P
	DO MENIU81010
ENDPROC && BAR_"81010"_OF_Casaincasa_FB2P

PROCEDURE BAR_2_OF_Casaincasa_FB2P
	
	m.scd='5311 '
	m.scc='581  '
	
	do alfabeta with;
	 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
	*
	IF BUTON=2
	DO STERGE
	RETURN
	ENDIF
	DO CODARE
	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	do INCASA
	
	do sterge
	RETURN
ENDPROC && BAR_2_OF_Casaincasa_FB2P

PROCEDURE BAR_"81070"_OF_Casaincasa_FB2P
	DO MENIU81070
ENDPROC && BAR_"81070"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81080"_OF_Casaincasa_FB2P
	DO MENIU81080
ENDPROC && BAR_"81080"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81020"_OF_Casaincasa_FB2P
	DO MENIU81020
ENDPROC && BAR_"81020"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81030"_OF_Casaincasa_FB2P
	DO MENIU81030
ENDPROC && BAR_"81030"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81040"_OF_Casaincasa_FB2P
	DO MENIU81040
ENDPROC && BAR_"81040"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81050"_OF_Casaincasa_FB2P
	DO MENIU81050
ENDPROC && BAR_"81050"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81060"_OF_Casaincasa_FB2P
	DO MENIU81060
ENDPROC && BAR_"81060"_OF_Casaincasa_FB2P

PROCEDURE BAR_13_OF_Casaincasa_FB2P
	do procmonetar in proceduri.prg
ENDPROC && BAR_13_OF_Casaincasa_FB2P

PROCEDURE BAR_"82010"_OF_Casaplati_FB2P
	DO MENIU82010
ENDPROC && BAR_"82010"_OF_Casaplati_FB2P

PROCEDURE BAR_2_OF_Casaplati_FB2P
	m.scd='581 '
	m.scc='5311'
	
	do alfabeta with;
	 'casac','','','',"","","",'','',"TRANSFER CASE","TRANSFER CASE"
	*
	IF BUTON=2
	DO STERGE
	RETURN
	ENDIF
	DO CODARE
	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	do plCASA
	
	do sterge
	RETURN
ENDPROC && BAR_2_OF_Casaplati_FB2P

PROCEDURE BAR_"82020"_OF_Casaplati_FB2P
	DO MENIU82020
ENDPROC && BAR_"82020"_OF_Casaplati_FB2P

PROCEDURE BAR_"82040"_OF_Casaplati_FB2P
	DO MENIU82040
ENDPROC && BAR_"82040"_OF_Casaplati_FB2P

PROCEDURE BAR_6_OF_Casaplati_FB2P
	
	m.scd='625  '
	m.scc='542  '
	***do BANCA.spr
	do alfabeta with;
	 'CASAc',;
	 "","","",  ;
	 "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",  ;
	 '','', "PLATA DEPLASARI",  ;
	 ""
	*
	IF BUTON=2
	DO STERGE
	RETURN
	ENDIF
	DO CODARE
	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	
	SELE ACHIT542
	REPL ACHIT542.DAT WITH ACHIT542.DAT+M.SUMA 
	do sterge
	
ENDPROC && BAR_6_OF_Casaplati_FB2P

PROCEDURE BAR_"82100"_OF_Casaplati_FB2P
	DO MENIU82100
ENDPROC && BAR_"82100"_OF_Casaplati_FB2P

PROCEDURE BAR_"82030"_OF_Casaplati_FB2P
	DO MENIU82030
ENDPROC && BAR_"82030"_OF_Casaplati_FB2P

PROCEDURE BAR_"82050"_OF_Casaplati_FB2P
	DO MENIU82050
ENDPROC && BAR_"82050"_OF_Casaplati_FB2P

PROCEDURE BAR_"82060"_OF_Casaplati_FB2P
	DO MENIU82060
ENDPROC && BAR_"82060"_OF_Casaplati_FB2P

PROCEDURE BAR_"82120"_OF_Casaplati_FB2P
	DO MENIU82120
ENDPROC && BAR_"82120"_OF_Casaplati_FB2P

PROCEDURE BAR_"82130"_OF_Casaplati_FB2P
	DO MENIU82130
ENDPROC && BAR_"82130"_OF_Casaplati_FB2P

PROCEDURE BAR_1_OF_Salarii_FB2P
	*____________________________________________________________________________________________
	*PROCEDURE MENIU82070
	
	m.scd='4211'
	m.scc='5311'
	
	m.explicatia='PLATA SALARII CONTRACT'
	oa=createo('actsimc')
	oa.show(1)
	
	IF BUTON=2
	DO STERGE
	RETURN
	ENDIF
	DO CODARE
	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	do plCASA
	do sterge
	
	*RETURN
ENDPROC && BAR_1_OF_Salarii_FB2P

PROCEDURE BAR_2_OF_Salarii_FB2P
	m.scd='4212'
	m.scc='5311'
	
	m.explicatia='PLATA SALARII CONVENTIE'
	oa=createo('actsimc')
	oa.show(1)
	
	IF BUTON=2
	DO STERGE
	RETURN
	ENDIF
	DO CODARE
	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	do plCASA
	do sterge
ENDPROC && BAR_2_OF_Salarii_FB2P

PROCEDURE BAR_3_OF_Salarii_FB2P
	m.scd='4281'
	m.scc='5311'
	
	m.explicatia='Datorii legate de personal'
	oa=createo('actsimc')
	oa.show(1)
	
	IF BUTON=2
	DO STERGE
	RETURN
	ENDIF
	DO CODARE
	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	do plCASA
	do sterge
ENDPROC && BAR_3_OF_Salarii_FB2P

PROCEDURE BAR_"82080"_OF_Casaplati_FB2P
	DO MENIU82080
ENDPROC && BAR_"82080"_OF_Casaplati_FB2P

PROCEDURE BAR_"82090"_OF_Casaplati_FB2P
	DO MENIU82090
ENDPROC && BAR_"82090"_OF_Casaplati_FB2P

PROCEDURE BAR_"82110"_OF_Casaplati_FB2P
	DO MENIU82110
ENDPROC && BAR_"82110"_OF_Casaplati_FB2P

PROCEDURE BAR_"82140"_OF_Casaplati_FB2P
	DO MENIU82140
ENDPROC && BAR_"82140"_OF_Casaplati_FB2P

PROCEDURE BAR_"82150"_OF_Casaplati_FB2P
	DO MENIU82150
ENDPROC && BAR_"82150"_OF_Casaplati_FB2P

PROCEDURE BAR_"82160"_OF_Casaplati_FB2P
	DO MENIU82160
ENDPROC && BAR_"82160"_OF_Casaplati_FB2P

PROCEDURE BAR_"82170"_OF_Casaplati_FB2P
	DO MENIU82170
ENDPROC && BAR_"82170"_OF_Casaplati_FB2P

PROCEDURE BAR_"82180"_OF_Casaplati_FB2P
	DO MENIU82180
ENDPROC && BAR_"82180"_OF_Casaplati_FB2P

PROCEDURE BAR_25_OF_Casaplati_FB2P
	
	*ALFA='m.numeg=""'
	*BETA='m.numeg=""'
	*GAMA='m.numeg="PLATA GRATIFICATII"'
	
	m.scd='625  '
	m.scc='5311 '
	***do casa.spr
	do alfabeta with;
	 'casac',;
	  '','','',  ;
	 '','','',  ;
	 '','',"PLATA DEPLASARI",  ;
	"PLATA DEPLASARI"
	*
	IF BUTON=2
	DO STERGE
	RETURN
	ENDIF
	DO CODARE
	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	do PLCASA
	
	do sterge
	
	
ENDPROC && BAR_25_OF_Casaplati_FB2P

PROCEDURE BAR_"82190"_OF_Casaplati_FB2P
	do MENIU82190
ENDPROC && BAR_"82190"_OF_Casaplati_FB2P

PROCEDURE BAR_1_OF_Vizualizar_FB2P
	osetviz.tbrprim.butoncasa.click
ENDPROC && BAR_1_OF_Vizualizar_FB2P

PROCEDURE BAR_2_OF_Vizualizar_FB2P
	public m.sum1,m.sum2,m.sum3
	
	sele casanume
	
	M.SOLDDEB=0
	M.SOLDCRED=0
	sum INCASARI,PLATI to m.SUM1,M.SUM2
	M.SUM3=M.SUM1-M.SUM2
	SELE Bal
	seek '5311'
	if found()
	SCATTER MEMVAR
	IF M.SOLDDEB-M.SOLDCRED # M.SUM3
	do mesajval with 'Diferenta este:',M.SOLDDEB-M.SOLDCRED-M.SUM3
	ENDIF
	else
	do mesajval with '',M.SOLDDEB
	endif
	
	sele casanume
	Obancana=CREATEOBJECT("afbancanav")
	Obancana.grid1.column1.controlsource="casa"
	Obancana.label10.caption='SOLDURI CASE'
	Obancana.SHOW(1)
ENDPROC && BAR_2_OF_Vizualizar_FB2P

PROCEDURE BAR_5_OF_Introducer_FB2P
	SELE CASA
	REPORT FORMAT CASA.FRX TO PRINTER PROMPT NOCONSOLE preview 
ENDPROC && BAR_5_OF_Introducer_FB2P

*</Procedures>
