#include "cg0100.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Piano dei conti " 0 -1 0 19

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 2 0 ""
  FLAGS "R"
END

NUMBER FLD_CM1_GRUPPO 3
BEGIN
  PROMPT 4 1 "Gruppo      "
  FIELD LF_PCON->GRUPPO
  FLAGS "R"
  KEY 1
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO FLD_CM1_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FLD_CM1_GRUPPO GRUPPO
  HELP "Inserire il gruppo"
  VALIDATE NOT_EMPTY_FUNC
END

NUMBER FLD_CM1_CONTO 3
BEGIN
  PROMPT 25 1 "Conto      "
  FIELD LF_PCON->CONTO
  FLAGS "R"
  KEY 1
  USE LF_PCON KEY 1 SELECT (CONTO!="") && (SOTTOCONTO="")
  COPY INPUT FLD_CM1_GRUPPO
  INPUT CONTO FLD_CM1_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FLD_CM1_GRUPPO GRUPPO
  OUTPUT FLD_CM1_CONTO CONTO
  HELP "Inserire il conto"
END

NUMBER FLD_CM1_SOTTOCONTO 6
BEGIN
  PROMPT 48 1 "Sottoconto  "
  FIELD LF_PCON->SOTTOCONTO
  FLAGS "R"
  KEY 1
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT FLD_CM1_CONTO
  INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FLD_CM1_SOTTOCONTO SOTTOCONTO
  OUTPUT FLD_CM1_GRUPPO GRUPPO
  OUTPUT FLD_CM1_CONTO CONTO
  OUTPUT FLD_CM1_DESC DESCR
  HELP "Inserire il sottoconto"
END

STRING FLD_CM1_DESC 50
BEGIN
  PROMPT 4 2 "Descrizione "
  FIELD LF_PCON->DESCR
  KEY 2
  USE LF_PCON KEY 2
  INPUT DESCR FLD_CM1_DESC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto     " SOTTOCONTO
  COPY OUTPUT FLD_CM1_SOTTOCONTO
  HELP "Inserire la descrizione del conto"
  CHECKTYPE REQUIRED
END

NUMBER FLD_CM1_CODTABANALISI 10
BEGIN
  PROMPT 4 5 "Codice Tabella Analisi    "
  FIELD LF_PCON->CODCBL
  FLAGS "R"
  HELP "Inserisci il codice  "
END

NUMBER FLD_CM1_CODANALISIH 10
BEGIN
  PROMPT 4 5 "Codice Tabella Analisi    "
  FLAGS "RHD"
END

LIST FLD_CM1_INDBIL 1 17
BEGIN
  PROMPT 4 6 "Sezione di bilancio       "
  FIELD LF_PCON->INDBIL
  GROUP 1 3 
  HELP "Inserire l' indicatore di bilancio"
  ITEM "1|Attivita'"
  ITEM "2|Passivita'"
  ITEM "3|Costi"
  ITEM "4|Ricavi"
  ITEM "5|Conti d'ordine"
END

LIST FLD_CM1_SEZIVD 1 17
BEGIN
  PROMPT 4 7 "Sez. e classe IV dir.:    "
  FIELD LF_PCON->SEZIVD
  GROUP 1 4
  ITEM "0|Nessuna" MESSAGE RESET,5@
  ITEM "1|Attivita'"
  ITEM "2|Passivita'"
  ITEM "9|Conto economico"
  HELP "Inserire il codice del conto secondo la IV direttiva CEE"
END

LIST FLD_CM1_SEZIVDH 1 19
BEGIN
  PROMPT 4 7 "Sez. e classe IV dir.:    "
  FIELD LF_PCON->SEZIVD
  ITEM "0|Nessuna" MESSAGE RESET,5@
  ITEM "1|C.ordine attivo"
  ITEM "2|C.ordine passivo"
  ITEM "5|C.ordine"
  FLAGS "H"
END

STRING FLD_CM1_LETTIVD 1 1
BEGIN
  PROMPT 51 7 ""
  FIELD LF_PCON->LETTIVD
  GROUP 1 4 5 
  FLAGS "U"
END

STRING FLD_CM1_LETTIVDH 1 
BEGIN
  PROMPT 51 7 ""
  FLAGS "HDU"
  GROUP 4 5
END

NUMBER FLD_CM1_NUMRIVD 8 4
BEGIN
  PROMPT 55 7 ""
  FIELD LF_PCON->NUMRIVD
  GROUP 1 4 5
  FLAGS "MZ"
END

NUMBER FLD_CM1_NUMRIVDH 8 4
BEGIN
  PROMPT 55 7 ""
  FLAGS "HDMZ"
  GROUP  4 5
END

NUMBER FLD_CM1_NUMIVD 2
BEGIN
  PROMPT 66 7 ""
  FIELD LF_PCON->NUMIVD
  FLAGS "RZ"
  GROUP 1 4 5
  USE %IVD
  INPUT CODTAB[1,1] FLD_CM1_SEZIVD
  INPUT CODTAB[2,2] FLD_CM1_LETTIVD
  INPUT CODTAB[3,6] FLD_CM1_NUMRIVD
  INPUT CODTAB[7,8] FLD_CM1_NUMIVD
  DISPLAY "Sezione" CODTAB[1,1]
  DISPLAY "Lettera" CODTAB[2,2]
  DISPLAY "Classe  " CODTAB[3,6]
  DISPLAY "Numero" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_CM1_SEZIVD CODTAB[1,1]
  OUTPUT FLD_CM1_LETTIVD CODTAB[2,2]
  OUTPUT FLD_CM1_NUMRIVD CODTAB[3,6]
  OUTPUT FLD_CM1_NUMIVD CODTAB[7,8]
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

