*SAISIE DES MOUVEMENTS DE STOCK
DEFINE WINDOW ancien_ecran FROM 1,1 TO 50,162
ACTIVATE WINDOW ancien_ecran

SET ESCAP OFF
SELE 2        
USE frz!BGMVSTO order BGMVSTO ALIAS MOUV 
SELECT 1
USE frz!SDARTI order codeart alias AR
TITRE = "SAISIE DES MOUVEMENTS DE STOCKS"
rep="N"            
vdesign=space(30)
DO WHILE .T.
SELE 1              
vcode=space(7)
do titre
@ 7,12 SAY "CODE " GET VCODE PICTURE "!!!!!"
READ
IF VCODE  =SPACE(7)
exit
endi
SET EXACT OFF
vrech =VCODE
FIND &Vrech
SET EXACT ON
IF EOF()
rep="N"
@ 10,12 SAY "Cet  article est inexistant "
@ 12,12 SAY "VOULEZ VOUS LE CREER O/N " GET REP
READ
IF UPPER(REP)="O"
append blank
set format to sdsarti
read           
close format                           
REPLACE CODEart   WITH  VCODE
WAIT           
@ 6,0 CLEAR
ELSE
LOOP
ENDI
DO SDPRESa.PRG
@ 23,0 SAY " "    
WAIT    
LOOP    
ENDI
PRG="SDPRESa.PRG"
DO SDFICAVA.PRG     
REP="N"                               
@ 23,0 SAY "MODIF O/N " GET REP
READ     
IF UPPER(REP)="O"

DO FORM sdsarti2
*VDESIGN=m->DESIGNART
ENDI
SELE 2
@ 19,0 CLEAR                      
@ 19,0 TO 24,79 DOUBLE

VMOUV=VCODE+SUBSTR(DTOC(DATE()),9,2)+substr(DTOC(DATE()),4,2)+SUBSTR(DTOC(DATE()),1,2)

SET EXAC ON
seek VMOUV
IF .NOT. EOF()
@ 23,5 SAY "UN MOUVEMENT EXISTE DEJA CE JOUR MODIF O/N " GET REP
READ
IF REP ="N"
APPEND BLANK
REPLA CODEARTI WITH VCODE, DATE WITH DATE()
ELSE
REPLACE STOCK WITH STOCK-QUANTITE
ENDI
ELSE     
APPEND BLAN    
REPLA CODEARTI WITH VCODE, DATE WITH DATE()
if vdesign<>space(30)
replace mouv->nature with vdesign
endi
ENDI
@ 23,1 SAY SPACE (70)
@ 20,2 SAY" CODE   DATE    NATURE MOUVEMENT     QUANTITE(+/-) "
@ 22,3 SAY CODEARTI
@ 22,8 GET DATE
@ 22,18 GET NATURE
@ 22,50 GET QUANTITE
READ
IF QUANTITE <0
@ 23,2 SAY "VOUS ALLEZ DEBITER "
ELSE
@ 23,2 SAY "VOUS ALLEZ AJOUTER "
ENDI
@ 23,21 SAY QUANTITE
@ 23,27 SAY " DE "
@ 23,31 SAY CODEARTI
@ 23,36 SAY "  ETES VOUS SUR"
@ 23,55 GET REP
READ
IF UPPER(REP)="O"
REPLACE STOCK WITH AR->QUANTITE+MOUV->QUANTITE
REPLACE AR->QUANTITE WITH AR->QUANTITE+MOUV->QUANTITE
REPLACE MOUV->Q2 WITH MOUV->QUANTITE ,MOUV->NUMFACT WITH 99999
vdesign=mouv->nature
ELSE
DELETE
ENDI
SELE 1     
DO SDPRESA     
WAIT     
ENDDO
CLOSE DATA
DEACTIVATE WINDOW ancien_ecran
RETU