#include "vetbatr.h"

TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE

PAGE "Attrezzature" -1 -1 80 20

GROUPBOX DLG_NULL 78 4
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING ATR_CODICE 16
BEGIN
  PROMPT 2 1 "Codice      "
  FIELD CODTAB
  KEY 1
  USE ATR
  FLAGS "U"
  INPUT CODTAB ATR_CODICE
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT ATR_CODICE CODTAB
  OUTPUT ATR_DESCR S0
  CHECKTYPE REQUIRED
END

STRING ATR_DESCR 50
BEGIN
  PROMPT 2 2 "Descrizione "
  FIELD S0
  KEY 2
  USE ATR KEY 2
  INPUT S0 ATR_DESCR
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT ATR_CODICE
  CHECKTYPE REQUIRED
END

STRING ATR_TIPORIGA 4
BEGIN
  PROMPT 2 4 "Tipo riga     "
  FIELD S8
  FLAGS "U"
  USE %TRI SELECT S7=="A"
  INPUT CODTAB ATR_TIPORIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT ATR_TIPORIGA CODTAB
  OUTPUT ATR_DESCRRIGA S0
  CHECKTYPE REQUIRED
END

STRING ATR_DESCRRIGA 50
BEGIN
  PROMPT 24 4 ""
  USE %TRI KEY 2 SELECT S7=="A"
  INPUT S0 ATR_DESCRRIGA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT ATR_TIPORIGA
END

DATE ATR_DISMISS
BEGIN
  PROMPT 2 6 "Data dismissione "
  FIELD D0
END

NUMBER ATR_GRUPPOA 3
BEGIN
  PROMPT 2 10 "Conto acquisti "
  FIELD I3
 END

NUMBER ATR_CONTOA 3
BEGIN
  PROMPT 22 10 ""
  FIELD I4
 END

NUMBER ATR_SOTTOA 6
BEGIN
  PROMPT 28 10 ""
  FIELD I5
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO      ATR_GRUPPOA
  INPUT CONTO       ATR_CONTOA
  INPUT SOTTOCONTO  ATR_SOTTOA
  DISPLAY "Gruppo@3" GRUPPO
  DISPLAY "Conto@3" CONTO
  DISPLAY "Sottoconto@6" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT ATR_GRUPPOA  GRUPPO
  OUTPUT ATR_CONTOA  CONTO
  OUTPUT ATR_SOTTOA  SOTTOCONTO
  OUTPUT ATR_DESCRCONTOA  DESCR
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN CG0 -0
END

STRING ATR_DESCRCONTOA 50 35
BEGIN
  PROMPT 39 10 ""
  FLAG "U"
  USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
  INPUT DESCR ATR_DESCRCONTOA
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo@3" GRUPPO
  DISPLAY "Conto@3" CONTO
  DISPLAY "Sottoconto@6" SOTTOCONTO
  COPY OUTPUT ATR_SOTTOA
  CHECKTYPE NORMAL
  WARNING "Il conto deve essere un ricavo"
  ADD RUN CG0 -0
END

ENDPAGE

ENDMASK