NUMBER FLD_CM1_NUMIVDH 2
BEGIN
  PROMPT 66 7 ""
  FLAGS "HDRZ"
  GROUP 1 4 5
END

LIST FLD_CM1_SEZIVDOPP 1 17
BEGIN
  PROMPT 4 8 "Classe segno opp.:        "
  FIELD LF_PCON->SEZIVDOPP
  GROUP 1 2 4
  ITEM "0|Nessuna" MESSAGE RESET,6@
  ITEM "1|Attivita'"
  ITEM "2|Passivita'"
  ITEM "9|Conto economico"
  HELP "Inserire il codice del conto di sezione opposta secondo la IV direttiva CEE"
END

STRING FLD_CM1_LETTIVDOPP 1
BEGIN
  PROMPT 51 8 ""
  FIELD LF_PCON->LETTIVDOPP
  FLAGS "U"
  GROUP 1 2 4 6
END

NUMBER FLD_CM1_NUMRIVDOPP 8 4
BEGIN
  PROMPT 55 8 ""
  FIELD LF_PCON->NUMRIVDOPP
  FLAGS "MZ"
  GROUP 1 2 4 6
END

NUMBER FLD_CM1_NUMIVDOPP 2
BEGIN
  PROMPT 66 8 ""
  FIELD LF_PCON->NUMIVDOPP
  FLAGS "RZ"
  GROUP 1 2 4 6
  COPY USE FLD_CM1_NUMIVD
  INPUT CODTAB[1,1] FLD_CM1_SEZIVDOPP
  INPUT CODTAB[2,2] FLD_CM1_LETTIVDOPP
  INPUT CODTAB[3,6] FLD_CM1_NUMRIVDOPP
  INPUT CODTAB[7,8] FLD_CM1_NUMIVDOPP
  COPY DISPLAY FLD_CM1_NUMIVD
  OUTPUT FLD_CM1_SEZIVDOPP CODTAB[1,1]
  OUTPUT FLD_CM1_LETTIVDOPP CODTAB[2,2]
  OUTPUT FLD_CM1_NUMRIVDOPP CODTAB[3,6]
  OUTPUT FLD_CM1_NUMIVDOPP CODTAB[7,8]
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

LIST FLD_CM1_TIPOSPRIC 1 45
BEGIN
  PROMPT 4 9 "Tipo Spesa/Ricavo         "
  FIELD LF_PCON->TIPOSPRIC
  GROUP 1 2
  HELP "Specificare il tipo Spesa/Ricavo"
  ITEM "0|Acquisti o vendite in genere"
  ITEM "1|Acquisti beni per rivendita"
  ITEM "2|Acquisti beni ammortizzabili"
  ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
  ITEM "4|Vendita beni strumentali art. 17"
  ITEM "5|Beni per rivendita da non ventilare"
  ITEM "8|Altri beni strumentali acquistati in leasing"
  ITEM "9|Spese Generali"
END

LIST FLD_CM1_RICSER 1 18
BEGIN
  PROMPT 4 10 "Ricavi per servizi        "
  FIELD RICSER
  FLAGS "H"
  ITEM "0|Altre attivita'"
  ITEM "1|Servizi"
END

LIST FLD_CM1_TMCF 1 13
BEGIN
  PROMPT 4 11 "Tipo sottoconti           "
  FIELD LF_PCON->TMCF
  GROUP 1 3
  HELP "Inserire il tipo dei sottoconti"
  ITEM " |Normali"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

LIST FLD_CM2_SEZSALDI 1 10
BEGIN
  PROMPT 4 12 "Controllo saldo primanota "
  FIELD LF_PCON->SEZSALDI
  GROUP 1
  ITEM " |Nessuno"
  ITEM "A|Avere"
  ITEM "D|Dare"
END

BOOLEAN FLD_CM2_STSOTTBIL
BEGIN
  PROMPT 4 14 "Stampa dettaglio sottoconti su bilanci "
  FIELD LF_PCON->STSOTTBIL
  GROUP 1 3
END

BOOLEAN FLD_CM2_COMPENS
BEGIN
  PROMPT 50 14 "Compensazione saldi "
  FIELD LF_PCON->COMPENS
  GROUP 1 3
END

BOOLEAN FLD_CM2_STSOTTAB
BEGIN
  PROMPT 4 15 "Stampa dettaglio sottoconti su analisi "
  FIELD LF_PCON->STSOTTAB
  GROUP 1 3
  MESSAGE COPY,FLD_CM2_STSOTTABS
END

BOOLEAN FLD_CM2_STSOTTABS
BEGIN
  PROMPT 4 15 "Stampa dettaglio movimenti su analisi  "
  FIELD LF_PCON->STSOTTAB
  FLAGS "H"
  GROUP 1 2
  MESSAGE COPY,FLD_CM2_STSOTTAB
END

BOOLEAN FLD_CM2_SOSPESO
BEGIN
  PROMPT 50 15 "Conto sospeso"
  FIELD LF_PCON->SOSPESO
  GROUP 1 2
END

ENDPAGE

ENDMASK