#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@11" CODCBL
  DISPLAY "Descrizione@40" DESCRIZ[1,40]
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice opp.@11" CODCONTR
  OUTPUT F_CODICE CODCBL
  OUTPUT F_DESCRIZ1 DESCRIZ[1,40]
  OUTPUT F_DESCRIZ2 DESCRIZ[41,]
  CHECKTYPE REQUIRED
  FLAGS "Z"
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@40" DESCRIZ[1,40]
  DISPLAY "Codice@11" CODCBL
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice opp.@11" CODCONTR
  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 (1-99) "
  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
  INPUT CODCBL F_CODCONTR
  DISPLAY "Codice@11" CODCBL
  DISPLAY "Descrizione@40" DESCRIZ[1,40]
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice@11" CODCONTR
  OUTPUT F_CODCONTR CODCBL
  OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
  OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
  CHECKTYPE NORMAL               
  ADD RUN AB0 -1 #F_CODICE #F_INDBIL
  FLAGS "Z"
END                                     

STRING F_DESCRCONTR1 40
BEGIN
  PROMPT 30 11 ""
  USE LF_ABPCON KEY 2
  INPUT DESCRIZ F_DESCRCONTR1
  DISPLAY "Descrizione@40" DESCRIZ[1,40]
  DISPLAY "Codice@11" CODCBL
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice@11" CODCONTR
  OUTPUT F_CODCONTR CODCBL
  OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
  OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
  ADD RUN AB0 -1 #F_CODICE #F_INDBIL
END

STRING F_DESCRCONTR2 40
BEGIN
  PROMPT 30 12 ""
  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
