campo-sirio/src/li/li0300a.uml

#include "li0300a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 2 1 "~Registra"
  MESSAGE EXIT,K_SAVE
  PICTURE TOOL_SAVEREC
END

#include <cancelbar.h>

ENDPAGE

PAGE "Impostazioni dichiarazioni d'intento" 0 2 0 0

STRING FLD_TABIVA_CODTAB 4
BEGIN
  PROMPT 2 1 "Codice IVA plafond: "
  FIELD CODTAB
  KEY 1
  USE %IVA
  FLAGS "U"
  INPUT CODTAB FLD_TABIVA_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  DISPLAY "Vent." S6
  DISPLAY "Sospeso" B2
  OUTPUT FLD_TABIVA_CODTAB CODTAB
  HELP "Inserire il codice IVA"
  CHECKTYPE REQUIRED
  VALIDATE ZEROFILL_FUNC 2
END


SPREADSHEET DOC_STATO 45 10
BEGIN
  PROMPT 30 1 ""
  ITEM "Tipo Numerazione"
  ITEM "Da stato"
  ITEM "A stato"
END

ENDPAGE

ENDMASK

PAGE "Riga tipo numerazione" -1 -1 78 8

STRING FLD_TIPODOC 4
BEGIN
  PROMPT 2 1 "Tipo Documento "
  FIELD TIPODOC
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB FLD_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_TIPODOC CODTAB
  CHECKTYPE REQUIRED
END

STRING FLD_STATODOCDA 4
BEGIN
  PROMPT 2 2 "Da Numerazione "
  FIELD CODTAB
  KEY 1
  USE %STD
  FLAGS "U"
  INPUT CODTAB FLD_STATODOCA
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_STATODOCDA CODTAB
  //CHECKTYPE REQUIRED
END

STRING FLD_STATODOCA 4
BEGIN
  PROMPT 2 3 "A Numerazione  "
  FIELD CODTAB
  KEY 1
  USE %STD
  FLAGS "U"
  INPUT CODTAB FLD_STATODOCA
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_STATODOCA CODTAB
  NUM_EXPR #FLD_STATODOCA>=#FLD_STATODOCDA
  //CHECKTYPE REQUIRED
END

ENDPAGE

TOOLBAR "Documento" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 1 1 ""
END


ENDPAGE

ENDMASK