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

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

DEFINE BAR 2 OF Casaincasa PROMPT "Transfer in alta casa 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 _0c30mnh75

	*----------------------------------
	DEFINE POPUP _0c30mnh75 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 4551" ;
	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 4111" ;
	MESSAGE '5311:4111'
ON BAR 81020 OF Casaincasa ACTIVATE POPUP Clienti411

	*----------------------------------
	DEFINE POPUP Clienti411 SHORTCUT RELATIVE
	DEFINE BAR 1 OF Clienti411 PROMPT "Fara listare" ;
		MESSAGE '5311:4111'
	ON SELECTION BAR 1 OF Clienti411 DO BAR_1_OF_Clienti411_FB2P

	DEFINE BAR 2 OF Clienti411 PROMPT "Cu bon fiscal - numerar" ;
		MESSAGE '5311:4111 - listare bon fiscal la casa de marcat incasare numerar'
	ON SELECTION BAR 2 OF Clienti411 DO casademarcat_roacont WITH 10576 IN oproceduri_casademarcat.prg

	DEFINE BAR 3 OF Clienti411 PROMPT "Cu listare chitanta" ;
		MESSAGE '5311:4111'
	ON SELECTION BAR 3 OF Clienti411 do clienti_chitanta with 10329 in oproceduri_incasari.prg

	DEFINE BAR 4 OF Clienti411 PROMPT "\-"
	ON BAR 4 OF Clienti411 ACTIVATE POPUP _4ck0qymd8

		*----------------------------------
		DEFINE POPUP _4ck0qymd8 SHORTCUT RELATIVE
	DEFINE BAR 5 OF Clienti411 PROMPT "Cu bon fiscal - Bacsis fara TVA" ;
		MESSAGE '4111 : 7588 ; 5311:4111'
	ON SELECTION BAR 5 OF Clienti411 DO casademarcat_roacont WITH 10619 IN oproceduri_casademarcat.prg

	DEFINE BAR 6 OF Clienti411 PROMPT "Cu bon fiscal - Bacsis cu TVA" ;
		MESSAGE '4111 : 7588 ; 4111:4427 ; 5311:4111'
	ON SELECTION BAR 6 OF Clienti411 DO casademarcat_roacont WITH 10620 IN oproceduri_casademarcat.prg

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

DEFINE BAR "81040" OF Casaincasa PROMPT "Avansuri TVA" ;
	MESSAGE '5311:419 ;5311:4111 ; 4111: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 BAR 81050 OF Casaincasa ACTIVATE POPUP Debitoridi

	*----------------------------------
	DEFINE POPUP Debitoridi SHORTCUT RELATIVE
	DEFINE BAR 1 OF Debitoridi PROMPT "Fara listare" ;
		MESSAGE '5311:461'
	ON SELECTION BAR 1 OF Debitoridi lans(10336)

	DEFINE BAR 2 OF Debitoridi PROMPT "Cu bon fiscal - numerar" ;
		MESSAGE '5311:461'
	ON SELECTION BAR 2 OF Debitoridi DO BAR_2_OF_Debitoridi_FB2P

	DEFINE BAR 3 OF Debitoridi PROMPT "Cu listare chitanta" ;
		MESSAGE '5311:461'
	ON SELECTION BAR 3 OF Debitoridi DO BAR_3_OF_Debitoridi_FB2P

DEFINE BAR "81060" OF Casaincasa PROMPT "Creditori diversi 462" ;
	MESSAGE '5311:462'
ON SELECTION BAR 81060 OF Casaincasa lans(10337)

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

	*----------------------------------
	DEFINE POPUP _15w0ulhbx SHORTCUT RELATIVE
DEFINE BAR 13 OF Casaincasa PROMPT "Incasare monetar" ;
	MESSAGE '4111 : 707 ; 4111:4427 ; 5311:4111'
ON SELECTION BAR 13 OF Casaincasa DO BAR_13_OF_Casaincasa_FB2P

DEFINE BAR 14 OF Casaincasa PROMPT "Incasare imputatii 428x" ;
	MESSAGE '5311 : 428X'
ON SELECTION BAR 14 OF Casaincasa DO BAR_14_OF_Casaincasa_FB2P

DEFINE BAR 15 OF Casaincasa PROMPT "Decontari in cadrul grupului 4511" ;
	MESSAGE ' 5311 : 4511'
ON SELECTION BAR 15 OF Casaincasa lans(10525)

