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

*<MenuCode>
DEFINE POPUP Casaplati SHORTCUT RELATIVE FROM MROW(),MCOL()
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 in alta casa" ;
	MESSAGE '581 :5311'
ON SELECTION BAR 2 OF Casaplati DO BAR_2_OF_Casaplati_FB2P

DEFINE BAR 3 OF Casaplati PROMPT "Transferuri intre case" ;
	MESSAGE '581 :5311;5311:581 '
ON SELECTION BAR 3 OF Casaplati DO BAR_3_OF_Casaplati_FB2P

DEFINE BAR 4 OF Casaplati PROMPT "\-"
ON BAR 4 OF Casaplati ACTIVATE POPUP _0c30moka3

	*----------------------------------
	DEFINE POPUP _0c30moka3 SHORTCUT RELATIVE
DEFINE BAR "82020" OF Casaplati PROMPT "Acordare avans materiale" ;
	MESSAGE '542 :5311'
ON SELECTION BAR 82020 OF Casaplati DO BAR_"82020"_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 7 OF Casaplati PROMPT "\-"
ON BAR 7 OF Casaplati ACTIVATE POPUP _saq0r5jfn

	*----------------------------------
	DEFINE POPUP _saq0r5jfn SHORTCUT RELATIVE
DEFINE BAR 8 OF Casaplati PROMPT "Plati furnizori"
ON BAR 8 OF Casaplati ACTIVATE POPUP Platifurni

	*----------------------------------
	DEFINE POPUP Platifurni SHORTCUT RELATIVE
	DEFINE BAR 1 OF Platifurni PROMPT "Plati multiple 401" ;
		MESSAGE '401 :5311'
	ON SELECTION BAR 1 OF Platifurni DO BAR_1_OF_Platifurni_FB2P

	DEFINE BAR 2 OF Platifurni PROMPT "Furnizori imobilizari 404" ;
		MESSAGE '404 :5311'
	ON SELECTION BAR 2 OF Platifurni DO BAR_2_OF_Platifurni_FB2P

	DEFINE BAR 3 OF Platifurni PROMPT "Avansuri furnizori 409" ;
		MESSAGE '409 :5311'
	ON SELECTION BAR 3 OF Platifurni DO BAR_3_OF_Platifurni_FB2P

DEFINE BAR 9 OF Casaplati PROMPT "Plati furnizori in valuta" ;
	MESSAGE '581 - 5311; 5311 - 581; 5311 - 5311; 5311 - 401'
ON BAR 9 OF Casaplati ACTIVATE POPUP _4y40sqh7w

	*----------------------------------
	DEFINE POPUP _4y40sqh7w SHORTCUT RELATIVE
	DEFINE BAR 1 OF _4y40sqh7w PROMPT "Plati furnizori 401" ;
		MESSAGE '401 :5311'
	ON SELECTION BAR 1 OF _4y40sqh7w lans(10625)

	DEFINE BAR 2 OF _4y40sqh7w PROMPT "Plati furnizori imobilizari 404" ;
		MESSAGE '404 :5311'
	ON SELECTION BAR 2 OF _4y40sqh7w lans(10626)

	DEFINE BAR 3 OF _4y40sqh7w PROMPT "Plati creditori 462" ;
		MESSAGE '462 :5311'
	ON SELECTION BAR 3 OF _4y40sqh7w lans(10627)

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 12 OF Casaplati PROMPT "\-"
ON BAR 12 OF Casaplati ACTIVATE POPUP _saq0r5jfo

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

	*----------------------------------
	DEFINE POPUP Salarii421 SHORTCUT RELATIVE
	DEFINE BAR 1 OF Salarii421 PROMPT "\<Salarii" ;
		MESSAGE '421:5311'
	ON SELECTION BAR 1 OF Salarii421 DO BAR_1_OF_Salarii421_FB2P

	DEFINE BAR 2 OF Salarii421 PROMPT "\<Salarii contract" ;
		MESSAGE '4211:5311'
	ON SELECTION BAR 2 OF Salarii421 DO BAR_2_OF_Salarii421_FB2P

	DEFINE BAR 3 OF Salarii421 PROMPT "Salarii \<conventie" ;
		MESSAGE '4212:5311'
	ON SELECTION BAR 3 OF Salarii421 DO BAR_3_OF_Salarii421_FB2P

	DEFINE BAR 4 OF Salarii421 PROMPT "\<Datorii legate de personal" ;
		MESSAGE '4281/4282:5311'
	ON SELECTION BAR 4 OF Salarii421 DO BAR_4_OF_Salarii421_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" ;
	MESSAGE '425 :5311'
ON SELECTION BAR 82090 OF Casaplati DO BAR_"82090"_OF_Casaplati_FB2P

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

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

	*----------------------------------
	DEFINE POPUP _saq0r5jfp SHORTCUT RELATIVE
DEFINE BAR 18 OF Casaplati PROMPT "Plati impozite"
ON SELECTION BAR 18 OF Casaplati DO BAR_18_OF_Casaplati_FB2P

