#include "ab0200.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Piano dei Conti" 0 -1 0 19

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODICE 10
BEGIN
  PROMPT 2 1 "Codice tabella           "
  HELP "Codice della tabella Piano dei Conti"
  FIELD LF_ABPCON->CODCBL
  KEY 1
  USE LF_ABPCON KEY 1 
  INPUT CODCBL F_CODICE
  DISPLAY "Codice@10" CODCBL
  DISPLAY "Descrizione@80" DESCRIZ
  OUTPUT F_CODICE CODCBL
  OUTPUT F_DESCRIZ1 DESCRIZ[1,40]
  OUTPUT F_DESCRIZ2 DESCRIZ[41,]
  CHECKTYPE REQUIRED
  FLAGS "R"
END

STRING F_DESCRIZ1 40
BEGIN
  PROMPT 2 2 "I parte descrizione      "
  FIELD LF_ABPCON->DESCRIZ[1,40]
  KEY 2
  USE LF_ABPCON KEY 2
  INPUT DESCRIZ[1,40] F_DESCRIZ1
  DISPLAY "Descrizione@80" DESCRIZ
  DISPLAY "Codice@10" CODCBL
  COPY OUTPUT F_CODICE
  HELP "Prima parte della descrizione"
  WARNING "Manca la descrizione"
  CHECKTYPE REQUIRED           // Guy: perche' non cosi'?
END

STRING F_DESCRIZ2 40
BEGIN
  PROMPT 2 3 "II parte descrizione     "
  FIELD LF_ABPCON->DESCRIZ[41,]
  KEY 2
  HELP "Seconda parte della descrizione"
END

NUMBER F_LIVELLO 2
BEGIN
  PROMPT 2 6 "Livello di struttura     "
  HELP "Inserire il livello di struttura: il valore deve essere compreso fra 1 e 99"
  FIELD LF_ABPCON->LIVELLO
  FLAGS "R"
  CHECKTYPE REQUIRED
END

LIST F_INDBIL 14
BEGIN
  PROMPT 2 8 "Indicatore di bilancio   "
  FIELD LF_ABPCON->INDBIL
  ITEM "1|Attivita'"
  ITEM "2|Passivita'"
  ITEM "3|Costi"
  ITEM "4|Ricavi"
  ITEM "5|Conti d'ordine"
  ITEM "9|Varie"
END                       

NUMBER F_CODCONTR 10
BEGIN
  PROMPT 2 10 "Conto di sez.bil.opposta "
  HELP "Inserire il conto di sezione di bilancio opposta"
  FIELD LF_ABPCON->CODCONTR
  USE LF_ABPCON KEY 1 
  INPUT CODCBL F_CODCONTR
  DISPLAY "Codice@10" CODCBL
  DISPLAY "Ind.bil" INDBIL
  DISPLAY "Descrizione@80" DESCRIZ
  OUTPUT F_CODCONTR CODCBL
  OUTPUT F_DESCRCONTR1 DESCRIZ[1,33]
  OUTPUT F_DESCRCONTR2 DESCRIZ[34,]
  CHECKTYPE NORMAL               
  ADD RUN AB0 -1 #F_CODICE #F_INDBIL
  FLAGS "R"
END                                     

STRING F_DESCRCONTR1 33
BEGIN
  PROMPT 41 10 ""
  FLAGS "D"
END

STRING F_DESCRCONTR2 47
BEGIN
  PROMPT 27 11 ""
  FLAGS "D"
END
                
LIST F_DETTAGLIO 10
BEGIN
  PROMPT 2 13 "Dettaglio/Movimenti      "
  FIELD LF_ABPCON->DETT
  ITEM " |Nessuno"
  ITEM "D|Dettaglio"
  ITEM "M|Movimenti"
END

ENDPAGE

ENDMASK