94 lines
1.6 KiB
Plaintext
94 lines
1.6 KiB
Plaintext
|
#include "mrtbfia.h"
|
||
|
|
|
||
|
|
TOOLBAR "TOOLBAR" 0 -2 0 2
|
||
|
|
#include <toolbar.h>
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Impianti/Articoli" -1 -1 65 15
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODIMP 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 2 "Impianto "
|
||
|
|
FLAGS "UZ"
|
||
|
|
FIELD CODTAB[1,5]
|
||
|
|
KEY 1
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
USE IMP
|
||
|
|
INPUT CODTAB F_CODIMP
|
||
|
|
DISPLAY "Codice@5" CODTAB
|
||
|
|
DISPLAY "Descrizione@60" S0
|
||
|
|
OUTPUT F_CODIMP CODTAB[1,5]
|
||
|
|
OUTPUT F_DESC S0
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESC 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 3 " "
|
||
|
|
KEY 1
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
USE IMP KEY 2
|
||
|
|
INPUT S0 F_DESC
|
||
|
|
DISPLAY "Descrizione@60" S0
|
||
|
|
DISPLAY "Codice@5" CODTAB
|
||
|
|
COPY OUTPUT F_CODIMP
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODART 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 4 "Articolo "
|
||
|
|
FIELD CODTAB[6,]
|
||
|
|
KEY 1
|
||
|
|
FLAG "U"
|
||
|
|
USE LF_ANAMAG
|
||
|
|
INPUT CODART F_CODART
|
||
|
|
DISPLAY "Codice@20" CODART
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT F_CODART CODART
|
||
|
|
OUTPUT F_DESART DESCR
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESART 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 5 " "
|
||
|
|
KEY 1
|
||
|
|
USE LF_ANAMAG KEY 2
|
||
|
|
INPUT DESCR F_DESART
|
||
|
|
DISPLAY "Codice@20" CODART
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
COPY OUTPUT F_CODART
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CODFORN 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 7 "Codice fornitore "
|
||
|
|
FIELD I0
|
||
|
|
USE LF_CLIFO
|
||
|
|
INPUT TIPOCF "F" SELECT
|
||
|
|
INPUT CODCF F_CODFORN
|
||
|
|
DISPLAY "Codice " CODCF
|
||
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||
|
|
OUTPUT F_CODFORN CODCF
|
||
|
|
OUTPUT F_DESFOR RAGSOC
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESFOR 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 9 "Ragione sociale "
|
||
|
|
USE LF_CLIFO KEY 2
|
||
|
|
INPUT TIPOCF "F" SELECT
|
||
|
|
INPUT RAGSOC F_DESFOR
|
||
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||
|
|
DISPLAY "Codice " CODCF
|
||
|
|
COPY OUTPUT F_CODFORN
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|