99 lines
1.7 KiB
Plaintext
99 lines
1.7 KiB
Plaintext
|
#include "hatbatt.h"
|
||
|
|
|
||
|
|
PAGE "Attrezzature" -1 -1 78 10
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 76 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "@bAttrezzatura"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_COD_ATT 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 2 "Articolo "
|
||
|
|
FLAGS "U"
|
||
|
|
USE LF_ANAMAG SELECT GRMERC="50"
|
||
|
|
INPUT CODART F_COD_ATT
|
||
|
|
DISPLAY "Codice" CODART
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUPUT F_COD_ATT CODART
|
||
|
|
OUPUT F_DESCR_ATT DESCR
|
||
|
|
FIELD CODTAB[1,15]
|
||
|
|
CHECKTYPE FORCED
|
||
|
|
KEY 1
|
||
|
|
ADD RUN ve2 -3
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESCR_ATT 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 20 2 ""
|
||
|
|
USE LF_ANAMAG KEY 2 SELECT GRMERC="50"
|
||
|
|
INPUT DESCR F_DESCR_ATT
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
DISPLAY "Codice" CODART
|
||
|
|
COPY OUTPUT F_COD_ATT
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_COD_MATR 15
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 3 "Matricola "
|
||
|
|
FLAGS "U"
|
||
|
|
USE &ATT
|
||
|
|
INPUT CODTAB[1,5] F_COD_ATT
|
||
|
|
INPUT CODTAB[16,30] F_COD_MATR
|
||
|
|
DISPLAY "Codice@5" CODTAB[1,5]
|
||
|
|
DISPLAY "Matricola@15" CODTAB[16,30]
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT F_COD_ATT CODTAB[1,5]
|
||
|
|
OUTPUT F_COD_MATR CODTAB[16,30]
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
FIELD CODTAB[16,30]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 76 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 5 "@bCliente"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CODCF 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 6 "Codice "
|
||
|
|
FLAGS "U"
|
||
|
|
USE LF_CLIFO
|
||
|
|
INPUT TIPOCF "C"
|
||
|
|
INPUT CODCF F_CODCF
|
||
|
|
DISPLAY "Codice" CODCF
|
||
|
|
DISPLAY "Descrizione@50" RAGSOC
|
||
|
|
OUTPUT F_CODCF CODCF
|
||
|
|
OUTPUT F_RAGSOC RAGSOC
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
FIELD I0
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_RAGSOC 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Descrizione "
|
||
|
|
USE LF_CLIFO KEY 2
|
||
|
|
INPUT TIPOCF "C"
|
||
|
|
INPUT RAGSOC F_RAGSOC
|
||
|
|
DISPLAY "Descrizione@50" RAGSOC
|
||
|
|
DISPLAY "Codice" CODCF
|
||
|
|
COPY OUTPUT F_CODCF
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
DATE F_DATA_CONSEGNA
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 8 "Data presa in consegna "
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
FIELD D0
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
TOOLBAR "" 0 0 0 2
|
||
|
|
#include "relapbar.h"
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|