1661 lines
28 KiB
Plaintext
Executable File
1661 lines
28 KiB
Plaintext
Executable File
#include "ve2400.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Codici" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
|
|
STRING F_CODART 20
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
FIELD LF_ANAMAG->CODART
|
|
KEY 1
|
|
FLAG "UG"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_CODART
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CODART CODART
|
|
OUTPUT F_DESCR DESCR
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,G_CODART@
|
|
MESSAGE COPY,F_SEARCHLAV|CHECK,F_SEARCHLAV
|
|
END
|
|
|
|
STRING F_SEARCHLAV 20
|
|
BEGIN
|
|
FLAGS "HG"
|
|
PROMPT 40 1 ""
|
|
USE LAV
|
|
INPUT CODTAB F_SEARCHLAV
|
|
DISPLAY "CODICE@20" CODTAB
|
|
OUTPUT F_CODICELAV CODTAB
|
|
MESSAGE CHECK,F_CODICELAV
|
|
MESSAGE EMPTY RESET,F_CODICELAV
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_CODICELAV 20
|
|
BEGIN
|
|
FLAGS "HG"
|
|
PROMPT 62 1 ""
|
|
STR_EXPR #F_CODICELAV==""
|
|
MESSAGE RESET,F_CODICELAV
|
|
WARNING "Il codice è già utilizzato per le lavorazioni"
|
|
END
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 24 2 ""
|
|
FIELD LF_ANAMAG->DESCR
|
|
KEY 2
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR F_DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_CODART CODART
|
|
OUTPUT F_DESCR DESCR
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,G_DESART@
|
|
END
|
|
|
|
BUTTON F_COPY 7 1
|
|
BEGIN
|
|
PROMPT 68 1 "~Copia"
|
|
FLAGS "H"
|
|
END
|
|
|
|
ZOOM F_DESCRAGG 50
|
|
BEGIN
|
|
PROMPT 1 4 "Descrizione aggiuntiva "
|
|
FIELD LF_ANAMAG->DESCRAGG
|
|
END
|
|
|
|
STRING F_ARTALT 20
|
|
BEGIN
|
|
PROMPT 1 5 "Articolo alternativo "
|
|
FIELD LF_ANAMAG->CODARTALT
|
|
FLAG "U"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_ARTALT
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ARTALT CODART
|
|
OUTPUT F_DESCRALT DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCRALT 50
|
|
BEGIN
|
|
PROMPT 1 6 "Descrizione art.alt. "
|
|
FLAG "U"
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR F_DESCRALT
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT F_ARTALT
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_PRESIDIO 20
|
|
BEGIN
|
|
PROMPT 1 7 "Codice presidio m.s. "
|
|
FIELD LF_ANAMAG->COD_PMS
|
|
FLAG "U"
|
|
END
|
|
|
|
BOOLEAN F_SOSPESO
|
|
BEGIN
|
|
PROMPT 50 7 "Sospeso"
|
|
FIELD SOSPESO
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 50 8 "Collegamenti esterni "
|
|
END
|
|
|
|
GOLEM F_GOLEM 4 2
|
|
BEGIN
|
|
PROMPT 70 7 ""
|
|
FLAGS "M"
|
|
FIELD LF_ANAMAG->GOLEM
|
|
END
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 8 "@bCodici corrispondenti"
|
|
END
|
|
|
|
SPREADSHEET F_SHEETCOD 71 4
|
|
BEGIN
|
|
PROMPT 1 9 "Codici corrispondenti"
|
|
FLAGS "A"
|
|
USE LF_CODCORR KEY NRIGA
|
|
INPUT CODART F_CODART
|
|
ITEM "Articolo@20"
|
|
ITEM "Tipo@10"
|
|
ITEM "U.M."
|
|
ITEM "Liv1@10"
|
|
ITEM "Liv2@6"
|
|
ITEM "Liv3@6"
|
|
ITEM "Liv4@6"
|
|
ITEM "Tipo C/F"
|
|
ITEM "Codice C/F"
|
|
ITEM "Ragiore Sociale@50"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 14 "@bDescrizioni in lingua"
|
|
END
|
|
|
|
SPREADSHEET F_SHEETDESLIN 71
|
|
BEGIN
|
|
PROMPT 1 15 "Descrizioni in lingua"
|
|
FLAGS "A"
|
|
USE LF_DESLIN KEY NRIGA
|
|
INPUT CODART F_CODART
|
|
ITEM "Cod. lingua"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Classi" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 ""
|
|
GROUP G_CODART
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 25 1 ""
|
|
GROUP G_DESART
|
|
END
|
|
|
|
STRING F_GRMERC 3
|
|
BEGIN
|
|
PROMPT 1 4 "Gr. merc. "
|
|
FIELD LF_ANAMAG->GRMERC[1,3]
|
|
GROUP G_GRMERC
|
|
FLAG "U"
|
|
USE GMC KEY 1 SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_GRMERC
|
|
DISPLAY "Codice" CODTAB[1,3]
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "IVA@5" S7
|
|
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 4 ""
|
|
GROUP G_GRMERC
|
|
USE GMC KEY 2 SELECT CODTAB[4,5]==""
|
|
INPUT S0 F_GRMERCD1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "IVA@5" S7
|
|
OUTPUT F_GRMERC CODTAB[1,3]
|
|
OUTPUT F_GRMERCD1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING H_GRMERCD1 50
|
|
BEGIN
|
|
PROMPT 23 4 ""
|
|
GROUP G_GRMERC
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GRMERCB 2
|
|
BEGIN
|
|
PROMPT 1 5 "Sott. merc. "
|
|
FIELD LF_ANAMAG->GRMERC[4,5]
|
|
GROUP G_GRMERC
|
|
FLAG "U"
|
|
USE GMC //SELECT CODTAB[4,5] != ""
|
|
INPUT CODTAB[1,3] F_GRMERC
|
|
INPUT CODTAB[4,5] F_GRMERCB
|
|
COPY DISPLAY F_GRMERC
|
|
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 5 ""
|
|
GROUP G_GRMERC
|
|
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
|
INPUT S0 F_GRMERCD2
|
|
COPY DISPLAY F_GRMERCD1
|
|
COPY OUTPUT F_GRMERCB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_REPARTO 3
|
|
BEGIN
|
|
PROMPT 1 6 "Reparto "
|
|
HELP "Codice reparto"
|
|
FIELD LF_ANAMAG->REPARTO
|
|
FLAGS "UZ"
|
|
USE RPD
|
|
INPUT CODTAB F_REPARTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione @70" S0
|
|
OUTPUT F_REPARTO CODTAB
|
|
OUTPUT F_DESREPARTO S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESREPARTO 70 50
|
|
BEGIN
|
|
PROMPT 23 6 ""
|
|
USE RPD KEY 2
|
|
INPUT S0 F_DESREPARTO
|
|
DISPLAY "Descrizione@70" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_REPARTO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_STAGIONE 4
|
|
BEGIN
|
|
PROMPT 1 7 "Stagione "
|
|
HELP "Codice stagione"
|
|
FIELD LF_ANAMAG->STAGIONE
|
|
FLAGS "UZ"
|
|
USE STG
|
|
INPUT CODTAB F_STAGIONE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione @70" S0
|
|
OUTPUT F_STAGIONE CODTAB
|
|
OUTPUT F_DESSTAGIONE S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESSTAGIONE 70 50
|
|
BEGIN
|
|
PROMPT 23 7 ""
|
|
HELP "Descrizione stagione"
|
|
USE STG KEY 2
|
|
INPUT S0 F_DESSTAGIONE
|
|
DISPLAY "Descrizione@70" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_STAGIONE
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CATCONV 3
|
|
BEGIN
|
|
PROMPT 1 11 "Categoria conto vendite "
|
|
FIELD LF_ANAMAG->CATCONV
|
|
GROUP G_CATVEN
|
|
FLAG "UZ"
|
|
USE CRA
|
|
INPUT CODTAB F_CATCONV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Gruppo" I0
|
|
DISPLAY "Conto" I1
|
|
DISPLAY "Sottoconto" I2
|
|
OUTPUT F_CATCONV CODTAB
|
|
OUTPUT F_CATCONV1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CATCONV1 50 38
|
|
BEGIN
|
|
PROMPT 35 11 ""
|
|
GROUP G_CATVEN
|
|
USE CRA KEY 2
|
|
INPUT S0 F_CATCONV1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Gruppo" I0
|
|
DISPLAY "Conto" I1
|
|
DISPLAY "Sottoconto" I2
|
|
COPY OUTPUT F_CATCONV
|
|
END
|
|
|
|
NUMBER F_GRUPPOV 3
|
|
BEGIN
|
|
PROMPT 1 12 "Conto di vendita "
|
|
FIELD LF_ANAMAG->GRUPPOV
|
|
GROUP G_CONVEN
|
|
END
|
|
|
|
NUMBER F_CONTOV 3
|
|
BEGIN
|
|
PROMPT 22 12 ""
|
|
FIELD LF_ANAMAG->CONTOV
|
|
GROUP G_CONVEN
|
|
END
|
|
|
|
NUMBER F_SOTTOCV 6
|
|
BEGIN
|
|
PROMPT 26 12 ""
|
|
FIELD LF_ANAMAG->SOTTOCV
|
|
GROUP G_CONVEN
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_GRUPPOV
|
|
INPUT CONTO F_CONTOV
|
|
INPUT SOTTOCONTO F_SOTTOCV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOV GRUPPO
|
|
OUTPUT F_CONTOV CONTO
|
|
OUTPUT F_SOTTOCV SOTTOCONTO
|
|
OUTPUT F_DESCRV DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto assente"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING F_DESCRV 50 37
|
|
BEGIN
|
|
PROMPT 36 12 ""
|
|
GROUP G_CONVEN
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCRV
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCV
|
|
WARNING "Conto assente"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
|
|
BOOLEAN F_ARTFIS
|
|
BEGIN
|
|
PROMPT 1 17 "Articolo fiscale"
|
|
FIELD LF_ANAMAG->ARTFIS
|
|
MESSAGE TRUE ENABLE,G_RAGGFISC@
|
|
MESSAGE FALSE DISABLE,G_RAGGFISC@
|
|
END
|
|
|
|
STRING F_RAGGFIS 5
|
|
BEGIN
|
|
PROMPT 1 18 "Raggrupp. fiscale "
|
|
FIELD LF_ANAMAG->RAGGFIS
|
|
FLAGS "UD"
|
|
USE RFA
|
|
JOIN %ASF ALIAS 200 INTO CODTAB=S8
|
|
INPUT CODTAB F_RAGGFIS
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_RAGGFIS CODTAB
|
|
OUTPUT F_RAGGFIS1 S0
|
|
OUTPUT H_CLASSEFIS S8
|
|
CHECKTYPE NORMAL
|
|
GROUP G_RAGGFISC
|
|
END
|
|
|
|
STRING F_RAGGFIS1 40
|
|
BEGIN
|
|
PROMPT 31 18 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING H_CLASSEFIS 2
|
|
BEGIN
|
|
PROMPT 1 19 ""
|
|
FLAG "HG"
|
|
MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
|
|
MESSAGE EMPTY ENABLE,F_CLASSEFIS
|
|
END
|
|
|
|
STRING F_CLASSEFIS 2
|
|
BEGIN
|
|
PROMPT 1 19 "Classe fiscale "
|
|
FIELD LF_ANAMAG->CLASSEFIS
|
|
FLAGS "UD"
|
|
USE %ASF
|
|
INPUT CODTAB F_CLASSEFIS
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CLASSEFIS CODTAB
|
|
OUTPUT F_CLASSEFISD S0
|
|
MESSAGE EMPTY "",F_CLASSEFISD
|
|
CHECKTYPE NORMAL
|
|
GROUP G_RAGGFISC
|
|
END
|
|
|
|
STRING F_CLASSEFISD 40
|
|
BEGIN
|
|
PROMPT 31 19 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_CODIVA 4
|
|
BEGIN
|
|
PROMPT 1 20 "Codice IVA "
|
|
FIELD LF_ANAMAG->CODIVA
|
|
USE %IVA
|
|
INPUT CODTAB F_CODIVA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODIVA CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
STRING F_CODIVAR 4
|
|
BEGIN
|
|
PROMPT 20 20 "IVA ridotta "
|
|
FIELD LF_ANAMAG->CODIVAR
|
|
USE %IVA
|
|
INPUT CODTAB F_CODIVAR
|
|
COPY DISPLAY F_CODIVA
|
|
OUTPUT F_CODIVAR CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SCONTO 25
|
|
BEGIN
|
|
FIELD LF_ANAMAG->SCONTO
|
|
PROMPT 43 20 "Sconto "
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Unità" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 ""
|
|
GROUP G_CODART
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 25 1 ""
|
|
GROUP G_DESART
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 3 "@bUnità di misura"
|
|
END
|
|
|
|
SPREADSHEET F_SHEETUM 76 4
|
|
BEGIN
|
|
PROMPT 1 4 "Unità di misura "
|
|
FLAGS "A"
|
|
USE LF_UMART KEY NRIGA
|
|
INPUT CODART F_CODART
|
|
ITEM "U.M."
|
|
ITEM "F. conversione"
|
|
ITEM "Prezzo netto@18"
|
|
ITEM "Prezzo lordo@18"
|
|
END
|
|
|
|
STRING F_UMP 3
|
|
BEGIN
|
|
PROMPT 1 9 "U.M. pesi "
|
|
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
|
|
|
|
NUMBER F_PESO 15 5
|
|
BEGIN
|
|
PROMPT 18 9 "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 9 "Tara "
|
|
FIELD LF_ANAMAG->TARA
|
|
END
|
|
|
|
NUMBER F_MASSANUN 10 3
|
|
BEGIN
|
|
PROMPT 1 10 "Massa netta unitaria "
|
|
FIELD LF_ANAMAG->MASSANUN
|
|
END
|
|
|
|
NUMBER F_UNSUPPUN 10 3
|
|
BEGIN
|
|
PROMPT 42 10 "Unità suppl.unitaria "
|
|
FIELD LF_ANAMAG->UNSUPPUN
|
|
END
|
|
|
|
NUMBER F_PPCONF 15 5
|
|
BEGIN
|
|
PROMPT 1 11 "Pz. per pacco "
|
|
FIELD PPCONF
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_PPCOLLO 15 5
|
|
BEGIN
|
|
PROMPT 42 11 "Pz. per collo "
|
|
FIELD PPCOLLO
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_PPPALLET 9
|
|
BEGIN
|
|
PROMPT 1 12 "Pz. per pallet "
|
|
FIELD PPPALLET
|
|
FLAGS "U"
|
|
END
|
|
|
|
CURRENCY F_VALSTATUN 15
|
|
BEGIN
|
|
PROMPT 42 12 "Valore statistico "
|
|
FIELD VALSTATUN
|
|
FLAGS "U"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 8
|
|
BEGIN
|
|
PROMPT 0 13 "@bCONAI"
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 14 "Sottocategorie"
|
|
END
|
|
|
|
STRING F_SCAACC 4
|
|
BEGIN
|
|
PROMPT 1 15 "Acciaio "
|
|
FIELD CONAISC[1,4]
|
|
USE &SCC SELECT CODTAB[1,2]=="AC"
|
|
INPUT CODTAB F_SCAACC
|
|
DISPLAY "Categoria" CODTAB[1,2]
|
|
DISPLAY "Sottocategoria" CODTAB[3,4]
|
|
DISPLAY "Descrizione@50" S0
|
|
MESSAGE EMPTY CLEAR,F_CONACC
|
|
MESSAGE ENABLE,F_CONACC
|
|
OUTPUT F_SCAACC CODTAB
|
|
END
|
|
|
|
STRING F_SCAALL 4
|
|
BEGIN
|
|
PROMPT 27 15 "Alluminio "
|
|
FIELD CONAISC[5,8]
|
|
USE &SCC SELECT CODTAB[1,2]=="AL"
|
|
INPUT CODTAB F_SCAALL
|
|
COPY DISPLAY F_SCAACC
|
|
OUTPUT F_SCAALL CODTAB
|
|
MESSAGE EMPTY CLEAR,F_CONALL
|
|
MESSAGE ENABLE,F_CONALL
|
|
END
|
|
|
|
STRING F_SCACAR 4
|
|
BEGIN
|
|
PROMPT 54 15 "Carta "
|
|
FIELD CONAISC[9,12]
|
|
USE &SCC SELECT CODTAB[1,2]=="CA"
|
|
INPUT CODTAB F_SCACAR
|
|
COPY DISPLAY F_SCAACC
|
|
OUTPUT F_SCACAR CODTAB
|
|
MESSAGE EMPTY CLEAR,F_CONCAR
|
|
MESSAGE ENABLE,F_CONCAR
|
|
END
|
|
|
|
STRING F_SCAPLA 4
|
|
BEGIN
|
|
PROMPT 1 16 "Plastica "
|
|
FIELD CONAISC[13,16]
|
|
USE &SCC SELECT CODTAB[1,2]=="PL"
|
|
INPUT CODTAB F_SCAPLA
|
|
COPY DISPLAY F_SCAACC
|
|
OUTPUT F_SCAPLA CODTAB
|
|
MESSAGE EMPTY CLEAR,F_CONPLA
|
|
MESSAGE ENABLE,F_CONPLA
|
|
END
|
|
|
|
STRING F_SCALEG 4
|
|
BEGIN
|
|
PROMPT 27 16 "Legno "
|
|
FIELD CONAISC[17,20]
|
|
USE &SCC SELECT CODTAB[1,2]=="LE"
|
|
INPUT CODTAB F_SCALEG
|
|
COPY DISPLAY F_SCAACC
|
|
OUTPUT F_SCALEG CODTAB
|
|
MESSAGE EMPTY CLEAR,F_CONLEG
|
|
MESSAGE ENABLE,F_CONLEG
|
|
END
|
|
|
|
STRING F_SCAVET 4
|
|
BEGIN
|
|
PROMPT 54 16 "Vetro "
|
|
FIELD CONAISC[21,24]
|
|
USE &SCC SELECT CODTAB[1,2]=="VE"
|
|
INPUT CODTAB F_SCAVET
|
|
COPY DISPLAY F_SCAACC
|
|
OUTPUT F_SCAVET CODTAB
|
|
MESSAGE EMPTY CLEAR,F_CONVET
|
|
MESSAGE ENABLE,F_CONVET
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 17 "Pesi (Kg)"
|
|
END
|
|
|
|
NUMBER F_CONACC 15 5
|
|
BEGIN
|
|
PROMPT 1 18 "Acciaio "
|
|
FIELD CONACC
|
|
END
|
|
|
|
NUMBER F_CONALL 15 5
|
|
BEGIN
|
|
PROMPT 27 18 "Alluminio "
|
|
FIELD CONALL
|
|
END
|
|
|
|
NUMBER F_CONCAR 15 5
|
|
BEGIN
|
|
PROMPT 54 18 "Carta "
|
|
FIELD CONCAR
|
|
END
|
|
|
|
NUMBER F_CONPLA 15 5
|
|
BEGIN
|
|
PROMPT 1 19 "Plastica "
|
|
FIELD CONPLA
|
|
END
|
|
|
|
NUMBER F_CONLEG 15 5
|
|
BEGIN
|
|
PROMPT 27 19 "Legno "
|
|
FIELD CONLEG
|
|
END
|
|
|
|
NUMBER F_CONVET 15 5
|
|
BEGIN
|
|
PROMPT 54 19 "Vetro "
|
|
FIELD CONVET
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Produzione" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 ""
|
|
GROUP G_CODART
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 25 1 ""
|
|
GROUP G_DESART
|
|
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
|
|
DISPLAY "Partita IVA" PAIV
|
|
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
|
|
COPY DISPLAY F_CODFORN
|
|
OUTPUT F_CODFORN CODCF
|
|
OUTPUT F_CODFORN1 RAGSOC
|
|
END
|
|
|
|
LISTBOX F_RIORDINO 20
|
|
BEGIN
|
|
PROMPT 42 4 "Riordino per "
|
|
FIELD LF_ANAMAG->RIORDINO
|
|
ITEM "F|fabbisogno"
|
|
ITEM "P|punto di riordino"
|
|
ITEM "T|tempo"
|
|
END
|
|
|
|
LIST F_VALDIST 2 20
|
|
BEGIN
|
|
PROMPT 28 5 "Val.distinta "
|
|
ITEM " |Normale"
|
|
ITEM "1|Ultimo costo"
|
|
ITEM "4|Media ultimi costi"
|
|
ITEM "10|Prezzo di listino"
|
|
ITEM "5|Costo standard"
|
|
ITEM "2|Costo medio"
|
|
ITEM "3|Costo medio ponder."
|
|
ITEM "6|FIFO annuale"
|
|
ITEM "8|LIFO annuale"
|
|
ITEM "9|FIFO"
|
|
ITEM "7|LIFO"
|
|
FIELD VALDIST
|
|
END
|
|
|
|
DATE F_DATAVDIST
|
|
BEGIN
|
|
PROMPT 65 5 "Dal "
|
|
FIELD DATAVDIST
|
|
END
|
|
|
|
LISTBOX F_TIPOCF 20
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
LISTBOX F_COLLTYPE 25
|
|
BEGIN
|
|
PROMPT 1 7 "Mag.per movim.con distinta "
|
|
FIELD LF_ANAMAG->COLLTYPE
|
|
ITEM " |da movimento" MESSAGE CLEAR,F_CODMAGAN
|
|
ITEM "M|da riga prod.fin/semilav." MESSAGE CLEAR,F_CODMAGAN
|
|
ITEM "F|da fornitore" MESSAGE CLEAR,F_CODMAGAN
|
|
ITEM "A|da articolo" MESSAGE ENABLE,F_CODMAGAN
|
|
END
|
|
|
|
STRING F_CODMAGAN 5
|
|
BEGIN
|
|
PROMPT 59 7 "Codice mag. "
|
|
FIELD LF_ANAMAG->CODMAG
|
|
FLAG "U"
|
|
USE MAG
|
|
INPUT CODTAB F_CODMAGAN
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODMAGAN CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CLASSDOG 8
|
|
BEGIN
|
|
PROMPT 1 8 "Nomenclatura combinata "
|
|
FIELD CLASSDOG
|
|
USE %NOC
|
|
INPUT CODTAB F_CLASSDOG
|
|
DISPLAY "Codice@4" CODTAB[1,4]
|
|
DISPLAY " @2" CODTAB[5,6]
|
|
DISPLAY " @2" CODTAB[7,8]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CLASSDOG CODTAB
|
|
OUTPUT F_CLASSDOGD S0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE FIXLEN_FUNC 8
|
|
WARNING "Nomenclatura combinata assente"
|
|
END
|
|
|
|
STRING F_CLASSDOGD 50 41
|
|
BEGIN
|
|
PROMPT 35 8 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
STRING F_PROVOR 2
|
|
BEGIN
|
|
PROMPT 1 9 "Provincia di origine (INTRA) "
|
|
FIELD LF_ANAMAG->PROV
|
|
END
|
|
|
|
STRING F_PAESEOR 2
|
|
BEGIN
|
|
PROMPT 49 9 "Paese di origine (INTRA) "
|
|
FIELD LF_ANAMAG->PAESE
|
|
END
|
|
|
|
NUMBER F_PROVV 5 2
|
|
BEGIN
|
|
FIELD LF_ANAMAG->PERCPROVV
|
|
PROMPT 1 10 "Provvigione "
|
|
NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100)
|
|
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
|
END
|
|
|
|
NUMBER F_RICARICO 5 2
|
|
BEGIN
|
|
FIELD LF_ANAMAG->PERCRIC
|
|
PROMPT 50 10 "Ricarico/margine "
|
|
FLAGS "U"
|
|
// NUM_EXPR #F_RICARICO<=
|
|
// WARNING "La percentuale di ricarico deve essere compresa ..."
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 12 "@bRiordino"
|
|
END
|
|
|
|
NUMBER F_A_LOTTORIOR 10 3
|
|
BEGIN
|
|
PROMPT 1 13 "Lotto minimo "
|
|
FIELD LOTTORIOR
|
|
END
|
|
NUMBER F_A_LOTTOIRIOR 10 3
|
|
BEGIN
|
|
PROMPT 30 13 "Lotto increm. "
|
|
FIELD LOTTOIRIOR
|
|
END
|
|
NUMBER F_A_GIORNIRIOR 5 1
|
|
BEGIN
|
|
PROMPT 64 13 "Giorni "
|
|
FIELD LEADTIME
|
|
END
|
|
|
|
CURRENCY F_COSTSTD 15
|
|
BEGIN
|
|
PROMPT 1 16 "Costo standard "
|
|
FIELD LF_ANAMAG->COSTSTD
|
|
FLAGS "U"
|
|
END
|
|
|
|
CURRENCY F_ULC1 15
|
|
BEGIN
|
|
PROMPT 1 17 "Ultimo costo "
|
|
FIELD LF_ANAMAG->ULTCOS1
|
|
FLAGS "U"
|
|
END
|
|
|
|
DATE F_DATAULC1
|
|
BEGIN
|
|
PROMPT 35 17 "data "
|
|
FIELD LF_ANAMAG->DULTCOS1
|
|
END
|
|
|
|
NUMBER F_NUMREGULC1 7
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 52 17 "movim. "
|
|
FIELD LF_ANAMAG->NUMREG1
|
|
END
|
|
|
|
NUMBER F_NUMRIGULC1 4
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 68 17 "riga "
|
|
FIELD LF_ANAMAG->NUMRIG1
|
|
END
|
|
|
|
CURRENCY F_ULC2 15
|
|
BEGIN
|
|
PROMPT 1 18 "Penultimo costo "
|
|
FIELD LF_ANAMAG->ULTCOS2
|
|
FLAGS "U"
|
|
END
|
|
|
|
DATE F_DATAULC2
|
|
BEGIN
|
|
PROMPT 35 18 "data "
|
|
FIELD LF_ANAMAG->DULTCOS2
|
|
END
|
|
|
|
NUMBER F_NUMREGULC2 7
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 52 18 "movim. "
|
|
FIELD LF_ANAMAG->NUMREG2
|
|
END
|
|
|
|
NUMBER F_NUMRIGULC2 4
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 68 18 "riga "
|
|
FIELD LF_ANAMAG->NUMRIG2
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Giacenze" 0 2 0 0
|
|
|
|
// Anno relativo alle giacenze
|
|
NUMBER H_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 2 ""
|
|
FLAGS "AHG"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 ""
|
|
GROUP G_CODART
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 25 1 ""
|
|
GROUP G_DESART
|
|
END
|
|
|
|
STRING F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 4 "Selezione esercizio "
|
|
FLAGS "UPZ"
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Dal@16" D0
|
|
DISPLAY "Al@16" D1
|
|
OUTPUT F_ANNO CODTAB
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -5 ESC
|
|
END
|
|
|
|
STRING F_ANNORIF 4 // anno usato per il write dell'annata precedente
|
|
BEGIN
|
|
PROMPT 36 4 "Giacenze dell'esercizio "
|
|
FLAGS "DPZ"
|
|
END
|
|
|
|
STRING F_UMPRINCIPALE 2
|
|
BEGIN
|
|
PROMPT 70 4 "U.M. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_LIVPERART
|
|
BEGIN
|
|
PROMPT 2 5 "Livelli di giacenza definiti per articolo"
|
|
FIELD LIVPERART
|
|
END
|
|
|
|
SPREADSHEET F_SHEETGIAC 0 -2
|
|
BEGIN
|
|
PROMPT 0 6 "Giacenze"
|
|
FLAGS "A"
|
|
USE LF_MAG KEY NRIGA
|
|
INPUT ANNOES F_ANNO
|
|
INPUT CODART F_CODART
|
|
// la sequenza delle colonne livelliX, mag e dep è usata per ottenere
|
|
// un ordinamento delle righe dello sheet: NON cambiarla
|
|
ITEM "Liv1@15"
|
|
ITEM "Liv2@15"
|
|
ITEM "Liv3@15"
|
|
ITEM "Liv4@15"
|
|
ITEM "Mag."
|
|
ITEM "Dep."
|
|
ITEM "Ubicazione"
|
|
ITEM "Livello rior.@10"
|
|
ITEM "Scorta min.@10"
|
|
ITEM "Lotto rior.@10"
|
|
ITEM "Lotto incr.@10"
|
|
ITEM "Giorni rior.@10"
|
|
ITEM "Giacenza @10"
|
|
ITEM "Val.Giac @12"
|
|
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 "N.dist."
|
|
END
|
|
|
|
NUMBER F_TOT_ORD_FOR 15 5
|
|
BEGIN
|
|
PROMPT 2 -1 "Ordinato fornitori "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TOT_ORD_CLI 15 5
|
|
BEGIN
|
|
PROMPT 38 -1 "Ordinato clienti "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Storico" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 ""
|
|
GROUP G_CODART
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 25 1 ""
|
|
GROUP G_DESART
|
|
END
|
|
|
|
STRING F_STOANNO 4
|
|
BEGIN
|
|
PROMPT 2 4 "Selezione esercizio "
|
|
FLAGS "UZ"
|
|
|
|
USE ESC
|
|
INPUT CODTAB F_STOANNO
|
|
DISPLAY "Codice@10" CODTAB
|
|
DISPLAY "Dal@16" D0
|
|
DISPLAY "Al@16" D1
|
|
OUTPUT F_STOANNO CODTAB
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -5 ESC
|
|
END
|
|
|
|
STRING F_STOANNORIF 4 // anno usato per il write dell'annata precedente
|
|
BEGIN
|
|
PROMPT 2 6 "Composizione rimanenze iniziali del "
|
|
FLAGS "DPZ"
|
|
END
|
|
|
|
STRING F_UMPRINCIPALE2 2
|
|
BEGIN
|
|
PROMPT 52 6 "U.M. :"
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_SHEETSTOMAG 78 8
|
|
BEGIN
|
|
PROMPT 1 7 "Composizione"
|
|
FLAGS "A"
|
|
USE LF_STOMAG KEY NRIGA
|
|
INPUT ANNOESRIF F_STOANNO
|
|
INPUT CODART F_CODART
|
|
ITEM " @1F"
|
|
ITEM "Magazzino"
|
|
ITEM "Esercizio@10"
|
|
ITEM "Quantità@15"
|
|
ITEM "Valore unitario@15"
|
|
ITEM "Valore@15"
|
|
END
|
|
|
|
|
|
CURRENCY F_STOULTCOS1 15
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 17 "Ultimo costo "
|
|
END
|
|
|
|
CURRENCY F_STOULTCOS2 15
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 42 17 "Penultimo costo "
|
|
END
|
|
|
|
CURRENCY F_STOCOSTOSTD 15
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 18 "Costo standard "
|
|
END
|
|
|
|
CURRENCY F_STOCOSTOMEDIO 15
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 42 18 "Costo medio "
|
|
END
|
|
|
|
STRING F_STOCATVEN 3
|
|
BEGIN
|
|
PROMPT 2 19 "Cat.vendita "
|
|
END
|
|
|
|
STRING F_STOCODLIST 3
|
|
BEGIN
|
|
PROMPT 26 19 "Cod.listino "
|
|
END
|
|
|
|
CURRENCY F_STOPREZZOLIST 15
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 51 19 "Prezzo "
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Analitica" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 ""
|
|
GROUP G_CODART
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 25 1 ""
|
|
GROUP G_DESART
|
|
END
|
|
|
|
STRING F_CATCONA 3
|
|
BEGIN
|
|
PROMPT 1 4 "Categoria conto acquisti "
|
|
FIELD LF_ANAMAG->CATCONA
|
|
GROUP G_CATACQ
|
|
FLAG "UZ"
|
|
USE CAA
|
|
INPUT CODTAB F_CATCONA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Gruppo" S1
|
|
DISPLAY "Conto" S2
|
|
DISPLAY "Sottoconto" S3
|
|
OUTPUT F_CATCONA CODTAB
|
|
OUTPUT F_CATCONA1 S0
|
|
CHEKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CATCONA1 50 38
|
|
BEGIN
|
|
PROMPT 35 4 ""
|
|
GROUP G_CATACQ
|
|
USE CAA KEY 2
|
|
INPUT S0 F_CATCONA1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Gruppo" S1
|
|
DISPLAY "Conto" S2
|
|
DISPLAY "Sottoconto" S3
|
|
COPY OUTPUT F_CATCONA
|
|
END
|
|
|
|
NUMBER F_GRUPPOA 3
|
|
BEGIN
|
|
PROMPT 1 6 "Conto d'acquisto "
|
|
FIELD LF_ANAMAG->GRUPPOA
|
|
GROUP G_CONACQ
|
|
END
|
|
|
|
NUMBER F_CONTOA 3
|
|
BEGIN
|
|
PROMPT 22 6 ""
|
|
FIELD LF_ANAMAG->CONTOA
|
|
GROUP G_CONACQ
|
|
END
|
|
|
|
NUMBER F_SOTTOCA 6
|
|
BEGIN
|
|
PROMPT 26 6 ""
|
|
FIELD LF_ANAMAG->SOTTOCA
|
|
GROUP G_CONACQ
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_GRUPPOA
|
|
INPUT CONTO F_CONTOA
|
|
INPUT SOTTOCONTO F_SOTTOCA
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOA GRUPPO
|
|
OUTPUT F_CONTOA CONTO
|
|
OUTPUT F_SOTTOCA SOTTOCONTO
|
|
OUTPUT F_DESCRA DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto assente"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING F_DESCRA 50 37
|
|
BEGIN
|
|
PROMPT 36 6 ""
|
|
GROUP G_CONACQ
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCRA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCA
|
|
WARNING "Conto assente"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 0 8 "@bConto acquisti"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 0 14 "@bConto vendite"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Lavanderie" 0 0 80 15
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 "@bArticolo"
|
|
END
|
|
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 ""
|
|
GROUP G_CODART
|
|
FIELD 41@->CODTAB //LVAUT = 41
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 25 1 ""
|
|
GROUP G_DESART
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 14
|
|
BEGIN
|
|
PROMPT 0 4 "@bLavanderie"
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_COLORE 20
|
|
BEGIN
|
|
PROMPT 1 5 "Colore "
|
|
FIELD COLORE
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_LIVELLO 1
|
|
BEGIN
|
|
PROMPT 49 5 "Livello "
|
|
FIELD LIVELLO
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_TIPOPARTE 1
|
|
BEGIN
|
|
PROMPT 1 6 "Tipo Parte "
|
|
FIELD TIPOPARTE
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_LAVATRICE 4
|
|
BEGIN
|
|
PROMPT 49 6 "Lavatrice "
|
|
USE &LVLVT
|
|
INPUT CODTAB F_LAVATRICE
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizioni@50" S0
|
|
OUTPUT F_LAVATRICE CODTAB
|
|
FIELD LAVATRICE
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_CODLAV1 3
|
|
BEGIN
|
|
PROMPT 1 7 "Cod. Lavaggio 1 "
|
|
USE &LVLAV
|
|
INPUT CODTAB F_CODLAV1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizioni@50" S0
|
|
OUTPUT F_CODLAV1 CODTAB
|
|
FIELD CODLAV1
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_CODLAV2 3
|
|
BEGIN
|
|
PROMPT 49 7 "Cod. Lavaggio 2 "
|
|
USE &LVLAV
|
|
INPUT CODTAB F_CODLAV2
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizioni@50" S0
|
|
OUTPUT F_CODLAV2 CODTAB
|
|
FIELD CODLAV2
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_LINDEST1 3
|
|
BEGIN
|
|
PROMPT 1 8 "Linea destinazione 1 "
|
|
USE &LVLND
|
|
INPUT CODTAB F_LINDEST1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizioni@50" S0
|
|
OUTPUT F_LINDEST1 CODTAB
|
|
FIELD LINDEST1
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_LINDEST2 3
|
|
BEGIN
|
|
PROMPT 49 8 "Linea destinazione 2 "
|
|
USE &LVLND
|
|
INPUT CODTAB F_LINDEST2
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizioni@50" S0
|
|
OUTPUT F_LINDEST2 CODTAB
|
|
FIELD LINDEST2
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_ARTLAVCONT 4
|
|
BEGIN
|
|
PROMPT 1 9 "Lavacontinua "
|
|
USE &LVLVT
|
|
INPUT CODTAB F_ARTLAVCONT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizioni@50" S0
|
|
OUTPUT F_ARTLAVCONT CODTAB
|
|
FIELD ARTLAVCONT
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_MANGDEST 3
|
|
BEGIN
|
|
PROMPT 49 9 "Mangano Destinazione "
|
|
USE &LVMAN
|
|
INPUT CODTAB F_MANGDEST
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizioni@50" S0
|
|
OUTPUT F_MANGDEST CODTAB
|
|
FIELD MANGDEST
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_LUNGH 5
|
|
BEGIN
|
|
PROMPT 1 10 "Lunghezza "
|
|
FIELD USER9
|
|
FLAGS "R"
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_LARGH 5
|
|
BEGIN
|
|
PROMPT 49 10 "Larghezza "
|
|
FIELD USER10
|
|
FLAGS "R"
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_RIEMPI_C_XS 6
|
|
BEGIN
|
|
PROMPT 1 11 "Riempie CAR XS "
|
|
FIELD 41@->I0 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_RIEMPI_C_M 6
|
|
BEGIN
|
|
PROMPT 28 11 "Riempie CAR M "
|
|
FIELD 41@->I1 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_RIEMPI_C_XL 6
|
|
BEGIN
|
|
PROMPT 54 11 "Riempie CAR XL "
|
|
FIELD 41@->I2 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_NORMALE_XS 6
|
|
BEGIN
|
|
PROMPT 1 12 "NORMALE XS "
|
|
FIELD 41@->I3 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_NORMALE_M 6
|
|
BEGIN
|
|
PROMPT 28 12 "NORMALE M "
|
|
FIELD 41@->I4 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_NORMALE_XL 6
|
|
BEGIN
|
|
PROMPT 54 12 "NORMALE XL "
|
|
FIELD 41@->I5 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_RIEMPI_S_XS 6
|
|
BEGIN
|
|
PROMPT 1 13 "Riempie SAC XS "
|
|
FIELD 41@->I6 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_RIEMPI_S_M 6
|
|
BEGIN
|
|
PROMPT 28 13 "Riempie SAC M "
|
|
FIELD 41@->I7 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_RIEMPI_S_XL 6
|
|
BEGIN
|
|
PROMPT 54 13 "Riempie SAC XL "
|
|
FIELD 41@->I8 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
NUMBER F_PRECEDENZA 2
|
|
BEGIN
|
|
PROMPT 1 14 "Precedenza "
|
|
FIELD 41@->I9 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
LISTBOX F_TPARTICOLO 12
|
|
BEGIN
|
|
PROMPT 28 14 "Tipo articolo "
|
|
ITEM "0|"
|
|
ITEM "1|Ristorazione"
|
|
ITEM "3|Alberghiero"
|
|
FIELD 41@->I10 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
STRING F_DESCR_ETI 14
|
|
BEGIN
|
|
PROMPT 1 15 "Descrizione Etichetta"
|
|
FIELD 41@->S0 //LVAUT = 41
|
|
GROUP G_LV
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Personalizzazioni" 0 0 80 20
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
STRING DLG_NULL 20
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 1 "Codice art. "
|
|
GROUP G_CODART
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 2 2 "Descrizione "
|
|
GROUP G_DESART
|
|
END
|
|
|
|
STRING F_ECMAGIC1 5
|
|
BEGIN
|
|
PROMPT 2 4 "Categoria Magic 1 "
|
|
USE &CTM
|
|
INPUT CODTAB[1,5] F_ECMAGIC1
|
|
INPUT CODTAB[6,10] F_ECMAGIC2
|
|
INPUT CODTAB[11,15] F_ECMAGIC3
|
|
INPUT CODTAB[16,20] F_ECMAGIC4
|
|
DISPLAY "Categoria 1" CODTAB[1,5]
|
|
DISPLAY "Categoria 2" CODTAB[6,10]
|
|
DISPLAY "Categoria 3" CODTAB[11,15]
|
|
DISPLAY "Categoria 4" CODTAB[16,20]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_ECMAGIC1 CODTAB[1,5]
|
|
OUTPUT F_ECMAGIC2 CODTAB[6,10]
|
|
OUTPUT F_ECMAGIC3 CODTAB[11,15]
|
|
OUTPUT F_ECMAGIC4 CODTAB[16,20]
|
|
OUTPUT F_ECMAGIC_DESCR S0
|
|
CHECKTYPE NORMAL
|
|
FIELD USER1
|
|
FLAGS "UHDZ"
|
|
END
|
|
|
|
STRING F_ECMAGIC2 5
|
|
BEGIN
|
|
PROMPT 29 4 "2 "
|
|
COPY ALL F_ECMAGIC1
|
|
CHECKTYPE NORMAL
|
|
FIELD USER2
|
|
FLAGS "UHDZ"
|
|
END
|
|
|
|
STRING F_ECMAGIC3 5
|
|
BEGIN
|
|
PROMPT 40 4 "3 "
|
|
COPY ALL F_ECMAGIC1
|
|
CHECKTYPE NORMAL
|
|
FIELD USER3
|
|
FLAGS "UHDZ"
|
|
END
|
|
|
|
STRING F_ECMAGIC4 5
|
|
BEGIN
|
|
PROMPT 51 4 "4 "
|
|
COPY ALL F_ECMAGIC1
|
|
CHECKTYPE NORMAL
|
|
FIELD USER4
|
|
FLAGS "UHDZ"
|
|
END
|
|
|
|
STRING F_ECMAGIC_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 6 "Descrizione "
|
|
USE &CTM KEY 2
|
|
INPUT S0 F_ECMAGIC_DESCR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Categoria 1" CODTAB[1,5]
|
|
DISPLAY "Categoria 2" CODTAB[6,10]
|
|
DISPLAY "Categoria 3" CODTAB[11,15]
|
|
DISPLAY "Categoria 4" CODTAB[16,20]
|
|
COPY OUTPUT F_ECMAGIC1
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UHDZ"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
#include "ve2400c.uml"
|
|
#include "ve2400b.uml"
|
|
#include "ve2400a.uml"
|
|
#include "ve2400d.uml"
|
|
#include "ve2400e.uml"
|