21 lines
770 B
Plaintext
21 lines
770 B
Plaintext
*!* 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 |