campo-sirio/ba/batbdet.uml

#include "batbdet.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Codici Indetrabilita'" -1 -1 78 15

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "Codice Indetrabilita'"
END

STRING F_CODICE 1
BEGIN
  PROMPT 2 2 ""
  FIELD CODTAB
  USE %DET
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Percentuale" R0
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESC S0
  CHECKTYPE REQUIRED
  KEY 1
	FLAGS "U"
END

STRING F_DESC 70 50
BEGIN
  PROMPT 10 2 "Descrizione "
  FIELD S0
  USE %DET KEY 2
  INPUT S0 F_DESC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Percentuale" R0
  COPY OUTPUT F_CODICE
  KEY 2
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 5 "@bPercentuale"
END

STRING F_TIPO 1 
BEGIN
  PROMPT 2 6 "Tipo "
  SHEET "Codice|Tipo indetraibilita'@75"
  INPUT F_TIPO
  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_TIPO
  OUTPUT F_DESCTIPO
  FIELD I0
  CHEKCTYPE REQUIRED
END

STRING F_DESCTIPO 75 50 
BEGIN
  PROMPT 22 6 ""
  FLAGS "D"
END

NUMBER F_PERC 6 2
BEGIN
  PROMPT 2 7 "% d'indetraibilita' "
  NUM_EXPR #F_PERC<=100
  WARNING "Percentuale non valida"
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD R0
END

ENDPAGE

ENDMASK