campo-sirio/src/li/li0200a.msk

#include "li0200a.h"

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

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

STRING FLD_TABIVA_CODTAB 4
BEGIN
  PROMPT 1 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

NUMBER FLD_ANNO 4
BEGIN
  PROMPT 1 2 "Anno:"
  HELP "Inserire l'anno"
  FIELD ANNO
  CHECKTYPE REQUIRED
  WARNING "Inserire l'anno"
  NUM_EXPR #FLD_ANNO>0
END

NUMBER F_CODICE_CLIFO_DA 6
BEGIN
  PROMPT 1 3 "Da cod. cliente:   "
  FLAG "UR"
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODICE_CLIFO_DA
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione sociale@60" RAGSOC
  OUTPUT F_CODICE_CLIFO_DA CODCF
  GROUP 1
END

NUMBER F_CODICE_CLIFO_A 6
BEGIN
  PROMPT 32 3 "a: "
  FLAG "UR"
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODICE_CLIFO_A
  COPY DISPLAY F_CODICE_CLIFO_DA
  OUTPUT F_CODICE_CLIFO_A CODCF
  NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
  WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
  GROUP 1
END

SPREADSHEET DOCUMENTI_STATO 45 10
BEGIN
  PROMPT 1 5 ""
  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