DEFINE BAR 16 OF Casaincasa PROMPT "Drepturi neridicate 426" ;
	MESSAGE '5311:426'
ON SELECTION BAR 16 OF Casaincasa lans(10580)

DEFINE BAR 17 OF Casaincasa PROMPT "Incasare garantii 267X" ;
	MESSAGE '5311 : 2678'
ON SELECTION BAR 17 OF Casaincasa DO BAR_17_OF_Casaincasa_FB2P

DEFINE BAR 18 OF Casaincasa PROMPT "Incasare diverse 4xx/ 7xx" ;
	MESSAGE '5311:4xx'
ON BAR 18 OF Casaincasa ACTIVATE POPUP Incasaredi

	*----------------------------------
	DEFINE POPUP Incasaredi SHORTCUT RELATIVE
	DEFINE BAR 1 OF Incasaredi PROMPT "Fara listare 4xx" ;
		MESSAGE '5311:4xx'
	ON SELECTION BAR 1 OF Incasaredi DO BAR_1_OF_Incasaredi_FB2P

	DEFINE BAR 2 OF Incasaredi PROMPT "Cu bon fiscal - numerar 4xx" ;
		MESSAGE '5311:4xx'
	ON SELECTION BAR 2 OF Incasaredi DO BAR_2_OF_Incasaredi_FB2P

	DEFINE BAR 3 OF Incasaredi PROMPT "Cu chitanta 4xx" ;
		MESSAGE '5311:4xx'
	ON SELECTION BAR 3 OF Incasaredi DO BAR_3_OF_Incasaredi_FB2P
ACTIVATE POPUP Casaincasa

*</MenuCode>

*<Procedures>
PROCEDURE BAR_"81010"_OF_Casaincasa_FB2P
	*DO MENIU81010
	LANS(10330)
ENDPROC && BAR_"81010"_OF_Casaincasa_FB2P

PROCEDURE BAR_2_OF_Casaincasa_FB2P
	LANS(10331)
	*!*	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
	LANS(10332)
ENDPROC && BAR_"81070"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81080"_OF_Casaincasa_FB2P
	*DO MENIU81080
	lans(10333)
ENDPROC && BAR_"81080"_OF_Casaincasa_FB2P

PROCEDURE BAR_1_OF_Clienti411_FB2P
	lans(10329)
ENDPROC && BAR_1_OF_Clienti411_FB2P

PROCEDURE BAR_"81030"_OF_Casaincasa_FB2P
	*DO MENIU810201
	lans(10334)
ENDPROC && BAR_"81030"_OF_Casaincasa_FB2P

PROCEDURE BAR_"81040"_OF_Casaincasa_FB2P
	*DO MENIU81040
	LANS(10335)
ENDPROC && BAR_"81040"_OF_Casaincasa_FB2P

PROCEDURE BAR_2_OF_Debitoridi_FB2P
	&& 5311 = X
	PRIVATE pcACN
	CN= '461'
	pcACN = ''
	DO casademarcat_roacont WITH 10631 IN oproceduri_casademarcat.prg
ENDPROC && BAR_2_OF_Debitoridi_FB2P

PROCEDURE BAR_3_OF_Debitoridi_FB2P
	&& 5311 = X
	PRIVATE pcACN
	CN= '461'
	pcACN = ''
	
	do clienti_chitanta with 10630 in oproceduri_incasari.prg
ENDPROC && BAR_3_OF_Debitoridi_FB2P

PROCEDURE BAR_13_OF_Casaincasa_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'704,707') &&,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(10493)
ENDPROC && BAR_13_OF_Casaincasa_FB2P

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

PROCEDURE BAR_17_OF_Casaincasa_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul creditor 5311:267X",'267')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10582)
ENDPROC && BAR_17_OF_Casaincasa_FB2P

PROCEDURE BAR_1_OF_Incasaredi_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'4,7')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10630)
ENDPROC && BAR_1_OF_Incasaredi_FB2P

PROCEDURE BAR_2_OF_Incasaredi_FB2P
	* 5311 = 4xx
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'4,7')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	DO casademarcat_roacont WITH 10631 IN oproceduri_casademarcat.prg
ENDPROC && BAR_2_OF_Incasaredi_FB2P

PROCEDURE BAR_3_OF_Incasaredi_FB2P
	* 5311 = 4xx
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'4,7')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	do clienti_chitanta with 10630 in oproceduri_incasari.prg
ENDPROC && BAR_3_OF_Incasaredi_FB2P

*</Procedures>
