root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Maschere di Andrea

Browse Source 
Correzioni Prima Nota


git-svn-id: svn://10.65.10.50/trunk@605 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-11 18:03:21 +00:00
parent 1155d509e5
commit 782f282a3f
33 changed files with 646 additions and 470 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cg/Attic/cg1400a.uml
View File

@ -5,6 +5,7 @@ PAGE "STAMPA DELEGHE IVA" -1 -1 58 11
NUMBER F_ABI 5
BEGIN
PROMPT 1 1 "Codice ABI "
HELP "Codice ABI della banca per la presentazione della delega"
FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodABI
USE %BAN
@ -21,6 +22,7 @@ END
NUMBER F_CAB 5
BEGIN
PROMPT 22 1 "Codice CAB "
HELP "Codice CAB della banca per la presentazione della delega"
FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodCAB
COPY USE F_ABI
@ -37,12 +39,14 @@ END
DATA F_DATA
BEGIN
PROMPT 1 3 "Data di stampa "
HELP "Data che viene stampata sulla delega"
FLAGS "A"
END
LIST F_TIPO 21
BEGIN
PROMPT 28 3 "Tipo "
HELP "Tipo di delega da stampare"
ITEM "1|Periodica" MESSAGE ENABLE,F_MESE
ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
@ -51,12 +55,14 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 5 "Anno "
HELP "Anno di cui si vuole stampare la delega"
FLAGS "A"
END
LIST F_MESE 10
BEGIN
PROMPT 13 5 "Mese "
HELP "Mese di cui si vuole stampare la delega"
FLAGS "MA"
ITEM "13|Annuale" MESSAGE "2",F_TIPO
END
@ -64,6 +70,7 @@ END
BOOLEAN F_PROVA
BEGIN
PROMPT 1 7 "Stampa di prova"
HELP "Indicare se si tratta di una stampa di controllo"
END
BOOLEAN F_AGGIORNA

3
cg/cg0100.cpp
View File

@ -1,8 +1,9 @@
#include <relapp.h>
#include <lffiles.h>
#include <pconti.h>
#include "cg0.h"
#include "cg0100.h"
#define ATTIVITA 1
#define PASSIVITA 2
#define COSTI 3

31
cg/cg0100a.uml
View File

@ -17,6 +17,7 @@ END
NUMBER FLD_CM1_GRUPPO 3
BEGIN
PROMPT 2 1 "Gruppo "
HELP "Codice del gruppo"
FIELD LF_PCON->GRUPPO
FLAGS "R"
KEY 1
@ -38,6 +39,7 @@ END
NUMBER FLD_CM1_CONTO 3
BEGIN
PROMPT 2 2 "Conto "
HELP "Codice dell'eventuale conto"
FIELD LF_PCON->CONTO
FLAGS "R"
KEY 1
@ -62,6 +64,7 @@ END
NUMBER FLD_CM1_SOTTOCONTO 6
BEGIN
PROMPT 2 3 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD LF_PCON->SOTTOCONTO
FLAGS "R"
KEY 1
@ -100,6 +103,7 @@ 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
FLAGS "R"
END
@ -115,7 +119,7 @@ BEGIN
PROMPT 1 6 "Sezione di bilancio "
FIELD LF_PCON->INDBIL
GROUP 1 3
HELP "Indicatore di bilancio"
HELP "Sezione di appartenenza del conto"
ITEM "1|1. Attivita'"
ITEM "2|2. Passivita'"
ITEM "3|3. Costi"
@ -141,6 +145,7 @@ 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"
@ -150,12 +155,13 @@ STRING FLD_CM1_LETTIVDH 1
BEGIN
PROMPT 56 7 ""
FLAGS "HDU"
GROUP 1 5
GROUP 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"
@ -165,12 +171,13 @@ NUMBER FLD_CM1_NUMRIVDH 8 4
BEGIN
PROMPT 60 7 ""
FLAGS "HDMZ"
GROUP 1 5
GROUP 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 "RZ"
GROUP 1 5
@ -217,6 +224,7 @@ 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
@ -225,6 +233,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
@ -233,6 +242,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
@ -255,7 +265,7 @@ BEGIN
PROMPT 1 9 "Tipo Spesa/Ricavo "
FIELD LF_PCON->TIPOSPRIC
GROUP 1 2
HELP "Specificare il tipo Spesa/Ricavo"
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"
@ -268,7 +278,7 @@ END
LIST FLD_CM1_RICSER 1 18
BEGIN
PROMPT 1 10 "Ricavi per servizi "
PROMPT 1 10 "Ricavi per servizi "
FIELD RICSER
FLAGS "H"
ITEM "0|Altre attivita'"
@ -277,10 +287,10 @@ END
LIST FLD_CM1_TMCF 1 13
BEGIN
PROMPT 1 11 "Tipo sottoconti "
PROMPT 1 11 "Tipo sottoconti "
FIELD LF_PCON->TMCF
GROUP 1 3
HELP "Inserire il tipo dei sottoconti"
HELP "Tipo dei sottoconti (Normale o clienti/fornitori)"
ITEM " |Normali"
ITEM "C|Clienti"
ITEM "F|Fornitori"
@ -288,7 +298,8 @@ END
LIST FLD_CM2_SEZSALDI 1 10
BEGIN
PROMPT 1 12 "Controllo saldo primanota "
PROMPT 1 12 "Controllo saldo primanota "
HELP "Tipo di controllo del saldo in prima nota"
FIELD LF_PCON->SEZSALDI
GROUP 1
ITEM " |Nessuno"
@ -299,6 +310,7 @@ END
BOOLEAN FLD_CM2_STSOTTBIL
BEGIN
PROMPT 1 14 "Stampa dettaglio sottoconti su bilanci "
HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci di verifica"
FIELD LF_PCON->STSOTTBIL
GROUP 1 3
END
@ -306,6 +318,7 @@ END
BOOLEAN FLD_CM2_COMPENS
BEGIN
PROMPT 50 14 "Compensazione saldi "
HELP "Indicare se e' ammessa la compensazione dei saldi"
FIELD LF_PCON->COMPENS
GROUP 1 3
END
@ -313,6 +326,7 @@ 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
@ -330,6 +344,7 @@ END
BOOLEAN FLD_CM2_SOSPESO
BEGIN
PROMPT 50 15 "Conto sospeso"
HELP "Indicare se sospendere il conto in prima nota"
FIELD LF_PCON->SOSPESO
GROUP 1 2
END

24
cg/cg0200b.uml
View File

@ -5,35 +5,35 @@ PAGE "" -1 -1 76 16
STRING F_RAGSOCI 50
BEGIN
PROMPT 1 2 "Rag. soc. "
HELP "Inserire la ragione sociale"
HELP "Ragione sociale del cliente/fornitore"
GROUP 1
END
STRING F_INDIRI 35
BEGIN
PROMPT 1 4 "Indirizzo "
HELP "Inserire l'indirizzo"
HELP "Indirizzo del cliente/fornitore"
GROUP 1
END
STRING F_CIVI 10
BEGIN
PROMPT 54 4 "N. "
HELP "Inserire il numero civico"
HELP "Numero civico del cliente/fornitore"
GROUP 1
END
STRING F_LOCALI 35
BEGIN
PROMPT 1 5 "Localita "
HELP "Inserire la localita"
HELP "Localita' di residenza del C/F"
GROUP 1
END
STRING F_CAPI 5
BEGIN
PROMPT 54 5 "CAP "
HELP "Inserire il Codice di Avviamento Postale"
HELP "Codice di Avviamento Postale del C/F"
GROUP 1
END
@ -48,7 +48,7 @@ BEGIN
OUTPUT F_STATOI CODTAB
CHECKTYPE NORMAL
WARNING "Stato assente"
HELP "Inserire il codice dello stato"
HELP "Codice dello stato del cliente/fornitore"
GROUP 1
END
@ -69,13 +69,14 @@ BEGIN
CHECKTYPE NORMAL
WARNING "Comune assente"
ADD MASK ba4100a
HELP "Inserire il codice del comune"
HELP "Codice del comune del cliente/fornitore"
GROUP 1
END
STRING F_DENCOMI 40
BEGIN
PROMPT 33 6 ""
HELP "Nome del comne del ciente/fornitore"
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOMI
DISPLAY "Comune@50" DENCOM
@ -95,39 +96,42 @@ END
STRING F_PTELI 10
BEGIN
PROMPT 2 9 "Telefono "
HELP "Inserire il prefisso ed il numero di telefono"
HELP "Prefisso del numero di telefono"
GROUP 1
END
STRING F_TELI 30
BEGIN
PROMPT 40 9 ""
HELP "Numero di telefono del cliente/fornitore"
GROUP 1
END
STRING F_PFAXI 10
BEGIN
PROMPT 2 10 "Fax "
HELP "Inserire il prefisso del numero di fax"
HELP "Prefisso del numero di fax"
GROUP 1
END
STRING F_FAXI 30
BEGIN
PROMPT 40 10 ""
HELP "Numero di fax del cliente/fornitore"
GROUP 1
END
BOOLEAN F_IVARIDI
BEGIN
PROMPT 2 13 "Riduzione IVA"
HELP "Flag per la riduzione IVA"
HELP "Indicare se Š soggetto a riduzione IVA"
GROUP 1
END
NUMBER F_CODINDI 3
BEGIN
PROMPT 1 1 "Codice "
HELP "Codice riferito alla tabella indirizzi"
END
BUTTON DLG_OK 9 2

15
cg/cg0400a.uml
View File

@ -27,6 +27,7 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 4 3 "Anno liquidazione "
HELP "Anno di cui si effettua la liquidazione"
FLAGS "A"
KEY 1
END
@ -35,6 +36,7 @@ END
RADIOBUTTON F_LIVELLO 21
BEGIN
PROMPT 4 5 "Livello progressivi "
HELP "Tipo di raggruppamento dei riepiloghi"
ITEM "1|Per aliquota"
MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA
MESSAGE HIDE,F_TIPO1|SHOW,F_TIPO|K_SPACE,F_TIPO
@ -46,6 +48,7 @@ END
RADIOBUTTON F_TIPO 18
BEGIN
PROMPT 38 5 "Tipo progressivi "
HELP "Tipo di riepilogo da effettuare"
ITEM "1|Vendite"
MESSAGE HIDE,F_TIPOTABE|SHOW,F_TIPOTAB|HIDE,F_TIPOTABEL
MESSAGE COPY,F_TIPO1
@ -58,6 +61,7 @@ END
RADIOBUTTON F_TIPO1 18
BEGIN
PROMPT 38 5 "Tipo progressivi "
HELP "Tipo di riepilogo da effettuare"
ITEM "1|Vendite"
MESSAGE HIDE,F_TIPOTABE|HIDE,F_TIPOTABEL|SHOW,F_TIPOTAB
MESSAGE COPY,F_TIPO
@ -71,12 +75,14 @@ END
STRING F_CODIVA 3
BEGIN
PROMPT 4 10 "Codice IVA "
HELP "Aliquata IVA da riepilogare"
FLAGS "R"
END
RADIOBUTTON F_TIPOTAB 38
BEGIN
PROMPT 4 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
ITEM "1|Vendite in genere"
ITEM "2|Vendite in sospensione d'imposta"
END
@ -84,6 +90,7 @@ END
STRING F_ATTIVITA 5
BEGIN
PROMPT 4 10 "Codice attivita' "
HELP "Codice dell'attivita' di cui si vuole il riepilogo"
USE LF_ATTIV
FLAGS "H"
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
@ -99,6 +106,7 @@ END
NUMBER F_TIPOTABEL 1
BEGIN
PROMPT 4 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti beni per rivendita"
ITEM "2|Acquisti beni da ammortizzare detraibili"
@ -112,6 +120,7 @@ END
NUMBER F_TIPOTABE 1
BEGIN
PROMPT 4 12 "Tipo tabella "
HELP "Tipo di tabella da visualizzare"
SHEET "Tipo|Descrizione@50"
ITEM "1|Acquisti in genere"
ITEM "2|Acquisti indetraibili su operazioni esenti"
@ -127,15 +136,15 @@ END
BOOLEAN F_VUOILORDI
BEGIN
PROMPT 4 16 "Visualizzazione importi lordi "
HELP "Vuoi visualizzare gli importi lordi ? ([+]=si, [ ]=no)"
HELP "Indicare se visualizzare anche gli importi"
END
BUTTON DLG_OK 9 3
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 9 3
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 ""
END

