campo-sirio/ba/batblng.uml

#include "batblng.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella lingue" -1 -1 78 8

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

STRING F_DESCR 50
BEGIN
  PROMPT 2 3 "Descrizione "
  FIELD LF_TABCOM->S0
  KEY 2
  USE %LNG KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 "@bFormato data"
END        

LIST F_DATA 3 18
BEGIN                         
  PROMPT 2 6 "Ordine data         "
  ITEM "GMA|Giorno-Mese-Anno"
  ITEM "MGA|Mese-Giorno-Anno"
  ITEM "AMG|Anno-Mese-Giorno"
  FIELD S7[1,3]
END

STRING F_DATASEP 1
BEGIN
  PROMPT 42 6 "Separatore data     "
  FIELD S7[4,4]
END


GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 9 "@bFormato valuta"
END

LIST F_MIGLIAIA 1 14
BEGIN
  PROMPT 2 10 "Separatore migliaia "
  ITEM ".|Punto   (.)" MESSAGE "I",F_DECIMALI
  ITEM ",|Virgola (,)" MESSAGE "E",F_DECIMALI
  FIELD S8
END

LIST F_DECIMALI 1 14
BEGIN
  PROMPT 42 10 "Separatore decimali "
  ITEM "I|Virgola (,)" 
  ITEM "E|Punto   (.)" 
  FLAGS "D"
END

ENDPAGE
ENDMASK