campo-sirio/cg/cg0100a.uml

#include "cg0100.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 FLD_CM1_GRUPPO 3
BEGIN
  PROMPT 2 1 "Gruppo     "
  HELP "Codice del 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
  OUTPUT FLD_CM1_DESCG DESCR
// OUTPUT FLD_CM1_DESC DESCR
  CHECKTYPE NORMAL
END

STRING FLD_CM1_DESCG 50
BEGIN
  PROMPT 23 1 ""
  FLAGS "D"
END

NUMBER FLD_CM1_CONTO 3
BEGIN
  PROMPT 2 2 "Conto      "
  HELP "Codice dell'eventuale 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
  OUTPUT FLD_CM1_DESCC DESCR
//  OUTPUT FLD_CM1_DESC DESCR
  CHECKTYPE NORMAL
END

STRING FLD_CM1_DESCC 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

NUMBER FLD_CM1_SOTTOCONTO 6
BEGIN
  PROMPT 2 3 "Sottoconto "
  HELP "Codice dell'eventuale 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@70" DESCR
  OUTPUT FLD_CM1_SOTTOCONTO SOTTOCONTO
  OUTPUT FLD_CM1_GRUPPO GRUPPO
  OUTPUT FLD_CM1_CONTO CONTO
  OUTPUT FLD_CM1_DESC DESCR
END

STRING FLD_CM1_DESC 50
BEGIN
  PROMPT 23 3 ""
  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
  CHECKTYPE REQUIRED
  HELP "Descrizione del gruppo o del conto o del sottoconto"
  WARNING "Manca la descrizione"
END

NUMBER FLD_CM1_CODTABANALISI 10
BEGIN
  PROMPT 1 5 "Codice Tabella Analisi "
  HELP "Codice di raggruppamento per l'analisi di bilancio"
  FIELD LF_PCON->CODCBL
  USE LF_ABPCON
  INPUT CODCBL FLD_CM1_CODTABANALISI
  DISPLAY "Codice@10" CODCBL
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Livello" LIVELLO
  DISPLAY "Ind. bil. " INDBIL
  OUTPUT FLD_CM1_CODTABANALISI CODCBL
  OUTPUT FLD_CM1_DESCRANALISI DESCRIZ
  CHECKTYPE NORMAL
  WARNING "Codice tabella non presente"
  FLAGS "Z"
  ADD RUN AB0 -1
END

STRING FLD_CM1_DESCRANALISI 80 35
BEGIN
  FLAGS "D"
  PROMPT 38 5 ""
END

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

LIST FLD_CM1_INDBIL 1 22
BEGIN
  PROMPT 1 6 "Sezione di bilancio    "
  FIELD LF_PCON->INDBIL
  GROUP 1 3 
  HELP "Sezione di appartenenza del conto"
  ITEM "1|1. Attivita'"
  ITEM "2|2. Passivita'"
  ITEM "3|3. Costi"
  ITEM "4|4. Ricavi"
  ITEM "5|5. Conti d'ordine"
END

LIST FLD_CM1_SEZIVD 1 22
BEGIN
  PROMPT 1 7 "Sez. e classe IV dir.  "
  FIELD LF_PCON->SEZIVD
  ITEM "0|0. Nessuna" MESSAGE CLEAR,5@|CLEAR,6@
  ITEM "1|1. Attivita'" MESSAGE ENABLE,5@|ENABLE,6@
  ITEM "2|2. Passivita'" MESSAGE ENABLE,5@|ENABLE,6@
  ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,5@|ENABLE,6@
  ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,5@|ENABLE,6@
  ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,5@|ENABLE,6@
  ITEM "9|9. Conto economico" MESSAGE ENABLE,5@|ENABLE,6@
  HELP "Codice del conto secondo la IV direttiva CEE"
  GROUP 1 4
END

STRING FLD_CM1_LETTIVD 1 1
BEGIN
  PROMPT 56 7 ""
  HELP "Codice del conto secondo la IV direttiva CEE"
  FIELD LF_PCON->LETTIVD
  GROUP 1 5 
  FLAGS "U"
END

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

NUMBER FLD_CM1_NUMRIVD 8 4
BEGIN
  PROMPT 60 7 ""
  HELP "Codice del conto secondo la IV direttiva CEE"
  FIELD LF_PCON->NUMRIVD
  GROUP 1 5
  FLAGS "MZ"
END

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