DEFINE BAR "82140" OF Casaplati PROMPT "Plata alte impozite" ;
	MESSAGE '446 :5311'
ON SELECTION BAR 82140 OF Casaplati DO BAR_"82140"_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 23 OF Casaplati PROMPT "Plata deplasari" ;
	MESSAGE '625 :5311'
ON SELECTION BAR 23 OF Casaplati DO BAR_23_OF_Casaplati_FB2P

DEFINE BAR 24 OF Casaplati PROMPT "Plata amenzi, penalitati" ;
	MESSAGE '448X-5311'
ON SELECTION BAR 24 OF Casaplati DO BAR_24_OF_Casaplati_FB2P

DEFINE BAR 25 OF Casaplati PROMPT "Decontari in cadrul grupului" ;
	MESSAGE ' 4511 : 5311'
ON SELECTION BAR 25 OF Casaplati lans(10523)

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 28 OF Casaplati PROMPT "Cheltuieli in avans" ;
	MESSAGE '471:5311'
ON SELECTION BAR 28 OF Casaplati DO BAR_28_OF_Casaplati_FB2P

DEFINE BAR 29 OF Casaplati PROMPT "Plata garantii 267X" ;
	MESSAGE '2678 :5311'
ON SELECTION BAR 29 OF Casaplati DO BAR_29_OF_Casaplati_FB2P

DEFINE BAR 30 OF Casaplati PROMPT "\-"
ON BAR 30 OF Casaplati ACTIVATE POPUP _54r0tqt1r

	*----------------------------------
	DEFINE POPUP _54r0tqt1r SHORTCUT RELATIVE
DEFINE BAR 31 OF Casaplati PROMPT "Plati diverse 4xx/6xx" ;
	MESSAGE '4xx:5311'
ON SELECTION BAR 31 OF Casaplati DO BAR_31_OF_Casaplati_FB2P
ACTIVATE POPUP Casaplati

*</MenuCode>

*<Procedures>
PROCEDURE BAR_"82010"_OF_Casaplati_FB2P
	*DO MENIU82010
	lans(10338)
ENDPROC && BAR_"82010"_OF_Casaplati_FB2P

PROCEDURE BAR_2_OF_Casaplati_FB2P
	lans(10339)
	*!*	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_3_OF_Casaplati_FB2P
	lans(10450)
	*!*	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 caut_alfa WITH 'casanume','casa','Casa destinatie','m.casa'
	*!*	IF buton=2
	*!*	DO sterge
	*!*	RETURN
	*!*	ENDIF
	
	*!*	m.nume_3=m.casa
	*!*	l=m.scd
	*!*	m.scd=m.scc
	*!*	m.scc=l
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do inCASA
	
	*!*	do sterge
	*!*	RETURN
ENDPROC && BAR_3_OF_Casaplati_FB2P

PROCEDURE BAR_"82020"_OF_Casaplati_FB2P
	*DO MENIU82020
	lans(10340)
ENDPROC && BAR_"82020"_OF_Casaplati_FB2P

PROCEDURE BAR_"82100"_OF_Casaplati_FB2P
	*DO MENIU82100
	LANS(10344)
ENDPROC && BAR_"82100"_OF_Casaplati_FB2P

PROCEDURE BAR_1_OF_Platifurni_FB2P
	LANS(10345)
	*!*	m.scd='401  '
	*!*	m.scc='5311 '
	*!*	do alfabetaper with;
	*!*	 'casapermul',;
	*!*	 "NUMELE FURNIZORULUI","FURNIZOR","NUME",   ;
	*!*	 "NUMELE CASEI","CASANUME","CASA", ;
	*!*	 '','',"PLATA FURNIZOR",  ;
	*!*	"PLATA FURNIZOR",'c'
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	*M.COD=COD
	*!*	*M.SUMA=TOTCTVA-achitat
	*!*	*M.PERECHE=NRACT
	*!*	*m.nract1=nract
	
	*!*	M.NUME_3=M.CASA
	*!*	m.nract=numaract
	
	*!*	*DO CODARE
	*!*	sele 0
	*!*	use &loc\&nfscurt\tempo\actcv
	*!*	sele actcv
	*!*	scan for ales
	*!*	M.PERECHE=NRACT
	*!*	m.suma=sumaachi
	*!*	DO CODARE
	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
	*!*	do plCASA
	*!*	sele furnizor
	*!*	if flock()
	*!*	repl furnizor.platit with furnizor.platit+m.suma
	*!*	endif
	*!*	unlock
	*!*	endscan
	*!*	use in actcv
	*!*	do sterge
	*!*	RETURN
	
	
	
	
	
	
	
	
	
	
	
	
	
	
ENDPROC && BAR_1_OF_Platifurni_FB2P

PROCEDURE BAR_2_OF_Platifurni_FB2P
	*DO MENIU82050
	LANS(10346)
ENDPROC && BAR_2_OF_Platifurni_FB2P

PROCEDURE BAR_3_OF_Platifurni_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(10347)
ENDPROC && BAR_3_OF_Platifurni_FB2P

