#include "cg0100.h" TOOLBAR "" 0 -2 0 2 #include 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 "" 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