#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