Modifiche alla stampa bilanci
git-svn-id: svn://10.65.10.50/trunk@268 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
e03a279bcc
commit
d63359fe87
2883
cg/cg1500.cpp
2883
cg/cg1500.cpp
File diff suppressed because it is too large
Load Diff
21
cg/cg1500.h
21
cg/cg1500.h
@ -16,32 +16,13 @@
|
||||
#define F_STAMPAV 114
|
||||
#define F_DATADA 115
|
||||
#define F_DATAA 116
|
||||
#define F_COMPETENZA 117
|
||||
#define F_SITUAZIONE 118
|
||||
#define F_STAMPAC 119
|
||||
#define F_ORDINAMENTO 120
|
||||
#define F_MODULO 121
|
||||
#define F_STAMPAMPROV 122
|
||||
|
||||
/*
|
||||
#define ST_DATA 0x0001
|
||||
#define ST_NUMERO 0x0002
|
||||
#define ST_CAUSALE 0x0004
|
||||
#define ST_REGISTRO 0x0008
|
||||
#define ST_DATI_IVA 0x0010
|
||||
#define ST_CONTROLLO 0x0020
|
||||
#define ST_SOLO_MOVERR 0x0040
|
||||
#define ST_SENZA_CONTR 0x0080
|
||||
#define ST_MESSAGGI 0x0100
|
||||
#define ST_ANNO_COMP 0x0200
|
||||
#define ST_MESS_ALLEG 0x0400
|
||||
#define ST_COMPLETA_DATA 0x0800
|
||||
#define ST_COMPLETA_NUM 0x1000
|
||||
#define ST_COMPLETA_CAUS 0x2000
|
||||
#define ST_COMPLETA_REG 0x4000
|
||||
#define ST_CODICE 0x8000
|
||||
*/
|
||||
#endif // __CG1500_H
|
||||
#endif // __CG1500_H
|
||||
|
||||
|
||||
|
||||
|
||||
457
cg/cg1500a.uml
457
cg/cg1500a.uml
@ -1,239 +1,232 @@
|
||||
#include "cg1500.h"
|
||||
|
||||
PAGE "Pag. 1" -1 -1 76 18
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 4 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 4 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 50 1 "Data stampa "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 3 "Anno esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "L'anno di esercizio deve essere presente nella tabella degli esercizi"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_BILANCIO 34
|
||||
BEGIN
|
||||
PROMPT 4 5 "Tipo bilancio "
|
||||
HELP "Indicare il tipo di bilancio"
|
||||
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
|
||||
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
|
||||
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
|
||||
MESSAGE HIDE,F_MODULO|RESET,F_MODULO
|
||||
MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
|
||||
ITEM "2|Bilancio di verifica"
|
||||
MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
|
||||
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
|
||||
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_COMPETENZA|RESET,F_COMPETENZA
|
||||
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
|
||||
MESSAGE SHOW,F_MODULO|K_SPACE,F_MODULO
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA 40
|
||||
BEGIN
|
||||
PROMPT 4 9 "Tipo stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO|SHOW,F_COMPETENZA|SHOW,F_STAMPAMPROV
|
||||
ITEM "2|All' ultima immissione es. in corso"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_COMPETENZA|RESET,F_STAMPAMPROV
|
||||
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
|
||||
ITEM "3|All' ultima immissione es. precedente"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_COMPETENZA|RESET,F_STAMPAMPROV
|
||||
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA1 40
|
||||
BEGIN
|
||||
PROMPT 4 9 "Tipo stampa "
|
||||
//FLAGS "G"
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
ITEM "2|All' ultima immissione es. in corso"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
ITEM "3|All' ultima immissione es. precedente"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
MESSAGE COPY,F_STAMPA
|
||||
END
|
||||
#include "cg1500.h"
|
||||
|
||||
/*
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
*/
|
||||
PAGE "Pag. 1" -1 -1 74 16
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT 20 16 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT 41 16 ""
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
BUTTON DLG_PGDN 9 2
|
||||
BEGIN
|
||||
PROMPT 58 16 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Pag. 2" -1 -1 74 20
|
||||
|
||||
DATE F_DATALIM
|
||||
BEGIN
|
||||
PROMPT 2 1 "Data limite "
|
||||
WARNING "Inserire la data limite"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
BOOLEAN F_TOTALI
|
||||
BEGIN
|
||||
PROMPT 33 1 "Non stampare totali per gruppo "
|
||||
END
|
||||
|
||||
BOOLEAN F_CODICI
|
||||
BEGIN
|
||||
PROMPT 2 2 "Non stampare codici conti "
|
||||
END
|
||||
|
||||
BOOLEAN F_SALDO
|
||||
BEGIN
|
||||
PROMPT 33 2 "Non stampare movimenti con saldo a zero "
|
||||
END
|
||||
|
||||
RADIOBUTTON F_VERIFICA 27
|
||||
BEGIN
|
||||
PROMPT 2 1 "Stampa bilancio di verifica "
|
||||
ITEM "1|Bilancio"
|
||||
ITEM "2|Saldi di mastro"
|
||||
ITEM "3|Situazione C/F"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAV 35
|
||||
BEGIN
|
||||
PROMPT 35 1 "Tipo stampa "
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
ITEM "3|Tutti i conti"
|
||||
END
|
||||
|
||||
LIST F_MODULO 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa su modulo stretto "
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
DATE F_DATADA
|
||||
BEGIN
|
||||
PROMPT 2 9 "Dalla data "
|
||||
WARNING "Inserire la data limite inferiore"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
DATE F_DATAA
|
||||
BEGIN
|
||||
PROMPT 27 9 "alla data "
|
||||
WARNING "Inserire la data limite superiore"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
BOOLEAN F_COMPETENZA
|
||||
BEGIN
|
||||
PROMPT 2 10 "Controllo anno di competenza "
|
||||
END
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 48 1 "Data stampa "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Anno esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
//CHECKTYPE NORMAL
|
||||
//MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97 //se il campo e' vuoto manda questi messaggi
|
||||
//MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99 //se invece e' pieno manda questi
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_BILANCIO 33
|
||||
BEGIN
|
||||
PROMPT 2 5 "Tipo bilancio "
|
||||
HELP "Indicare il tipo di bilancio"
|
||||
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
|
||||
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
|
||||
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
|
||||
MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
|
||||
MESSAGE HIDE,F_MODULO|RESET,F_MODULO
|
||||
MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
|
||||
ITEM "2|Bilancio di verifica"
|
||||
MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
|
||||
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
|
||||
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
|
||||
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
|
||||
MESSAGE SHOW,F_MODULO|K_SPACE,F_MODULO
|
||||
MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA 28
|
||||
BEGIN
|
||||
PROMPT 40 5 "Tipo stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO|SHOW,F_STAMPAMPROV
|
||||
ITEM "2|All' ultima immissione"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_STAMPAMPROV
|
||||
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA1 28
|
||||
BEGIN
|
||||
PROMPT 40 5 "Tipo stampa "
|
||||
//FLAGS "G"
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
ITEM "2|All' ultima immissione"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
MESSAGE COPY,F_STAMPA
|
||||
END
|
||||
|
||||
DATE F_DATALIM
|
||||
BEGIN
|
||||
PROMPT 2 9 "Data limite "
|
||||
END
|
||||
|
||||
BOOLEAN F_TOTALI
|
||||
BEGIN
|
||||
PROMPT 33 9 "Non stampare totali per gruppo "
|
||||
END
|
||||
|
||||
BOOLEAN F_CODICI
|
||||
BEGIN
|
||||
PROMPT 2 10 "Non stampare codici conti "
|
||||
END
|
||||
|
||||
BOOLEAN F_SALDO
|
||||
BEGIN
|
||||
PROMPT 33 10 "Non stampare movimenti con saldo a zero "
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dalla data competenza "
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 38 10 "Alla data competenza "
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dalla data operazione "
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 38 10 "Alla data operazione "
|
||||
END
|
||||
|
||||
DATE F_DATADA
|
||||
BEGIN
|
||||
PROMPT 24 10 ""
|
||||
END
|
||||
|
||||
DATE F_DATAA
|
||||
BEGIN
|
||||
PROMPT 60 10 ""
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMPROV
|
||||
BEGIN
|
||||
PROMPT 37 10 "Stampa movimenti provvisori "
|
||||
END
|
||||
|
||||
LIST F_SITUAZIONE 11
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo situazione "
|
||||
ITEM " |Entrambi"
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAC 35
|
||||
BEGIN
|
||||
PROMPT 37 11 "Tipo stampa "
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
|
||||
LIST F_ORDINAMENTO 12
|
||||
BEGIN
|
||||
PROMPT 2 13 "Tipo ordinamento "
|
||||
ITEM "1|Per codice"
|
||||
ITEM "2|Alfabetico"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
/*
|
||||
BUTTON DLG_PGUP
|
||||
BEGIN
|
||||
PROMPT 65 17 ""
|
||||
END
|
||||
*/
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
PROMPT 2 11 "Stampa movimenti provvisori "
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Pag. 2" -1 -1 74 20
|
||||
|
||||
RADIOBUTTON F_VERIFICA 27
|
||||
BEGIN
|
||||
PROMPT 2 1 "Stampa bilancio di verifica "
|
||||
ITEM "1|Bilancio"
|
||||
ITEM "2|Saldi di mastro"
|
||||
ITEM "3|Situazione C/F"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAC 35
|
||||
BEGIN
|
||||
PROMPT 35 1 "Tipo stampa "
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAV 35
|
||||
BEGIN
|
||||
PROMPT 35 1 "Tipo stampa "
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
ITEM "3|Tutti i conti"
|
||||
END
|
||||
|
||||
LIST F_MODULO 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa su modulo stretto "
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
LIST F_SITUAZIONE 11
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tipo situazione "
|
||||
ITEM " |Entrambi"
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
END
|
||||
|
||||
/*
|
||||
RADIOBUTTON F_STAMPAC 35
|
||||
BEGIN
|
||||
PROMPT 37 10 "Tipo stampa "
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
*/
|
||||
|
||||
LIST F_ORDINAMENTO 12
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo ordinamento "
|
||||
ITEM "1|Per codice"
|
||||
ITEM "2|Alfabetico"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
786
cg/cg1600.cpp
786
cg/cg1600.cpp
File diff suppressed because it is too large
Load Diff
@ -23,6 +23,6 @@
|
||||
#define F_ANNORAFFR 117
|
||||
#define F_STAMPAMOVPROV 118
|
||||
|
||||
#endif // __CG1600_H
|
||||
#endif // __CG1600_H
|
||||
|
||||
|
||||
|
||||
339
cg/cg1600a.uml
339
cg/cg1600a.uml
@ -1,172 +1,173 @@
|
||||
#include "cg1600.h"
|
||||
|
||||
PAGE "" -1 -1 78 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 4 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 4 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 4 4 "Data stampa "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOESE 4
|
||||
BEGIN
|
||||
PROMPT 4 5 "Anno esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNOESE
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNOESE CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_ANNORAFFR 4
|
||||
BEGIN
|
||||
PROMPT 36 5 "Anno esercizio da raffrontare "
|
||||
COPY USE F_ANNOESE
|
||||
INPUT CODTAB F_ANNORAFFR
|
||||
COPY DISPLAY F_ANNOESE
|
||||
OUTPUT F_ANNORAFFR CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
LIST F_TIPOBIL 22
|
||||
BEGIN
|
||||
PROMPT 4 6 "Tipo bilancio "
|
||||
ITEM "1|Bilancio scalare"
|
||||
MESSAGE HIDE,F_TIPOSTAMPA1|RESET,F_TIPOSTAMPA1|SHOW,F_TIPOSTAMPA|K_SPACE,F_TIPOSTAMPA
|
||||
ITEM "2|Bilancio di verifica"
|
||||
MESSAGE HIDE,F_TIPOSTAMPA|RESET,F_TIPOSTAMPA|SHOW,F_TIPOSTAMPA1|K_SPACE,F_TIPOSTAMPA1
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA 38
|
||||
BEGIN
|
||||
PROMPT 4 7 "Tipo stampa "
|
||||
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
|
||||
MESSAGE SHOW,F_DATALIM|SHOW,F_DATABILRAF|SHOW,F_STAMPAINT
|
||||
MESSAGE SHOW,F_STAMPAMOV|SHOW,F_COMPETENZA
|
||||
ITEM "2|All'ultima immissione es. in corso"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMODULO
|
||||
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
||||
MESSAGE RESET,F_COMPETENZA|RESET,F_STAMPAMODULO|RESET,F_DATAINI
|
||||
MESSAGE RESET,F_DATAFINE|SHOW,F_DATABILRAF
|
||||
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
||||
ITEM "3|All'ultima immissione es. precedente"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_COMPETENZA|HIDE,F_STAMPAMODULO
|
||||
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
||||
MESSAGE RESET,F_COMPETENZA|RESET,F_STAMPAMODULO|RESET,F_DATAINI
|
||||
MESSAGE RESET,F_DATAFINE|SHOW,F_DATABILRAF
|
||||
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA1 38
|
||||
BEGIN
|
||||
PROMPT 4 7 "Tipo stampa1 "
|
||||
ITEM "1|Per data "
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF
|
||||
MESSAGE RESET,F_DATALIM|RESET,F_DATABILRAF
|
||||
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
||||
MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_COMPETENZA|SHOW,F_STAMPAMODULO
|
||||
ITEM "2|All'ultima immissione es. in corso"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF|HIDE,F_COMPETENZA
|
||||
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
||||
MESSAGE RESET,F_DATABILRAF|RESET,F_COMPETENZA|RESET,F_DATAINI
|
||||
MESSAGE RESET,F_DATAFINE|SHOW,F_STAMPAINT
|
||||
MESSAGE SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
|
||||
ITEM "3|All'ultima immissione es. precedente"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_DATABILRAF|HIDE,F_COMPETENZA
|
||||
MESSAGE HIDE,F_DATAINI|HIDE,F_DATAFINE|RESET,F_DATALIM
|
||||
MESSAGE RESET,F_DATABILRAF|RESET,F_COMPETENZA|RESET,F_DATAINI
|
||||
MESSAGE RESET,F_DATAFINE|SHOW,F_STAMPAINT
|
||||
MESSAGE SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
|
||||
MESSAGE COPY,F_TIPOSTAMPA
|
||||
END
|
||||
|
||||
DATE F_DATALIM
|
||||
BEGIN
|
||||
PROMPT 4 9 "Data limite "
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
DATE F_DATABILRAF
|
||||
BEGIN
|
||||
PROMPT 36 9 "Data bil. da raffrontare "
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINT
|
||||
BEGIN
|
||||
PROMPT 4 11 "Stampa intera struttura"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPACOD
|
||||
BEGIN
|
||||
PROMPT 41 11 "Non stampare cod. conti"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOV
|
||||
BEGIN
|
||||
PROMPT 4 12 "Non stampare mov. con saldo a 0"
|
||||
END
|
||||
|
||||
BOOLEAN F_COMPETENZA
|
||||
BEGIN
|
||||
PROMPT 41 12 "Controllo anno di competenza"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVPROV
|
||||
#include "cg1600.h"
|
||||
|
||||
PAGE "" -1 -1 78 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 4 13 "Stampa movimenti provvisori"
|
||||
PROMPT 4 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMODULO
|
||||
BEGIN
|
||||
PROMPT 41 13 "Stampa su modulo stretto"
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 4 15 "Data inizio "
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
DATE F_DATAFINE
|
||||
BEGIN
|
||||
PROMPT 52 15 "Data fine "
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 0
|
||||
BEGIN
|
||||
PROMPT 51 18 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 0
|
||||
BEGIN
|
||||
PROMPT 63 18 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 4 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOESE 4
|
||||
BEGIN
|
||||
PROMPT 4 5 "Anno esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNOESE
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNOESE CODTAB
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_ANNORAFFR 4
|
||||
BEGIN
|
||||
PROMPT 36 5 "Anno esercizio da raffrontare "
|
||||
COPY USE F_ANNOESE
|
||||
INPUT CODTAB F_ANNORAFFR
|
||||
COPY DISPLAY F_ANNOESE
|
||||
OUTPUT F_ANNORAFFR CODTAB
|
||||
FLAGS "RZ"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
LIST F_TIPOBIL 22
|
||||
BEGIN
|
||||
PROMPT 4 6 "Tipo bilancio "
|
||||
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
|
||||
ITEM "2|Bilancio di verifica"
|
||||
MESSAGE HIDE,F_TIPOSTAMPA|RESET,F_TIPOSTAMPA|SHOW,F_TIPOSTAMPA1|K_SPACE,F_TIPOSTAMPA1
|
||||
MESSAGE HIDE,F_ANNORAFFR|HIDE,F_DATABILRAF
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA 23
|
||||
BEGIN
|
||||
PROMPT 4 7 "Tipo stampa "
|
||||
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
|
||||
MESSAGE SHOW,F_DATALIM|SHOW,F_STAMPAINT|SHOW,F_STAMPAMOV
|
||||
ITEM "2|All'ultima immissione"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMODULO|HIDE,F_DATAINI|HIDE,F_DATAFINE
|
||||
MESSAGE RESET,F_STAMPAMODULO|RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE|
|
||||
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA1 23
|
||||
BEGIN
|
||||
PROMPT 4 7 "Tipo stampa1 "
|
||||
ITEM "1|Per data "
|
||||
MESSAGE HIDE,F_DATALIM
|
||||
MESSAGE RESET,F_DATALIM
|
||||
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
|
||||
MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_STAMPAMODULO
|
||||
ITEM "2|All'ultima immissione"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_DATAINI|HIDE,F_DATAFINE
|
||||
MESSAGE RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE
|
||||
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV|SHOW,F_STAMPAMODULO
|
||||
MESSAGE COPY,F_TIPOSTAMPA
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 4 4 "Data stampa "
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 4 9 "Dalla data competenza "
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 40 9 "Alla data competenza "
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 4 9 "Dalla data operazione "
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 40 9 "Alla data operazione "
|
||||
END
|
||||
DATE F_DATALIM
|
||||
BEGIN
|
||||
PROMPT 4 9 "Data limite "
|
||||
// VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
DATE F_DATABILRAF
|
||||
BEGIN
|
||||
PROMPT 36 9 "Data bil. da raffrontare "
|
||||
// VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 26 9 ""
|
||||
// VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
DATE F_DATAFINE
|
||||
BEGIN
|
||||
PROMPT 62 9 ""
|
||||
// VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAINT
|
||||
BEGIN
|
||||
PROMPT 4 11 "Stampa intera struttura"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPACOD
|
||||
BEGIN
|
||||
PROMPT 41 11 "Non stampare cod. conti"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOV
|
||||
BEGIN
|
||||
PROMPT 4 12 "Non stampare mov. con saldo a 0"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVPROV
|
||||
BEGIN
|
||||
PROMPT 41 12 "Stampa movimenti provvisori"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMODULO
|
||||
BEGIN
|
||||
PROMPT 4 13 "Stampa su modulo stretto"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
57
cg/cglib.h
57
cg/cglib.h
@ -1,13 +1,20 @@
|
||||
#ifndef __CGLIB_H
|
||||
#define __CGLIB_H
|
||||
|
||||
#ifndef __ASSOC_H
|
||||
#include <assoc.h>
|
||||
#endif
|
||||
|
||||
#ifndef __ISAM_H
|
||||
#include <isam.h>
|
||||
#endif
|
||||
#ifndef __REAL_H
|
||||
#include <real.h>
|
||||
#endif
|
||||
#ifndef __DATE_H
|
||||
#include <date.h>
|
||||
#endif
|
||||
|
||||
#include <assoc.h>
|
||||
//#include <utility.h>
|
||||
//#include <config.h>
|
||||
//#include <applicat.h>
|
||||
|
||||
#include "conto.h"
|
||||
|
||||
@ -21,29 +28,29 @@ public:
|
||||
TRectype& clifo(int i)const { return(TRectype&)this->operator[](i); }
|
||||
};
|
||||
|
||||
typedef enum {scalare = 1, verifica} bilancio;
|
||||
//typedef enum {scalare = 1, verifica} bilancio;
|
||||
|
||||
class Saldo
|
||||
{
|
||||
real _saldo, _saldo_iniziale, _prg_dare, _prg_avere;
|
||||
int _indbil;
|
||||
TRectype* _rec;
|
||||
bilancio _bilancio;
|
||||
int _annoes;
|
||||
TDate _inizioEs, _fineEs;
|
||||
//bilancio _bilancio;
|
||||
int _annoes;
|
||||
TDate _inizioEs, _fineEs;
|
||||
TString16 _codcaus;
|
||||
TDate _datareg;
|
||||
TDate _datacomp;
|
||||
char _provv;
|
||||
TDate _datareg;
|
||||
TDate _datacomp;
|
||||
TString _provv;
|
||||
|
||||
protected:
|
||||
void InFinEs(int);
|
||||
|
||||
public:
|
||||
int annoes () const { return _annoes; }
|
||||
bilancio bil () const { return _bilancio; }
|
||||
//bilancio bil () const { return _bilancio; }
|
||||
void set_annoes (int anno) { _annoes = anno; }
|
||||
void set_bil (bilancio bil) { _bilancio = bil; }
|
||||
//void set_bil (bilancio bil) { _bilancio = bil; }
|
||||
void leggi_mov(long);
|
||||
bool causale_mov(long, const TDate&, const TDate&, TString&);
|
||||
const char* causale_chiusura_es();
|
||||
@ -51,16 +58,16 @@ public:
|
||||
bool calcola_data_limite(int,int,int,long,const TDate&,const TDate&,int,bool,
|
||||
const TDate&,const TDate&,const TDate&,bool);
|
||||
bool calcola_ultima_immissione(int, int, int, int, long, int);
|
||||
real ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil);
|
||||
real data_limite_bilancio(int,int,long,const TDate&,const TDate&,int,bool);
|
||||
bool ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil);
|
||||
bool data_limite_bilancio(int,int,int,long,const TDate&,const TDate&,int,bool);
|
||||
real calcola_saldo_iniziale(int, int, int, long, int);
|
||||
bool calcola_clifo(int, int, int, int, int);
|
||||
TRectype& ricerca_progr_prec(int, int, int, long);
|
||||
real saldofin_esprec(int,int,int,long);
|
||||
real saldo() const {return _saldo;}
|
||||
real saldoini() const {return _saldo_iniziale;}
|
||||
real prgdare() const {return _prg_dare;}
|
||||
real prgavere() const {return _prg_avere;}
|
||||
real saldo() {return _saldo;}
|
||||
real saldoini() {return _saldo_iniziale;}
|
||||
real prgdare() {return _prg_dare;}
|
||||
real prgavere() {return _prg_avere;}
|
||||
bool calcola(int,int,int,int,long,const TDate&,const TDate&,int,bool,
|
||||
const TDate&,const TDate&,const TDate&,bool);
|
||||
bool prg_attuali(int,TConto&,int,real&,real&);
|
||||
@ -102,19 +109,19 @@ public:
|
||||
char sezione, bool somma=TRUE);
|
||||
|
||||
void set_anno_es(int anno) { _anno_es = anno; }
|
||||
int anno_es() const { return _anno_es; }
|
||||
int anno_es() { return _anno_es; }
|
||||
|
||||
void set_movap (bool movap) { _movap = movap; }
|
||||
bool movap() const { return _movap; }
|
||||
bool movap() { return _movap; }
|
||||
|
||||
void set_movprovv (bool p) { _provv = p; }
|
||||
bool movprovv() const { return _provv; }
|
||||
bool movprovv() { return _provv; }
|
||||
|
||||
void set_data_ulmov (const TDate& data) { _data_ulmov = data; }
|
||||
const TDate& data_ulmov() const { return _data_ulmov; }
|
||||
void set_data_ulmov (TDate& data) { _data_ulmov = data; }
|
||||
TDate& data_ulmov() { return _data_ulmov; }
|
||||
|
||||
void set_num_ulmov (long num) { _num_ulmov = num; }
|
||||
long num_ulmov() const { return _num_ulmov; }
|
||||
long num_ulmov() { return _num_ulmov; }
|
||||
|
||||
void reset(); // pulisce l'array dei conti
|
||||
TSaldo_agg();
|
||||
|
||||
@ -2,10 +2,12 @@
|
||||
// calcolo dei saldi
|
||||
|
||||
#include <applicat.h>
|
||||
#include <config.h>
|
||||
#include <date.h>
|
||||
#include <real.h>
|
||||
#include <lffiles.h>
|
||||
#include <isam.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include <config.h>
|
||||
#include <rmov.h>
|
||||
#include <mov.h>
|
||||
#include <saldi.h>
|
||||
@ -96,7 +98,7 @@ real Saldo::calcola_saldo_iniziale(int annoes,int g,int c,long s,int indbil)
|
||||
|
||||
if (saldoini == ZERO) //e il conto e' patrimoniale o d'ordine
|
||||
if ( indbil == 1 || indbil == 2 || indbil == 5 )
|
||||
saldoini = saldofin_esprec(annoes, g, c, s);
|
||||
saldoini = saldofin_esprec(annoes, g, c, s);
|
||||
|
||||
if (flag == 'D')
|
||||
return saldoini+pdaresca-paveresca;
|
||||
@ -104,17 +106,17 @@ real Saldo::calcola_saldo_iniziale(int annoes,int g,int c,long s,int indbil)
|
||||
return pdaresca-saldoini-paveresca;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s,
|
||||
const TDate& data_inf, const TDate& data_sup,
|
||||
int indbil, bool controllo_competenza, const TDate& inizio_es,
|
||||
const TDate& fine_es, const TDate& fine_es_prec,bool stp_prov)
|
||||
const TDate& data_inf, const TDate& data_sup,
|
||||
int indbil, bool controllo_competenza, const TDate& inizio_es,
|
||||
const TDate& fine_es, const TDate& fine_es_prec,bool stp_prov)
|
||||
{
|
||||
if (data_sup.ok())
|
||||
{
|
||||
if (!calcola_data_limite(annoes, g, c, s, data_inf, data_sup, indbil,
|
||||
controllo_competenza, inizio_es, fine_es, fine_es_prec,stp_prov))
|
||||
return FALSE;
|
||||
controllo_competenza, inizio_es, fine_es, fine_es_prec,stp_prov))
|
||||
return FALSE;
|
||||
}
|
||||
else
|
||||
if (!calcola_ultima_immissione(annoes,annoesprec, g, c, s, indbil))
|
||||
@ -122,7 +124,7 @@ bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s,
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
*/
|
||||
|
||||
const char* Saldo::causale_chiusura_es()
|
||||
{
|
||||
@ -149,9 +151,9 @@ void Saldo::leggi_mov(long nr)
|
||||
|
||||
if (mov.read() == NOERR)
|
||||
{
|
||||
_codcaus = mov.get(MOV_CODCAUS);
|
||||
_codcaus = mov.get (MOV_CODCAUS);
|
||||
_datareg = mov.get_date(MOV_DATAREG);
|
||||
_provv = mov.get_char(MOV_PROVVIS);
|
||||
_provv = mov.get (MOV_PROVVIS);
|
||||
_datacomp = mov.get_date(MOV_DATACOMP);
|
||||
}
|
||||
}
|
||||
@ -194,7 +196,7 @@ bool Saldo::calcola_data_limite(int annoes, int g, int c, long s, const TDate& d
|
||||
|
||||
if ((!stp_prov) && (provv.trim().not_empty())) //se non e' richiesta stampa
|
||||
continue; //mov. provvisori li scarto
|
||||
|
||||
|
||||
gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto);
|
||||
|
||||
if (gcs_corr != gcs_prec)
|
||||
@ -207,14 +209,14 @@ bool Saldo::calcola_data_limite(int annoes, int g, int c, long s, const TDate& d
|
||||
if (annoe != annoes)
|
||||
if (annoe != annoes-1)
|
||||
continue;
|
||||
|
||||
|
||||
if (controllo_competenza)
|
||||
if ( (annoe == annoes -1) && (data_sup != fine_es) )
|
||||
continue;
|
||||
else
|
||||
if ( (data_rmv <= fine_es) && (data_rmv <= fine_es_prec) ||
|
||||
(data_rmv > fine_es) )
|
||||
continue;
|
||||
if ( (data_rmv <= fine_es) && (data_rmv <= fine_es_prec) ||
|
||||
(data_rmv > fine_es) )
|
||||
continue;
|
||||
|
||||
if ( (data_rmv < data_inf) || (data_rmv > data_sup) )
|
||||
continue;
|
||||
@ -253,8 +255,8 @@ void Saldo::InFinEs(int ae)
|
||||
}
|
||||
}
|
||||
*/
|
||||
real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
|
||||
const TDate& data_sup, int indbil, bool stp_prov)
|
||||
bool Saldo::data_limite_bilancio(int bilancio, int g, int c, long s, const TDate& data_inf,
|
||||
const TDate& data_sup, int indbil, bool stp_prov)
|
||||
{
|
||||
TString16 gcs_corr, gcs_prec;
|
||||
real importo, dep = ZERO;
|
||||
@ -262,6 +264,7 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
|
||||
long sottoconto, num_reg;
|
||||
TDate data_mov;
|
||||
char sezione;
|
||||
bool esito = FALSE;
|
||||
TLocalisamfile rmov(LF_RMOV, FALSE);
|
||||
|
||||
rmov.setkey(2);
|
||||
@ -284,14 +287,14 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
|
||||
|
||||
leggi_mov(num_reg);
|
||||
|
||||
if (_bilancio == scalare)
|
||||
if (bilancio == 1)
|
||||
data_mov = _datacomp;
|
||||
else
|
||||
{
|
||||
if (_annoes == 0)
|
||||
data_mov = _datareg;
|
||||
data_mov = _datareg;
|
||||
else
|
||||
data_mov = _datacomp;
|
||||
data_mov = _datacomp;
|
||||
}
|
||||
if (data_mov < data_inf || data_mov > data_sup)
|
||||
continue;
|
||||
@ -301,9 +304,9 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
|
||||
|
||||
if (_codcaus == causale_chiusura_es()) continue;
|
||||
|
||||
if (!stp_prov && _provv != ' ') //se non e' richiesta stampa
|
||||
continue; //mov. provvisori li scarto
|
||||
|
||||
if (!stp_prov && _provv.trim().not_empty()) //se non e' richiesta stampa
|
||||
continue; //mov. provvisori li scarto
|
||||
|
||||
gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto);
|
||||
|
||||
if (gcs_corr != gcs_prec)
|
||||
@ -318,12 +321,14 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
|
||||
if (importo == ZERO)
|
||||
continue;
|
||||
|
||||
esito = TRUE;
|
||||
|
||||
if (sezione == 'D') dep += importo;
|
||||
else dep -= importo;
|
||||
|
||||
}
|
||||
_saldo = dep;
|
||||
return _saldo;
|
||||
return esito;
|
||||
}
|
||||
|
||||
bool Saldo::calcola_ultima_immissione(int annoes, int annoesprec, int g, int c,
|
||||
@ -339,7 +344,7 @@ long s, int indbil)
|
||||
_saldo_iniziale = ZERO;
|
||||
_prg_dare = ZERO;
|
||||
_prg_avere = ZERO;
|
||||
_saldo = ZERO;
|
||||
_saldo = ZERO;
|
||||
|
||||
saldi.zero();
|
||||
|
||||
@ -364,10 +369,10 @@ long s, int indbil)
|
||||
if (annoesprec == 0) //all'ultima immissione es.in corso
|
||||
{
|
||||
// if (indbil == 3 || indbil == 4)
|
||||
// return esito;
|
||||
// return esito;
|
||||
|
||||
if (indbil == 1 || indbil == 2 || indbil == 5)
|
||||
if (_saldo_iniziale == ZERO)
|
||||
if (_saldo_iniziale == ZERO)
|
||||
_saldo_iniziale += saldofin_esprec(annoes,gruppo,conto,sottoconto);
|
||||
|
||||
// i tre valori precedenti vengono utilizzati per la stampa bilancio
|
||||
@ -394,18 +399,19 @@ long s, int indbil)
|
||||
return esito;
|
||||
}
|
||||
|
||||
real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil)
|
||||
bool Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil)
|
||||
{
|
||||
//Si considerano i saldi e non piu' i movimenti
|
||||
char sezione;
|
||||
int gruppo, conto, annoe;
|
||||
long sottoconto;
|
||||
bool esito = FALSE;
|
||||
TLocalisamfile saldi(LF_SALDI, FALSE);
|
||||
|
||||
_saldo_iniziale = ZERO;
|
||||
_prg_dare = ZERO;
|
||||
_prg_avere = ZERO;
|
||||
_saldo = ZERO;
|
||||
_saldo = ZERO;
|
||||
|
||||
saldi.zero();
|
||||
|
||||
@ -428,7 +434,7 @@ real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil)
|
||||
if (sezione == 'A') _saldo_iniziale = -_saldo_iniziale;
|
||||
|
||||
// if (indbil == 3 || indbil == 4)
|
||||
// return esito;
|
||||
// return esito;
|
||||
|
||||
if (indbil == 1 || indbil == 2 || indbil == 5)
|
||||
if (_saldo_iniziale == ZERO)
|
||||
@ -436,9 +442,10 @@ real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil)
|
||||
|
||||
// i tre valori precedenti vengono utilizzati per la stampa bilancio
|
||||
// di verifica
|
||||
esito = TRUE;
|
||||
_saldo = _saldo_iniziale + _prg_dare - _prg_avere;
|
||||
}
|
||||
return _saldo;
|
||||
return esito;
|
||||
}
|
||||
|
||||
TRectype& Saldo::ricerca_progr_prec (int annoesprec, int g, int c, long s)
|
||||
@ -490,8 +497,8 @@ bool Saldo::prg_attuali(int annoes,TConto& conto,int indbil,real& prgdare,real&
|
||||
saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto());
|
||||
if (saldoini > 0.00)
|
||||
flagsalini = 'D';
|
||||
else flagsalini = 'A';
|
||||
}
|
||||
else flagsalini = 'A';
|
||||
}
|
||||
pdare = saldi.get_real(SLD_PDARE);
|
||||
pavere = saldi.get_real(SLD_PAVERE);
|
||||
pdaresca = saldi.get_real(SLD_PDARESCA);
|
||||
@ -535,8 +542,8 @@ bool Saldo::prg_mov_eliminati(int annoes,TConto& conto,int indbil,real& prgdare,
|
||||
saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto());
|
||||
if (saldoini > ZERO)
|
||||
flagsalini = 'D';
|
||||
else flagsalini = 'A';
|
||||
}
|
||||
else flagsalini = 'A';
|
||||
}
|
||||
pdaresca = saldi.get_real(SLD_PDARESCA);
|
||||
paveresca = saldi.get_real(SLD_PAVERESCA);
|
||||
if (flagsalini == 'D')
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user