24
cg/cg0500a.uml
View File

@ -16,6 +16,7 @@ END
STRING F_COD_CAUS 3
BEGIN
PROMPT 3 1 "Codice "
HELP "Codice identificativo della causale"
FIELD LF_CAUSALI->CODCAUS
KEY 1
FLAGS "U"
@ -54,6 +55,7 @@ END
STRING F_TIPO_DOC 2
BEGIN
PROMPT 2 4 "Tipo doc. "
HELP "Tipo di documento collegato alla causale"
FIELD LF_CAUSALI->TIPODOC
USE %TPD
INPUT CODTAB F_TIPO_DOC
@ -71,9 +73,10 @@ END
STRING F_COD_REG 3
BEGIN
PROMPT 23 4 "Cod. reg. "
HELP "Codice registro collegato alla causale"
FIELD LF_CAUSALI->REG
USE REG
INPUT CODTAB[1,4] F_ANNOES
INPUT CODTAB[1,4] F_ANNOES SELECT
INPUT CODTAB[5,7] F_COD_REG
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice registro " CODTAB[5,7]
@ -101,6 +104,7 @@ END
LISTBOX F_TIPO_MOV_1 1 20
BEGIN
PROMPT 44 4 "Tipo mov. "
HELP "Tipo di movimento generato dalla causale"
FIELD LF_CAUSALI->TIPOMOV
HELP "Tipo movimento"
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
@ -114,7 +118,7 @@ LISTBOX F_TIPO_MOV_2 1 20
BEGIN
PROMPT 44 4 "Tipo mov. "
FIELD LF_CAUSALI->TIPOMOV
HELP "Inserire il tipo movimento"
HELP "Tipo di movimento generato dalla causale"
ITEM " |Nessuno" MESSAGE COPY,F_TIPO_MOV
ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV
ITEM "5|Insoluto" MESSAGE COPY,F_TIPO_MOV
@ -126,7 +130,7 @@ LISTBOX F_M_770 1 48
BEGIN
PROMPT 2 5 "Collegamento Mod.770 "
FIELD LF_CAUSALI->M770
HELP "Inserire il tipo di collegamento Mod.770"
HELP "Tipo di collegamento Mod.770"
ITEM " |Nessuno"
ITEM "1|Ricevuta e/o pagamento fattura percipiente"
ITEM "2|Versamento ritenute percipiente"
@ -198,7 +202,7 @@ BOOLEAN F_DATA_DOC
BEGIN
PROMPT 2 4 "Data documento"
FIELD LF_CAUSALI->DATADOC
HELP ""
HELP "Data del documento collegato con la causale"
CHECKTYPE NORMAL
END
@ -206,12 +210,14 @@ BOOLEAN F_NUM_DOC
BEGIN
PROMPT 34 4 "Numero documento"
FIELD LF_CAUSALI->NUMDOC
HELP "Numero del documento collegato con la causale"
CHECKTYPE NORMAL
END
BOOLEAN F_AUTO_FAT
BEGIN
PROMPT 2 6 "Autofattura art.34"
HELP "Indicare se si tratta di autofattura ex art.34"
FIELD LF_CAUSALI->AUTOFATT
CHECKTYPE NORMAL
GROUP 2
@ -220,6 +226,7 @@ END
BOOLEAN F_ALLEGAT
BEGIN
PROMPT 34 6 "Doc. non va in allegati fine anno"
HELP "Indicare se non inserire negli allegati IVA del documento"
FIELD LF_CAUSALI->ALLEG
GROUP 2
END
@ -227,6 +234,7 @@ END
BOOLEAN F_FAT_RITARDO
BEGIN
PROMPT 2 8 "Fattura in ritardo"
HELP "Indicare se le fatture vengono registrate al ricevimento"
FIELD LF_CAUSALI->RITFATT
GROUP 2
END
@ -234,6 +242,7 @@ END
STRING F_COD_CAUS_IM 3
BEGIN
PROMPT 34 8 "Codice causale per l'incasso immediato "
HELP "Codice causale nel caso di incasso immediato"
FLAGS "U"
FIELD LF_CAUSALI->CODCAUSIM
COPY USE F_COD_CAUS
@ -248,6 +257,7 @@ END
BOOLEAN F_OP_INTRACOM
BEGIN
PROMPT 2 10 "Operazione intracomunitaria"
HELP "Indicare se gestire le fatture intracomunitarie"
FIELD LF_CAUSALI->INTRACOM
GROUP 2
END
@ -255,6 +265,7 @@ END
BOOLEAN F_VALINTRA
BEGIN
PROMPT 34 10 "Gestione valuta per operazioni intrac."
HELP "Indicare se registrare l'importo delle fatture CEE in valute"
FIELD LF_CAUSALI->VALINTRA
MESSAGE FALSE " ",F_MOV_VALU|ENABLE,F_MOV_VALU
MESSAGE TRUE "X",F_MOV_VALU|DISABLE,F_MOV_VALU
@ -264,6 +275,7 @@ END
BOOLEAN F_MOV_VALU
BEGIN
PROMPT 2 12 "Movimento in valuta"
HELP "Indicare se si utilizzano gli importi in valuta"
FIELD LF_CAUSALI->MOVVAL
GROUP 2
END
@ -271,6 +283,7 @@ END
BOOLEAN F_MOV_SEZ
BEGIN
PROMPT 34 12 "Movimento solo sezionale"
HELP "Indicare se si tratta solo di moviemto di sezione"
FIELD LF_CAUSALI->MOVSEZ
FLAGS "H"
END
@ -278,6 +291,7 @@ END
LISTBOX F_OP_FINE_ANNO 1 11
BEGIN
PROMPT 2 14 "Operazioni di fine anno "
HELP "Tipo di movimento di fine anno"
ITEM " | "
ITEM "C|Chiusura"
ITEM "A|Apertura"
@ -290,7 +304,7 @@ LISTBOX F_COLL_CESP 1 40
BEGIN
PROMPT 2 16 "Collegamento cespiti "
FIELD LF_CAUSALI->COLLCESP
HELP "Inserire il tipo di collegamento cespiti"
HELP "Tipo di collegamento cespiti"
ITEM " |Nessuno"
ITEM "A|Acquisto cespite"
ITEM "B|Rettifica acquisto"

489
cg/cg0500b.uml
View File

