campo-sirio/ba/ba2200.uml

#include "ba2200.h"

PAGE "Salvataggio / Ripristino archivi" -1 -1 72 10

LIST F_FLOPPY 1 3
BEGIN
  PROMPT 1 1 "Disco "
  ITEM "A|A:" MESSAGE CLEAR,F_PATH
  ITEM "B|B:" MESSAGE CLEAR,F_PATH
  ITEM "C|C:" MESSAGE ENABLE,F_PATH
END

STRING F_PATH 45
BEGIN
  PROMPT 15 1 "Percorso "
END

BOOLEAN F_DITTA
BEGIN
  PROMPT 1 2 "Dati ditta"
  MESSAGE TRUE ENABLE,1@|"X",F_770
  MESSAGE FALSE CLEAR,1@
END                

BOOLEAN F_COM
BEGIN
  PROMPT 1 3 "Dati comuni"      
  MESSAGE TRUE "X",F_CONFIG
END                

BOOLEAN F_CONFIG
BEGIN
  PROMPT 1 4 "File di configurazione"
END                

BOOLEAN F_770
BEGIN
  PROMPT 1 5 "Dati 770"
END                

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 15 2 ""
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_RAGSOC 50 45
BEGIN
  PROMPT 24 2 ""
  FLAGS "D"
END

BUTTON F_ALL 10 2
BEGIN
  PROMPT 58 4 "~Tutti"
  MESSAGE "X",F_DITTA|"X",F_COM|"X",F_CONFIG|"X",F_770|"",F_CODDITTA
END

STRING F_DESCR 50
BEGIN
  PROMPT 1 7 "Descrizione       "
END

BUTTON F_SALVA 15 2
BEGIN
  PROMPT -13 -1 "~Salvataggio"
  MESSAGE EXIT,K_SAVE
END

BUTTON F_RIPR 15 2
BEGIN
  PROMPT -23 -1 "~Ripristino"
  MESSAGE EXIT,K_INS
END


BUTTON DLG_QUIT 15 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK