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
|
USE LF_COMUNI
|
||||||
INPUT STATO ""
|
INPUT STATO ""
|
||||||
INPUT COM F_COM
|
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_COM COM
|
||||||
OUTPUT F_LOC DENCOM
|
OUTPUT F_LOC DENCOM
|
||||||
OUTPUT F_PROV PROVCOM
|
OUTPUT F_PROV PROVCOM
|
||||||
@ -221,6 +226,7 @@ BEGIN
|
|||||||
PROMPT 6 14 "Comune "
|
PROMPT 6 14 "Comune "
|
||||||
USE LF_COMUNI KEY 2
|
USE LF_COMUNI KEY 2
|
||||||
INPUT DENCOM F_LOC
|
INPUT DENCOM F_LOC
|
||||||
|
COPY DISPLAY F_COM
|
||||||
COPY OUTPUT F_COM
|
COPY OUTPUT F_COM
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|||||||
@ -14,7 +14,7 @@ GROUPBOX DLG_NULL 78 7
|
|||||||
|
|
||||||
STRING FLD_TABRFA_CODTAB 5
|
STRING FLD_TABRFA_CODTAB 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Codice "
|
PROMPT 2 2 "Codice "
|
||||||
FIELD CODTAB
|
FIELD CODTAB
|
||||||
USE RFA
|
USE RFA
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
@ -28,22 +28,22 @@ STRING FLD_TABRFA_CODTAB 5
|
|||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_S0 50
|
STRING FLD_TABRFA_S0 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Descrizione "
|
PROMPT 2 4 "Descrizione "
|
||||||
FIELD S0
|
FIELD S0
|
||||||
USE RFA KEY 2
|
KEY 2
|
||||||
CHECKTYPE REQUIRED
|
USE RFA KEY 2
|
||||||
WARNING "Manca la descrizione"
|
INPUT S0 FLD_TABRFA_S0
|
||||||
INPUT S0 FLD_TABRFA_S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Codice" CODTAB
|
COPY OUTPUT FLD_TABRFA_CODTAB
|
||||||
COPY OUTPUT FLD_TABRFA_CODTAB
|
CHECKTYPE REQUIRED
|
||||||
KEY 2
|
WARNING "Manca la descrizione"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_S7 2
|
STRING FLD_TABRFA_S7 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Unita' di misura"
|
PROMPT 2 8 "Unita' di misura "
|
||||||
FIELD S7
|
FIELD S7
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
USE %UMS
|
USE %UMS
|
||||||
@ -51,12 +51,14 @@ STRING FLD_TABRFA_S7 2
|
|||||||
DISPLAY "U.M. " CODTAB
|
DISPLAY "U.M. " CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT FLD_TABRFA_S7 CODTAB
|
OUTPUT FLD_TABRFA_S7 CODTAB
|
||||||
|
CHECKTYPE NORMAL
|
||||||
WARNING "Unita' di misura errata"
|
WARNING "Unita' di misura errata"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_S8 2
|
STRING FLD_TABRFA_S8 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 9 "Classe fiscale "
|
PROMPT 2 9 "Classe fiscale "
|
||||||
|
FLAGS "U"
|
||||||
FIELD S8
|
FIELD S8
|
||||||
USE ASF
|
USE ASF
|
||||||
INPUT CODTAB FLD_TABRFA_S8
|
INPUT CODTAB FLD_TABRFA_S8
|
||||||
@ -74,14 +76,13 @@ STRING FLD_DESCFA 50
|
|||||||
INPUT S0 FLD_DESCFA
|
INPUT S0 FLD_DESCFA
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Cl. Fisc." CODTAB
|
DISPLAY "Cl. Fisc." CODTAB
|
||||||
OUTPUT FLD_TABRFA_S8 CODTAB
|
COPY OUTPUT FLD_TABRFA_S8
|
||||||
OUTPUT FLD_DESCFA S0
|
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_TABRFA_S9 4
|
STRING FLD_TABRFA_S9 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Cod.IVA "
|
PROMPT 2 10 "Cod.IVA "
|
||||||
FIELD S9
|
FIELD S9
|
||||||
USE %IVA
|
USE %IVA
|
||||||
INPUT CODTAB FLD_TABRFA_S9
|
INPUT CODTAB FLD_TABRFA_S9
|
||||||
@ -106,13 +107,13 @@ STRING FLD_DESIVA 50
|
|||||||
|
|
||||||
NUMBER FLD_TABRFA_R0 6 2
|
NUMBER FLD_TABRFA_R0 6 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 11 "% ricarico medio"
|
PROMPT 2 11 "% ricarico medio "
|
||||||
FIELD R0
|
FIELD R0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_TABRFA_R1 12 2
|
NUMBER FLD_TABRFA_R1 12 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 12 "Costo minimo "
|
PROMPT 2 12 "Costo minimo "
|
||||||
FIELD R1
|
FIELD R1
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -124,7 +125,7 @@ NUMBER FLD_TABRFA_R2 12 2
|
|||||||
|
|
||||||
LIST FLD_TABRFA_I0 1 30
|
LIST FLD_TABRFA_I0 1 30
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 13 "Tipo costo "
|
PROMPT 2 13 "Tipo costo "
|
||||||
FIELD S6
|
FIELD S6
|
||||||
HELP "Inserire il tipo di costo"
|
HELP "Inserire il tipo di costo"
|
||||||
ITEM "1|Costo medio annuale"
|
ITEM "1|Costo medio annuale"
|
||||||
@ -138,14 +139,14 @@ LIST FLD_TABRFA_I0 1 30
|
|||||||
|
|
||||||
NUMBER F_GRUPPOV 3
|
NUMBER F_GRUPPOV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 14 "Conto di vendita"
|
PROMPT 2 14 "Conto di vendita "
|
||||||
FIELD I3
|
FIELD I3
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CONTOV 3
|
NUMBER F_CONTOV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 14 ""
|
PROMPT 25 14 ""
|
||||||
FIELD I4
|
FIELD I4
|
||||||
USE LF_PCON SELECT INDBIL=="4"
|
USE LF_PCON SELECT INDBIL=="4"
|
||||||
INPUT GRUPPO F_GRUPPOV
|
INPUT GRUPPO F_GRUPPOV
|
||||||
@ -162,7 +163,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_SOTTOCV 6
|
NUMBER F_SOTTOCV 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 31 14 ""
|
PROMPT 33 14 ""
|
||||||
FIELD I5
|
FIELD I5
|
||||||
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||||
@ -184,7 +185,7 @@ END
|
|||||||
|
|
||||||
STRING F_DESCRV 50
|
STRING F_DESCRV 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 18 15 ""
|
PROMPT 19 15 ""
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4")
|
||||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||||
@ -201,13 +202,13 @@ END
|
|||||||
|
|
||||||
NUMBER F_GRUPPOA 3
|
NUMBER F_GRUPPOA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 16 "Conto d'acquisto"
|
PROMPT 2 16 "Conto d'acquisto "
|
||||||
FIELD I0
|
FIELD I0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CONTOA 3
|
NUMBER F_CONTOA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 16 ""
|
PROMPT 25 16 ""
|
||||||
FIELD I1
|
FIELD I1
|
||||||
USE LF_PCON SELECT INDBIL=="3"
|
USE LF_PCON SELECT INDBIL=="3"
|
||||||
INPUT GRUPPO F_GRUPPOA
|
INPUT GRUPPO F_GRUPPOA
|
||||||
@ -224,7 +225,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_SOTTOCA 6
|
NUMBER F_SOTTOCA 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 31 16 ""
|
PROMPT 33 16 ""
|
||||||
FIELD I2
|
FIELD I2
|
||||||
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
||||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||||
@ -246,7 +247,7 @@ END
|
|||||||
|
|
||||||
STRING F_DESCRA 50
|
STRING F_DESCRA 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 18 17 ""
|
PROMPT 19 17 ""
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3")
|
||||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||||
|
|||||||
@ -12,7 +12,7 @@ BEGIN
|
|||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODICE 10
|
STRING F_CODICE 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Cod. Ubicazione "
|
PROMPT 2 2 "Cod. Ubicazione "
|
||||||
FIELD UBI->CODTAB
|
FIELD UBI->CODTAB
|
||||||
@ -60,6 +60,7 @@ BEGIN
|
|||||||
OUTPUT F_FILA S8
|
OUTPUT F_FILA S8
|
||||||
OUTPUT F_SCAFFALE S9
|
OUTPUT F_SCAFFALE S9
|
||||||
OUTPUT F_PSCAFFALE S5
|
OUTPUT F_PSCAFFALE S5
|
||||||
|
WARNING "Necessaria la descrizione"
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|||||||
578
ve/ve2400.uml
578
ve/ve2400.uml
@ -5,9 +5,9 @@ TOOLBAR "" 0 20 60 2
|
|||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
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
|
BEGIN
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
//FLAG "R"
|
//FLAG "R"
|
||||||
@ -28,16 +28,10 @@ BEGIN
|
|||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
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
|
STRING F_DESCR 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Descrizione "
|
PROMPT 2 2 "Descrizione "
|
||||||
FIELD LF_ANAMAG->DESCR
|
FIELD LF_ANAMAG->DESCR
|
||||||
KEY 2
|
KEY 2
|
||||||
USE LF_ANAMAG KEY 2
|
USE LF_ANAMAG KEY 2
|
||||||
@ -49,9 +43,85 @@ BEGIN
|
|||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
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
|
STRING F_GRMERC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 5 "Gr. merc. "
|
PROMPT 1 2 "Gr. merc. "
|
||||||
FIELD LF_ANAMAG->GRMERC[1,3]
|
FIELD LF_ANAMAG->GRMERC[1,3]
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
@ -61,12 +131,15 @@ BEGIN
|
|||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_GRMERC CODTAB[1,3]
|
OUTPUT F_GRMERC CODTAB[1,3]
|
||||||
OUTPUT F_GRMERCD1 S0
|
OUTPUT F_GRMERCD1 S0
|
||||||
|
OUTPUT H_GRMERCD1 S0
|
||||||
|
|
||||||
|
OUTPUT F_GRMERCB CODTAB[4,5]
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_GRMERCD1 50
|
STRING F_GRMERCD1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 5 ""
|
PROMPT 23 2 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE GMC KEY 2 SELECT CODTAB ?= "???"
|
USE GMC KEY 2 SELECT CODTAB ?= "???"
|
||||||
INPUT S0 F_GRMERCD1
|
INPUT S0 F_GRMERCD1
|
||||||
@ -77,13 +150,20 @@ BEGIN
|
|||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRING H_GRMERCD1 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 23 2 ""
|
||||||
|
GROUP 1
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
STRING F_GRMERCB 2
|
STRING F_GRMERCB 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 6 "Sott. merc. "
|
PROMPT 1 3 "Sott. merc. "
|
||||||
FIELD LF_ANAMAG->GRMERC[4,5]
|
FIELD LF_ANAMAG->GRMERC[4,5]
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FLAG "U"
|
FLAG "U"
|
||||||
USE GMC SELECT CODTAB[4,5] != ""
|
USE GMC //SELECT CODTAB[4,5] != ""
|
||||||
INPUT CODTAB[1,3] F_GRMERC
|
INPUT CODTAB[1,3] F_GRMERC
|
||||||
INPUT CODTAB[4,5] F_GRMERCB
|
INPUT CODTAB[4,5] F_GRMERCB
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
@ -91,26 +171,29 @@ BEGIN
|
|||||||
OUTPUT F_GRMERC CODTAB[1,3]
|
OUTPUT F_GRMERC CODTAB[1,3]
|
||||||
OUTPUT F_GRMERCB CODTAB[4,5]
|
OUTPUT F_GRMERCB CODTAB[4,5]
|
||||||
OUTPUT F_GRMERCD2 S0
|
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
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_GRMERCD2 50
|
STRING F_GRMERCD2 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 6 ""
|
PROMPT 23 3 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
||||||
INPUT S0 F_GRMERCD2
|
INPUT S0 F_GRMERCD2
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_GRMERC CODTAB[1,3]
|
COPY OUTPUT F_GRMERCB
|
||||||
OUTPUT F_GRMERCB CODTAB[4,5]
|
// OUTPUT F_GRMERC CODTAB[1,3]
|
||||||
OUTPUT F_GRMERCD2 S0
|
// OUTPUT F_GRMERCB CODTAB[4,5]
|
||||||
|
// OUTPUT F_GRMERCD2 S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODIVA 4
|
STRING F_CODIVA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Codice IVA "
|
PROMPT 1 5 "Codice IVA "
|
||||||
FIELD LF_ANAMAG->CODIVA
|
FIELD LF_ANAMAG->CODIVA
|
||||||
USE %IVA
|
USE %IVA
|
||||||
INPUT CODTAB F_CODIVA
|
INPUT CODTAB F_CODIVA
|
||||||
@ -123,7 +206,7 @@ END
|
|||||||
|
|
||||||
STRING F_CODIVA1 50
|
STRING F_CODIVA1 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 7 ""
|
PROMPT 23 5 ""
|
||||||
USE %IVA KEY 2
|
USE %IVA KEY 2
|
||||||
INPUT S0 F_CODIVA1
|
INPUT S0 F_CODIVA1
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
@ -132,22 +215,29 @@ BEGIN
|
|||||||
OUTPUT F_CODIVA1 S0
|
OUTPUT F_CODIVA1 S0
|
||||||
END
|
END
|
||||||
|
|
||||||
SPREADSHEET F_SHEET0 77 5
|
STRING F_SCONTO 25
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 8 "Unità di misura"
|
FIELD LF_ANAMAG->SCONTO
|
||||||
ITEM "U.M."
|
PROMPT 1 6 "Sconto "
|
||||||
ITEM "F. conversione"
|
END
|
||||||
ITEM "Prezzo netto@18"
|
|
||||||
ITEM "Prezzo lordo@18"
|
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
|
END
|
||||||
|
|
||||||
STRING F_CATCONA 3
|
STRING F_CATCONA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 14 "Categoria conto acquisti "
|
PROMPT 1 8 "Categoria conto acquisti "
|
||||||
FIELD LF_ANAMAG->CATCONA
|
FIELD LF_ANAMAG->CATCONA
|
||||||
GROUP 11
|
GROUP 11
|
||||||
MESSAGE CLEAR,12@
|
|
||||||
MESSAGE EMPTY ENABLE,12@
|
|
||||||
FLAG "UZ"
|
FLAG "UZ"
|
||||||
USE CAA
|
USE CAA
|
||||||
INPUT CODTAB F_CATCONA
|
INPUT CODTAB F_CATCONA
|
||||||
@ -159,11 +249,13 @@ BEGIN
|
|||||||
OUTPUT F_CATCONA CODTAB
|
OUTPUT F_CATCONA CODTAB
|
||||||
OUTPUT F_CATCONA1 S0
|
OUTPUT F_CATCONA1 S0
|
||||||
CHEKTYPE NORMAL
|
CHEKTYPE NORMAL
|
||||||
|
// MESSAGE CLEAR,12@
|
||||||
|
// MESSAGE EMPTY ENABLE,12@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATCONA1 40
|
STRING F_CATCONA1 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 36 14 ""
|
PROMPT 36 8 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
GROUP 11
|
GROUP 11
|
||||||
USE CAA KEY 2
|
USE CAA KEY 2
|
||||||
@ -178,26 +270,26 @@ END
|
|||||||
|
|
||||||
NUMBER F_GRUPPOA 3
|
NUMBER F_GRUPPOA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 15 "Conto d'acquisto "
|
PROMPT 1 9 "Conto d'acquisto "
|
||||||
FIELD LF_ANAMAG->GRUPPOA
|
FIELD LF_ANAMAG->GRUPPOA
|
||||||
GROUP 12
|
GROUP 12
|
||||||
MESSAGE CLEAR,11@
|
// MESSAGE CLEAR,11@
|
||||||
MESSAGE EMPTY ENABLE,11@
|
// MESSAGE EMPTY ENABLE,11@
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CONTOA 3
|
NUMBER F_CONTOA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 22 15 ""
|
PROMPT 22 9 ""
|
||||||
FIELD LF_ANAMAG->CONTOA
|
FIELD LF_ANAMAG->CONTOA
|
||||||
GROUP 12
|
GROUP 12
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_SOTTOCA 6
|
NUMBER F_SOTTOCA 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 26 15 ""
|
PROMPT 26 9 ""
|
||||||
FIELD LF_ANAMAG->SOTTOCA
|
FIELD LF_ANAMAG->SOTTOCA
|
||||||
GROUP 12
|
GROUP 12
|
||||||
USE LF_PCON
|
USE LF_PCON SELECT INDBIL=="3"
|
||||||
INPUT GRUPPO F_GRUPPOA
|
INPUT GRUPPO F_GRUPPOA
|
||||||
INPUT CONTO F_CONTOA
|
INPUT CONTO F_CONTOA
|
||||||
INPUT SOTTOCONTO F_SOTTOCA
|
INPUT SOTTOCONTO F_SOTTOCA
|
||||||
@ -210,31 +302,29 @@ BEGIN
|
|||||||
OUTPUT F_SOTTOCA SOTTOCONTO
|
OUTPUT F_SOTTOCA SOTTOCONTO
|
||||||
OUTPUT F_DESCRA DESCR
|
OUTPUT F_DESCRA DESCR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Il conto deve essere un costo"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCRA 40
|
STRING F_DESCRA 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 36 15 ""
|
PROMPT 36 9 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
GROUP 12
|
GROUP 12
|
||||||
USE LF_PCON KEY 2
|
USE LF_PCON KEY 2 SELECT INDBIL=="3"
|
||||||
INPUT DESCR F_DESCRA
|
INPUT DESCR F_DESCRA
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
COPY OUTPUT F_SOTTOCA
|
COPY OUTPUT F_SOTTOCA
|
||||||
|
WARNING "Il conto deve essere un costo"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
STRING F_CATCONV 3
|
STRING F_CATCONV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 16 "Categoria conto vendite "
|
PROMPT 1 10 "Categoria conto vendite "
|
||||||
FIELD LF_ANAMAG->CATCONV
|
FIELD LF_ANAMAG->CATCONV
|
||||||
GROUP 21
|
GROUP 21
|
||||||
MESSAGE CLEAR,22@
|
|
||||||
MESSAGE EMPTY ENABLE,22@
|
|
||||||
FLAG "UZ"
|
FLAG "UZ"
|
||||||
USE CRA
|
USE CRA
|
||||||
INPUT CODTAB F_CATCONV
|
INPUT CODTAB F_CATCONV
|
||||||
@ -246,11 +336,13 @@ BEGIN
|
|||||||
OUTPUT F_CATCONV CODTAB
|
OUTPUT F_CATCONV CODTAB
|
||||||
OUTPUT F_CATCONV1 S0
|
OUTPUT F_CATCONV1 S0
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
|
// MESSAGE CLEAR,22@
|
||||||
|
// MESSAGE EMPTY ENABLE,22@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATCONV1 40
|
STRING F_CATCONV1 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 36 16 ""
|
PROMPT 36 10 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
GROUP 21
|
GROUP 21
|
||||||
USE CRA KEY 2
|
USE CRA KEY 2
|
||||||
@ -265,26 +357,26 @@ END
|
|||||||
|
|
||||||
NUMBER F_GRUPPOV 3
|
NUMBER F_GRUPPOV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 17 "Conto di vendita "
|
PROMPT 1 11 "Conto di vendita "
|
||||||
FIELD LF_ANAMAG->GRUPPOV
|
FIELD LF_ANAMAG->GRUPPOV
|
||||||
GROUP 22
|
GROUP 22
|
||||||
MESSAGE CLEAR,21@
|
// MESSAGE CLEAR,21@
|
||||||
MESSAGE EMPTY ENABLE,21@
|
// MESSAGE EMPTY ENABLE,21@
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CONTOV 3
|
NUMBER F_CONTOV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 22 17 ""
|
PROMPT 22 11 ""
|
||||||
FIELD LF_ANAMAG->CONTOV
|
FIELD LF_ANAMAG->CONTOV
|
||||||
GROUP 22
|
GROUP 22
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_SOTTOCV 6
|
NUMBER F_SOTTOCV 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 26 17 ""
|
PROMPT 26 11 ""
|
||||||
FIELD LF_ANAMAG->SOTTOCV
|
FIELD LF_ANAMAG->SOTTOCV
|
||||||
GROUP 22
|
GROUP 22
|
||||||
USE LF_PCON
|
USE LF_PCON SELECT INDBIL=="4"
|
||||||
INPUT GRUPPO F_GRUPPOV
|
INPUT GRUPPO F_GRUPPOV
|
||||||
INPUT CONTO F_CONTOV
|
INPUT CONTO F_CONTOV
|
||||||
INPUT SOTTOCONTO F_SOTTOCV
|
INPUT SOTTOCONTO F_SOTTOCV
|
||||||
@ -297,54 +389,89 @@ BEGIN
|
|||||||
OUTPUT F_SOTTOCV SOTTOCONTO
|
OUTPUT F_SOTTOCV SOTTOCONTO
|
||||||
OUTPUT F_DESCRV DESCR
|
OUTPUT F_DESCRV DESCR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
|
WARNING "Il conto deve essere un ricavo"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCRV 40
|
STRING F_DESCRV 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 36 17 ""
|
PROMPT 36 11 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
GROUP 22
|
GROUP 22
|
||||||
USE LF_PCON KEY 2
|
USE LF_PCON KEY 2 SELECT INDBIL=="4"
|
||||||
INPUT DESCR F_DESCRV
|
INPUT DESCR F_DESCRV
|
||||||
DISPLAY "Descrizione@50" DESCR
|
DISPLAY "Descrizione@50" DESCR
|
||||||
DISPLAY "Gruppo" GRUPPO
|
DISPLAY "Gruppo" GRUPPO
|
||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
COPY OUTPUT F_SOTTOCV
|
COPY OUTPUT F_SOTTOCV
|
||||||
|
WARNING "Il conto deve essere un ricavo"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_UMP 3
|
BOOLEAN F_ARTFIS
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 18 "U.M. peso "
|
PROMPT 1 13 "Articolo fiscale"
|
||||||
FIELD LF_ANAMAG->UMP
|
FIELD LF_ANAMAG->ARTFIS
|
||||||
FLAG "U"
|
MESSAGE TRUE ENABLE,23@
|
||||||
USE %UMS
|
MESSAGE FALSE DISABLE,23@
|
||||||
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
|
END
|
||||||
|
|
||||||
NUMBER F_PESO 15 5
|
STRING F_RAGGFIS 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 18 "Peso "
|
PROMPT 1 14 "Raggrupp. fiscale "
|
||||||
FIELD LF_ANAMAG->PESO
|
FIELD LF_ANAMAG->RAGGFIS
|
||||||
VALIDATE REQIF_FUNC 1 F_TARA
|
FLAGS "U"
|
||||||
WARNING "Necessario introdurre il peso se si è introdotta la tara"
|
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
|
END
|
||||||
|
|
||||||
NUMBER F_TARA 15 5
|
STRING F_RAGGFIS1 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 19 "Tara "
|
PROMPT 31 14 ""
|
||||||
FIELD LF_ANAMAG->TARA
|
FLAG "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
STRING H_CLASSEFIS 2
|
||||||
|
BEGIN
|
||||||
|
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
|
STRING F_CLASSDOG 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 20 "Classe doganale "
|
PROMPT 1 17 "Classe doganale "
|
||||||
FIELD LF_ANAMAG->CLASSDOG
|
FIELD LF_ANAMAG->CLASSDOG
|
||||||
FLAG "UZ"
|
FLAG "UZ"
|
||||||
USE %CLD
|
USE %CLD
|
||||||
@ -358,14 +485,111 @@ END
|
|||||||
|
|
||||||
STRING F_CLASSDOG1 40
|
STRING F_CLASSDOG1 40
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 36 20 ""
|
PROMPT 36 17 ""
|
||||||
FLAG "D"
|
FLAG "D"
|
||||||
END
|
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
|
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
|
LISTBOX F_TIPOCF 20
|
||||||
BEGIN
|
BEGIN
|
||||||
@ -374,157 +598,133 @@ BEGIN
|
|||||||
ITEM "F|Fornitore"
|
ITEM "F|Fornitore"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODFORN 6
|
NUMBER F_COSTSTD 15 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Codice fornitore "
|
PROMPT 1 15 "Costo standard "
|
||||||
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 "
|
|
||||||
FIELD LF_ANAMAG->COSTSTD
|
FIELD LF_ANAMAG->COSTSTD
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODFORN1 50
|
NUMBER F_ULC1 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ragione sociale "
|
PROMPT 1 16 "Ultimo costo "
|
||||||
USE LF_CLIFO KEY 2
|
FIELD LF_ANAMAG->ULTCOS1
|
||||||
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
|
END
|
||||||
|
|
||||||
BOOLEAN F_ARTFIS
|
DATE F_DATAULC1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Articolo fiscale"
|
PROMPT 42 16 "Data ultimo costo "
|
||||||
FIELD LF_ANAMAG->ARTFIS
|
FIELD LF_ANAMAG->DULTCOS1
|
||||||
MESSAGE TRUE ENABLE,23@
|
|
||||||
MESSAGE FALSE DISABLE,23@
|
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGGFIS 5
|
NUMBER F_ULC2 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Raggrupp. fiscale "
|
PROMPT 1 17 "Penultimo costo "
|
||||||
FIELD LF_ANAMAG->RAGGFIS
|
FIELD LF_ANAMAG->ULTCOS2
|
||||||
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
|
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGGFIS1 40
|
DATE F_DATAULC2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 31 4 ""
|
PROMPT 42 17 "Data penultimo costo "
|
||||||
FLAG "D"
|
FIELD LF_ANAMAG->DULTCOS2
|
||||||
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
|
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PROVV 5 2
|
NUMBER F_PROVV 5 2
|
||||||
BEGIN
|
BEGIN
|
||||||
FIELD LF_ANAMAG->PERCPROVV
|
FIELD LF_ANAMAG->PERCPROVV
|
||||||
PROMPT 2 7 "Provvigione "
|
PROMPT 1 20 "Provvigione "
|
||||||
NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100)
|
NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100)
|
||||||
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ARTPROD
|
NUMBER F_RICARICO 5 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Articolo di produzione "
|
FIELD LF_ANAMAG->PERCRIC
|
||||||
FIELD LF_ANAMAG->ARTPROD
|
PROMPT 42 20 "Ricarico/margine "
|
||||||
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1
|
FLAGS "U"
|
||||||
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1
|
// NUM_EXPR #F_RICARICO<=
|
||||||
|
// WARNING "La percentuale di ricarico deve essere compresa ..."
|
||||||
END
|
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
|
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
|
BEGIN
|
||||||
PROMPT 2 2 "Codici alternativi"
|
PROMPT 2 2 ""
|
||||||
ITEM "Cod. art.@20"
|
FLAGS "AHG"
|
||||||
ITEM "Tipo@10"
|
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
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
#include "ve2400a.uml"
|
|
||||||
#include "ve2400b.uml"
|
|
||||||
#include "ve2400c.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