Causali di magazzino in tabelle comuni

git-svn-id: svn://10.65.10.50/trunk@4989 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-31 09:32:06 +00:00
parent 35200a8042
commit e0105456e4

View File

@ -157,7 +157,7 @@ STRING F_CAUS_MAG 4
BEGIN
PROMPT 2 17 "Codice causale magazzino "
FIELD S9
USE CAU
USE %CAU
INPUT CODTAB F_CAUS_MAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -165,19 +165,19 @@ BEGIN
OUTPUT F_DESCAUS_MAG S0
CHECKYTPE REQUIRED
FLAGS "U"
ADD RUN mg0 -0 CAU
ADD RUN mg0 -0 %CAU
GROUP 1
END
STRING F_DESCAUS_MAG 50
BEGIN
PROMPT 2 18 "Descrizione "
USE CAU KEY 2
USE %CAU KEY 2
INPUT S0 F_DESCAUS_MAG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CAUS_MAG
ADD RUN mg0 -0 CAU
ADD RUN mg0 -0 %CAU
CHECKTYPE NORMAL
GROUP 1
END