#include "baeur02.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -11 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -11 "&Indietro"
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -11 ""
END

ENDPAGE    

PAGE "Conversione dati comuni" 0 0 80 18

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 1 "@bCodici valuta di riferimento"
END

STRING F02_LIT 3 
BEGIN
  PROMPT 2 2 "Codice valuta Lire "
  USE %VAL SELECT (B0!="X")&&STR(R10==1)
  INPUT CODTAB F02_LIT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F02_LIT CODTAB
  OUTPUT F02_LIT_DESC S0
  CHECKTYPE REQUIRED
  WARNING "Codice LIRE obbligatorio"
END

STRING F02_LIT_DESC 50
BEGIN
  PROMPT 29 2 ""
  FLAGS "D"
END 

STRING F02_EUR 3 
BEGIN
  PROMPT 2 3 "Codice valuta Euro "
  USE %VAL SELECT B0="X"
  INPUT CODTAB F02_EUR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F02_EUR CODTAB
  OUTPUT F02_EUR_DESC S0
  CHECKTYPE REQUIRED
  WARNING "Codice EURO obbligatorio"
END

STRING F02_EUR_DESC 50
BEGIN
  PROMPT 29 3 ""
  FLAGS "D"
END 

ENDPAGE

ENDMASK