NUMBER FLD_CM1_NUMIVD 2
BEGIN
  PROMPT 71 7 ""
  HELP "Codice del conto secondo la IV direttiva CEE"
  FIELD LF_PCON->NUMIVD
  FLAGS "Z"
  GROUP 1 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  @M" CODTAB[3,6]
  DISPLAY "Numero" CODTAB[7,8]
  DISPLAY "Descrizione@70" 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 71 7 ""
  FLAGS "HDRZ"
  GROUP 1 5
END

LIST FLD_CM1_SEZIVDOPP 1 22
BEGIN
  PROMPT 1 8 "Classe segno opposto   "
  FIELD LF_PCON->SEZIVDOPP
  GROUP 1 2 4 6
  ITEM "0|0. Nessuna" MESSAGE CLEAR,7@
  ITEM "1|1. Attivita'" MESSAGE ENABLE,7@
  ITEM "2|2. Passivita'" MESSAGE ENABLE,7@
  ITEM "5|5. Conto d'ordine" MESSAGE CLEAR,7@
  ITEM "6|6. C.ordine attivo" MESSAGE CLEAR,7@
  ITEM "7|7. C.ordine passivo" MESSAGE CLEAR,7@
  ITEM "9|9. Conto economico" MESSAGE ENABLE,7@
  HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
END

STRING FLD_CM1_LETTIVDOPP 1
BEGIN
  PROMPT 56 8 ""
  HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
  FIELD LF_PCON->LETTIVDOPP
  FLAGS "U"
  GROUP 1 2 4 7
END

NUMBER FLD_CM1_NUMRIVDOPP 8 4
BEGIN
  PROMPT 60 8 ""
  HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
  FIELD LF_PCON->NUMRIVDOPP
  FLAGS "MZ"
  GROUP 1 2 4 7
END

NUMBER FLD_CM1_NUMIVDOPP 2
BEGIN
  PROMPT 71 8 ""
  HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
  FIELD LF_PCON->NUMIVDOPP
  FLAGS "RZ"
  GROUP 1 2 4 7
  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 50
BEGIN
  PROMPT 1 9 "Tipo Spesa/Ricavo      "
  FIELD LF_PCON->TIPOSPRIC
  GROUP 1 2
  HELP "Specificare il tipo do conto"
  ITEM "0|0. Acquisti o vendite in genere"
  ITEM "1|1. Acquisti beni per rivendita"
  ITEM "2|2. Acquisti beni ammortizzabili"
  ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
  ITEM "4|4. Vendita beni strumentali art. 17"
  ITEM "5|5. Beni per rivendita da non ventilare"
  ITEM "8|8. Altri beni strumentali acquistati in leasing"
  ITEM "9|9. Spese Generali"
END

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

LIST FLD_CM1_TMCF 1 13
BEGIN
  PROMPT 1 11 "Tipo sottoconti             "
  FIELD LF_PCON->TMCF
  GROUP 1 3
  HELP "Tipo dei sottoconti (Normale o clienti/fornitori)"
  ITEM " |Normali"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

LIST FLD_CM2_SEZSALDI 1 10
BEGIN
  PROMPT 1 12 "Controllo saldo primanota   "
  HELP "Tipo di controllo del saldo in prima nota"
  FIELD LF_PCON->SEZSALDI
  GROUP 1
  ITEM " |Nessuno"
  ITEM "A|Avere"
  ITEM "D|Dare"
END

BOOLEAN FLD_CM2_STSOTTBIL
BEGIN
  PROMPT 1 14 "Non stampare dett.sottoc. su bilanci a sezioni"
  HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci a sezioni contrapposte"
  FIELD LF_PCON->STSOTTBIL
  GROUP 1 3
END

BOOLEAN FLD_CM2_COMPENS
BEGIN
  PROMPT 56 14 "Compensazione saldi"
  HELP "Indicare se e' ammessa la compensazione dei saldi"
  FIELD LF_PCON->COMPENS
  GROUP 1 3
END

BOOLEAN FLD_CM2_STSOTTAB
BEGIN
  PROMPT 1 15 "Stampa dettaglio sottoconti su analisi"
  HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
  FIELD LF_PCON->STSOTTAB
  GROUP 1 3
  MESSAGE COPY,FLD_CM2_STSOTTABS
END

BOOLEAN FLD_CM2_STSOTTABS
BEGIN
  PROMPT 1 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 56 15 "Conto sospeso"
  HELP "Indicare se sospendere il conto in prima nota"
  FIELD LF_PCON->SOSPESO
  GROUP 1 2
END

ENDPAGE

ENDMASK