@ -1,239 +1,250 @@
#include "cg0500.h"
PAGE "" -1 -1 68 11
STRING 101 22
BEGIN
PROMPT 1 1 "Tipo "
FLAGS "D"
END
LISTBOX SS_TIPOCF 1 11
BEGIN
PROMPT 33 1 "C/F "
ITEM " |Conto" MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307
ITEM "C|Cliente" MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307
ITEM "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207
FLAGS "DGU"
GROUP 1
END
NUMBER SS_GRUPPO 3
BEGIN
PROMPT 1 3 "Gruppo "
FIELD LF_RCAUSALI->GRUPPO
USE LF_PCON KEY 1 SELECT (CONTO="")
INPUT GRUPPO SS_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Tipo C/F" TMCF
CHECKTYPE NORMAL
OUTPUT SS_GRUPPO GRUPPO
OUTPUT 107 DESCR
WARNING "Gruppo assente"
CHECKTYPE NORMAL
GROUP 1
ADD RUN CG0 -0
END
NUMBER SS_CONTO 3
BEGIN
PROMPT 15 3 "Conto "
FIELD LF_RCAUSALI->CONTO
USE LF_PCON KEY 1 SELECT SOTTOCONTO=""
INPUT GRUPPO SS_GRUPPO
INPUT CONTO SS_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Tipo C/F" TMCF
CHECKTYPE NORMAL
OUTPUT SS_TIPOCF TMCF
OUTPUT SS_CONTO CONTO
OUTPUT SS_GRUPPO GRUPPO
OUTPUT 107 DESCR
OUTPUT 207 DESCR
OUTPUT 307 DESCR
MESSAGE DIRTY,106|DIRTY,206|DIRTY,306
WARNING "Conto assente"
ADD RUN CG0 -0
GROUP 1
END
// Sottoconto NORMALE
NUMBER SS_SOTTOCONTO 6
BEGIN
PROMPT 29 3 "Sottoconto "
FIELD LF_RCAUSALI->SOTTOCONTO
USE LF_PCON
INPUT GRUPPO SS_GRUPPO
INPUT CONTO SS_CONTO
INPUT SOTTOCONTO SS_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT SS_SOTTOCONTO SOTTOCONTO
OUTPUT 206 SOTTOCONTO
OUTPUT 306 SOTTOCONTO
OUTPUT SS_GRUPPO GRUPPO
OUTPUT SS_CONTO CONTO
OUTPUT 107 DESCR
ADD RUN CG0 -0
CHECKTYPE NORMAL
WARNING "Sottoconto assente"
GROUP 1
END
// Sottoconto CLIENTI
NUMBER 206 6
BEGIN
PROMPT 29 3 "Cliente "
FIELD LF_RCAUSALI->SOTTOCONTO
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF 206
DISPLAY "Sottoconto" CODCF
DISPLAY "Ragione sociale cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT 206 CODCF
OUTPUT 106 CODCF
OUTPUT 306 CODCF
OUTPUT 207 RAGSOC
CHECKTYPE NORMAL
WARNING "Cliente assente"
ADD RUN CG0 -1
GROUP 1
END
// Sottoconto FORNITORI
NUMBER 306 6
BEGIN
PROMPT 29 3 "Fornitore "
FIELD LF_RCAUSALI->SOTTOCONTO
USE LF_CLIFO KEY 1
INPUT TIPOCF "F"
INPUT CODCF 306
DISPLAY "Sottoconto" CODCF
DISPLAY "Ragione sociale fornitore@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT 306 CODCF
OUTPUT 106 CODCF
OUTPUT 206 CODCF
OUTPUT 307 RAGSOC
CHECKTYPE NORMAL
WARNING "Fornitore assente"
ADD RUN CG0 -1
GROUP 1
END
LISTBOX SS_SEZIONE 5
BEGIN
PROMPT 51 3 "Sezione "
ITEM " | "
ITEM "D|Dare"
ITEM "A|Avere"
FIELD LF_RCAUSALI->SEZIONE
FLAGS "U"
GROUP 1
END
// Descrizione normale
STRING 107 50
BEGIN
PROMPT 1 5 "Descrizione "
FIELD LF_RCAUSALI->DESC
USE LF_PCON KEY 2
INPUT DESCR 107
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT SS_SOTTOCONTO SOTTOCONTO
OUTPUT SS_CONTO CONTO
OUTPUT SS_GRUPPO GRUPPO
OUTPUT 107 DESCR
ADD RUN CG0 -0
GROUP 1
END
// Descrizione CLIENTE
STRING 207 50
BEGIN
PROMPT 1 5 "Rag. Soc. "
FIELD LF_RCAUSALI->DESC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC 207
DISPLAY "Tipo C/F" TIPOCF
DISPLAY "Ragione sociale Cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" CODCF
OUTPUT 206 CODCF
OUTPUT 207 RAGSOC
GROUP 1
END
// Descrizione FORNITORE
STRING 307 50
BEGIN
PROMPT 1 5 "Rag. Soc. "
FIELD LF_RCAUSALI->DESC
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC 307
DISPLAY "Tipo C/F" TIPOCF
DISPLAY "Ragione sociale Fornitore@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" CODCF
OUTPUT 306 CODCF
OUTPUT 307 RAGSOC
GROUP 1
END
STRING SS_DESCAGG 5
BEGIN
PROMPT 1 7 "Descrizione aggiuntiva "
FIELD LF_RCAUSALI->CODDESC
FLAGS "U"
USE %DPN
INPUT CODTAB SS_DESCAGG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT SS_DESCAGG CODTAB
OUTPUT 109 S0
CHECKTYPE NORMAL
GROUP 1
END
STRING 109 50
BEGIN
PROMPT 1 8 ""
FLAGS "D"
GROUP 1
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BEGIN
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
END
ENDPAGE
ENDMASK
#include "cg0500.h"
PAGE "" -1 -1 68 11
STRING 101 22
BEGIN
PROMPT 1 1 "Tipo "
FLAGS "D"
END
LISTBOX SS_TIPOCF 1 11
BEGIN
PROMPT 33 1 "C/F "
ITEM " |Conto" MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307
ITEM "C|Cliente" MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307
ITEM "F|Fornitore" MESSAGE SHOW,306|HIDE,106|HIDE,206|SHOW,307|HIDE,107|HIDE,207
FLAGS "DGU"
GROUP 1
END
NUMBER SS_GRUPPO 3
BEGIN
PROMPT 1 3 "Gruppo "
HELP "Codice del gruppo"
FIELD LF_RCAUSALI->GRUPPO
USE LF_PCON KEY 1 SELECT (CONTO="")
INPUT GRUPPO SS_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Tipo C/F" TMCF
CHECKTYPE NORMAL
OUTPUT SS_GRUPPO GRUPPO
OUTPUT 107 DESCR
WARNING "Gruppo assente"
CHECKTYPE NORMAL
GROUP 1
ADD RUN CG0 -0
END
NUMBER SS_CONTO 3
BEGIN
PROMPT 15 3 "Conto "
HELP "Codice del conto"
FIELD LF_RCAUSALI->CONTO
USE LF_PCON KEY 1 SELECT SOTTOCONTO=""
INPUT GRUPPO SS_GRUPPO
INPUT CONTO SS_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
DISPLAY "Tipo C/F" TMCF
CHECKTYPE NORMAL
OUTPUT SS_TIPOCF TMCF
OUTPUT SS_CONTO CONTO
OUTPUT SS_GRUPPO GRUPPO
OUTPUT 107 DESCR
OUTPUT 207 DESCR
OUTPUT 307 DESCR
MESSAGE DIRTY,106|DIRTY,206|DIRTY,306
WARNING "Conto assente"
ADD RUN CG0 -0
GROUP 1
END
// Sottoconto NORMALE
NUMBER SS_SOTTOCONTO 6
BEGIN
PROMPT 29 3 "Sottoconto "
HELP "Codice del sottoconto"
FIELD LF_RCAUSALI->SOTTOCONTO
USE LF_PCON
INPUT GRUPPO SS_GRUPPO
INPUT CONTO SS_CONTO
INPUT SOTTOCONTO SS_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT SS_SOTTOCONTO SOTTOCONTO
OUTPUT 206 SOTTOCONTO
OUTPUT 306 SOTTOCONTO
OUTPUT SS_GRUPPO GRUPPO
OUTPUT SS_CONTO CONTO
OUTPUT 107 DESCR
ADD RUN CG0 -0
CHECKTYPE NORMAL
WARNING "Sottoconto assente"
GROUP 1
END
// Sottoconto CLIENTI
NUMBER 206 6
BEGIN
PROMPT 29 3 "Cliente "
HELP "Codice sottoconto del cliente"
FIELD LF_RCAUSALI->SOTTOCONTO
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF 206
DISPLAY "Sottoconto" CODCF
DISPLAY "Ragione sociale cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT 206 CODCF
OUTPUT 106 CODCF
OUTPUT 306 CODCF
OUTPUT 207 RAGSOC
CHECKTYPE NORMAL
WARNING "Cliente assente"
ADD RUN CG0 -1
GROUP 1
END
// Sottoconto FORNITORI
NUMBER 306 6
BEGIN
PROMPT 29 3 "Fornitore "
HELP "Codice sottoconto del cliente"
FIELD LF_RCAUSALI->SOTTOCONTO
USE LF_CLIFO KEY 1
INPUT TIPOCF "F"
INPUT CODCF 306
DISPLAY "Sottoconto" CODCF
DISPLAY "Ragione sociale fornitore@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT 306 CODCF
OUTPUT 106 CODCF
OUTPUT 206 CODCF
OUTPUT 307 RAGSOC
CHECKTYPE NORMAL
WARNING "Fornitore assente"
ADD RUN CG0 -1
GROUP 1
END
LISTBOX SS_SEZIONE 5
BEGIN
PROMPT 51 3 "Sezione "
HELP "Indicare la sezione del conto"
ITEM " | "
ITEM "D|Dare"
ITEM "A|Avere"
FIELD LF_RCAUSALI->SEZIONE
FLAGS "U"
GROUP 1
END
// Descrizione normale
STRING 107 50
BEGIN
PROMPT 1 5 "Descrizione "
HELP "Indicare la descrizione della riga"
FIELD LF_RCAUSALI->DESC
USE LF_PCON KEY 2
INPUT DESCR 107
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
OUTPUT SS_SOTTOCONTO SOTTOCONTO
OUTPUT SS_CONTO CONTO
OUTPUT SS_GRUPPO GRUPPO
OUTPUT 107 DESCR
ADD RUN CG0 -0
GROUP 1
END
// Descrizione CLIENTE
STRING 207 50
BEGIN
PROMPT 1 5 "Rag. Soc. "
HELP "Ragione sociale del cliente"
FIELD LF_RCAUSALI->DESC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC 207
DISPLAY "Tipo C/F" TIPOCF
DISPLAY "Ragione sociale Cliente@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" CODCF
OUTPUT 206 CODCF
OUTPUT 207 RAGSOC
GROUP 1
END
// Descrizione FORNITORE
STRING 307 50
BEGIN
PROMPT 1 5 "Rag. Soc. "
HELP "Ragione sociale del fornitore"
FIELD LF_RCAUSALI->DESC
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC 307
DISPLAY "Tipo C/F" TIPOCF
DISPLAY "Ragione sociale Fornitore@50" RAGSOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" CODCF
OUTPUT 306 CODCF
OUTPUT 307 RAGSOC
GROUP 1
END
STRING SS_DESCAGG 5
BEGIN
PROMPT 1 7 "Descrizione aggiuntiva"
HELP "Codice della descrizione aggiuntiva"
FIELD LF_RCAUSALI->CODDESC
FLAGS "U"
USE %DPN
INPUT CODTAB SS_DESCAGG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT SS_DESCAGG CODTAB
OUTPUT 109 S0
CHECKTYPE NORMAL
WARNING "Codice descrizione aggiuntiva assente"
GROUP 1
END
STRING 109 50
BEGIN
PROMPT 1 8 ""
FLAGS "D"
GROUP 1
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BEGIN
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
END
ENDPAGE
ENDMASK

9
cg/cg1100a.uml
View File

@ -23,7 +23,8 @@ END
DATE F_DATA_STAMPA
BEGIN
PROMPT 2 4 "Data di stampa "
PROMPT 2 4 "Data di stampa "
HELP "Data da riportare sui fogli"
FLAGS "A"
END
@ -58,9 +59,3 @@ END
ENDPAGE
ENDMASK

20
cg/cg1200a.uml
View File

@ -81,7 +81,7 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT FLD_CLI_CODFR CODCF
GROUP 1 3
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
HELP "Codice di inizio stampa: vuoto = inizio archivio"
END
STRING FLD_CLI_CODTO 5
@ -93,7 +93,7 @@ BEGIN
COPY DISPLAY FLD_CLI_CODFR
OUTPUT FLD_CLI_CODTO CODCF
GROUP 1 3
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
HELP "Codice di fine stampa: vuoto = fine archivio"
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)}
WARNING "Limite superiore errato"
END
@ -110,7 +110,7 @@ BEGIN
OUTPUT FLD_CLI_RAGSOCFR RAGSOC
OUTPUT F_TIPOAPERFR TIPOAPER
GROUP 1 4
HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio"
HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END
STRING FLD_CLI_RAGSOCTO 50 29
@ -123,7 +123,7 @@ BEGIN
OUTPUT FLD_CLI_RAGSOCTO RAGSOC
OUTPUT F_TIPOAPERTO TIPOAPER
GROUP 1 4
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)}
WARNING "Limite superiore errato"
END
@ -137,7 +137,7 @@ BEGIN
COPY DISPLAY FLD_CLI_CODFR
OUTPUT FLD_FOR_CODFR CODCF
GROUP 2 3
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
HELP "Codice C/F di inizio stampa: vuoto = inizio archivio"
END
STRING FLD_FOR_CODTO 5
@ -149,7 +149,7 @@ BEGIN
COPY DISPLAY FLD_CLI_CODFR
OUTPUT FLD_FOR_CODTO CODCF
GROUP 2 3
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
HELP "Codice C/F di fine stampa: vuoto = fine archivio"
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)}
WARNING "Limite superiore errato"
END
@ -164,7 +164,7 @@ BEGIN
OUTPUT FLD_FOR_RAGSOCFR RAGSOC
OUTPUT F_TIPOAPERFR TIPOAPER
GROUP 2 4
HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio"
HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END
STRING FLD_FOR_RAGSOCTO 50 29
@ -177,7 +177,7 @@ BEGIN
OUTPUT FLD_FOR_RAGSOCTO RAGSOC
OUTPUT F_TIPOAPERTO TIPOAPER
GROUP 2 4
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)}
WARNING "Limite superiore errato"
END
@ -197,7 +197,7 @@ END
BOOLEAN CHK_CG12_MOVIM
BEGIN
PROMPT 4 13 "Solo movimentati"
HELP "Selezionare per stampare solo inclusi archivio movimenti"
HELP "Indicare se stampare solo inclusi archivio movimenti"
END
LIST LST_CG12_INTERLINE 1
@ -206,7 +206,7 @@ BEGIN
ITEM "0|0"
ITEM "1|1"
ITEM "2|2"
HELP "Scegliere il numero di righe di interlinea tra i nominativi"
HELP "Indicare il numero di righe di interlinea tra i nominativi"
END
GROUPBOX DLG_NULL 51 4

