#include "vetbtri.h"
TOOLBAR "" 0 20 60 2

#include "toolbar.h"

ENDPAGE
PAGE "Tipo di riga" -1 -1 60 14

   GROUPBOX DLG_NULL 75 7
   BEGIN
    PROMPT 1 0 ""
    FLAGS "R"
   END

   STRING F_CODICE 4
   BEGIN
      PROMPT 2 2 "Codice       "
      FIELD CODTAB
      FLAGS "U"
      USE %TRI
      INPUT CODTAB F_CODICE
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_CODICE CODTAB
      OUTPUT F_DESCR S0
      CHECKTYPE REQUIRED
      KEY 1
   END

   STRING F_DESCR 50
   BEGIN
      PROMPT 2 4 "Descrizione  "
      FIELD S0
      USE %TRI KEY 2
      INPUT S0 F_DESCR
      COPY DISPLAY F_CODICE
      COPY OUTPUT F_CODICE
      CHECKTYPE REQUIRED
      KEY 2
   END

   LIST F_TPR 16
   BEGIN
     PROMPT 2 8 "Tipo         "
     ITEMS "M|Merce"
     ITEMS "S|Spese"
     ITEMS "P|Prestazioni"
     ITEMS "R|Risorse"
     ITEMS "A|Attrezzature"
     ITEMS "C|Sconti"
     ITEMS "O|Omaggi"
     ITEMS "D|Descrizioni"
     FIELD S7
   END
   
BOOLEAN F_FORMFEED
BEGIN
  PROMPT 2 10  "Salto pagina dopo questo tipo"
  FIELD B0
END   

NUMBER F_IND 1
BEGIN
  PROMPT 2 12 "Detraibilita' "
  SHEET "Codice|Tipo detraibilita'@75"
  INPUT F_IND
  ITEM " |Regime normale"
  ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
  ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
  ITEM "9|IVA non detraibile per l'articolo 19"
  OUTPUT F_IND
  OUTPUT F_DESIND
  FIELD I0
END
   
STRING F_DESIND 75 50
BEGIN
  PROMPT 20 12 ""
  FLAGS "D"    
END

NUMBER F_PERIND 6 2
BEGIN
  PROMPT 2 14 "% Indetraib.  "
  FIELD R0
END

ENDPAGE

ENDMASK