campo-sirio/ba/ba2200.uml

#include "ba2200.h"

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

LIST F_FLOPPY 1 5
BEGIN
  PROMPT 1 1 "Disco "
  ITEM "A|A:"
  ITEM "B|B:"
END

LIST F_DATA 1 14
BEGIN
  PROMPT 17 1 "Dati "
  ITEM " |Ditta"       MESSAGE ENABLE,1@
  ITEM "C|Dati comuni" MESSAGE CLEAR,1@|"Archivi comuni",F_RAGSOC
  ITEM "T|Tutti"       MESSAGE CLEAR,1@|"Archivi comuni e ditte",F_RAGSOC
END
     
NUMBER F_CODDITTA 5       
BEGIN       
  PROMPT 56 1 "Ditta "
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  WARNING "Specificare la ditta su cui lavorare"
  GROUP 1
END       

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione Sociale "
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_CODDITTA
  CHECKTYPE REQUIRED
  GROUP 1
END

STRING F_DESCR 50
BEGIN
  PROMPT 1 3 "Descrizione     "
END

BOOLEAN F_TEMP
BEGIN
  PROMPT 1 4 "Usare direttorio temporaneo durante il ripristino"
END

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

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


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

ENDMASK