8
cg/cg1200b.uml
View File

@ -5,28 +5,28 @@ NUMBER FLD_CGB_STARTROW 4
BEGIN
PROMPT 2 1 "Riga di inizio in etichetta "
FLAGS "R"
HELP "Immettere la prima riga da stampare nell'etichetta"
HELP "Prima riga da stampare nell'etichetta"
END
NUMBER FLD_CGB_STARTCOL 4
BEGIN
PROMPT 2 3 "Colonna di inizio in etichetta "
FLAGS "R"
HELP "Immettere il margine sinistro desiderato"
HELP "Margine sinistro desiderato"
END
NUMBER FLD_CGB_ROWSET 4
BEGIN
PROMPT 2 5 "N. totale di righe etichetta "
FLAGS "R"
HELP "Immettere il numero totale di righe per etichetta"
HELP "Numero totale di righe per etichetta (altezza)"
END
NUMBER FLD_CGB_COLSET 4
BEGIN
PROMPT 2 7 "N. totale colonne etichetta "
FLAGS "R"
HELP "Immettere il numero totale di colonne per etichetta"
HELP "Numero totale di colonne per etichetta (larghezza)"
END
BUTTON DLG_OK 9 2

7
cg/cg1400a.uml
View File

@ -5,6 +5,7 @@ PAGE "STAMPA DELEGHE IVA" -1 -1 58 11
NUMBER F_ABI 5
BEGIN
PROMPT 1 1 "Codice ABI "
HELP "Codice ABI della banca per la presentazione della delega"
FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodABI
USE %BAN
@ -21,6 +22,7 @@ END
NUMBER F_CAB 5
BEGIN
PROMPT 22 1 "Codice CAB "
HELP "Codice CAB della banca per la presentazione della delega"
FLAGS "RZ"
FIELD CNF_STUDIO->cg.CodCAB
COPY USE F_ABI
@ -37,12 +39,14 @@ END
DATA F_DATA
BEGIN
PROMPT 1 3 "Data di stampa "
HELP "Data che viene stampata sulla delega"
FLAGS "A"
END
LIST F_TIPO 21
BEGIN
PROMPT 28 3 "Tipo "
HELP "Tipo di delega da stampare"
ITEM "1|Periodica" MESSAGE ENABLE,F_MESE
ITEM "2|Annuale" MESSAGE "13",F_MESE|DISABLE,F_MESE
ITEM "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
@ -51,12 +55,14 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 5 "Anno "
HELP "Anno di cui si vuole stampare la delega"
FLAGS "A"
END
LIST F_MESE 10
BEGIN
PROMPT 13 5 "Mese "
HELP "Mese di cui si vuole stampare la delega"
FLAGS "MA"
ITEM "13|Annuale" MESSAGE "2",F_TIPO
END
@ -64,6 +70,7 @@ END
BOOLEAN F_PROVA
BEGIN
PROMPT 1 7 "Stampa di prova"
HELP "Indicare se si tratta di una stampa di controllo"
END
BOOLEAN F_AGGIORNA

23
cg/cg1500a.uml
View File

@ -24,12 +24,14 @@ END
DATE F_DATASTAMPA
BEGIN
PROMPT 48 1 "Data stampa "
HELP "Data che verra' stampata sul bilancio"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Anno esercizio "
HELP "Anno di cui si vuole ottenre il bilancio"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB
@ -45,7 +47,7 @@ END
RADIOBUTTON F_BILANCIO 33
BEGIN
PROMPT 2 5 "Tipo bilancio "
HELP "Indicare il tipo di bilancio"
HELP "Indicare il tipo di bilancio da stampare"
ITEM "1|Bilancio a sezioni contrapposte"
MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
@ -90,21 +92,25 @@ END
DATE F_DATALIM
BEGIN
PROMPT 2 9 "Data limite "
HELP "Data fino alla quale si vuole la stampa"
END
BOOLEAN F_TOTALI
BEGIN
PROMPT 33 9 "Non stampare totali per gruppo "
HELP "Indicare se non si devono stampare i totali dei gruppi"
END
BOOLEAN F_CODICI
BEGIN
PROMPT 2 10 "Non stampare codici conti "
HELP "Indicare se non si devono stampare i codici dei conti"
END
BOOLEAN F_SALDO
BEGIN
PROMPT 33 10 "Non stampare movimenti con saldo a zero "
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
END
TEXT 96
@ -130,6 +136,7 @@ END
DATE F_DATADA
BEGIN
PROMPT 24 10 ""
HELP "Data dalla quale iniziare la stampa"
END
DATE F_DATAA
@ -140,6 +147,7 @@ END
BOOLEAN F_STAMPAMPROV
BEGIN
PROMPT 2 11 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
BUTTON DLG_OK 9 2
@ -159,6 +167,7 @@ PAGE "Pag. 2" -1 -1 74 20
RADIOBUTTON F_VERIFICA 27
BEGIN
PROMPT 2 1 "Stampa bilancio di verifica "
HELP "Tipo di bilancio di verifica"
ITEM "1|Bilancio"
ITEM "2|Saldi di mastro"
ITEM "3|Situazione C/F"
@ -167,6 +176,7 @@ END
RADIOBUTTON F_STAMPAC 35
BEGIN
PROMPT 35 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"
END
@ -174,6 +184,7 @@ END
RADIOBUTTON F_STAMPAV 35
BEGIN
PROMPT 35 1 "Tipo stampa "
HELP "Help tipo di stampa del bilancio"
ITEM "1|Conti movimentati"
ITEM "2|Conti con saldo diverso da zero"
ITEM "3|Tutti i conti"
@ -182,6 +193,7 @@ END
LIST F_MODULO 10
BEGIN
PROMPT 2 8 "Stampa su modulo stretto "
HELP "Indicare il numero di caratteri del foglio (larghezza)"
ITEM "1|132 crt."
ITEM "2|198 crt."
END
@ -189,6 +201,7 @@ END
LIST F_SITUAZIONE 11
BEGIN
PROMPT 2 10 "Tipo situazione "
HELP "Indicare il tipo di situazione che si vuole ottenere"
ITEM " |Entrambi"
ITEM "C|Clienti"
ITEM "F|Fornitori"
@ -206,6 +219,7 @@ END
LIST F_ORDINAMENTO 11
BEGIN
PROMPT 2 11 "Tipo ordinamento "
HELP "Indicare il tipo di ordinamento da effettuare"
ITEM "1|Per codice"
ITEM "2|Alfabetico"
END
@ -223,10 +237,3 @@ END
ENDPAGE
ENDMASK

23
cg/cg1600a.uml
View File

@ -24,6 +24,7 @@ END
NUMBER F_ANNOESE 4
BEGIN
PROMPT 4 5 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC
INPUT CODTAB F_ANNOESE
DISPLAY "Anno" CODTAB
@ -37,6 +38,7 @@ END
NUMBER F_ANNORAFFR 4
BEGIN
PROMPT 36 5 "Anno esercizio da raffrontare "
HELP "Anno d'esercizio da raffrontare (in caso di confronto)"
COPY USE F_ANNOESE
INPUT CODTAB F_ANNORAFFR
COPY DISPLAY F_ANNOESE
@ -48,6 +50,7 @@ END
LIST F_TIPOBIL 22
BEGIN
PROMPT 4 6 "Tipo bilancio "
HELP "Indicare il tipo di bilancio da stampare"
ITEM "1|Bilancio scalare"
MESSAGE HIDE,F_TIPOSTAMPA1|RESET,F_TIPOSTAMPA1|SHOW,F_TIPOSTAMPA|K_SPACE,F_TIPOSTAMPA
MESSAGE SHOW,F_ANNORAFFR|SHOW,F_DATABILRAF
@ -59,6 +62,7 @@ END
LIST F_TIPOSTAMPA 23
BEGIN
PROMPT 4 7 "Tipo stampa "
HELP "Indicare il tipo di stampa che si vuole avere"
ITEM "1|Per data limite"
MESSAGE HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATAFINE
@ -71,7 +75,12 @@ END
LIST F_TIPOSTAMPA1 23
BEGIN
<<<<<<< cg1600a.uml
PROMPT 4 7 "Tipo stampa1 "
HELP "Indicare il tipo di stampa che si vuole avere"
=======
PROMPT 4 7 "Tipo stampa "
>>>>>>> 1.5
ITEM "1|Per data "
MESSAGE HIDE,F_DATALIM
MESSAGE RESET,F_DATALIM
@ -86,7 +95,12 @@ END
DATE F_DATASTAMPA
BEGIN
<<<<<<< cg1600a.uml
PROMPT 4 4 "Data stampa "
HELP "Indicare la data da stampare sul bilancio"
=======
PROMPT 4 8 "Data stampa "
>>>>>>> 1.5
FLAGS "A"
END
@ -112,50 +126,59 @@ END
DATE F_DATALIM
BEGIN
PROMPT 4 9 "Data limite "
HELP "Data fin alla quale si vuole la stampa"
// VALIDATE NOT_EMPTY_FUNC
END
DATE F_DATABILRAF
BEGIN
PROMPT 36 9 "Data bil. da raffrontare "
HELP "Data d'esercizio da raffrontare con data limite"
// VALIDATE NOT_EMPTY_FUNC
END
DATE F_DATAINI
BEGIN
PROMPT 26 9 ""
HELP "Data di inizio calcolo"
// VALIDATE NOT_EMPTY_FUNC
END
DATE F_DATAFINE
BEGIN
PROMPT 62 9 ""
HELP "Data di fine calcolo"
// VALIDATE NOT_EMPTY_FUNC
END
BOOLEAN F_STAMPAINT
BEGIN
PROMPT 4 11 "Stampa intera struttura"
HELP "Indicare se ottenere un stampa completa nella sua struttura"
END
BOOLEAN F_STAMPACOD
BEGIN
PROMPT 41 11 "Non stampare cod. conti"
HELP "Indicare se non stampare i codici dei conti"
END
BOOLEAN F_STAMPAMOV
BEGIN
PROMPT 4 12 "Non stampare mov. con saldo a 0"
HELP "Indicare se non stampare i movimenti con saldo nullo"
END
BOOLEAN F_STAMPAMOVPROV
BEGIN
PROMPT 41 12 "Stampa movimenti provvisori"
HELP "Indicare se stampare anche i movimenti provvisori"
END
BOOLEAN F_STAMPAMODULO
BEGIN
PROMPT 4 13 "Stampa su modulo stretto"
HELP "Indicare se si stampa su modulo stretto (80 colonne)"
END
BUTTON DLG_OK 9 2

