137 lines
2.4 KiB
Plaintext
137 lines
2.4 KiB
Plaintext
|
#include "ve2500b.h"
|
||
|
|
|
||
|
|
//Generazione da anagrafica articoli
|
||
|
|
//-----------------------------------------------
|
||
|
|
GROUPBOX DLG_NULL 76 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 7 "@bAnagrafica articoli"
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_DACODART 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 8 "Da articolo "
|
||
|
|
FLAGS "U"
|
||
|
|
USE LF_ANAMAG
|
||
|
|
INPUT CODART FB_DACODART
|
||
|
|
DISPLAY "Articolo@20" CODART
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT FB_DACODART CODART
|
||
|
|
OUTPUT FB_DADESART DESCR
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
ADD RUN ve2 -3
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_DADESART 50 35
|
||
|
|
BEGIN
|
||
|
|
PROMPT 38 8 ""
|
||
|
|
USE LF_ANAMAG KEY 2
|
||
|
|
INPUT DESCR FB_DADESART
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
DISPLAY "Articolo@20" CODART
|
||
|
|
COPY OUTPUT FB_DACODART
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
ADD RUN ve2 -3
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_ACODART 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 9 "A articolo "
|
||
|
|
FLAGS "U"
|
||
|
|
USE LF_ANAMAG
|
||
|
|
INPUT CODART FB_ACODART
|
||
|
|
COPY DISPLAY FB_DACODART
|
||
|
|
OUTPUT FB_ACODART CODART
|
||
|
|
OUTPUT FB_ADESART DESCR
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
ADD RUN ve2 -3
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_ADESART 50 35
|
||
|
|
BEGIN
|
||
|
|
PROMPT 38 9 ""
|
||
|
|
USE LF_ANAMAG KEY 2
|
||
|
|
INPUT DESCR FB_ADESART
|
||
|
|
COPY DISPLAY FB_DADESART
|
||
|
|
COPY OUTPUT FB_ACODART
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
ADD RUN ve2 -3
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_GRMERC 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 10 "Gr. merc. "
|
||
|
|
FLAGS "U"
|
||
|
|
USE GMC SELECT CODTAB[4,5] == ""
|
||
|
|
INPUT CODTAB[1,3] FB_GRMERC
|
||
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT FB_GRMERC CODTAB[1,3]
|
||
|
|
OUTPUT FB_DESGRMERC S0
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_SOTGRMERC 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT 20 10 ""
|
||
|
|
FLAGS "U"
|
||
|
|
USE GMC
|
||
|
|
COPY INPUT FB_GRMERC
|
||
|
|
INPUT CODTAB[4,5] FB_SOTGRMERC
|
||
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
||
|
|
DISPLAY "Sottogruppo" CODTAB[4,5]
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
COPY OUTPUT FB_GRMERC
|
||
|
|
OUTPUT FB_SOTGRMERC CODTAB[4,5]
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_DESGRMERC 50 45
|
||
|
|
BEGIN
|
||
|
|
PROMPT 28 10 ""
|
||
|
|
USE GMC KEY 2
|
||
|
|
INPUT S0 FB_DESGRMERC
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
DISPLAY "Gruppo" CODTAB[1,3]
|
||
|
|
DISPLAY "Sottogruppo" CODTAB[4,5]
|
||
|
|
COPY OUTPUT FB_SOTGRMERC
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_RAGFIS 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 11 "Raggr. fis. "
|
||
|
|
FLAGS "U"
|
||
|
|
USE RFA
|
||
|
|
INPUT CODTAB FB_RAGFIS
|
||
|
|
DISPLAY "Ragg. fisc." CODTAB
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT FB_RAGFIS CODTAB
|
||
|
|
OUTPUT FB_DESRAGFIS S0
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING FB_DESRAGFIS 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 23 11 ""
|
||
|
|
USE RFA KEY 2
|
||
|
|
INPUT S0 FB_DESRAGFIS
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
DISPLAY "Ragg. fisc." CODTAB
|
||
|
|
COPY OUTPUT FB_RAGFIS
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
GROUP 2
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|