*!*	actualizari
PROCEDURE actualizare_stoc_072010 
	LPARAMETERS tnPretvIdentic

	IF AMESSAGEBOX('Doriti sa actualizati stocul de marfa la pret de vanzare 19% la 24%?',4+32, _screen.Caption) <> 6
		RETURN 
	ENDIF 

	LOCAL lnPretvIdentic
	lnPretvIdentic = 0
	IF TYPE('tnPretvIdentic') = 'N'
		lnPretvIdentic = IIF(INLIST(m.tnPretvIdentic,0,1), m.tnPretvIdentic, m.lnPretvIdentic)
	ENDIF 	
	lcSql = [begin actualizare_stoc_072010(] + ALLTRIM(STR(lnPretvIdentic)) + [); end;]
	lnSucces = goExecutor.oExecute(lcSql)
	IF lnSucces < 0
		AMESSAGEBOX(goExecutor.cEroare, 0+16, _screen.Caption)
	ELSE
		AMESSAGEBOX('Actualizarea s-a incheiat cu succes. Verificati notele contabile si stocul de marfa la pret de vanzare.',0+64, _screen.Caption)
	ENDIF 
ENDPROC