campo-sirio/ve/ve1100b.uml

#include "ve1100.h"

PAGE "Lista documenti" -1 -1 60 20

NUMBER F_ANNO 4 0
BEGIN
  PROMPT 2 1 "Anno            "
  FLAG "P"
  CHECKTYPE REQUIRED
END

LIST F_PROVV 12
BEGIN
  PROMPT 28 1 "Tipo numerazione "
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
  FLAG "P"
END

SPREADSHEET F_SHEETNUMS 55 9
BEGIN
  PROMPT 1 2 ""
  ITEM "Cod. num."
  ITEM "Tipo doc."
  ITEM "Stato 1"
  ITEM "Stato 2"
  ITEM "Stato 3"
  ITEM "Stato 4"
  ITEM "Stato 5"
  ITEM "Stato 6"
END


DATE F_DA_DATADOC
BEGIN
  PROMPT 2 11 "Dalla data "
END

DATE F_A_DATADOC
BEGIN
  PROMPT 2 12 "Alla data  "
END

LIST F_TIPOCF 1 11
BEGIN
  PROMPT 25 12 "Tipo      "
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER F_CODFR 6
BEGIN
  PROMPT 25 13 "Da codice "
  FLAGS "B"
END

NUMBER F_CODTO 6
BEGIN
  PROMPT 25 14 "A codice  "
  FLAGS "B"
END

STRING F_SELECTED 5
BEGIN
  PROMPT 25 15 "Scelte n. "
  FLAGS "DR"
END

BUTTON BUT_SEL 10 2
BEGIN
  PROMPT 45 13 "~Selezione"
  PICTURE BMP_SELECT
END

BUTTON BUT_ANN 10
BEGIN
  PROMPT 45 15 "A~zzera"
END

RADIOBUTTON F_SELVAL 20
BEGIN
  PROMPT 2 13 "Stampa documenti"
  ITEM "1|Valuta ditta"
    MESSAGE CLEAR,F_VALUTA
  ITEM "2|In valuta"
    MESSAGE ENABLE,F_VALUTA
  ITEM "3|Tutti"
    MESSAGE CLEAR,F_VALUTA
END

STRING F_VALUTA 3
BEGIN
  PROMPT 25 16 "Cod. val. "
  FLAGS "U"
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_VALUTA CODTAB
  CHECKTYPE REQUIRED
END

BOOLEAN F_DETTAGLIO
BEGIN
  PROMPT 25 17 "Dettaglio righe"
END

STRING F_DESCR_CLI 50 30
BEGIN
  PROMPT 2 18 "Ragione sociale "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF
  INPUT RAGSOC F_DESCR_CLI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  OUTPUT F_CODFR CODCF
  OUTPUT F_CODTO CODCF
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 75 10

STRING 101 4
BEGIN
  PROMPT 1 1 "Codice numerazione  "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB 101
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 101 CODTAB
  CHECKTYPE NORMAL
END

STRING 102 4
BEGIN
  PROMPT 1 2 "Tipo documento  "
  FLAGS "UB"
END

STRING 103 1
BEGIN
  PROMPT 1 3 "Stato 1            "
  USE %STD
  INPUT CODTAB 103
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 103 CODTAB
  CHECKTYPE NORMAL
END

STRING 104 1
BEGIN
  PROMPT 1 4 "Stato 2            "
  USE %STD
  INPUT CODTAB 104
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 104 CODTAB
  CHECKTYPE NORMAL
END

STRING 105 1
BEGIN
  PROMPT 1 5 "Stato 3            "
  USE %STD
  INPUT CODTAB 105
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 105 CODTAB
  CHECKTYPE NORMAL
END

STRING 106 1
BEGIN
  PROMPT 1 6 "Stato 4            "
  USE %STD
  INPUT CODTAB 106
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 106 CODTAB
  CHECKTYPE NORMAL
END

STRING 107 1
BEGIN
  PROMPT 1 7 "Stato 5            "
  USE %STD
  INPUT CODTAB 107
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 107 CODTAB
  CHECKTYPE NORMAL
END

STRING 108 1
BEGIN
  PROMPT 1 8 "Stato 6            "
  USE %STD
  INPUT CODTAB 108
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 108 CODTAB
  CHECKTYPE NORMAL
END

BUTTON DLG_OK 9 2
BEGIN
 PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN 
 PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK