Maschere corrette
git-svn-id: svn://10.65.10.50/trunk@4162 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
0b54884a0c
commit
b0f358a700
@ -207,6 +207,11 @@ BEGIN
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM F_COM
|
||||
DISPLAY "Codice" COM
|
||||
DISPLAY "Comune@50" DENCOM
|
||||
DISPLAY "Prov.@2" PROVCOM
|
||||
DISPLAY "CAP@5" CAPCOM
|
||||
|
||||
OUTPUT F_COM COM
|
||||
OUTPUT F_LOC DENCOM
|
||||
OUTPUT F_PROV PROVCOM
|
||||
@ -221,6 +226,7 @@ BEGIN
|
||||
PROMPT 6 14 "Comune "
|
||||
USE LF_COMUNI KEY 2
|
||||
INPUT DENCOM F_LOC
|
||||
COPY DISPLAY F_COM
|
||||
COPY OUTPUT F_COM
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
@ -31,14 +31,14 @@ STRING FLD_TABRFA_S0 50
|
||||
BEGIN
|
||||
PROMPT 2 4 "Descrizione "
|
||||
FIELD S0
|
||||
KEY 2
|
||||
USE RFA KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la descrizione"
|
||||
INPUT S0 FLD_TABRFA_S0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT FLD_TABRFA_CODTAB
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Manca la descrizione"
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S7 2
|
||||
@ -51,12 +51,14 @@ STRING FLD_TABRFA_S7 2
|
||||
DISPLAY "U.M. " CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FLD_TABRFA_S7 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Unita' di misura errata"
|
||||
END
|
||||
|
||||
STRING FLD_TABRFA_S8 2
|
||||
BEGIN
|
||||
PROMPT 2 9 "Classe fiscale "
|
||||
FLAGS "U"
|
||||
FIELD S8
|
||||
USE ASF
|
||||
INPUT CODTAB FLD_TABRFA_S8
|
||||
@ -74,8 +76,7 @@ STRING FLD_DESCFA 50
|
||||
INPUT S0 FLD_DESCFA
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cl. Fisc." CODTAB
|
||||
OUTPUT FLD_TABRFA_S8 CODTAB
|
||||
OUTPUT FLD_DESCFA S0
|
||||
COPY OUTPUT FLD_TABRFA_S8
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
@ -145,7 +146,7 @@ END
|
||||
|
||||
NUMBER F_CONTOV 3
|
||||
BEGIN
|
||||
PROMPT 23 14 ""
|
||||
PROMPT 25 14 ""
|
||||
FIELD I4
|
||||
USE LF_PCON SELECT INDBIL=="4"
|
||||
INPUT GRUPPO F_GRUPPOV
|
||||
@ -162,7 +163,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCV 6
|
||||
BEGIN
|
||||
PROMPT 31 14 ""
|
||||
PROMPT 33 14 ""
|
||||
FIELD I5
|
||||
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||
@ -184,7 +185,7 @@ END
|
||||
|
||||
STRING F_DESCRV 50
|
||||
BEGIN
|
||||
PROMPT 18 15 ""
|
||||
PROMPT 19 15 ""
|
||||
FLAG "U"
|
||||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||
@ -207,7 +208,7 @@ END
|
||||
|
||||
NUMBER F_CONTOA 3
|
||||
BEGIN
|
||||
PROMPT 23 16 ""
|
||||
PROMPT 25 16 ""
|
||||
FIELD I1
|
||||
USE LF_PCON SELECT INDBIL=="3"
|
||||
INPUT GRUPPO F_GRUPPOA
|
||||
@ -224,7 +225,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCA 6
|
||||
BEGIN
|
||||
PROMPT 31 16 ""
|
||||
PROMPT 33 16 ""
|
||||
FIELD I2
|
||||
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||
@ -246,7 +247,7 @@ END
|
||||
|
||||
STRING F_DESCRA 50
|
||||
BEGIN
|
||||
PROMPT 18 17 ""
|
||||
PROMPT 19 17 ""
|
||||
FLAG "U"
|
||||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||
|
||||
@ -12,7 +12,7 @@ BEGIN
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODICE 10
|
||||
STRING F_CODICE 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cod. Ubicazione "
|
||||
FIELD UBI->CODTAB
|
||||
@ -60,6 +60,7 @@ BEGIN
|
||||
OUTPUT F_FILA S8
|
||||
OUTPUT F_SCAFFALE S9
|
||||
OUTPUT F_PSCAFFALE S5
|
||||
WARNING "Necessaria la descrizione"
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
576
ve/ve2400.uml
576
ve/ve2400.uml
@ -5,9 +5,9 @@ TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Pagina 1" 0 0 70 20
|
||||
PAGE "Definizione" 0 0 70 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
//FLAG "R"
|
||||
@ -28,16 +28,10 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
// tipo articolo sostituito da Tabella gruppi articoli
|
||||
//STRING F_TIPO 1
|
||||
//BEGIN
|
||||
// PROMPT 42 1 "Tipo "
|
||||
// FIELD LF_ANAMAG->TIPO
|
||||
//END
|
||||
|
||||
STRING F_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
PROMPT 2 2 "Descrizione "
|
||||
FIELD LF_ANAMAG->DESCR
|
||||
KEY 2
|
||||
USE LF_ANAMAG KEY 2
|
||||
@ -49,9 +43,85 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
BOOLEAN F_ARTPROD
|
||||
BEGIN
|
||||
PROMPT 2 4 "Articolo di produzione "
|
||||
FIELD LF_ANAMAG->ARTPROD
|
||||
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1|DISABLE,F_RIORDINO
|
||||
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1|ENABLE,F_RIORDINO
|
||||
END
|
||||
|
||||
NUMBER F_CODFORN 6
|
||||
BEGIN
|
||||
PROMPT 1 5 "Codice fornitore "
|
||||
FIELD LF_ANAMAG->CODFORN
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODFORN
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODFORN CODCF
|
||||
OUTPUT F_CODFORN1 RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CODFORN1 50
|
||||
BEGIN
|
||||
PROMPT 1 6 "Ragione sociale "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_CODFORN1
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODFORN CODCF
|
||||
OUTPUT F_CODFORN1 RAGSOC
|
||||
END
|
||||
|
||||
LISTBOX F_RIORDINO 20
|
||||
BEGIN
|
||||
PROMPT 42 5 "Riordino per "
|
||||
FIELD LF_ANAMAG->RIORDINO
|
||||
ITEM "P|punto di riordino"
|
||||
ITEM "F|fabbisogno"
|
||||
ITEM "T|tempo"
|
||||
END
|
||||
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 7 "Codici alternativi"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETCOD 71 5
|
||||
BEGIN
|
||||
PROMPT 2 8 "Codici alternativi"
|
||||
ITEM "Cod. art.@20"
|
||||
ITEM "Tipo@10"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 14 "Descrizioni in lingua"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETDESLIN 71 5
|
||||
BEGIN
|
||||
PROMPT 2 15 "Descrizioni in lingua"
|
||||
ITEM "Cod. lingua"
|
||||
ITEM "Descrizione@50"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
PAGE "Categorie" 0 0 70 20
|
||||
|
||||
STRING F_GRMERC 3
|
||||
BEGIN
|
||||
PROMPT 1 5 "Gr. merc. "
|
||||
PROMPT 1 2 "Gr. merc. "
|
||||
FIELD LF_ANAMAG->GRMERC[1,3]
|
||||
GROUP 1
|
||||
FLAG "U"
|
||||
@ -61,12 +131,15 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_GRMERC CODTAB[1,3]
|
||||
OUTPUT F_GRMERCD1 S0
|
||||
OUTPUT H_GRMERCD1 S0
|
||||
|
||||
OUTPUT F_GRMERCB CODTAB[4,5]
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_GRMERCD1 50
|
||||
BEGIN
|
||||
PROMPT 23 5 ""
|
||||
PROMPT 23 2 ""
|
||||
GROUP 1
|
||||
USE GMC KEY 2 SELECT CODTAB ?= "???"
|
||||
INPUT S0 F_GRMERCD1
|
||||
@ -77,13 +150,20 @@ BEGIN
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING H_GRMERCD1 50
|
||||
BEGIN
|
||||
PROMPT 23 2 ""
|
||||
GROUP 1
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_GRMERCB 2
|
||||
BEGIN
|
||||
PROMPT 1 6 "Sott. merc. "
|
||||
PROMPT 1 3 "Sott. merc. "
|
||||
FIELD LF_ANAMAG->GRMERC[4,5]
|
||||
GROUP 1
|
||||
FLAG "U"
|
||||
USE GMC SELECT CODTAB[4,5] != ""
|
||||
USE GMC //SELECT CODTAB[4,5] != ""
|
||||
INPUT CODTAB[1,3] F_GRMERC
|
||||
INPUT CODTAB[4,5] F_GRMERCB
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -91,26 +171,29 @@ BEGIN
|
||||
OUTPUT F_GRMERC CODTAB[1,3]
|
||||
OUTPUT F_GRMERCB CODTAB[4,5]
|
||||
OUTPUT F_GRMERCD2 S0
|
||||
MESSAGE SHOW,F_GRMERCD2|SHOW,H_GRMERCD1|HIDE,F_GRMERCD1
|
||||
MESSAGE EMPTY HIDE,F_GRMERCD2|HIDE,H_GRMERCD1|SHOW,F_GRMERCD1
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_GRMERCD2 50
|
||||
BEGIN
|
||||
PROMPT 23 6 ""
|
||||
PROMPT 23 3 ""
|
||||
GROUP 1
|
||||
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
||||
INPUT S0 F_GRMERCD2
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_GRMERC CODTAB[1,3]
|
||||
OUTPUT F_GRMERCB CODTAB[4,5]
|
||||
OUTPUT F_GRMERCD2 S0
|
||||
COPY OUTPUT F_GRMERCB
|
||||
// OUTPUT F_GRMERC CODTAB[1,3]
|
||||
// OUTPUT F_GRMERCB CODTAB[4,5]
|
||||
// OUTPUT F_GRMERCD2 S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 1 7 "Codice IVA "
|
||||
PROMPT 1 5 "Codice IVA "
|
||||
FIELD LF_ANAMAG->CODIVA
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODIVA
|
||||
@ -123,7 +206,7 @@ END
|
||||
|
||||
STRING F_CODIVA1 50
|
||||
BEGIN
|
||||
PROMPT 23 7 ""
|
||||
PROMPT 23 5 ""
|
||||
USE %IVA KEY 2
|
||||
INPUT S0 F_CODIVA1
|
||||
DISPLAY "Descrizione@50" S0
|
||||
@ -132,22 +215,29 @@ BEGIN
|
||||
OUTPUT F_CODIVA1 S0
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET0 77 5
|
||||
STRING F_SCONTO 25
|
||||
BEGIN
|
||||
PROMPT 1 8 "Unità di misura"
|
||||
ITEM "U.M."
|
||||
ITEM "F. conversione"
|
||||
ITEM "Prezzo netto@18"
|
||||
ITEM "Prezzo lordo@18"
|
||||
FIELD LF_ANAMAG->SCONTO
|
||||
PROMPT 1 6 "Sconto "
|
||||
END
|
||||
|
||||
STRING F_CODIVAR 4
|
||||
BEGIN
|
||||
PROMPT 50 6 "Codice IVA ridotta "
|
||||
FIELD LF_ANAMAG->CODIVAR
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODIVAR
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CODIVAR CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CATCONA 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Categoria conto acquisti "
|
||||
PROMPT 1 8 "Categoria conto acquisti "
|
||||
FIELD LF_ANAMAG->CATCONA
|
||||
GROUP 11
|
||||
MESSAGE CLEAR,12@
|
||||
MESSAGE EMPTY ENABLE,12@
|
||||
FLAG "UZ"
|
||||
USE CAA
|
||||
INPUT CODTAB F_CATCONA
|
||||
@ -159,11 +249,13 @@ BEGIN
|
||||
OUTPUT F_CATCONA CODTAB
|
||||
OUTPUT F_CATCONA1 S0
|
||||
CHEKTYPE NORMAL
|
||||
// MESSAGE CLEAR,12@
|
||||
// MESSAGE EMPTY ENABLE,12@
|
||||
END
|
||||
|
||||
STRING F_CATCONA1 40
|
||||
BEGIN
|
||||
PROMPT 36 14 ""
|
||||
PROMPT 36 8 ""
|
||||
FLAG "D"
|
||||
GROUP 11
|
||||
USE CAA KEY 2
|
||||
@ -178,26 +270,26 @@ END
|
||||
|
||||
NUMBER F_GRUPPOA 3
|
||||
BEGIN
|
||||
PROMPT 1 15 "Conto d'acquisto "
|
||||
PROMPT 1 9 "Conto d'acquisto "
|
||||
FIELD LF_ANAMAG->GRUPPOA
|
||||
GROUP 12
|
||||
MESSAGE CLEAR,11@
|
||||
MESSAGE EMPTY ENABLE,11@
|
||||
// MESSAGE CLEAR,11@
|
||||
// MESSAGE EMPTY ENABLE,11@
|
||||
END
|
||||
|
||||
NUMBER F_CONTOA 3
|
||||
BEGIN
|
||||
PROMPT 22 15 ""
|
||||
PROMPT 22 9 ""
|
||||
FIELD LF_ANAMAG->CONTOA
|
||||
GROUP 12
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCA 6
|
||||
BEGIN
|
||||
PROMPT 26 15 ""
|
||||
PROMPT 26 9 ""
|
||||
FIELD LF_ANAMAG->SOTTOCA
|
||||
GROUP 12
|
||||
USE LF_PCON
|
||||
USE LF_PCON SELECT INDBIL=="3"
|
||||
INPUT GRUPPO F_GRUPPOA
|
||||
INPUT CONTO F_CONTOA
|
||||
INPUT SOTTOCONTO F_SOTTOCA
|
||||
@ -210,31 +302,29 @@ BEGIN
|
||||
OUTPUT F_SOTTOCA SOTTOCONTO
|
||||
OUTPUT F_DESCRA DESCR
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Il conto deve essere un costo"
|
||||
END
|
||||
|
||||
STRING F_DESCRA 40
|
||||
BEGIN
|
||||
PROMPT 36 15 ""
|
||||
PROMPT 36 9 ""
|
||||
FLAG "D"
|
||||
GROUP 12
|
||||
USE LF_PCON KEY 2
|
||||
USE LF_PCON KEY 2 SELECT INDBIL=="3"
|
||||
INPUT DESCR F_DESCRA
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_SOTTOCA
|
||||
WARNING "Il conto deve essere un costo"
|
||||
END
|
||||
|
||||
|
||||
|
||||
STRING F_CATCONV 3
|
||||
BEGIN
|
||||
PROMPT 1 16 "Categoria conto vendite "
|
||||
PROMPT 1 10 "Categoria conto vendite "
|
||||
FIELD LF_ANAMAG->CATCONV
|
||||
GROUP 21
|
||||
MESSAGE CLEAR,22@
|
||||
MESSAGE EMPTY ENABLE,22@
|
||||
FLAG "UZ"
|
||||
USE CRA
|
||||
INPUT CODTAB F_CATCONV
|
||||
@ -246,11 +336,13 @@ BEGIN
|
||||
OUTPUT F_CATCONV CODTAB
|
||||
OUTPUT F_CATCONV1 S0
|
||||
CHECKTYPE NORMAL
|
||||
// MESSAGE CLEAR,22@
|
||||
// MESSAGE EMPTY ENABLE,22@
|
||||
END
|
||||
|
||||
STRING F_CATCONV1 40
|
||||
BEGIN
|
||||
PROMPT 36 16 ""
|
||||
PROMPT 36 10 ""
|
||||
FLAG "D"
|
||||
GROUP 21
|
||||
USE CRA KEY 2
|
||||
@ -265,26 +357,26 @@ END
|
||||
|
||||
NUMBER F_GRUPPOV 3
|
||||
BEGIN
|
||||
PROMPT 1 17 "Conto di vendita "
|
||||
PROMPT 1 11 "Conto di vendita "
|
||||
FIELD LF_ANAMAG->GRUPPOV
|
||||
GROUP 22
|
||||
MESSAGE CLEAR,21@
|
||||
MESSAGE EMPTY ENABLE,21@
|
||||
// MESSAGE CLEAR,21@
|
||||
// MESSAGE EMPTY ENABLE,21@
|
||||
END
|
||||
|
||||
NUMBER F_CONTOV 3
|
||||
BEGIN
|
||||
PROMPT 22 17 ""
|
||||
PROMPT 22 11 ""
|
||||
FIELD LF_ANAMAG->CONTOV
|
||||
GROUP 22
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCV 6
|
||||
BEGIN
|
||||
PROMPT 26 17 ""
|
||||
PROMPT 26 11 ""
|
||||
FIELD LF_ANAMAG->SOTTOCV
|
||||
GROUP 22
|
||||
USE LF_PCON
|
||||
USE LF_PCON SELECT INDBIL=="4"
|
||||
INPUT GRUPPO F_GRUPPOV
|
||||
INPUT CONTO F_CONTOV
|
||||
INPUT SOTTOCONTO F_SOTTOCV
|
||||
@ -297,54 +389,89 @@ BEGIN
|
||||
OUTPUT F_SOTTOCV SOTTOCONTO
|
||||
OUTPUT F_DESCRV DESCR
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Il conto deve essere un ricavo"
|
||||
END
|
||||
|
||||
STRING F_DESCRV 40
|
||||
BEGIN
|
||||
PROMPT 36 17 ""
|
||||
PROMPT 36 11 ""
|
||||
FLAG "D"
|
||||
GROUP 22
|
||||
USE LF_PCON KEY 2
|
||||
USE LF_PCON KEY 2 SELECT INDBIL=="4"
|
||||
INPUT DESCR F_DESCRV
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_SOTTOCV
|
||||
WARNING "Il conto deve essere un ricavo"
|
||||
END
|
||||
|
||||
STRING F_UMP 3
|
||||
BOOLEAN F_ARTFIS
|
||||
BEGIN
|
||||
PROMPT 1 18 "U.M. peso "
|
||||
FIELD LF_ANAMAG->UMP
|
||||
FLAG "U"
|
||||
USE %UMS
|
||||
INPUT CODTAB F_UMP
|
||||
DISPLAY "U.M. " CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_UMP CODTAB
|
||||
VALIDATE REQIF_FUNC 1 F_PESO
|
||||
WARNING "Necessaria una unità di misura valida per il peso "
|
||||
PROMPT 1 13 "Articolo fiscale"
|
||||
FIELD LF_ANAMAG->ARTFIS
|
||||
MESSAGE TRUE ENABLE,23@
|
||||
MESSAGE FALSE DISABLE,23@
|
||||
END
|
||||
|
||||
STRING F_RAGGFIS 5
|
||||
BEGIN
|
||||
PROMPT 1 14 "Raggrupp. fiscale "
|
||||
FIELD LF_ANAMAG->RAGGFIS
|
||||
FLAGS "U"
|
||||
USE RFA
|
||||
JOIN %ASF ALIAS 200 INTO CODTAB=S8
|
||||
INPUT CODTAB F_RAGGFIS
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_RAGGFIS CODTAB
|
||||
OUTPUT F_RAGGFIS1 S0
|
||||
OUTPUT H_CLASSEFIS S8
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 23
|
||||
END
|
||||
|
||||
NUMBER F_PESO 15 5
|
||||
STRING F_RAGGFIS1 40
|
||||
BEGIN
|
||||
PROMPT 30 18 "Peso "
|
||||
FIELD LF_ANAMAG->PESO
|
||||
VALIDATE REQIF_FUNC 1 F_TARA
|
||||
WARNING "Necessario introdurre il peso se si è introdotta la tara"
|
||||
PROMPT 31 14 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
NUMBER F_TARA 15 5
|
||||
STRING H_CLASSEFIS 2
|
||||
BEGIN
|
||||
PROMPT 1 19 "Tara "
|
||||
FIELD LF_ANAMAG->TARA
|
||||
PROMPT 1 15 ""
|
||||
FLAG "HG"
|
||||
MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
|
||||
MESSAGE EMPTY ENABLE,F_CLASSEFIS
|
||||
END
|
||||
|
||||
STRING F_CLASSEFIS 2
|
||||
BEGIN
|
||||
PROMPT 1 15 "Classe fiscale "
|
||||
FIELD LF_ANAMAG->CLASSEFIS
|
||||
FLAGS "UD"
|
||||
USE %ASF
|
||||
INPUT CODTAB F_CLASSEFIS
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CLASSEFIS CODTAB
|
||||
OUTPUT F_CLASSEFISD S0
|
||||
MESSAGE EMPTY "",F_CLASSEFISD
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 23
|
||||
END
|
||||
|
||||
STRING F_CLASSEFISD 40
|
||||
BEGIN
|
||||
PROMPT 31 15 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
|
||||
STRING F_CLASSDOG 10
|
||||
BEGIN
|
||||
PROMPT 1 20 "Classe doganale "
|
||||
PROMPT 1 17 "Classe doganale "
|
||||
FIELD LF_ANAMAG->CLASSDOG
|
||||
FLAG "UZ"
|
||||
USE %CLD
|
||||
@ -358,14 +485,111 @@ END
|
||||
|
||||
STRING F_CLASSDOG1 40
|
||||
BEGIN
|
||||
PROMPT 36 20 ""
|
||||
PROMPT 36 17 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_PROVOR 5
|
||||
BEGIN
|
||||
PROMPT 1 18 "Provincia di origine "
|
||||
FIELD LF_ANAMAG->PROV
|
||||
USE %PRV
|
||||
INPUT CODTAB F_PROVOR
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Provincia@50" S0
|
||||
|
||||
OUTPUT F_PROVOR CODTAB
|
||||
OUTPUT F_PROVOR2 S0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Provincia assente"
|
||||
END
|
||||
|
||||
STRING F_PROVOR2 40
|
||||
BEGIN
|
||||
PROMPT 36 18 ""
|
||||
USE %PRV KEY 2
|
||||
INPUT S0 F_PROVOR2
|
||||
COPY DISPLAY F_PROVOR
|
||||
COPY OUTPUT F_PROVOR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
||||
PAGE "Pagina 2 " 0 0 70 20
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
PAGE "Produzione/vendita" 0 0 70 20
|
||||
|
||||
STRING F_UMP 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "U.M. peso "
|
||||
FIELD LF_ANAMAG->UMP
|
||||
FLAG "U"
|
||||
USE %UMS
|
||||
INPUT CODTAB F_UMP
|
||||
DISPLAY "U.M. " CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_UMP CODTAB
|
||||
VALIDATE REQIF_FUNC 1 F_PESO
|
||||
WARNING "Necessaria una unità di misura valida per il peso "
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 2 "Unità di misura articolo"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETUM 77 5
|
||||
BEGIN
|
||||
PROMPT 2 3 "Unità di misura "
|
||||
ITEM "U.M."
|
||||
ITEM "F. conversione"
|
||||
ITEM "Prezzo netto@18"
|
||||
ITEM "Prezzo lordo@18"
|
||||
END
|
||||
|
||||
NUMBER F_PESO 15 5
|
||||
BEGIN
|
||||
PROMPT 1 10 "Peso "
|
||||
FIELD LF_ANAMAG->PESO
|
||||
VALIDATE REQIF_FUNC 1 F_TARA
|
||||
WARNING "Necessario introdurre il peso se si è introdotta la tara"
|
||||
END
|
||||
|
||||
NUMBER F_TARA 15 5
|
||||
BEGIN
|
||||
PROMPT 42 10 "Tara "
|
||||
FIELD LF_ANAMAG->TARA
|
||||
END
|
||||
|
||||
NUMBER F_MASSANUN 10 3
|
||||
BEGIN
|
||||
PROMPT 1 11 "Massa netta unitaria "
|
||||
FIELD LF_ANAMAG->MASSANUN
|
||||
END
|
||||
|
||||
NUMBER F_UNSUPPUN 10 3
|
||||
BEGIN
|
||||
PROMPT 42 11 "Unità suppl.unitaria "
|
||||
FIELD LF_ANAMAG->UNSUPPUN
|
||||
END
|
||||
|
||||
NUMBER F_PPCONF 15 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Pz. per confezione "
|
||||
FIELD LF_ANAMAG->PPCONF
|
||||
END
|
||||
|
||||
NUMBER F_PPCOLLO 15 5
|
||||
BEGIN
|
||||
PROMPT 42 12 "Pz. per collo "
|
||||
FIELD LF_ANAMAG->PPCOLLO
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOCF 20
|
||||
BEGIN
|
||||
@ -374,157 +598,133 @@ BEGIN
|
||||
ITEM "F|Fornitore"
|
||||
END
|
||||
|
||||
NUMBER F_CODFORN 6
|
||||
NUMBER F_COSTSTD 15 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice fornitore "
|
||||
FIELD LF_ANAMAG->CODFORN
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODFORN
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODFORN CODCF
|
||||
OUTPUT F_CODFORN1 RAGSOC
|
||||
END
|
||||
|
||||
NUMBER F_COSTSTD 18 0
|
||||
BEGIN
|
||||
PROMPT 37 1 "Costo standard "
|
||||
PROMPT 1 15 "Costo standard "
|
||||
FIELD LF_ANAMAG->COSTSTD
|
||||
END
|
||||
|
||||
STRING F_CODFORN1 50
|
||||
NUMBER F_ULC1 15 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_CODFORN1
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODFORN CODCF
|
||||
OUTPUT F_CODFORN1 RAGSOC
|
||||
PROMPT 1 16 "Ultimo costo "
|
||||
FIELD LF_ANAMAG->ULTCOS1
|
||||
END
|
||||
|
||||
BOOLEAN F_ARTFIS
|
||||
DATE F_DATAULC1
|
||||
BEGIN
|
||||
PROMPT 2 3 "Articolo fiscale"
|
||||
FIELD LF_ANAMAG->ARTFIS
|
||||
MESSAGE TRUE ENABLE,23@
|
||||
MESSAGE FALSE DISABLE,23@
|
||||
PROMPT 42 16 "Data ultimo costo "
|
||||
FIELD LF_ANAMAG->DULTCOS1
|
||||
END
|
||||
|
||||
STRING F_RAGGFIS 5
|
||||
NUMBER F_ULC2 15 5
|
||||
BEGIN
|
||||
PROMPT 2 4 "Raggrupp. fiscale "
|
||||
FIELD LF_ANAMAG->RAGGFIS
|
||||
USE RFA
|
||||
JOIN %ASF ALIAS 200 INTO CODTAB=S8
|
||||
INPUT CODTAB F_RAGGFIS
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_RAGGFIS CODTAB
|
||||
OUTPUT F_RAGGFIS1 S0
|
||||
OUTPUT F_CLASSEFIS S8
|
||||
OUTPUT F_CLASSEFIS1 -200->S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 23
|
||||
PROMPT 1 17 "Penultimo costo "
|
||||
FIELD LF_ANAMAG->ULTCOS2
|
||||
END
|
||||
|
||||
STRING F_RAGGFIS1 40
|
||||
DATE F_DATAULC2
|
||||
BEGIN
|
||||
PROMPT 31 4 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_CLASSEFIS 1
|
||||
BEGIN
|
||||
PROMPT 2 5 "Classe fiscale "
|
||||
FIELD LF_ANAMAG->CLASSEFIS
|
||||
USE %ASF
|
||||
INPUT CODTAB F_CLASSEFIS
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CLASSEFIS CODTAB
|
||||
OUTPUT F_CLASSEFIS1 S0
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 23
|
||||
END
|
||||
|
||||
STRING F_CLASSEFIS1 40
|
||||
BEGIN
|
||||
PROMPT 31 5 ""
|
||||
FLAG "D"
|
||||
END
|
||||
|
||||
STRING F_SCONTO 25
|
||||
BEGIN
|
||||
FIELD LF_ANAMAG->SCONTO
|
||||
PROMPT 2 6 "Sconto "
|
||||
END
|
||||
|
||||
STRING F_CODIVAR 4
|
||||
BEGIN
|
||||
PROMPT 45 6 "Codice IVA ridotta "
|
||||
FIELD LF_ANAMAG->CODIVAR
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODIVAR
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@40" S0
|
||||
OUTPUT F_CODIVAR CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 42 17 "Data penultimo costo "
|
||||
FIELD LF_ANAMAG->DULTCOS2
|
||||
END
|
||||
|
||||
NUMBER F_PROVV 5 2
|
||||
BEGIN
|
||||
FIELD LF_ANAMAG->PERCPROVV
|
||||
PROMPT 2 7 "Provvigione "
|
||||
PROMPT 1 20 "Provvigione "
|
||||
NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100)
|
||||
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
||||
END
|
||||
|
||||
BOOLEAN F_ARTPROD
|
||||
NUMBER F_RICARICO 5 2
|
||||
BEGIN
|
||||
PROMPT 2 8 "Articolo di produzione "
|
||||
FIELD LF_ANAMAG->ARTPROD
|
||||
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1
|
||||
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1
|
||||
FIELD LF_ANAMAG->PERCRIC
|
||||
PROMPT 42 20 "Ricarico/margine "
|
||||
FLAGS "U"
|
||||
// NUM_EXPR #F_RICARICO<=
|
||||
// WARNING "La percentuale di ricarico deve essere compresa ..."
|
||||
END
|
||||
|
||||
NUMBER F_PPCONF 15 5
|
||||
BEGIN
|
||||
PROMPT 2 9 "Pz. per conf. "
|
||||
FIELD LF_ANAMAG->PPCONF
|
||||
END
|
||||
|
||||
NUMBER F_PPCOLLO 15 5
|
||||
BEGIN
|
||||
PROMPT 41 9 "Pz. per collo "
|
||||
FIELD LF_ANAMAG->PPCOLLO
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET1 71 9
|
||||
BEGIN
|
||||
PROMPT 2 11 "Descrizioni in lingua"
|
||||
ITEM "Cod. lingua"
|
||||
ITEM "Descrizione@50"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Pagina 3 " 0 0 70 20
|
||||
|
||||
SPREADSHEET F_SHEET2 71 10
|
||||
|
||||
PAGE "Giacenze" 0 0 70 20
|
||||
|
||||
// Anno relativo alle giacenze
|
||||
NUMBER H_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codici alternativi"
|
||||
ITEM "Cod. art.@20"
|
||||
ITEM "Tipo@10"
|
||||
PROMPT 2 2 ""
|
||||
FLAGS "AHG"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 42 2 "Vai all'anno "
|
||||
FLAGS "AU"
|
||||
NUM_EXPR (#F_ANNO<=#H_ANNO)&&(#F_ANNO>=(#H_ANNO-"10"))
|
||||
WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
|
||||
END
|
||||
|
||||
NUMBER F_ANNORIF 4 // anno usato per il write
|
||||
BEGIN
|
||||
PROMPT 2 2 "Anno considerato "
|
||||
FLAGS "AD"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 4 "Giacenze"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETGIAC 77 5
|
||||
BEGIN
|
||||
PROMPT 2 5 "Giacenze"
|
||||
ITEM "Mag."
|
||||
ITEM "Dep."
|
||||
ITEM "Liv1@10"
|
||||
ITEM "Liv2@6"
|
||||
ITEM "Liv3@6"
|
||||
ITEM "Liv4@6"
|
||||
ITEM "Ubicazione"
|
||||
ITEM "Giacenza @10"
|
||||
ITEM "Rim.Iniz.@10"
|
||||
ITEM "V.Rim.Iniz.@12"
|
||||
ITEM "Acq.@10"
|
||||
ITEM "V.Acq.@12"
|
||||
ITEM "Entr.@10"
|
||||
ITEM "V.Entr.@12"
|
||||
ITEM "Ven.@10"
|
||||
ITEM "V.Ven.@12"
|
||||
ITEM "Uscito@10"
|
||||
ITEM "V.Uscito@12"
|
||||
ITEM "Ord.For.@10"
|
||||
ITEM "V.Ord.For.@12"
|
||||
ITEM "Ord.Cli.@10"
|
||||
ITEM "V.Ord.Cli.@12"
|
||||
ITEM "Scarti@10"
|
||||
ITEM "V.Scarti@12"
|
||||
ITEM "In Prod.Comp.@10"
|
||||
ITEM "In Prod.Fin.@10"
|
||||
ITEM "A conto L.@10"
|
||||
ITEM "In conto L.@10"
|
||||
ITEM "Etichette@10"
|
||||
ITEM "Scorta min.@10"
|
||||
ITEM "Livello rior.@10"
|
||||
ITEM "Lotto rior.@10"
|
||||
// !?!?!Troppe colonne!!!!!
|
||||
// ITEM "Giorni rior.@10"
|
||||
// ITEM "N.dist."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "ve2400a.uml"
|
||||
#include "ve2400b.uml"
|
||||
#include "ve2400c.uml"
|
||||
#include "ve2400b.uml"
|
||||
#include "ve2400a.uml"
|
||||
#include "ve2400d.uml"
|
||||
|
||||
|
||||
|
||||
360
ve/ve2400d.uml
Executable file
360
ve/ve2400d.uml
Executable file
@ -0,0 +1,360 @@
|
||||
TOOLBAR "" 0 20 60 2
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Elimina"
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Giacenze" -1 -1 80 23
|
||||
|
||||
STRING F_CODMAG 3
|
||||
BEGIN
|
||||
PROMPT 2 0 "Magazzino "
|
||||
FLAGS "U"
|
||||
FIELD CODMAG[1,3]
|
||||
USE MAG SELECT CODTAB[4,5]==""
|
||||
INPUT CODTAB F_CODMAG
|
||||
DISPLAY "Codice " CODTAB[1,3]
|
||||
DISPLAY "Denominazione mag.@50 " S0
|
||||
OUTPUT F_CODMAG CODTAB[1,3]
|
||||
OUTPUT F_DESMAG S0
|
||||
OUTPUT H_DESMAG S0
|
||||
OUTPUT H_GESTGIA B0
|
||||
// OUTPUT F_CODDEP CODTAB[4,5]
|
||||
CHECKTYPE REQUIRED
|
||||
|
||||
END
|
||||
|
||||
STRING F_CODDEP 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "Deposito "
|
||||
FLAGS "U"
|
||||
FIELD CODMAG[4,5]
|
||||
USE MAG
|
||||
INPUT CODTAB[1,3] F_CODMAG
|
||||
INPUT CODTAB[4,5] F_CODDEP
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
DISPLAY "Denominazione dep.@50" S0
|
||||
OUTPUT F_CODDEP CODTAB[4,5]
|
||||
OUTPUT F_DESDEP S0
|
||||
OUTPUT F_CODMAG CODTAB[1,3]
|
||||
CHECKTYPE NORMAL
|
||||
STR_EXPR ((#H_GESTGIA=="X")&&(#F_CODDEP!=""))||(#H_GESTGIA!="X")
|
||||
// WARNING "Indicare il deposito"
|
||||
END
|
||||
|
||||
STRING F_DESMAG 50
|
||||
BEGIN
|
||||
PROMPT 22 0 ""
|
||||
USE MAG KEY 2
|
||||
INPUT S0 F_DESMAG
|
||||
DISPLAY "Denominazione mag.@50" S0
|
||||
DISPLAY "Cod. magazzino" CODTAB[1,3]
|
||||
DISPLAY "Cod. deposito" CODTAB[4,5]
|
||||
OUTPUT F_CODMAG CODTAB[1,3]
|
||||
OUTPUT F_CODDEP CODTAB[4,5]
|
||||
// GUIDO!!!!!!!!!!!!!!!!! in che ordine vengono eseguiti gli output
|
||||
// a cascata??? perchè mi ritrovo il coddep cancellato???
|
||||
END
|
||||
|
||||
|
||||
STRING F_DESDEP 50
|
||||
BEGIN
|
||||
PROMPT 22 1 ""
|
||||
FLAGS "H"
|
||||
COPY USE F_DESMAG
|
||||
INPUT S0 F_DESDEP
|
||||
COPY DISPLAY F_DESMAG
|
||||
COPY OUTPUT F_DESMAG
|
||||
// MESSAGE K_TAB,F_CODDEP
|
||||
END
|
||||
|
||||
|
||||
STRING H_DESMAG 50
|
||||
BEGIN
|
||||
PROMPT 22 0 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
//Abilitazione/disabil. dei campi relativi al deposito
|
||||
BOOLEAN H_GESTGIA
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
FLAGS "HG"
|
||||
MESSAGE TRUE ENABLE,F_CODDEP|CHECK,F_CODDEP|SHOW,F_DESDEP|SHOW,H_DESMAG|HIDE,F_DESMAG
|
||||
MESSAGE FALSE RESET,F_CODDEP|RESET,F_DESDEP|DISABLE,F_CODDEP|HIDE,F_DESDEP|HIDE,H_DESMAG|SHOW,F_DESMAG
|
||||
END
|
||||
|
||||
//Livelli giacenza
|
||||
STRING F_LIV1 10
|
||||
BEGIN
|
||||
PROMPT 2 2 "Livello 1 "
|
||||
USE GCG //SELECT CODTAB[1,1]=="1"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "1"
|
||||
INPUT CODTAB[2,11] F_LIV1
|
||||
DISPLAY "Livello@20" 500@->S0
|
||||
DISPLAY "Gruppo@10" CODTAB[2,20]
|
||||
DISPLAY "Descr.@30" S0
|
||||
OUTPUT F_LIV1 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
|
||||
MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4
|
||||
END
|
||||
|
||||
STRING F_LIV2 6
|
||||
BEGIN
|
||||
PROMPT 40 2 "Livello 2 "
|
||||
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
|
||||
USE GCG //SELECT CODTAB[1,1]=="2"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "2"
|
||||
INPUT CODTAB[2,12] F_LIV2
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV2 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4
|
||||
END
|
||||
|
||||
STRING F_LIV3 6
|
||||
BEGIN
|
||||
PROMPT 2 3 "Livello 3 "
|
||||
USE GCG //SELECT CODTAB[1,1]=="3"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "3"
|
||||
INPUT CODTAB[2,12] F_LIV3
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV3 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
MESSAGE EMPTY RESET,F_LIV4
|
||||
END
|
||||
|
||||
STRING F_LIV4 6
|
||||
BEGIN
|
||||
PROMPT 40 3 "Livello 4 "
|
||||
USE GCG //SELECT CODTAB[1,1]=="4"
|
||||
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||
INPUT CODTAB[1,1] "4"
|
||||
INPUT CODTAB[2,12] F_LIV4
|
||||
COPY DISPLAY F_LIV1
|
||||
OUTPUT F_LIV4 CODTAB[2,12]
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
// ubicazione introdotta da tabella ubicazioni
|
||||
STRING F_UBICAZ 10
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ubicazione "
|
||||
FIELD UBICAZ
|
||||
USE UBI
|
||||
INPUT CODTAB F_UBICAZ
|
||||
DISPLAY "Codice" CODTAB[1,3]
|
||||
DISPLAY "Ubicazione@50 " S0
|
||||
OUTPUT F_UBICAZ CODTAB
|
||||
OUTPUT F_UBICAZD S0
|
||||
CHECKTYPE NORMAL
|
||||
STR_EXPR (#F_UBICAZ?="???")
|
||||
END
|
||||
|
||||
// ubicazione introdotta direttamente o da tabella
|
||||
STRING F_UBICAZ2 10
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ubicazione "
|
||||
FIELD UBICAZ
|
||||
END
|
||||
|
||||
STRING F_UBICAZD 20
|
||||
BEGIN
|
||||
PROMPT 22 4 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_SCORTAMIN 10 3
|
||||
BEGIN
|
||||
PROMPT 50 4 "Scorta minima "
|
||||
FIELD SCORTAMIN
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_LIVRIOR 15 3
|
||||
BEGIN
|
||||
PROMPT 2 5 "Riordino: Livello "
|
||||
FIELD LIVRIOR
|
||||
END
|
||||
|
||||
NUMBER F_LOTTORIOR 10 3
|
||||
BEGIN
|
||||
PROMPT 40 5 "Lotto minimo "
|
||||
FLAGS "U"
|
||||
FIELD LOTTORIOR
|
||||
END
|
||||
|
||||
NUMBER F_GIORNIRIOR 2
|
||||
BEGIN
|
||||
PROMPT 66 5 "Giorni "
|
||||
FLAGS "U"
|
||||
FIELD GIORNIRIOR
|
||||
END
|
||||
|
||||
NUMBER F_GIAC 15 5
|
||||
BEGIN
|
||||
PROMPT 2 6 "Giacenza attuale "
|
||||
FIELD GIAC
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_RIM 15 5
|
||||
BEGIN
|
||||
PROMPT 2 7 "Rimanenze iniziali "
|
||||
FIELD RIM
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_VRIM 18 3
|
||||
BEGIN
|
||||
PROMPT 46 7 "Valore "
|
||||
FIELD VALRIM
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_ACQ 15 5
|
||||
BEGIN
|
||||
PROMPT 2 8 "Acquistato "
|
||||
FIELD ACQ
|
||||
END
|
||||
|
||||
NUMBER F_VACQ 18 3
|
||||
BEGIN
|
||||
PROMPT 46 8 "Valore "
|
||||
FIELD VALACQ
|
||||
END
|
||||
|
||||
NUMBER F_ENTR 15 5
|
||||
BEGIN
|
||||
PROMPT 2 9 "Entrato "
|
||||
FIELD ENT
|
||||
END
|
||||
|
||||
NUMBER F_VENTR 18 3
|
||||
BEGIN
|
||||
PROMPT 46 9 "Valore "
|
||||
FIELD VALENT
|
||||
END
|
||||
|
||||
NUMBER F_VEN 15 5
|
||||
BEGIN
|
||||
PROMPT 2 10 "Venduto "
|
||||
FIELD VEN
|
||||
END
|
||||
|
||||
NUMBER F_VVEN 18 3
|
||||
BEGIN
|
||||
PROMPT 46 10 "Valore "
|
||||
FIELD VALVEN
|
||||
END
|
||||
|
||||
NUMBER F_USC 15 5
|
||||
BEGIN
|
||||
PROMPT 2 11 "Uscito "
|
||||
FIELD USC
|
||||
END
|
||||
|
||||
NUMBER F_VUSC 18 3
|
||||
BEGIN
|
||||
PROMPT 46 11 "Valore "
|
||||
FIELD VALUSC
|
||||
END
|
||||
|
||||
NUMBER F_ORDF 15 5
|
||||
BEGIN
|
||||
PROMPT 2 12 "Ordinato fornitori "
|
||||
FIELD ORDF
|
||||
END
|
||||
|
||||
NUMBER F_VORDF 18 3
|
||||
BEGIN
|
||||
PROMPT 46 12 "Valore "
|
||||
FIELD VALORDF
|
||||
END
|
||||
|
||||
NUMBER F_ORDC 15 5
|
||||
BEGIN
|
||||
PROMPT 2 13 "Ordinato clienti "
|
||||
FIELD ORDC
|
||||
END
|
||||
|
||||
NUMBER F_VORDC 18 3
|
||||
BEGIN
|
||||
PROMPT 46 13 "Valore "
|
||||
FIELD VALORDC
|
||||
END
|
||||
|
||||
NUMBER F_SCARTI 15 5
|
||||
BEGIN
|
||||
PROMPT 2 14 "Scarti "
|
||||
FIELD SCARTI
|
||||
END
|
||||
|
||||
NUMBER F_VSCARTI 18 3
|
||||
BEGIN
|
||||
PROMPT 46 14 "Valore "
|
||||
FIELD VALSCARTI
|
||||
END
|
||||
|
||||
NUMBER F_INPRODC 15 5
|
||||
BEGIN
|
||||
PROMPT 2 15 "In produzione (componenti) "
|
||||
FIELD PRODCOMP
|
||||
END
|
||||
|
||||
NUMBER F_INPRODF 15 5
|
||||
BEGIN
|
||||
PROMPT 2 16 "In produzione (finiti) "
|
||||
FIELD PRODFIN
|
||||
END
|
||||
|
||||
NUMBER F_ACL 15 5
|
||||
BEGIN
|
||||
PROMPT 2 17 "A conto lavorazione "
|
||||
FIELD ACL
|
||||
END
|
||||
|
||||
NUMBER F_INCL 15 5
|
||||
BEGIN
|
||||
PROMPT 2 18 "In conto lavorazione "
|
||||
FIELD INCL
|
||||
END
|
||||
|
||||
NUMBER F_LABELS 10
|
||||
BEGIN
|
||||
PROMPT 2 19 "Etichette da stampare "
|
||||
FIELD NLABEL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NDIST 10
|
||||
BEGIN
|
||||
PROMPT 42 19 "Distinte "
|
||||
FIELD NDIST
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user