campo-sirio/cg/cg0100a.uml

#include "cg0100.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Piano dei conti " 0 0 0 -2

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
  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 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
  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 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 "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 KEY 1
  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 LF_PCON->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 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@11" 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 36
BEGIN
  PROMPT 38 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 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 57 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 57 7 ""
  FLAGS "HDU"
  GROUP 1 5
END

NUMBER FLD_CM1_NUMRIVD 8 4
BEGIN
  PROMPT 61 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 61 7 ""
  FLAGS "HDMZ"
  GROUP  1 5
END

NUMBER FLD_CM1_NUMIVD 2
BEGIN
  PROMPT 72 7 ""
  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@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 FLD_CM1_DESCIVD S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

NUMBER FLD_CM1_NUMIVDH 2
BEGIN
  PROMPT 72 7 ""
  FLAGS "HDZ"
  GROUP 1 5
END

STRING FLD_CM1_DESCIVD 70 50
BEGIN
  PROMPT 24 8 ""
  GROUP 1 5
  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,8]
  COPY OUTPUT FLD_CM1_NUMIVD
  CHECKTYPE NORMAL
END

LIST FLD_CM1_SEZIVDOPP 1 22
BEGIN
  PROMPT 1 9 "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 57 9 ""
  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 61 9 ""
  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 72 9 ""
  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]
  OUTPUT FLD_CM1_DESCIVDOPP S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
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,8]
  COPY OUTPUT FLD_CM1_NUMIVDOPP
  CHECKTYPE NORMAL
END

LIST FLD_CM1_TIPOSPRIC 1 50
BEGIN
  PROMPT 1 11 "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 12 "Ricavi per servizi     "
  FIELD RICSER
  FLAGS "H"
  ITEM "0|Altre attivita'"
  ITEM "1|Servizi"
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 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 14 "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 15 "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 15 "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 16 "Stampa dettaglio sottoconti su analisi"
  HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
  FIELD LF_PCON->STSOTTAB
//  FLAGS "H"
  GROUP 1 3
  MESSAGE COPY,FLD_CM2_STSOTTABS
END

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

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 17 "@bCentri di costo / Commesse"
  GROUP 8
END

BOOLEAN FLD_CM2_CMSNEEDED
BEGIN
  PROMPT 2 18 "CDC/Commessa obbligatoria in prima nota" 
  FIELD CMSNEEDED
  GROUP 8
END

STRING FLD_CM2_CODCMS 20
BEGIN
  PROMPT 2 19 "CDC/Commessa "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB FLD_CM2_CODCMS
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_CM2_CODCMS CODTAB
  OUTPUT FLD_CM2_DESCMS S0
  CHECKTYPE NORMAL
  FIELD CODCMS
  GROUP 8
END

STRING FLD_CM2_DESCMS 50 36
BEGIN
  PROMPT 39 19 ""
  USE CMS KEY 2
  INPUT S0 FLD_CM2_DESCMS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT FLD_CM2_CODCMS
  CHECKTYPE NORMAL
  GROUP 8
END

STRING FLD_CM2_FASCMS 10
BEGIN
  PROMPT 2 20 "Fase         "
  FLAGS "UZ"
  USE FSC
  INPUT CODTAB FLD_CM2_FASCMS
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_CM2_FASCMS CODTAB
  OUTPUT FLD_CM2_DESFAS S0
  CHECKTYPE NORMAL
  FIELD FASCMS
  GROUP 8
END

STRING FLD_CM2_DESFAS 50 36
BEGIN
  PROMPT 39 20 ""
  USE FSC KEY 2
  INPUT S0 FLD_CM2_DESFAS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT FLD_CM2_FASCMS
  CHECKTYPE NORMAL
  GROUP 8
END


ENDPAGE

ENDMASK