1
cg/cg1700a.uml
View File

@ -24,6 +24,7 @@ END
DATE F_DATASTAMPA
BEGIN
PROMPT 1 4 "Data stampa "
HELP "Data da riportare sui fogli da stampare"
FLAGS "A"
END

20
cg/cg2100.cpp
View File

@ -312,10 +312,7 @@ void TPrimanota_application::init_mask(TMask& m)
if (corrisp) m.hide(F_STATOPAIV);
m.show(F_CORRLIRE, intra);
const bool corrval = intra && valintra;
m.show(F_CORRVALUTA, corrval);
m.show(F_CORRVALUTA, valintra);
m.show(F_CODIVA, m.mode() == MODE_INS);
}
@ -357,9 +354,8 @@ const char* TPrimanota_application::get_next_key()
TToken_string k(80);
k.add(F_NUMREG); k.add(_lastreg+1);
TMask& m = curr_mask();
if (!m.query_mode())
if (m.insert_mode())
{
k.add(F_CODCAUS); k.add(m.get(F_CODCAUS)); // Ricopia causale
k.add(F_DATAREG); k.add(m.get(F_DATAREG)); // data operazione
@ -406,6 +402,14 @@ void TPrimanota_application::init_insert_mode(TMask& m)
TBill tc; _causale.bill(nriga, tc);
if (tc.conto() < 1) continue; // Considera solo conti validi
if (tc.tipo() > ' ' && tc.sottoconto() != 0)
{
TBill clifo(0, 0, tc.sottoconto(), tc.tipo());
clifo.descrizione();
if (clifo.conto() != 0)
tc = clifo;
}
const char sezione = rcaus->get_char(RCA_SEZIONE);
const TImporto zero('D', ZERO);
const TString80 desc(_causale.desc_agg(i));
@ -435,6 +439,8 @@ void TPrimanota_application::init_insert_mode(TMask& m)
void TPrimanota_application::init_modify_mode(TMask& m)
{
init_mask(m);
calcola_imp(); // Calcola totale imponibile ed imposte
calcola_saldo(); // Verifica eventuali sbilanci
}
@ -751,7 +757,7 @@ int TPrimanota_application::write(const TMask& m)
if (iva() != nessuna_iva)
{
causale().reg().reread(); // Aggiorna protocollo IVA
if (!gestione_saldaconto())
if (!gestione_saldaconto() && !m.get_bool(F_SOLAIVA))
{
const TString16 causimm(causale().causale_inc_imm());
if (causimm.not_empty())

5
cg/cg2100a.uml
View File

@ -32,6 +32,7 @@ END
NUMBER F_NUMREG 6
BEGIN
PROMPT 1 4 "Operazione n. "
HELP "Numero del movimento di prima nota da gestire"
FLAGS "R"
FIELD LF_MOV->NUMREG
USE LF_MOV
@ -65,7 +66,7 @@ DATE F_DATACOMP
BEGIN
PROMPT 1 7 "Data di competenza "
CHECKTYPE REQUIRED
WARNING "E' obbligatorio specificare la data di competenza"
WARNING "Data di competenza dell'operazione"
FLAGS "A"
END
@ -78,6 +79,7 @@ END
STRING F_CODCAUS 3
BEGIN
PROMPT 1 9 "Causale "
HELP "Codice della causale generante l'operazione"
FLAGS "U"
FIELD LF_MOV->CODCAUS
USE LF_CAUSALI KEY 1
@ -95,6 +97,7 @@ END
STRING F_DESCRCAUS 50
BEGIN
PROMPT 23 9 ""
HELP "Descrizione della causale generante l'operazione"
USE LF_CAUSALI KEY 2
CHECKTYPE NORMAL
INPUT DESCR F_DESCRCAUS

12
cg/cg2100b.uml
View File

@ -41,6 +41,7 @@ END
DATE F_DATAREG
BEGIN
PROMPT 1 3 "Data operazione "
HELP "Data in cui viene effettuata l'operazione"
FIELD DATAREG
END
@ -48,6 +49,7 @@ END
DATE F_DATACOMP
BEGIN
PROMPT 1 4 "Data di competenza "
HELP "Data di competenza dell'operazione"
FIELD DATACOMP
END
@ -61,6 +63,7 @@ END
DATE F_DATADOC
BEGIN
PROMPT 1 5 "Data del documento "
HELP "Data del documento generante il movimento"
FIELD DATADOC
WARNING "Specificare una data del documento non superiore a quella dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG
@ -69,6 +72,7 @@ END
STRING F_NUMDOC 7
BEGIN
PROMPT 57 5 "Documento n. "
HELP "Numero del documento generante il movimento"
FIELD NUMDOC
WARNING "La causale impone di specificare il numero documento"
END
@ -81,6 +85,7 @@ END
STRING F_DESCAGG 5
BEGIN
PROMPT 1 6 "Descrizione "
HELP "Codice descrizione del movimento di contabilita'"
FLAGS "U"
USE %DPN
INPUT CODTAB F_DESCAGG
@ -94,6 +99,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 25 6 ""
HELP "Descrizione del movimento di contabilita'"
FIELD DESCR
USE %DPN KEY 2
INPUT S0 F_DESCR
@ -105,6 +111,7 @@ END
LIST F_PROVVISORIO 1 25
BEGIN
PROMPT 1 7 "Movimento provvisorio "
HELP "Indicare se si tratta di movimento provvisorio"
FIELD PROVVIS
ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)"
@ -114,6 +121,7 @@ END
STRING F_CODCAUS 3
BEGIN
PROMPT 1 8 "Causale "
HELP "Codice della causale generante l'operazione"
FLAGS "U"
FIELD CODCAUS
USE LF_CAUSALI KEY 1
@ -131,6 +139,7 @@ END
STRING F_DESCRCAUS 50
BEGIN
PROMPT 23 8 ""
HELP "Descrizione della causale generante l'operazione"
USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR
@ -141,6 +150,7 @@ END
STRING F_VALUTA 3
BEGIN
PROMPT 1 9 "Valuta "
HELP "Codice della valuta per movimento"
FIELD LF_MOV->CODVAL
FLAGS "U"
GROUP 3
@ -158,6 +168,7 @@ END
NUMBER F_CAMBIO 15 5
BEGIN
PROMPT 20 9 "Cambio "
HELP "Cambio della valuta"
FIELD LF_MOV->CAMBIO
FLAGS "RU"
GROUP 3
@ -167,6 +178,7 @@ END
BOOLEAN F_VISVAL
BEGIN
PROMPT 47 9 "Visualizza importi in valuta"
HELP "Indicare se gli importi sono visualizzati in valuta (non in Lit)"
GROUP 3
END

2
cg/cg2100i.uml
View File

@ -225,7 +225,7 @@ END
LIST I_SEZIONE3 1 8
BEGIN
PROMPT 1 9 "Riga 2 "
PROMPT 1 9 "Riga 3 "
ITEM "D|Dare"
ITEM "A|Avere"
END

13
cg/cg2101.cpp
View File

@ -177,13 +177,14 @@ bool TMovimentoPN::controlla_liquidazione(const TDate& data, bool reset) const
key << anno << mese;
lim.put("CODTAB", key);
if (lim.read() == NOERR)
calcolata = lim.get_bool("B0");
calcolata = lim.get_bool("B1"); // Controlla se calcolata in definitivo
if (calcolata && reset)
if (reset && lim.get_bool("B0"))
{
// Resetta il flag di calcolato sulla liquidazione IVA del mese di registrazione
lim.put("B0", FALSE);
lim.write();
// Resetta i flag di calcolato sulla liquidazione IVA del mese di registrazione
lim.put("B0", FALSE); // calcolato
lim.put("B1", FALSE); // definitivo
lim.rewrite();
}
return calcolata;
@ -228,7 +229,7 @@ int TMovimentoPN::registra(bool re, bool force)
if (att_mista)
{
const char tipo = r.get_char("TIPOC");
if (tipo == ' ')
if (tipo <= ' ')
{
TBill c(r.get_int("GRUPPO"), r.get_int("CONTO"), r.get_long("SOTTOCONTO"));
tipoatt = c.tipo_att();

6
cg/cg2102.cpp
View File

@ -126,7 +126,7 @@ bool TPrimanota_application::detraibile(TToken_string& row)
return FALSE;
const real& prorata = app().causale().reg().prorata();
return prorata != 100.0; // Se prorata = 100% e' indetraibile
return prorata < 100.0; // Se prorata = 100% e' indetraibile
}
///////////////////////////////////////////////////////////
@ -147,6 +147,7 @@ int TPrimanota_application::type2pos(char tipo)
}
// Trova nelle righe contabili un conto nelle righe di tipo prescelto
int TPrimanota_application::bill2pos(const TBill& conto, char tipo)
{
TSheet_field& cg = app().cgs();
@ -165,6 +166,7 @@ int TPrimanota_application::bill2pos(const TBill& conto, char tipo)
}
// Trova nelle righe contabili un conto di contropartita per il conto dato
int TPrimanota_application::bill2contr(const TBill& conto, char sezione) const
{
const TArray& rows = cgs().rows_array();
@ -1034,7 +1036,7 @@ bool TPrimanota_application::sheet_clifo_handler(TMask_field& f, KEY k)
const long codice = atol(f.get());
if (codice > 0L)
{
TBill c(0, 0, codice, m.get(cid-2)[0]);
TBill c(0, 0, codice, f.dlg() > 300 ? 'F' : 'C');
c.descrizione(); // Carica gruppo e conto
m.set(cid-1, c.gruppo());
m.set(cid, c.conto());

7
cg/cg2103.cpp
View File

@ -352,9 +352,10 @@ const TRectype& TCausale::row(int num) const
TBill& TCausale::bill(int num, TBill& conto) const
{
const TRectype& rec = row(num);
conto.set(rec.get_int(RCA_GRUPPO), rec.get_int(RCA_CONTO),
rec.get_long(RCA_SOTTOCONTO), rec.get_char(RCA_TIPOCF));
const TRectype* rec = (const TRectype*)objptr(num);
if (rec != NULL)
conto.set(rec->get_int(RCA_GRUPPO), rec->get_int(RCA_CONTO),
rec->get_long(RCA_SOTTOCONTO), rec->get_char(RCA_TIPOCF));
return conto;
}

48
cg/cg3100a.uml
View File

@ -24,6 +24,7 @@ END
DATE F_DATASTAMPA
BEGIN
PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
@ -31,6 +32,7 @@ NUMBER F_ANNO 4
BEGIN
GROUP 3
PROMPT 2 3 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la lista"
USE ESC
CHECKTYPE NORMAL
INPUT CODTAB F_ANNO
@ -55,7 +57,7 @@ END
LIST F_CONTROLLO 21
BEGIN
PROMPT 2 7 "Controllo movimenti errati "
HELP "La scelta 1 stampa tutte le registrazioni senza la segnalazione di quelle errate; la scelta 2 permette di listare tutte le registrazioni inserite, segnalando quelle errate; la scelta 3 stampa solo le registrazioni errate"
HELP "Indicare il tipo di controllo per movimenti errati"
ITEM "3|No" MESSAGE HIDE,1@|RESET,1@
ITEM "2|Si" MESSAGE SHOW,1@
ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
@ -70,13 +72,15 @@ END
BOOLEAN F_ANNOC
BEGIN
GROUP 1
PROMPT 20 8 "anno di competenza "
PROMPT 20 8 "Anno di competenza "
HELP "Indicare se stampa l'anno di competenza"
END
BOOLEAN F_ALLEGATO
BEGIN
GROUP 1
PROMPT 20 9 "allegato iva "
PROMPT 20 9 "Allegato iva "
HELP "Indicare se stampare l'allegato IVA"
MESSAGE TRUE DISABLE,F_STAMPA|COPY,F_STAMPA
MESSAGE FALSE ENABLE,F_STAMPA
END
@ -84,26 +88,42 @@ END
RADIOBUTTON F_DECIDI 10
BEGIN
PROMPT 2 10 "Stampa "
HELP "Indicare il criterio di scelta dei movimenti"
ITEM "2|data" MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
END
DATE F_DATAINI
BEGIN
<<<<<<< cg3100a.uml
PROMPT 19 11 "Stampa mov. dalla data "
HELP "Data da cui iniziare la stampa"
=======
PROMPT 16 11 "Stampa mov. dalla data "
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
>>>>>>> 1.12
GROUP 3
END
DATE F_DATAFIN
BEGIN
<<<<<<< cg3100a.uml
PROMPT 55 11 "alla data "
HELP "Data fino a cui stampare i movimenti"
=======
PROMPT 52 11 "alla data "
>>>>>>> 1.12
GROUP 3
END
NUMBER F_NUMEROINI 7
BEGIN
<<<<<<< cg3100a.uml
PROMPT 19 12 "Stampa mov. dal numero "
HELP "Numero del movimento da cui iniziare la stampa"
=======
PROMPT 16 12 "Stampa mov. dal numero "
>>>>>>> 1.12
USE LF_MOV KEY 1
INPUT NUMREG F_NUMEROINI
DISPLAY "Numero@6" NUMREG
@ -119,7 +139,12 @@ END
NUMBER F_NUMEROFIN 7
BEGIN
<<<<<<< cg3100a.uml
PROMPT 55 12 "al numero "
HELP "Numero del movimenti fino cui fare la stampa"
=======
PROMPT 52 12 "al numero "
>>>>>>> 1.12
COPY USE F_NUMEROINI
INPUT NUMREG F_NUMEROFIN
COPY DISPLAY F_NUMEROINI
@ -140,7 +165,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAUSALEINI CODCAUS
FLAGS "UR"
HELP "Introdurre codice causale di inizio stampa: vuoto = inizio archivio"
HELP "Causale di inizio stampa: vuoto = inizio archivio"
END
STRING F_CAUSALEFIN 3
@ -152,7 +177,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAUSALEFIN CODCAUS
FLAGS "UR"
HELP "Introdurre codice causale di fine stampa: vuoto = fine archivio"
HELP "Causale di fine stampa: vuoto = fine archivio"
END
STRING F_REGISTROINI 3
@ -167,7 +192,7 @@ BEGIN
OUTPUT F_REGISTROINI CODTAB[5,7]
FLAGS "UR"
//CHECKTYPE NORMAL
HELP "Introdurre cod. registro iva di inizio stampa: vuoto = inizio archivio"
HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
END
STRING F_REGISTROFIN 3
@ -182,17 +207,19 @@ BEGIN
OUTPUT F_REGISTROFIN CODTAB[5,7]
FLAGS "UR"
//CHECKTYPE NORMAL
HELP "Introdurre cod. registro iva di fine stampa: vuoto = fine archivio"
HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
END
BOOLEAN F_STAMPA
BEGIN
PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
HELP "Indicare se stampare i valori degli imponibili, dell'imposte e i codici IVA"
END
BOOLEAN F_STAMPAMOVP
BEGIN
PROMPT 2 17 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
/*
@ -215,10 +242,3 @@ END
ENDPAGE
ENDMASK

25
cg/cg3100b.uml
View File

@ -25,13 +25,14 @@ END
DATE F_DATASTAMPA
BEGIN
PROMPT 48 1 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 4 "Anno esercizio "
//HELP "Se non indicato nessun anno esercizio significa che si richiede la stampa come specificato nei campi: dalla data, alla data"
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC KEY 1
CHECKTYPE NORMAL
INPUT CODTAB F_ANNO
@ -45,18 +46,20 @@ END
DATE F_DATAINI
BEGIN
PROMPT 2 6 "Stampa movimenti dalla data "
//HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
HELP "Data da cui iniziare la stampa"
END
DATE F_DATAFIN
BEGIN
PROMPT 45 6 "alla data "
END
HELP "Data fino a cui eseguire la stampa"
END
LIST F_TIPOELENCO 8
BEGIN
PROMPT 2 7 "Tipo elenco "
//HELP "Se si desidera l'elenco per clienti e fornitori, specificare prima il codice del cliente da cui iniziare la stampa e poi quello del fornitore"
HELP "Indicare cosa includere nella stampa"
ITEM "C|Clienti"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
ITEM "F|Fornitori"
@ -68,7 +71,7 @@ END
NUMBER F_CODICEINI 6
BEGIN
PROMPT 2 8 "Stampa dal codice "
//HELP "Se si desidera l'elenco per clienti e fornitori, specificare prima il codice del cliente da cui iniziare la stampa e poi quello del fornitore"
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 1
USE LF_CLIFO
INPUT TIPOCF F_TIPOELENCO SELECT
@ -82,6 +85,7 @@ END
NUMBER F_CODICEFIN 6
BEGIN
PROMPT 45 8 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 1
COPY USE F_CODICEINI
INPUT TIPOCF F_TIPOELENCO SELECT
@ -95,6 +99,7 @@ END
NUMBER F_CODICEINI1 6
BEGIN
PROMPT 2 8 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 2
COPY USE F_CODICEINI
INPUT TIPOCF F_CODICEINI1
@ -108,6 +113,7 @@ END
NUMBER F_CODICEFIN1 6
BEGIN
PROMPT 45 8 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 2
COPY USE F_CODICEINI
INPUT TIPOCF F_CODICEFIN1
@ -122,11 +128,13 @@ BOOLEAN F_CAMBIO
BEGIN
GROUP 2
PROMPT 2 10 "Cambio pagina per cliente/fornitore "
HELP "Indicare se cambiare pagina nel passaggio da clienti a fornitori"
END
BOOLEAN F_STAMPAMOVP
BEGIN
PROMPT 2 11 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
/*
@ -149,10 +157,3 @@ END
ENDPAGE
ENDMASK

17
cg/cg3100c.uml
View File

@ -26,6 +26,7 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 5 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC
CHECKTYPE NORMAL
INPUT CODTAB F_ANNO
@ -39,12 +40,14 @@ END
DATE F_DATASTAMPA
BEGIN
PROMPT 2 6 "Data stampa "
HELP "Data in cui viene effettuata la stampa"
FLAGS "A"
END
RADIOBUTTON F_DECIDI 10
BEGIN
PROMPT 2 8 "Stampa "
PROMPT 2 8 "Stampa "
HELP "Criteri di selezione dei movimenti"
ITEM "2|data"
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
ITEM "1|numero"
@ -54,18 +57,21 @@ END
DATE F_DATAINI
BEGIN
PROMPT 19 9 "Stampa mov. dalla data "
HELP "Data da cui iniziare la stampa dei movimenti"
GROUP 1
END
DATE F_DATAFIN
BEGIN
PROMPT 55 9 "alla data "
HELP "Data a cui terminare la stampa dei movimenti"
GROUP 1
END
NUMBER F_NUMEROINI 7
BEGIN
PROMPT 19 10 "Stampa mov. dal numero "
HELP "Numero da cui iniziare la stampa dei movimenti"
FLAGS "R"
GROUP 2
END
@ -73,6 +79,7 @@ END
NUMBER F_NUMEROFIN 7
BEGIN
PROMPT 55 10 "al numero "
HELP "Numero a cui terminare la stampa dei movimenti"
FLAGS "R"
GROUP 2
END
@ -80,6 +87,7 @@ END
BOOLEAN F_STAMPAMOVP
BEGIN
PROMPT 2 12 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
TEXT DLG_NULL
@ -100,10 +108,3 @@ END
ENDPAGE
ENDMASK

33
cg/cg3200a.uml
View File

@ -45,7 +45,7 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 47 1 "Anno esercizio "
HELP "Inserire un anno esercizio presente nella tabella oppure niente: in quest'ultimo caso non e' possibile fare il controllo competenza esercizio"
HELP "Anno esercizio di cui stampare i mastrini"
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Anno Esercizio" CODTAB
@ -61,6 +61,7 @@ END
LIST F_TIPOCF_INI 25
BEGIN
PROMPT 4 4 "Ricerca "
HELP "Indicare il tipo di mastrini da stamapare"
ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
ITEM "C|Clienti"
@ -72,11 +73,13 @@ END
NUMBER F_GRUPPOINI 3
BEGIN
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
HELP "Codice conto da cui iniziare la stampa"
END
NUMBER F_CONTOINI_CONTO 3
BEGIN
PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO
@ -98,6 +101,7 @@ END
NUMBER F_CONTOINI_CLIENTE 3
BEGIN
PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CLIENTE
@ -120,6 +124,7 @@ END
NUMBER F_CONTOINI_FORN 3
BEGIN
PROMPT 41 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_FORN
@ -142,6 +147,7 @@ END
NUMBER F_SOTTOCINI_CONTO 6
BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_PCON //SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO
@ -176,6 +182,7 @@ END
NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
INPUT TIPOCF "C"
@ -194,6 +201,7 @@ END
STRING F_DESCRINI_CLIENTE 50
BEGIN
PROMPT 4 6 "Ragione sociale C "
HELP "Codice conto da cui iniziare la stampa"
FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -211,6 +219,7 @@ END
NUMBER F_SOTTOCINI_FORN 6
BEGIN
PROMPT 48 5 ""
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
INPUT TIPOCF "F"
@ -229,6 +238,7 @@ END
STRING F_DESCRINI_FORN 50
BEGIN
PROMPT 4 6 "Ragione Sociale F "
HELP "Codice conto da cui iniziare la stampa"
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_DESCRINI_FORN
@ -245,6 +255,7 @@ END
LIST F_TIPOCF_FINE 25
BEGIN
PROMPT 4 7 "Ricerca "
HELP "Indicare il tipo di mastrini da stamapare"
ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
ITEM "C|Clienti"
@ -261,6 +272,7 @@ END
NUMBER F_CONTOFINE_CONTO 3
BEGIN
PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO
@ -281,6 +293,7 @@ END
NUMBER F_CONTOFINE_CLIENTE 3
BEGIN
PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CLIENTE
@ -302,6 +315,7 @@ END
NUMBER F_CONTOFINE_FORN 3
BEGIN
PROMPT 41 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F")
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_FORN
@ -323,6 +337,7 @@ END
NUMBER F_SOTTOCFINE_CONTO 6
BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO
@ -343,6 +358,7 @@ END
STRING F_DESCRFINE_CONTO 50
BEGIN
PROMPT 4 9 "Descrizione "
HELP "Codice conto a cui terminare la stampa"
USE LF_PCON KEY 2
CHECKTYPE NORMAL
INPUT DESCR F_DESCRINI_CONTO
@ -357,6 +373,7 @@ END
NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
INPUT TIPOCF "C"
@ -375,6 +392,7 @@ END
STRING F_DESCRFINE_CLIENTE 50
BEGIN
PROMPT 4 9 "Ragione sociale "
HELP "Codice conto a cui terminare la stampa"
FIELD LF_CLIFO->RAGSOC
CHECKTYPE NORMAL
USE LF_CLIFO KEY 2
@ -392,6 +410,7 @@ END
NUMBER F_SOTTOCFINE_FORN 6
BEGIN
PROMPT 48 8 ""
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO
//CHECKTYPE NORMAL
INPUT TIPOCF "F"
@ -410,6 +429,7 @@ END
STRING F_DESCRFINE_FORN 50
BEGIN
PROMPT 4 9 "Ragione Sociale "
HELP "Codice conto a cui terminare la stampa"
USE LF_CLIFO KEY 2
CHECKTYPE NORMAL
INPUT TIPOCF "F"
@ -426,31 +446,37 @@ END
DATE F_DATAINI
BEGIN
PROMPT 26 11 ""
HELP "Data da cui iniziare la stampa"
END
DATE F_DATAFINE
BEGIN
PROMPT 62 11 ""
HELP "Data a cui terminare la stampa"
END
BOOLEAN F_STAMPATOTIVA
BEGIN
PROMPT 4 12 "Stampa totali documenti IVA"
HELP "Inidcare se stampare un totale per ogni tipo di doc. IVA"
END
BOOLEAN F_STAMPAPROGRE
BEGIN
PROMPT 44 12 "Stampa progressivi attuali"
HELP "Indcare se stampare dati attuali a fondo pagina"
END
BOOLEAN F_STAMPAMOVPROV
BEGIN
PROMPT 4 13 "Stampa movimenti provvisori"
HELP "Indicare se stampare movimenti provvisori"
END
LIST F_STAMPANUM 15
BEGIN
PROMPT 4 15 "Stampa numerazione "
HELP "Indicare il tipo di numerazione da stampare"
ITEM "1|Operazione"
ITEM "2|Riga giornale"
ITEM "3|Nessuna"
@ -459,6 +485,7 @@ END
LIST F_TIPOSTAMPA 34
BEGIN
PROMPT 4 16 "Tipo stampa "
HELP "Indicare il tipo di stampa da ottenere"
ITEM "1|Mastrini movimentati nel periodo"
ITEM "2|Mastrini con saldi diversi da 0"
ITEM "3|Completa"
@ -468,6 +495,7 @@ END
BOOLEAN F_MEMORIZZA
BEGIN
PROMPT 4 17 "Memorizza scelte"
HELP "Indicare se riproporre le scelte effettuate"
END
BUTTON DLG_OK 9 2
@ -487,6 +515,7 @@ PAGE "Stampa Mastrini" -1 -1 60 10
LIST F_NUMCARAT 10
BEGIN
PROMPT 4 2 "Numero caratteri "
HELP "Indicare il numero di caratteri del foglio di stampa (larghezza)"
ITEM "1|132 crt."
ITEM "2|198 crt."
END
@ -494,6 +523,7 @@ END
LIST F_FORMATO 23
BEGIN
PROMPT 4 4 "Formato modulo di stampa "
HELP "Indicare l'altezza del modulo di stampa"
ITEM "66|11 pollici (27,94 cm)"
ITEM "72|12 pollici (30,48 cm)"
END
@ -501,6 +531,7 @@ END
LIST F_NUMMAST 5
BEGIN
PROMPT 4 6 "Numero mastrini per pagina "
HELP "Indicare il numero di mastrini contenuti in una pagina"
ITEM "1|Uno"
ITEM "2|Due"
END

25
cg/cg3300a.uml
View File

@ -9,21 +9,21 @@ PAGE "" -1 -1 65 19
DATE F_DATA_STAMPA
BEGIN
PROMPT 2 1 "Data "
HELP "Inserire la data"
HELP "Data in cui viene fatta la stampa"
FLAGS "A"
END
NUMBER F_ANNO_STAMPA 4
BEGIN
PROMPT 30 1 "Anno di stampa "
HELP "Inserire l'anno"
HELP "Anno di cui stampare gli allegati"
FLAGS "A"
END
RADIOBUTTON F_MODO_STAMPA 25
BEGIN
PROMPT 2 3 "Destinazione"
HELP "Abilita stampe di controllo"
HELP "Indicare funzione della stampa"
ITEM "1|Stampa su modulo"
MESSAGE DISABLE,F_TRONC|DISABLE,F_ARROT|HIDE,F_STAMPA_TUTTI
MESSAGE SHOW,F_TIPO_STAMPA
@ -40,7 +40,7 @@ END
RADIOBUTTON F_TIPO_STAMPA 28
BEGIN
PROMPT 31 3 "Tipo di stampa "
HELP "Scegliere il tipo di stampa desiderata"
HELP "Indicare il tipo di stampa desiderata"
ITEM "1|Clienti"
MESSAGE SHOW,F_ANNO_PREC
ITEM "2|Fornitori"
@ -73,32 +73,32 @@ END
BOOLEAN F_STAMPA_TUTTI
BEGIN
PROMPT 2 9 "Stampa tutti i clienti/fornitori movimentati"
HELP "Se disabilitato stampa solo i clienti/fornitori che vanno in allegati"
HELP "Se disabilitato stampa solo i clienti/fornitori che vanno in allegato"
FLAGS "H"
END
BOOLEAN F_TRONC
BEGIN
PROMPT 2 10 "Importi non troncati "
HELP "Indicare se si desidera eliminare gli zeri delle migliaia"
HELP "Indicare se eliminare gli zeri delle migliaia"
END
BOOLEAN F_ARROT
BEGIN
PROMPT 2 11 "Importi non arrotondati "
HELP "Indicare se si desidera che vengano arrotondati gli importi"
HELP "Indicare se vengano arrotondati gli importi"
END
BOOLEAN F_ANNO_PREC
BEGIN
PROMPT 31 10 "Estratto anno precedente "
HELP "Indicare se si desidera solo il saldo dell'anno precedente"
HELP "Indicare se stamapre solo il saldo dell'anno precedente"
END
BOOLEAN F_ATTIVITA
BEGIN
PROMPT 31 11 "Elenco distinto per attivita'"
HELP "Indicare se si desidera un elenco diviso per attivita'. Se disabilitato il programma stampa un elenco attribuendo tutto all'attivita' prevalente"
HELP "Indicare se stampare un elenco diviso per attivita'"
END
STRING F_RICERCA_ATT 5
@ -115,13 +115,13 @@ END
BOOLEAN F_RICALCOLA
BEGIN
PROMPT 46 13 "Ricalcola "
HELP "Se attivato ricalcola ogni ditta prima di stampare"
HELP "Indicare se ricalcolare ogni ditta prima di stampare"
END
STRING F_DA_DITTA 5
BEGIN
PROMPT 1 14 "Da ditta "
HELP "Indicare la ditta di partenza della stampa. Se in bianco vuol dire dalla prima"
HELP "Ditta di partenza della stampa: vuoto = inizio archivio"
FLAGS "R"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_DA_DITTA
@ -133,7 +133,7 @@ END
STRING F_A_DITTA 5
BEGIN
PROMPT 22 14 "A ditta "
HELP "Indicare l'ultima ditta da stampare. Se in bianco vuol dire fino all'ultima"
HELP "Ultima ditta da stampare: vuoto = fine archivio"
FLAGS "R"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_A_DITTA
@ -156,4 +156,3 @@ END
ENDPAGE
ENDMASK

2
cg/cg3300b.uml
View File

@ -10,7 +10,7 @@ PAGE "" -1 -1 27 6
NUMBER F_ANNO_RICALCOLA 4
BEGIN
PROMPT 2 1 "Anno: "
HELP "Inserire l'anno di dichiarazione"
HELP "Anno di cui stampare la dichiarazione"
FLAGS "A"
END

17
cg/cg3300c.uml
View File

@ -9,21 +9,21 @@ PAGE "Stampa su disco" -1 -1 65 16
DATE F_DATA_STAMPA
BEGIN
PROMPT 2 1 "Data "
HELP "Inserire la data"
HELP "Data in cui effettuare la stampa"
FLAGS "A"
END
NUMBER F_ANNO_STAMPA 4
BEGIN
PROMPT 30 1 "Anno di stampa "
HELP "Inserire l'anno"
HELP "Anno di cui effettuare la stampa"
FLAGS "A"
END
RADIOBUTTON F_TIPO_STAMPA2 20
BEGIN
PROMPT 2 3 "Tipo di stampa "
HELP "Scegliere il tipo di stampa desiderata"
HELP "Indicare arhcivio da stampare"
ITEM "1|Clienti"
MESSAGE SHOW,F_ANNO_PREC
ITEM "2|Fornitori"
@ -41,13 +41,13 @@ END
BOOLEAN F_ANNO_PREC
BEGIN
PROMPT 30 5 "Estratto anno precedente "
HELP "Indicare se si desidera solo il saldo dell'anno precedente"
HELP "Indicare se stampare solo il saldo dell'anno precedente"
END
BOOLEAN F_ATTIVITA
BEGIN
PROMPT 30 6 "Elenco distinto per attivita'"
HELP "Indicare se si desidera un elenco diviso per attivita'. Se disabilitato il programma stampa un elenco attribuendo tutto all'attivita' prevalente"
HELP "Indicare se stampare un elenco diviso per attivita'"
END
STRING F_RICERCA_ATT 5
@ -64,13 +64,13 @@ END
BOOLEAN F_RICALCOLA
BEGIN
PROMPT 46 9 "Ricalcola "
HELP "Se attivato ricalcola ogni ditta prima di stampare"
HELP "Indicare se ricalcolare ogni ditta prima di stampare"
END
STRING F_DA_DITTA 5
BEGIN
PROMPT 2 11 "Da ditta "
HELP "Indicare la ditta di partenza della stampa. Se in bianco vuol dire dalla prima"
HELP "Ditta di partenza della stampa. vuoto = prima"
FLAGS "R"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_DA_DITTA
@ -82,7 +82,7 @@ END
STRING F_A_DITTA 5
BEGIN
PROMPT 23 11 "A ditta "
HELP "Indicare l'ultima ditta da stampare. Se in bianco vuol dire fino all'ultima"
HELP "Ultima ditta da stampare. vuoto = ultima"
FLAGS "R"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_A_DITTA
@ -105,4 +105,3 @@ END
ENDPAGE
ENDMASK

10
cg/cg3400a.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa Libro Giornale" -1 -1 70 15
STRING CODREG 3
BEGIN
PROMPT 1 1 "Codice registro "
HELP "Codice del libro giornale da stampare"
USE REG SELECT (I0 = 5) || (I0 = 4)
// INPUT CODTAB[1,4] ANNO_ESER
INPUT CODTAB[5,7] CODREG
@ -51,6 +52,7 @@ END
RADIOBUTTON DLG_NULL 20
BEGIN
PROMPT 1 5 ""
HELP "Indicare l'intervallo di pagine da stampare"
ITEM "1|Tutto" MESSAGE DISABLE, PAGINA_DA
ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA
END
@ -58,8 +60,10 @@ END
NUMBER PAGINA_DA 5
BEGIN
PROMPT 13 8 ""
HEL‡P "Numero di pagina da cui iniziare la stampa"
END
GROUPBOX DLG_NULL 33 5
BEGIN
PROMPT 33 5 "Formato pagina"
@ -68,6 +72,7 @@ END
LISTBOX STAMPA_WIDTH 3
BEGIN
PROMPT 35 6 "Numero di colonne "
HELP "Numero di colonne del modulo di stampa (larghezza)"
ITEM "1|132 colonne"
ITEM "2|198 colonne"
END
@ -75,16 +80,19 @@ END
NUMBER STAMPA_LEN 3
BEGIN
PROMPT 35 7 "Numero di righe "
HELP "Numero di righe del modulo di stampa (altezza)"
END
DATE DATA_DA
BEGIN
PROMPT 2 10 "Dalla data "
HELP "Data da cui iniziare la stampa"
END
DATE DATA_A
BEGIN
PROMPT 2 11 "Alla data "
HELP "Data a cui terminare la stampa"
// VALIDATE DATE_CMP_FUNC >= DATA_DA
WARNING "Specificare la data di fine stampa"
CHECKTYPE REQUIRED
@ -93,6 +101,7 @@ END
BOOLEAN STAMPA_DEF
BEGIN
PROMPT 34 10 "Stampa definitiva"
HELP "Indicare se stampare su bollato"
MESSAGE TRUE DISABLE,DATA_DA | CLEAR, DATA_DA
MESSAGE FALSE ENABLE,DATA_DA
END
@ -111,4 +120,3 @@ END
ENDPAGE
ENDMASK

7
cg/cg3400b.uml
View File

@ -21,17 +21,17 @@ BEGIN
FLAGS "D"
END
BUTTON DLG_OK 9 3
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 7 ""
END
BUTTON DLG_CANCEL 9 3
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -23 7 ""
END
BUTTON DLG_RIPRISTINA 10 3
BUTTON DLG_RIPRISTINA 10 2
BEGIN
PROMPT -33 7 "Ripristina"
END
@ -39,4 +39,3 @@ END
ENDPAGE
ENDMASK

11
cg/cg3500a.uml
View File

@ -24,12 +24,14 @@ END
DATE F_DATASTAMPA
BEGIN
PROMPT 43 1 "Data di stampa "
HELP "Data in cui effettuare la stampa"
FLAGS "A"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Anno esercizio "
HELP "Anno d'esercizio di cui effettuare la stampa"
FLAGS "RZ"
USE ESC
INPUT CODTAB F_ANNO
@ -44,6 +46,7 @@ END
RADIOBUTTON F_STAMPA 26
BEGIN
PROMPT 2 5 "Scelta stampa "
HELP "Indicare il grado di riepilogo"
ITEM "1|Stampa riepilogo conti"
ITEM "2|Stampa riepilogo gruppi"
END
@ -51,6 +54,7 @@ END
RADIOBUTTON F_RICHIESTA 40
BEGIN
PROMPT 2 9 "Richiesta stampa "
HELP "Indicare il tipo di movimenti da stampare"
ITEM "1|Stampa progressivi attuali"
ITEM "2|Stampa progressivi movimenti eliminati"
END
@ -68,10 +72,3 @@ END
ENDPAGE
ENDMASK

162
cg/cg5300a.uml
View File

@ -9,82 +9,82 @@ PAGE "Parametri liquidazione" -1 -1 78 15
GROUPBOX DLG_NULL 71 3
BEGIN
PROMPT 4 0 "Ditta"
FLAGS "R"
PROMPT 4 0 "Ditta"
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 6 1 "Codice "
FLAGS "DFGR"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
PROMPT 6 1 "Codice "
FLAGS "DFGR"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 20 1 ""
FLAGS "D"
PROMPT 20 1 ""
FLAGS "D"
END
NUMBER F_YEAR 4
BEGIN
PROMPT 6 3 "Anno "
FIELD LIA->CODTAB
USE LIA
INPUT CODTAB F_YEAR
DISPLAY "Anno@40" CODTAB
DISPLAY "@2" S0
OUTPUT F_YEAR CODTAB
KEY 1
FLAGS "RZ"
CHECKTYPE REQUIRED
ADD NONE
PROMPT 6 3 "Anno "
FIELD LIA->CODTAB
USE LIA
INPUT CODTAB F_YEAR
DISPLAY "Anno@40" CODTAB
DISPLAY "@2" S0
OUTPUT F_YEAR CODTAB
KEY 1
FLAGS "RZ"
CHECKTYPE REQUIRED
ADD NONE
END
GROUPBOX DLG_NULL 71 5
BEGIN
PROMPT 4 4 "Parametri ditta"
PROMPT 4 4 "Parametri ditta"
END
LIST F_FREQ_VERS 14
BEGIN
PROMPT 6 5 "Frequenza versamenti "
ITEM "M|Mensile"
ITEM "T|Trimestrale"
FIELD LIA->S7
PROMPT 6 5 "Frequenza versamenti "
ITEM "M|Mensile"
ITEM "T|Trimestrale"
FIELD LIA->S7
END
NUMBER F_CRED_PREC 15 0
BEGIN
PROMPT 6 6 "Credito precedente "
FIELD LIA->R0
PICTURE "."
FLAGS "R"
PROMPT 6 6 "Credito precedente "
FIELD LIA->R0
PICTURE "."
FLAGS "R"
END
NUMBER F_CRED_COST 15 0
BEGIN
PROMPT 6 7 "Credito di costo "
FIELD LIA->R5
PICTURE "."
FLAGS "R"
PROMPT 6 7 "Credito di costo "
FIELD LIA->R5
PICTURE "."
FLAGS "R"
END
SPREADSHEET F_SHEET_PLA 78 6
BEGIN
PROMPT 1 10 "Parametri attivita'"
ITEM "Attivita'@5"
ITEM "Tipo@1"
ITEM "% Pro-rata@6"
ITEM "Plafond art.8@15"
ITEM "Plafond art.8b@15"
ITEM "Plafond art.9@15"
ITEM "Attivita'@5"
ITEM "Tipo@1"
ITEM "% Pro-rata@6"
ITEM "Plafond art.8@15"
ITEM "Plafond art.8b@15"
ITEM "Plafond art.9@15"
END
ENDPAGE
@ -94,80 +94,82 @@ PAGE "" -1 -1 65 16
NUMBER F_CODATT 5
BEGIN
PROMPT 4 1 "Codice Attivita' "
FLAGS "DZG"
USE %AIS
INPUT CODTAB F_CODATT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODATT CODTAB
OUTPUT F_DESATT S0
CHECKTYPE NORMAL
PROMPT 4 1 "Codice Attivita' "
FLAGS "DZG"
USE %AIS
INPUT CODTAB F_CODATT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODATT CODTAB
OUTPUT F_DESATT S0
CHECKTYPE NORMAL
END
STRING F_DESATT 50 30
BEGIN
PROMPT 31 1 ""
FLAGS "D"
PROMPT 31 1 ""
FLAGS "D"
END
LIST F_TIPOATT 26
BEGIN
PROMPT 4 3 "Tipo "
FLAGS "U"
ITEM " |Altre"
ITEM "M|Mista"
ITEM "E|Mista evidenziata"
ITEM "S|Servizio o mista generica"
PROMPT 4 3 "Tipo "
FLAGS "U"
ITEM " |Altre"
ITEM "M|Mista"
ITEM "E|Mista evidenziata"
ITEM "S|Servizio o mista generica"
END
NUMBER F_PRORATA 6 2
BEGIN
PROMPT 4 5 "% Pro-Rata "
PICTURE ".2"
FLAGS "R"
GROUP 1
PROMPT 4 5 "% Pro-Rata "
PICTURE ".2"
NUM_EXPR {(#F_PRORATA>=0.0)&&(#F_PRORATA<=100.0)}
WARNING "La percentuale deve essere compresa tra 0 e 100"
FLAGS "R"
GROUP 1
END
NUMBER F_P8 15
BEGIN
PROMPT 4 7 "Plafond art. 8 "
PICTURE "."
FLAGS "R"
GROUP 1
PROMPT 4 7 "Plafond art. 8 "
PICTURE "."
FLAGS "R"
GROUP 1
END
NUMBER F_P8B 15
BEGIN
PROMPT 4 9 "Plafond art. 8b "
PICTURE "."
FLAGS "R"
GROUP 1
PROMPT 4 9 "Plafond art. 8b "
PICTURE "."
FLAGS "R"
GROUP 1
END
NUMBER F_P9 15
BEGIN
PROMPT 4 11 "Plafond art. 9 "
PICTURE "."
FLAGS "R"
GROUP 1
PROMPT 4 11 "Plafond art. 9 "
PICTURE "."
FLAGS "R"
GROUP 1
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -13 -1 ""
PROMPT -13 -1 ""
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -23 -1 ""
PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BEGIN
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
PROMPT -33 -1 "Azzera"
MESSAGE RESET,1@
END
ENDPAGE

10
cg/conto.cpp
View File

@ -182,15 +182,15 @@ bool TBill::read(TRectype &r)
int TBill::tipo_att()
{
int tipo_att = 1;
if (tipo() == ' ' && ok())
if (tipo() <= ' ' && ok())
{
TBill bill(gruppo(), conto());
TRectype conto(LF_PCON); bill.read(conto);
const TIndbil ib = (TIndbil)conto.get_int("INDBIL");
TRectype rec(LF_PCON); bill.read(rec);
const TIndbil ib = (TIndbil)rec.get_int("INDBIL");
if (ib == ib_passivita || ib == ib_ricavi)
{
read(conto);
const int ricser = conto.get_int("RICSER");
read(rec);
const int ricser = rec.get_int("RICSER");
tipo_att = (ricser == 0) ? 2 : 1;
}
}