16258dc547
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 10.05 patch 502 git-svn-id: svn://10.65.10.50/trunk@8388 c028cbd2-c16b-5b4b-a496-9718f37d4682
153 lines
2.5 KiB
Plaintext
Executable File
153 lines
2.5 KiB
Plaintext
Executable File
#include "mr2200a.h"
|
|
|
|
PAGE "Opzioni di salvataggio" -1 -1 66 16
|
|
|
|
BOOLEAN F_NUMBERBYCLI
|
|
BEGIN
|
|
PROMPT 2 1 "Numera gli ordini per cliente"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_NUMBERBYWEEK
|
|
BEGIN
|
|
PROMPT 2 2 "Numera gli ordini per settimana"
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 4 "Numerazione "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 14 4 "da generare "
|
|
END
|
|
|
|
STRING F_NUM_PLAN 4
|
|
BEGIN
|
|
PROMPT 28 4 ""
|
|
FLAGS "U"
|
|
USE %NUM
|
|
INPUT CODTAB F_NUM_PLAN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_NUM_PLAN CODTAB
|
|
CHECKTYPE REQUIRED
|
|
ADD NONE
|
|
END
|
|
|
|
STRING F_TIPO_PLAN 4
|
|
BEGIN
|
|
PROMPT 39 4 "tipo "
|
|
FLAGS "U"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPO_PLAN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_TIPO_PLAN CODTAB
|
|
CHECKTYPE REQUIRED
|
|
ADD NONE
|
|
END
|
|
|
|
STRING F_RIGA_PLAN 4
|
|
BEGIN
|
|
PROMPT 52 4 "riga "
|
|
FLAGS "U"
|
|
USE %TRI SELECT S7=="M"
|
|
INPUT CODTAB F_RIGA_PLAN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_RIGA_PLAN CODTAB
|
|
CHECKTYPE REQUIRED
|
|
// GROUP G_PREPROCESS
|
|
ADD NONE
|
|
END
|
|
|
|
STRING F_DA_IMPIANTO 5
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 6 "Dall'impianto "
|
|
USE IMP
|
|
INPUT CODTAB F_DA_IMPIANTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DA_IMPIANTO CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
STRING F_A_IMPIANTO 5
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 30 6 " all'impianto "
|
|
COPY USE F_DA_IMPIANTO
|
|
INPUT CODTAB F_A_IMPIANTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_A_IMPIANTO CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DA_LINEA 5
|
|
BEGIN
|
|
FLAGS "UD"
|
|
PROMPT 2 7 "Dalla linea "
|
|
USE IMP
|
|
INPUT CODTAB F_DA_LINEA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DA_LINEA CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
STRING F_A_LINEA 5
|
|
BEGIN
|
|
FLAGS "UD"
|
|
PROMPT 30 7 " alla linea "
|
|
COPY USE F_DA_LINEA
|
|
INPUT CODTAB F_A_LINEA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_A_LINEA CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DA_MAGAZZ 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 8 "Dal magazzino "
|
|
USE MAG SELECT CODTAB[4,5]=""
|
|
INPUT CODTAB F_DA_MAGAZZ
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DA_MAGAZZ CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
STRING F_A_MAGAZZ 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 30 8 " al magazzino "
|
|
COPY USE F_DA_MAGAZZ
|
|
INPUT CODTAB F_A_MAGAZZ
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_A_MAGAZZ CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 "~Annulla"
|
|
PICTURE BMP_CANCEL
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|