Initial commit — sursa ROAGEST

Programe/actualizari.prg

@@ -0,0 +1,21 @@
+*!*	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