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

*<MenuCode>
DEFINE POPUP Clientiext SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Clientiext PROMPT "Facturi neintocmite 418-general"
ON SELECTION BAR 1 OF Clientiext DO BAR_1_OF_Clientiext_FB2P

DEFINE BAR 2 OF Clientiext PROMPT "\-"
ON BAR 2 OF Clientiext ACTIVATE POPUP _1400t1yci

	*----------------------------------
	DEFINE POPUP _1400t1yci SHORTCUT RELATIVE
DEFINE BAR 3 OF Clientiext PROMPT "Facturi neintocmite 418" ;
	MESSAGE '418 : 70X'
ON SELECTION BAR 3 OF Clientiext DO BAR_3_OF_Clientiext_FB2P
ACTIVATE POPUP Clientiext

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Clientiext_FB2P
	Buton = lans(10469)
	IF Buton=2
		DO deschid_actc
		RETURN
	ENDIF 
	
	DO introducere_compacta WITH 'achi_mat','418 ','',.t.,.f.,'Vanzari-Facturi neintocmite 418','4428',10469
ENDPROC && BAR_1_OF_Clientiext_FB2P

PROCEDURE BAR_3_OF_Clientiext_FB2P
	
	*!*	SELE BAL
	*!*	GO TOP
	*!*	OS=CREA('SELCONT')
	*!*	OS.SHOW(1)
	*!*	IF BUTON=2
	*!*	RETURN
	*!*	ENDIF
	
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'70')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10301)
ENDPROC && BAR_3_OF_Clientiext_FB2P

*</Procedures>
