| 
A*%%TS SD 19940610 104408 AF400 REL-V2R3M0 5738-PW1
A*%%EC
A DSPSIZ(24 80 *DS3)
A R FMT1
A*%%TS SD 19940610 104408 AF400 REL-V2R3M0 5738-PW1
A CA03(03 'exit')
A 2 29'** transfert de stock **'
A DSPATR(UL)
A 6 3'Code'
A 6 8'article'
A 6 16':'
A 6 42'qte à transférer'
A CODART R B 6 18REFFLD(JARTICF1/CODART AF4TOOL/JART-
A ICP1)
A 40 ERRMSG('ARTCILE INVALIDE' 40)
A QTETFR R Y B 6 60REFFLD(JSTOCKF1/QTESTO AF4TOOL/JSTO-
A CKP1)
A CHECK(RB) EDTCDE(3)
A DSPATR(MDT) COMP(GT 0)
A 23 3'F3 = Exit'
A 9 3'Du'
A 9 6'lieu'
A 9 11':'
A 9 42'Au'
A 9 45'lieu'
A 9 50':'
A LIEU1 R B 9 18REFFLD(JSTOCKF1/LIEU AF4TOOL/JSTOCK-
A P1)
A 41 ERRMSG('LIEU INVALIDE' 41)
A LIEU2 R B 9 60REFFLD(JSTOCKF1/LIEU AF4TOOL/JSTOCK-
A P1)
A 42 ERRMSG('LIEU INVALIDE' 42)
A 45 23 16'** tentative de reprise **'
A DSPATR(HI)
A R FMT2
A*%%TS SD 19940610 100449 AF400 REL-V2R3M0 5738-PW1
A CLRL(*END)
A OVERLAY
A PROTECT
A 12 3'Ancienne'
A 12 12'quantité'
A 12 42'Ancienne'
A 12 51'quantité'
A 15 3'Nouvelle'
|
|
A 15 12'quantité' A 15 42'Nouvelle' A 15 51'quantité' A 18 3'(rappel article, quantité mini:' A QTEMIN R O 18 35REFFLD(JARTICF1/QTEMIN AF4TOOL/JART- A ICP1) A EDTCDE(3) A 18 44',maxi:' A QTEMAX R O 18 51REFFLD(JARTICF1/QTEMAX AF4TOOL/JART- A ICP1) A EDTCDE(3) A 18 60')' A MSG 30A O 21 5DSPATR(HI) A AQTES1 R O 12 23REFFLD(JSTOCKF1/QTESTO AF4TOOL/JSTO- A CKP1) A EDTCDE(3) A NQTES1 R O 15 23REFFLD(JSTOCKF1/QTESTO AF4TOOL/JSTO- A CKP1) A EDTCDE(L) A AQTES2 R O 12 62REFFLD(JSTOCKF1/QTESTO AF4TOOL/JSTO- A CKP1) A EDTCDE(3) A NQTES2 R O 15 62REFFLD(JSTOCKF1/QTESTO AF4TOOL/JSTO- A CKP1) A EDTCDE(3) A R FMT3 A*%%TS SD 19940610 100449 AF400 REL-V2R3M0 5738-PW1 A CA12(12 'annul') A CLRL(*END) A OVERLAY A PROTECT A 23 27'Entrée pour confirmer, F12 pour an- A nuler' |
