campo-sirio/cg/cg0100a.uml

#include "cg0100.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Piano dei conti " 0 0 0 0

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 GRUPPO
  KEY 1
  USE LF_PCON SELECT CONTO=""
  INPUT GRUPPO FLD_CM1_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FLD_CM1_GRUPPO GRUPPO
  OUTPUT FLD_CM1_DESCG DESCR
  CHECKTYPE REQUIRED
END

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

NUMBER FLD_CM1_CONTO 3
BEGIN
  PROMPT 2 2 "Conto      "
  HELP "Codice dell'eventuale conto"
  FIELD CONTO
  KEY 1
  USE LF_PCON 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
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 FLD_CM1_SOTTOCONTO
  WARNING "Manca il conto"
END

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

NUMBER FLD_CM1_SOTTOCONTO 6
BEGIN
  PROMPT 2 3 "Sottoconto "
  HELP "Codice dell'eventuale sottoconto"
  FIELD SOTTOCONTO
  KEY 1
  USE LF_PCON SELECT SOTTOCONTO!=""
  COPY INPUT FLD_CM1_CONTO
  INPUT SOTTOCONTO FLD_CM1_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Sosp." 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
  CHECKTYPE NORMAL
END

NUMBER FH_SOTTOCONTO 6
BEGIN
  PROMPT 60 1 ""
  FLAGS "HG"
  USE LF_PCON
  COPY INPUT FLD_CM1_SOTTOCONTO
  COPY DISPLAY FLD_CM1_SOTTOCONTO
  COPY OUTPUT FLD_CM1_SOTTOCONTO
END

STRING FLD_CM1_DESC 50
BEGIN
  PROMPT 24 3 ""
  FIELD DESCR
  KEY 2
  USE LF_PCON KEY 2
  INPUT DESCR FLD_CM1_DESC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sosp." 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 "Descrizione mancante"
END

NUMBER FLD_CM1_CODTABANALISI 12
BEGIN
  PROMPT 1 5 "Codice Tabella Analisi "
  HELP "Codice di raggruppamento per l'analisi di bilancio"
  FIELD CODCBL
  USE LF_ABPCON
  INPUT CODCBL FLD_CM1_CODTABANALISI
  DISPLAY "Codice@12" CODCBL
  DISPLAY "Descrizione@40" DESCRIZ[1,40]
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice opp.@11" CODCONTR
  OUTPUT FLD_CM1_CODTABANALISI CODCBL
  OUTPUT FLD_CM1_DESCRANALISI DESCRIZ[1,40]
  CHECKTYPE NORMAL
  WARNING "Codice tabella non presente"
  FLAGS "Z"
  ADD RUN AB0 -1
END

STRING FLD_CM1_DESCRANALISI 40 34
BEGIN
  PROMPT 40 5 ""
  USE LF_ABPCON KEY 2
  INPUT DESCRIZ FLD_CM1_DESCRANALISI
  DISPLAY "Descrizione@40" DESCRIZ[1,40]
  DISPLAY "Codice@11" CODCBL
  DISPLAY "I.B." INDBIL
  DISPLAY "Codice opp.@11" CODCONTR
  OUTPUT FLD_CM1_CODTABANALISI CODCBL
  OUTPUT FLD_CM1_DESCRANALISI DESCRIZ[1,40]
  ADD RUN AB0 -1
END

LIST FLD_CM1_INDBIL 1 22
BEGIN
  PROMPT 1 6 "Sezione di bilancio    "
  FIELD 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 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
BEGIN
  PROMPT 49 7 ""
  HELP "Codice del conto secondo la IV direttiva CEE"
  FIELD LETTIVD
  GROUP 1 5
  FLAGS "U"
END

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

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

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

STRING FLD_CM1_NUMIVD 2
BEGIN
  PROMPT 60 7 ""
  FIELD NUMIVD[1,2]
  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
  INPUT CODTAB[9,10] F_SUB
  INPUT CODTAB[11,12] F_SOTSUB
  DISPLAY "Sezione" CODTAB[1,1]
  DISPLAY "Lettera" CODTAB[2,2]
  DISPLAY "Classe  @M" CODTAB[3,6]
  DISPLAY "Numero" CODTAB[7,12]
  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]
  OUTPUT F_SUB CODTAB[9,10]
  OUTPUT F_SOTSUB CODTAB[11,12]
  OUTPUT FLD_CM1_DESCIVD S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

STRING FLD_CM1_NUMIVDH 2
BEGIN
  PROMPT 60 7 ""
  FLAGS "HD"
  GROUP 1 5
END

LIST F_SUB 2 9
BEGIN
  PROMPT 64 7 ""
  GROUP 1 5
  ITEM "  |"
  ITEM "02|Bis"
  ITEM "03|Ter"
  ITEM "04|Quater"
  ITEM "05|Quinquies"
  ITEM "06|Sexies"
  FIELD NUMIVD[3,4]
END

LIST F_SUBH 2 9
BEGIN
  PROMPT 64 7 ""
  GROUP 1 5
  ITEM "  |"
  ITEM "02|Bis"
  ITEM "03|Ter"
  ITEM "04|Quater"
  ITEM "05|Quinquies"
  ITEM "06|Sexies"
  FLAGS "H"
END

STRING F_SOTSUB 2
BEGIN
  PROMPT 76 7 ""
  GROUP 1 5
  COPY USE FLD_CM1_NUMIVD
  COPY INPUT FLD_CM1_NUMIVD
  COPY DISPLAY FLD_CM1_NUMIVD
  COPY OUTPUT FLD_CM1_NUMIVD
  FIELD NUMIVD[5,6]
END

STRING F_SOTSUBH 2
BEGIN
  PROMPT 76 7 ""
  GROUP 1 5
  FLAGS "H"
