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