PROCEDURE BAR_"82120"_OF_Casaplati_FB2P
	*DO MENIU82120
	lans(10348)
ENDPROC && BAR_"82120"_OF_Casaplati_FB2P

PROCEDURE BAR_"82130"_OF_Casaplati_FB2P
	*DO MENIU82130
	lans(10349)
ENDPROC && BAR_"82130"_OF_Casaplati_FB2P

PROCEDURE BAR_1_OF_Salarii421_FB2P
	lans(10350)
	*!*	*____________________________________________________________________________________________
	*!*	*PROCEDURE MENIU82070
	
	*!*	m.scd='421'
	*!*	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_Salarii421_FB2P

PROCEDURE BAR_2_OF_Salarii421_FB2P
	lans(10351)
	*!*	*____________________________________________________________________________________________
	*!*	*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_2_OF_Salarii421_FB2P

PROCEDURE BAR_3_OF_Salarii421_FB2P
	lans(10352)
	*!*	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_3_OF_Salarii421_FB2P

PROCEDURE BAR_4_OF_Salarii421_FB2P
	PRIVATE pcACN, CN
	loCont = ret_cont("Selectati contul",'4281,4282')  && ,4091,4092')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton = 2
		RELEASE loCont
		RETURN 
	ENDIF 
	
	CN = locont.cont
	PcACN = loCont.Acont
	If CN='4281'
	LANS(10353)
	Else
	LANS(10579)
	EndIf
	
	
	
	
	*LANS(10353)
	*!*	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_4_OF_Salarii421_FB2P

PROCEDURE BAR_"82080"_OF_Casaplati_FB2P
	*DO MENIU82080
	LANS(10354)
ENDPROC && BAR_"82080"_OF_Casaplati_FB2P

PROCEDURE BAR_"82090"_OF_Casaplati_FB2P
	LANS(10355)
	*!*	DO MENIU82090
ENDPROC && BAR_"82090"_OF_Casaplati_FB2P

PROCEDURE BAR_"82110"_OF_Casaplati_FB2P
	LANS(10356)
	*DO MENIU82110
ENDPROC && BAR_"82110"_OF_Casaplati_FB2P

PROCEDURE BAR_18_OF_Casaplati_FB2P
	lans(10468)
	IF buton=2
		DO deschid_actc
		RETURN
	ENDIF 
	DO plati_impozite WITH 10468 IN ocont2003.prg 
	
	*!*	lans(10468)
	*!*	IF buton=2
	*!*		DO deschid_actc
	*!*		RETURN
	*!*	ENDIF
	
	
	*!*		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
	*!*	*	REPLACE ALL ascd WITH '', ascc WITH ''
	*!*		REPL ALL NRACT WITH M.NRACT
	*!*		REPL ALL scc WITH '5311' FOR INLIST(scc,'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_3, dataact, dataireg, fdoc MEMVAR 
	*!*			DELETE 
	*!*			APPEND BLANK
	*!*			GATHER memv
	*!*			
	*!*			SCRIE_IN_FISIERE(' ')
	*!*			SELECT PLIMP
	*!*		ENDSCAN
	
	*!*		DO deschid_actc
ENDPROC && BAR_18_OF_Casaplati_FB2P

PROCEDURE BAR_"82140"_OF_Casaplati_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(10357)
ENDPROC && BAR_"82140"_OF_Casaplati_FB2P

PROCEDURE BAR_"82160"_OF_Casaplati_FB2P
	lans(10359)
	*DO MENIU82160
ENDPROC && BAR_"82160"_OF_Casaplati_FB2P

PROCEDURE BAR_"82170"_OF_Casaplati_FB2P
	lans(10360)
	*DO MENIU82170
ENDPROC && BAR_"82170"_OF_Casaplati_FB2P

PROCEDURE BAR_"82180"_OF_Casaplati_FB2P
	lans(10361)
	*DO MENIU82180
ENDPROC && BAR_"82180"_OF_Casaplati_FB2P

PROCEDURE BAR_23_OF_Casaplati_FB2P
	lans(10362)
	*!*	*ALFA='m.numeg=""'
	*!*	*BETA='m.numeg=""'
	*!*	*GAMA='m.numeg="PLATA GRATIFICATII"'
	
	*!*	m.scd='625  '
	*!*	m.scc='5311 '
	*!*	***do casa.spr
	*!*	do alfabeta with;
	*!*	 'actsimc',;
	*!*	  '','','',  ;
	*!*	 '','','',  ;
	*!*	 '','',"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_23_OF_Casaplati_FB2P

PROCEDURE BAR_24_OF_Casaplati_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(10513)
ENDPROC && BAR_24_OF_Casaplati_FB2P

PROCEDURE BAR_"82190"_OF_Casaplati_FB2P
	lans(10363)
	*do MENIU82190
ENDPROC && BAR_"82190"_OF_Casaplati_FB2P

PROCEDURE BAR_28_OF_Casaplati_FB2P
	LANS(10365)
ENDPROC && BAR_28_OF_Casaplati_FB2P

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

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

*</Procedures>