#include "ab0200.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Piano dei Conti" 0 -1 0 19

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

NUMBER F_CODICE 12
BEGIN
  PROMPT 2 2 "Codice conto                "
  HELP "Codice della tabella Piano dei Conti"
  FIELD LF_ABPCON->CODCBL
  KEY 1
  USE LF_ABPCON KEY 1
  INPUT CODCBL F_CODICE
  DISPLAY "Codice@12" CODCBL
  DISPLAY "Descrizione@40" DESCRIZ
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice opp.@12" CODCONTR
  DISPLAY "Sospeso@2" SOSPESO
  OUTPUT F_CODICE CODCBL
  OUTPUT F_DESCRIZ DESCRIZ
  CHECKTYPE REQUIRED
  FLAGS "ZRU"
END

STRING F_DESCRIZ 80 40
BEGIN
  PROMPT 2 4 "Descrizione                 "
  FIELD LF_ABPCON->DESCRIZ
  KEY 2
  USE LF_ABPCON KEY 2
  INPUT DESCRIZ F_DESCRIZ
  DISPLAY "Descrizione@40" DESCRIZ
  DISPLAY "Codice@12" CODCBL
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice opp.@12" CODCONTR
  DISPLAY "Sospeso@2" SOSPESO
  COPY OUTPUT F_CODICE
  HELP "Prima parte della descrizione"
  WARNING "Manca la descrizione"
  CHECKTYPE REQUIRED           // Guy: perche' non cosi'?
END


LIST F_INDBIL 15
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 12
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@12" CODCBL
  DISPLAY "Descrizione@40" DESCRIZ
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice@12" CODCONTR
  DISPLAY "Sospeso@2" SOSPESO
  OUTPUT F_CODCONTR CODCBL
  CHECKTYPE NORMAL
  ADD RUN AB0 -1 #F_CODICE #F_INDBIL
  FLAGS "ZRU"
END

//Questo campo � stato tolto
//LIST F_DETTAGLIO 15
//BEGIN
//  PROMPT 2 14 "Dettaglio/Movimenti         "
//  FIELD LF_ABPCON->DETT
//  ITEM " |Nessuno"
//  ITEM "D|Dettaglio"
//  ITEM "M|Movimenti"
//END         

BOOLEAN SOSPENDI
BEGIN
  PROMTP 2 16 " Conto sospeso"
  FIELD LF_ABPCON->SOSPESO
END

ENDPAGE

ENDMASK