187a666ccb
Files correlati : Ricompilazione Demo : [ ] Commento : Revisione Maschere modulo mr git-svn-id: svn://10.65.10.50/trunk@16705 c028cbd2-c16b-5b4b-a496-9718f37d4682
94 lines
1.6 KiB
Plaintext
Executable File
94 lines
1.6 KiB
Plaintext
Executable File
#include "mrtbfia.h"
|
|
|
|
TOOLBAR "Relapbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Impianti/Articoli" 0 0 0 0
|
|
|
|
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
|