74838aed82
git-svn-id: svn://10.65.10.50/branches/R_10_00@21045 c028cbd2-c16b-5b4b-a496-9718f37d4682
137 lines
2.4 KiB
Plaintext
Executable File
137 lines
2.4 KiB
Plaintext
Executable File
#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 |