#include "baeur40.h"

TOOLBAR "" 0 -3 0 3

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

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

ENDPAGE    

PAGE "Conversione documenti" 0 0 0 -3

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bDitta corrente"  
END

NUMBER F40_DITTA 5
BEGIN
  PROMPT 2 2 "Ditta "
  USE LF_NDITTE
  INPUT CODDITTA F40_DITTA
  OUTPUT F40_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DF"
END

STRING F40_RAGSOC 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
END

STRING F40_DATI 50
BEGIN
  PROMPT 2 3 "Area dati in Lire  "
  FLAGS "D"
END

STRING F40_DATIE 50
BEGIN
  PROMPT 2 4 "Area dati in Euro  "
  FLAGS "D"
END

SPREADSHEET F40_DOCSHEET 78
BEGIN
  PROMPT 1 6 ""
  ITEM "Sel."
  ITEM "Anno"
  ITEM "Cod."
  ITEM "Da stato"
  ITEM "A stato"
  ITEM "Ripetibile"
  ITEM "Numerazione@50"
END    

ENDPAGE

PAGE "Tipi riga non standard" 0 0 0 -3

SPREADSHEET F40_TIPISHEET 78
BEGIN
  PROMPT 1 4 ""
  ITEM "Tipo conversione"
  ITEM "Tipo riga"
  ITEM "Descrizione@50"
END    

ENDPAGE

ENDMASK

PAGE ""  -1 -1 73 16

BOOLEAN F40_CHECK 
BEGIN        
  PROMPT 2 1 "Selezionato        "
  MESSAGE FALSE CLEAR,1@
  MESSAGE TRUE ENABLE,1@
END

NUMBER F40_ANNO 4 
BEGIN               
  PROMPT 2 3 "Da anno            "
  GROUP 1
END

STRING F40_CODNUM 4 
BEGIN               
  PROMPT 2 5 "Codice numerazione "
  FLAGS "D"
END

STRING F40_DESCR 50
BEGIN          
  PROMPT 2 7 "Descrizione        "
  FLAGS "D"
END

NUMBER F40_DASTATO 1 
BEGIN               
  PROMPT 2 9 "Da stato           "
  USE %STD
  INPUT CODTAB F40_DASTATO
  DISPLAY "Stato documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F40_DASTATO CODTAB
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F40_ASTATO 1 
BEGIN               
  PROMPT 2 11 "A stato            "
  USE %STD
  INPUT CODTAB F40_ASTATO
  DISPLAY "Stato documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F40_ASTATO CODTAB
  CHECKTYPE NORMAL
  GROUP 1
END

BOOLEAN F40_REPEAT 
BEGIN               
  PROMPT 2 13 "Ripetibile"
  GROUP 1
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END
       
ENDPAGE 
      
ENDMASK

PAGE ""  -1 -1 73 8

LIST F40_CONV 1 14
BEGIN        
  PROMPT 2 1 "Tipo conversione   "
  ITEM " |Prezzo"
  ITEM "V|Valore"
  ITEM "N|Non convertire"
END

STRING F40_TIPO 2
BEGIN               
  PROMPT 2 3 "Tipo riga          "
  FLAGS "D"
END

STRING F40_DESCRT 50
BEGIN          
  PROMPT 2 5 "Descrizione        "
  FLAGS "D"
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END
       
ENDPAGE

ENDMASK