46c3bbba19
git-svn-id: svn://10.65.10.50/branches/R_10_00@23087 c028cbd2-c16b-5b4b-a496-9718f37d4682
429 lines
7.0 KiB
Plaintext
Executable File
429 lines
7.0 KiB
Plaintext
Executable File
#include "db1300a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Implosione" 0 2 0 0
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 0 "@bCodici da implodere"
|
|
END
|
|
|
|
SPREADSHEET F_ARTS 78 7
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
ITEM "Tipo@4"
|
|
ITEM "Codice@20"
|
|
ITEM "Descrizione@40"
|
|
ITEM "Livello 1"
|
|
ITEM "Livello 2"
|
|
ITEM "Livello 3"
|
|
ITEM "Livello 4"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 8 "@bVariabili d'ambiente"
|
|
END
|
|
|
|
SPREADSHEET F_VARS 78 5
|
|
BEGIN
|
|
PROMPT 1 9 ""
|
|
ITEM "Impianto"
|
|
ITEM "Linea"
|
|
ITEM "Magazzino"
|
|
ITEM "Deposito"
|
|
ITEM "Liv. 1@10"
|
|
ITEM "Liv. 2@6"
|
|
ITEM "Liv. 3@6"
|
|
ITEM "Liv. 4@6"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 15 "@bProdotti Finiti"
|
|
END
|
|
|
|
BOOLEAN F_FASTIMPLODE
|
|
BEGIN
|
|
PROMPT 2 16 "Implosione rapida (senza articoli virtuali)"
|
|
MESSAGE FALSE HIDE,F_ONLYONE
|
|
MESSAGE TRUE SHOW,F_ONLYONE
|
|
END
|
|
|
|
BOOLEAN F_ONLYONE
|
|
BEGIN
|
|
PROMPT 52 16 "Solo primo livello"
|
|
END
|
|
|
|
BOOLEAN F_DISPLAY_ZERO
|
|
BEGIN
|
|
PROMPT 2 17 "Visualizza le quantità a zero"
|
|
END
|
|
|
|
BOOLEAN F_USECATMER
|
|
BEGIN
|
|
PROMPT 2 18 "Per categoria merceologica"
|
|
MESSAGE FALSE HIDE,F_DA_CATMER|HIDE,F_A_CATMER
|
|
MESSAGE TRUE SHOW,F_DA_CATMER|SHOW,F_A_CATMER
|
|
END
|
|
|
|
STRING F_DA_CATMER 5
|
|
BEGIN
|
|
PROMPT 42 18 "Da "
|
|
FLAG "U"
|
|
USE GMC
|
|
INPUT CODTAB F_DA_CATMER
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_DA_CATMER CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_A_CATMER 5
|
|
BEGIN
|
|
PROMPT 58 18 "A "
|
|
FLAG "U"
|
|
COPY USE F_DA_CATMER
|
|
INPUT CODTAB F_A_CATMER
|
|
COPY DISPLAY F_DA_CATMER
|
|
OUTPUT F_A_CATMER CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DA_ARTICOLO 20
|
|
BEGIN
|
|
PROMPT 2 19 "Dal "
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_DA_ARTICOLO
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_DA_ARTICOLO CODART
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_AD_ARTICOLO 20
|
|
BEGIN
|
|
PROMPT 42 19 "Al "
|
|
COPY USE F_DA_ARTICOLO
|
|
INPUT CODART F_AD_ARTICOLO
|
|
COPY DISPLAY F_DA_ARTICOLO
|
|
OUTPUT F_AD_ARTICOLO CODART
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAGS "U"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
PICTURE TOOL_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Articoli" -1 -1 70 6
|
|
|
|
LIST F_DISTTYPE 1 12
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
ITEM "A|Articolo"
|
|
MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
|
ITEM "D|Distinta"
|
|
MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
|
|
ITEM "L|Lavorazione"
|
|
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
|
|
END
|
|
|
|
STRING F_ARTICOLO 20
|
|
BEGIN
|
|
PROMPT 17 1 ""
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_ARTICOLO
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ARTICOLO CODART
|
|
OUTPUT F_ARTDESCR DESCR
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN ve2 -3
|
|
FLAGS "U"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_ARTDESCR 50
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR F_ARTDESCR
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_ARTICOLO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAGS "U"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DISTINTA 20
|
|
BEGIN
|
|
PROMPT 17 1 ""
|
|
USE LF_DIST SELECT VIRTUALE="X"
|
|
INPUT CODDIST F_DISTINTA
|
|
DISPLAY "Codice@20" CODDIST
|
|
DISPLAY "Desrizione@50" DESCR
|
|
OUTPUT F_DISTINTA CODDIST
|
|
OUTPUT F_DISDESCR DESCR
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN db0 -4
|
|
MESSAGE COPY,F_ARTICOLO
|
|
FLAGS "U"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_DISDESCR 50
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
COPY ALL F_DISTINTA
|
|
ADD RUN db0 -4
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_LAVORAZIONE 20
|
|
BEGIN
|
|
PROMPT 17 1 ""
|
|
USE LAV
|
|
INPUT CODTAB F_LAVORAZIONE
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_LAVORAZIONE CODTAB
|
|
OUTPUT F_LAVDESCR S0
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,F_ARTICOLO
|
|
FLAGS "U"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_LAVDESCR 50
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
USE LAV KEY 2
|
|
INPUT S0 F_LAVDESCR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@20" CODTAB
|
|
COPY OUTPUT F_LAVORAZIONE
|
|
CHECKTYPE REQUIRED
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_LEV1 10
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 1 3 "Livello 1 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "1"
|
|
INPUT CODTAB[2,20] F_LEV1
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT F_LEV1 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_LEV2 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 30 3 "Livello 2 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "2"
|
|
INPUT CODTAB[2,20] F_LEV2
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT F_LEV2 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_LEV3 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 1 4 "Livello 3 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "3"
|
|
INPUT CODTAB[2,20] F_LEV3
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT F_LEV3 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_LEV4 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 30 4 "Livello 4 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "4"
|
|
INPUT CODTAB[2,20] F_LEV4
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT F_LEV4 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
PICTURE TOOL_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Variabili" -1 -1 60 8
|
|
|
|
STRING F_IMPIANTO 5
|
|
BEGIN
|
|
FLAGS "UF"
|
|
PROMPT 1 1 "Impianto "
|
|
USE IMP
|
|
INPUT CODTAB F_IMPIANTO
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT F_IMPIANTO CODTAB
|
|
MESSAGE CHECK, F_LINEA
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_LINEA 5
|
|
BEGIN
|
|
FLAGS "UF"
|
|
PROMPT 36 1 "Linea "
|
|
USE LNP
|
|
INPUT CODTAB F_LINEA
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Impianto" S6
|
|
OUPUT F_LINEA CODTAB
|
|
OUPUT F_IMPIANTO S6
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_MAGAZZINO 3
|
|
BEGIN
|
|
PROMPT 1 2 "Magazzino "
|
|
USE MAG SELECT CODTAB[4,5]=""
|
|
INPUT CODTAB F_MAGAZZINO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_MAGAZZINO CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DEPOSITO 2
|
|
BEGIN
|
|
PROMPT 36 2 "Deposito "
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_MAGAZZINO
|
|
INPUT CODTAB[4,5] F_DEPOSITO
|
|
DISPLAY "Magazzino" CODTAB[1,3]
|
|
DISPLAY "Deposito" CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_MAGAZZINO CODTAB[1,3]
|
|
OUTPUT F_DEPOSITO CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING 105 10
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 1 3 "Liv. 1 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "1"
|
|
INPUT CODTAB[2,20] 105
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT 105 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
GROUP 4
|
|
END
|
|
|
|
STRING 106 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 36 3 "Liv. 2 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "2"
|
|
INPUT CODTAB[2,20] 106
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT 106 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
GROUP 4
|
|
END
|
|
|
|
STRING 107 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 1 4 "Liv. 3 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "3"
|
|
INPUT CODTAB[2,20] 107
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT 107 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
GROUP 4
|
|
END
|
|
|
|
STRING 108 6
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 36 4 "Liv. 4 "
|
|
USE GCG
|
|
INPUT CODTAB[1] "4"
|
|
INPUT CODTAB[2,20] 108
|
|
DISPLAY "Codice " CODTAB[2,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUPUT 108 CODTAB[2,20]
|
|
CHECKTYPE NORMAL
|
|
GROUP 4
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|