END

STRING FLD_CM1_DESCIVD 70 50
BEGIN
  PROMPT 24 8 ""
  USE %IVD KEY 2
  INPUT S0 FLD_CM1_DESCIVD
  DISPLAY "Descrizione@50" S0
  DISPLAY "Sezione" CODTAB[1,1]
  DISPLAY "Lettera" CODTAB[2,2]
  DISPLAY "Classe  @M" CODTAB[3,6]
  DISPLAY "Numero" CODTAB[7,10]
  COPY OUTPUT FLD_CM1_NUMIVD
  CHECKTYPE NORMAL
  GROUP 1 5
END

STRING FLD_CM1_DESCIVDH 70 50
BEGIN
  PROMPT 24 8 ""
  FLAGS "HD"
  GROUP 1 5
END

LIST FLD_CM1_SEZIVDOPP 1 22
BEGIN
  PROMPT 1 9 "Classe segno opposto   "
  FIELD 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 49 9 ""
  HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
  FIELD LETTIVDOPP
  FLAGS "U"
  GROUP 1 2 4 7
END

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

STRING FLD_CM1_NUMIVDOPP 2
BEGIN
  PROMPT 60 9 ""
  HELP "Codice del conto di sezione opposta secondo la IV direttiva CEE"
  FIELD NUMIVDOPP[1,2]
  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
  INPUT CODTAB[9,10] F_SUBOPP
  INPUT CODTAB[11,12] F_SOTSUBOPP
  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]
  OUTPUT F_SUBOPP CODTAB[9,10]
  OUTPUT F_SOTSUBOPP CODTAB[11,12]
  OUTPUT FLD_CM1_DESCIVDOPP S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

LIST F_SUBOPP 9
BEGIN
  PROMPT 64 9 ""
  GROUP 1 2 4 7
  ITEM "  |"
  ITEM "02|Bis"
  ITEM "03|Ter"
  ITEM "04|Quater"
  ITEM "05|Quinquies"
  ITEM "06|Sexies"
  FIELD NUMIVDOPP[3,4]
END

STRING F_SOTSUBOPP 2
BEGIN
  PROMPT 76 9 ""
  GROUP 1 2 4 7
  COPY USE FLD_CM1_NUMIVDOPP
  COPY INPUT FLD_CM1_NUMIVDOPP
  COPY DISPLAY FLD_CM1_NUMIVDOPP
  COPY OUTPUT FLD_CM1_NUMIVDOPP
  FIELD NUMIVDOPP[5,6]
END

STRING FLD_CM1_DESCIVDOPP 70 50
BEGIN
  PROMPT 24 10 ""
  GROUP 1 2 4 7 
  USE %IVD KEY 2
  INPUT S0 FLD_CM1_DESCIVDOPP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Sezione" CODTAB[1,1]
  DISPLAY "Lettera" CODTAB[2,2]
  DISPLAY "Classe  @M" CODTAB[3,6]
  DISPLAY "Numero" CODTAB[7,10]
  COPY OUTPUT FLD_CM1_NUMIVDOPP
  CHECKTYPE NORMAL
END

LIST FLD_CM1_TIPOSPRIC 2 50
BEGIN
  PROMPT 1 11 "Tipo Spesa/Ricavo      "
  FIELD 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"
 	ITEM "17|17. Operazioni nei confronti dei condominii"
END

LIST FLD_CM1_RICSER 1 18
BEGIN
  PROMPT 1 12 "Merce / Servizi        "
  FIELD RICSER
  ITEM "0|"
  ITEM "1|Servizi"
  ITEM "2|Merce"
END

STRING FLD_CM1_IVACOMP 4
BEGIN
  PROMPT 1 13 "Cod. IVA compensazione    "
  FIELD IVACOMP
  GROUP 1 2
  USE %IVA
  FLAGS "U"
  INPUT CODTAB FLD_CM1_IVACOMP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  DISPLAY "Vent." S6
  DISPLAY "Sospeso" B2
  OUTPUT FLD_CM1_IVACOMP CODTAB
  OUTPUT FLD_CM1_DESCIVACOMP S0
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
END

STRING FLD_CM1_DESCIVACOMP 50 38
BEGIN
  PROMPT 36 13 ""
  GROUP 1 2
  USE %IVA KEY 2
  INPUT S0 FLD_CM1_DESCIVACOMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  DISPLAY "Vent." S6
  DISPLAY "Sospeso" B2
  COPY OUTPUT FLD_CM1_IVACOMP
  CHECKTYPE NORMAL
END

LIST FLD_CM1_TMCF 1 13
BEGIN
  PROMPT 1 13 "Tipo sottoconti           "
  FIELD 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 14 "Controllo saldo primanota "
  HELP "Tipo di controllo del saldo in prima nota"
  FIELD SEZSALDI
  GROUP 1
  ITEM " |Nessuno"
  ITEM "A|Avere"
  ITEM "D|Dare"
END

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

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

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

BOOLEAN FLD_CM2_STSOTTABS
BEGIN
  PROMPT 1 16 "Stampa dettaglio movimenti su analisi  "
  FIELD STSOTTAB
  GROUP 1 2
  MESSAGE COPY,FLD_CM2_STSOTTAB
END

BOOLEAN FLD_CM2_SOSPESO
BEGIN
  PROMPT 56 16 "Conto sospeso"
  HELP "Indicare se sospendere il conto in prima nota"
  FIELD SOSPESO
  GROUP 1 2
END

BOOLEAN FLD_CM2_CMSNEEDED
BEGIN
  PROMPT 1 17 "Conto attivo per contabilita' analitica" 
  FIELD ANALITICA
  GROUP 8
END

ENDPAGE

ENDMASK