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

Vari errori corretti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1567 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-07-06 08:27:30 +00:00
parent ef951689fa
commit e9a48cd2ea
9 changed files with 10888 additions and 10723 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1481
cg/cg4300.cpp
View File

File diff suppressed because it is too large Load Diff

3420
cg/cg4301.cpp
View File

File diff suppressed because it is too large Load Diff

3865
cg/cg4304.cpp
View File

File diff suppressed because it is too large Load Diff

6690
cg/cg4400.cpp
View File

File diff suppressed because it is too large Load Diff

318
cg/cg4400.h
View File

@ -1,159 +1,159 @@
// //
// cg4400.h // cg4400.h
// //
#include <isam.h> #include <isam.h>
#include <printapp.h> #include <printapp.h>
#include <mask.h> #include <mask.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h> #include <urldefid.h>
#include <text.h> #include <text.h>
#include <mailbox.h> #include <mailbox.h>
#include <execp.h> #include <execp.h>
#include <sheet.h> #include <sheet.h>
#include <config.h> #include <config.h>
#include <prefix.h> #include <prefix.h>
#include <progind.h> #include <progind.h>
#include <nditte.h> #include <nditte.h>
#include <anagr.h> #include <anagr.h>
#include <comuni.h> #include <comuni.h>
#include <unloc.h> #include <unloc.h>
#include <mov.h> #include <mov.h>
#include <rmoviva.h> #include <rmoviva.h>
#include <clifo.h> #include <clifo.h>
#include <occas.h> #include <occas.h>
#include <causali.h> #include <causali.h>
#include "cglib03.h" #include "cglib03.h"
#include "cglib04.h" #include "cglib04.h"
#include "conto.h" #include "conto.h"
enum messaggio { enum messaggio {
no_liquidazione, no_liquidazione,
B0_settato, B0_settato,
non_proseguire, non_proseguire,
prosegui_stampa, prosegui_stampa,
prosegui_cal_stampa prosegui_cal_stampa
}; };
class CG4400_application : public TPrintapp class CG4400_application : public TPrintapp
{ {
TCursor * _cur; TCursor * _cur;
TRelation *_rel, *_nditte; TRelation *_rel, *_nditte;
TLocalisamfile *_clifo, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv, *_indlib; TLocalisamfile *_clifo, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv, *_indlib;
TTable *_tabreg, *_tablbu, *_tablim, *_tabpim, *_tablia, *_tabiva; TTable *_tabreg, *_tablbu, *_tablim, *_tabpim, *_tablia, *_tabiva;
TTable *_tabpla, *_tabppa, *_tabvid; TTable *_tabpla, *_tabppa, *_tabvid;
TRigaiva_array _iva_array, _riga_rmi; TRigaiva_array _iva_array, _riga_rmi;
TTipodoc_array _doc_array; TTipodoc_array _doc_array;
TRiga_array _tot_iva_array; TRiga_array _tot_iva_array;
TBit_array _selected; TBit_array _selected;
TArray_sheet *_ditte; TArray_sheet *_ditte;
TArray _nomiditte; TArray _nomiditte;
bool _st_liq[13]; bool _st_liq[13];
bool _test; bool _test;
TRecnotype _nrec; TRecnotype _nrec;
bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa; bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa;
bool _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre; bool _corrispettivi, _liquidazione, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre;
bool _rif_vid, _intesta_vidi, _intesta_liq, _stampa_data_reg, _ok_vidi; bool _rif_vid, _intesta_vidi, _intesta_liq, _stampa_data_reg, _ok_vidi;
char _frequiva, _tipo_riepilogativo; char _frequiva, _tipo_riepilogativo;
TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg; TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg;
TDate _u_data; TDate _u_data;
long _n_ditte, _u_stampata, _primast, __firm, _uprotivap, _ditta; long _n_ditte, _u_stampata, _primast, __firm, _uprotivap, _ditta;
long _numini, _pagine_stampate; long _numini, _pagine_stampate;
int _fino_a_mese, _tipo_reg, _tipo_stampa, _cod_un_loc; int _fino_a_mese, _tipo_reg, _tipo_stampa, _cod_un_loc;
int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito; int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito;
int _stampa_len, _stampa_mese, _size_header; int _stampa_len, _stampa_mese, _size_header;
real _totale_doc, _credito; real _totale_doc, _credito;
TString _codreg, _desc_lib, _codatt, _attivita, _tipoatt; TString _codreg, _desc_lib, _codatt, _attivita, _tipoatt;
TString _tipodoc, _descr_doc, _codlib, _codice_vidi; TString _tipodoc, _descr_doc, _codlib, _codice_vidi;
TString _cofi,_cap,_paiva,_ragsoc,_comunefis,_provfis,_viafis; TString _cofi,_cap,_paiva,_ragsoc,_comunefis,_provfis,_viafis;
TFilename _t; TFilename _t;
TParagraph_string* _desc27; TParagraph_string* _desc27;
messaggio _scelta; messaggio _scelta;
protected: protected:
static bool filter_func (const TRelation * r); static bool filter_func (const TRelation * r);
static bool mask_tipo_stampa (TMask_field&, KEY); static bool mask_tipo_stampa (TMask_field&, KEY);
static bool to_ditt_handler (TMask_field&, KEY); static bool to_ditt_handler (TMask_field&, KEY);
static bool fr_ditt_handler (TMask_field&, KEY); static bool fr_ditt_handler (TMask_field&, KEY);
static bool to_butt_handler (TMask_field&, KEY); static bool to_butt_handler (TMask_field&, KEY);
static bool fr_butt_handler (TMask_field&, KEY); static bool fr_butt_handler (TMask_field&, KEY);
static bool mask_cod (TMask_field&, KEY); static bool mask_cod (TMask_field&, KEY);
static bool mask_libun (TMask_field&, KEY); static bool mask_libun (TMask_field&, KEY);
static bool mask_data (TMask_field&, KEY); static bool mask_data (TMask_field&, KEY);
static bool mask_mese (TMask_field&, KEY); static bool mask_mese (TMask_field&, KEY);
static bool mask_fino_a_mese (TMask_field&, KEY); static bool mask_fino_a_mese (TMask_field&, KEY);
static bool mask_select (TMask_field&, KEY); static bool mask_select (TMask_field&, KEY);
static bool mask_azzera (TMask_field&, KEY); static bool mask_azzera (TMask_field&, KEY);
static bool year_handler (TMask_field&, KEY); static bool year_handler (TMask_field&, KEY);
public: public:
const char* desc_attivita (); const char* desc_attivita ();
const char* tipo_attivita (); const char* tipo_attivita ();
const char* descr_doc (); const char* descr_doc ();
const char* descr_iva (const char *); const char* descr_iva (const char *);
TRectype& ricerca_occ(const char*); TRectype& ricerca_occ(const char*);
TRectype& ricerca_cf (char, long); TRectype& ricerca_cf (char, long);
TRectype& look_comuni(const char*); TRectype& look_comuni(const char*);
TArray_sheet* get_ditte_sheet() { return _ditte; } TArray_sheet* get_ditte_sheet() { return _ditte; }
int setta_riga (int, const TRigaiva&, real&, real&, real&, real&); int setta_riga (int, const TRigaiva&, real&, real&, real&, real&);
int riga_rmoviva(); int riga_rmoviva();
bool set_print(int); bool set_print(int);
bool set_ditte(TMask&); bool set_ditte(TMask&);
bool compila_reg(const TMask&); bool compila_reg(const TMask&);
bool compila_lib(); bool compila_lib();
messaggio controlla_liquidazione(); messaggio controlla_liquidazione();
messaggio controlla_b0(); messaggio controlla_b0();
bool controlla_mov(); bool controlla_mov();
bool stampo_liquidazione(int); bool stampo_liquidazione(int);
bool ventilazione(const char*); bool ventilazione(const char*);
bool cerca_libro_gio(TString&); bool cerca_libro_gio(TString&, bool*);
bool look_reg (int, int, TString&, int, const char*, int*, long); bool look_reg (int, int, TString&, int, const char*, int*, long);
bool look_regs(int, TString&, int, int*, long, bool*); bool look_regs(int, TString&, int, int*, long, bool*);
bool stampa_totali_finali(); bool stampa_totali_finali();
bool stampa_datareg(); bool stampa_datareg();
bool stampa_registri_IVA(const TMask&); bool stampa_registri_IVA(const TMask&);
bool look_lia(long ditta = 0l); bool look_lia(long ditta = 0l);
bool ricerca_mese(TString&,TString&,int,int,TMask_field&); bool ricerca_mese(TString&,TString&,int,int,TMask_field&);
void set_choice_limits(TMask&); void set_choice_limits(TMask&);
void build_ditte_sheet(); void build_ditte_sheet();
void cerca_reg(const TString&, byte*); void cerca_reg(const TString&, byte*);
void set_page_tot_reg(); void set_page_tot_reg();
void send_message(char, const TFilename&,int); void send_message(char, const TFilename&,int);
void aggiorna_reg(const bool aggiorna_vidi); void aggiorna_reg(const bool aggiorna_vidi);
void aggiorna_lib(); void aggiorna_lib();
void calcola_progressivi(); void calcola_progressivi();
void stampa_liq_mesi_succ(); void stampa_liq_mesi_succ();
void look_reg(); void look_reg();
void no_movimenti(); void no_movimenti();
void liq_b0_settato(); void liq_b0_settato();
void liq_other_case(); void liq_other_case();
bool setta_mask(long); bool setta_mask(long);
bool preprocess_page(int, int); bool preprocess_page(int, int);
int stampa_intestazione(); int stampa_intestazione();
int stampa_prospetto(); int stampa_prospetto();
long select_firm_range(long,long); long select_firm_range(long,long);
void stampa_plafonds(int); void stampa_plafonds(int);
void get_dati_ditta(); void get_dati_ditta();
void stampa_vidi(); void stampa_vidi();
void scrivi_reg(); void scrivi_reg();
int stampa_acquisti(int); int stampa_acquisti(int);
real stampa_valori_plafonds(const real&, const int, TTable&, const char*); real stampa_valori_plafonds(const real&, const int, TTable&, const char*);
void build_nomiditte(TProgind* pnd = NULL); void build_nomiditte(TProgind* pnd = NULL);
void set_year(int y) { _annoes = y; } void set_year(int y) { _annoes = y; }
void clear_stliq(); void clear_stliq();
virtual bool preprocess_print(int, int); virtual bool preprocess_print(int, int);
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual print_action postprocess_page (int, int); virtual print_action postprocess_page (int, int);
virtual void preprocess_header(); virtual void preprocess_header();
CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {} CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {}
virtual ~CG4400_application() {} virtual ~CG4400_application() {}
}; };

3519
cg/cg4600.cpp
View File

File diff suppressed because it is too large Load Diff

683
cg/cg4600a.uml
View File

@ -1,333 +1,350 @@
#include "cg4600.h" #include "cg4600.h"
PAGE "" -1 -1 76 20 PAGE "" -1 -1 76 20
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 2 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 2 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
STRING F_CHIUSURA 3 STRING F_CHIUSURA 3
BEGIN BEGIN
PROMPT 2 4 "Codice causale chiusura " PROMPT 2 4 "Codice causale chiusura "
HELP "Codice causale che genera il movimento di chiusura" HELP "Codice causale che genera il movimento di chiusura"
USE LF_CAUSALI KEY 1 SELECT MOVAP="C" USE LF_CAUSALI KEY 1 SELECT MOVAP="C"
FLAGS "UZ" FLAGS "UZ"
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione @50" DESCR DISPLAY "Descrizione @50" DESCR
OUTPUT F_CHIUSURA CODCAUS OUTPUT F_CHIUSURA CODCAUS
INPUT CODCAUS F_CHIUSURA INPUT CODCAUS F_CHIUSURA
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_APERTURA 3 STRING F_APERTURA 3
BEGIN BEGIN
PROMPT 2 5 "Codice causale apertura " PROMPT 2 5 "Codice causale apertura "
HELP "Codice causale che genera il movimento di apertura" HELP "Codice causale che genera il movimento di apertura"
USE LF_CAUSALI KEY 1 SELECT MOVAP="A" USE LF_CAUSALI KEY 1 SELECT MOVAP="A"
FLAGS "UZ" FLAGS "UZ"
COPY DISPLAY F_CHIUSURA COPY DISPLAY F_CHIUSURA
OUTPUT F_APERTURA CODCAUS OUTPUT F_APERTURA CODCAUS
INPUT CODCAUS F_APERTURA INPUT CODCAUS F_APERTURA
END END
DATE F_DATAC DATE F_DATAC
BEGIN BEGIN
PROMPT 36 4 "Data/Anno chiusura " PROMPT 36 4 "Data/Anno chiusura "
HELP "Data in cui effettuare il movimento di chiusura" HELP "Data in cui effettuare il movimento di chiusura"
END END
DATE F_DATAAP DATE F_DATAAP
BEGIN BEGIN
PROMPT 36 5 "Data/Anno apertura " PROMPT 36 5 "Data/Anno apertura "
HELP "Data in cui effettuare il movimento di apertura" HELP "Data in cui effettuare il movimento di apertura"
WARNING "Inserire una data non inferiore alla data di chiusura" WARNING "Inserire una data non inferiore alla data di chiusura"
VALIDATE DATE_CMP_FUNC >= F_DATAC VALIDATE DATE_CMP_FUNC >= F_DATAC
END END
NUMBER F_ANNOCH 4 NUMBER F_ANNOCH 4
BEGIN BEGIN
PROMPT 69 4 "" PROMPT 69 4 ""
FLAGS "RZD" USE ESC
END INPUT CODTAB F_ANNOCH
DISPLAY "Anno" CODTAB
NUMBER F_ANNO 4 DISPLAY "Inizio Es.@12" D0
BEGIN DISPLAY "Fine Es.@12" D1
PROMPT 69 5 "" DISPLAY "Scarico@12" D2
FLAGS "RZD" OUTPUT F_ANNOCH CODTAB
END OUTPUT F_DATAC D1
CHECKTYPE REQUIRED
WARNING "Anno non presente in tabella esercizi"
GROUPBOX DLG_NULL 60 10 FLAGS "GRZD"
BEGIN END
PROMPT 2 7 "Codici sottoconto"
END NUMBER F_ANNO 4
BEGIN
NUMBER F_BILCHG 3 PROMPT 69 5 ""
BEGIN COPY USE F_ANNOCH
PROMPT 3 9 "Bilancio di chiusura " INPUT CODTAB F_ANNO
HELP "Codice conto di riepilogo del bilancio di chiusura" COPY DISPLAY F_ANNOCH
USE LF_PCON KEY 1 SELECT SOTTOCONTO!="" OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED OUTPUT F_DATAAP D0
DISPLAY "Gruppo" GRUPPO CHECKTYPE REQUIRED
DISPLAY "Conto" CONTO WARNING "Anno non presente in tabella esercizi"
DISPLAY "Sottoconto" SOTTOCONTO FLAGS "GRZD"
DISPLAY "Descrizione @50" DESCR END
OUTPUT F_BILCHG GRUPPO
OUTPUT F_BILCHC CONTO
OUTPUT F_BILCHS SOTTOCONTO GROUPBOX DLG_NULL 60 10
INPUT GRUPPO F_BILCHG BEGIN
INPUT CONTO F_BILCHC PROMPT 2 7 "Codici sottoconto"
INPUT SOTTOCONTO F_BILCHS END
END
NUMBER F_BILCHG 3
NUMBER F_BILCHC 3 BEGIN
BEGIN PROMPT 3 9 "Bilancio di chiusura "
PROMPT 44 9 "" HELP "Codice conto di riepilogo del bilancio di chiusura"
HELP "Codice conto di riepilogo del bilancio di chiusura" USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
COPY ALL F_BILCHG CHECKTYPE REQUIRED
CHECKTYPE REQUIRED DISPLAY "Gruppo" GRUPPO
END DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
NUMBER F_BILCHS 6 DISPLAY "Descrizione @50" DESCR
BEGIN OUTPUT F_BILCHG GRUPPO
PROMPT 51 9 "" OUTPUT F_BILCHC CONTO
HELP "Codice conto di riepilogo del bilancio di chiusura" OUTPUT F_BILCHS SOTTOCONTO
COPY ALL F_BILCHG INPUT GRUPPO F_BILCHG
CHECKTYPE REQUIRED INPUT CONTO F_BILCHC
INPUT SOTTOCONTO F_BILCHS
END END
NUMBER F_PROPERG 3 NUMBER F_BILCHC 3
BEGIN BEGIN
PROMPT 3 10 "Profitti e perdite " PROMPT 44 9 ""
HELP "Codice conto di riepilogo del Profitti e perdite" HELP "Codice conto di riepilogo del bilancio di chiusura"
COPY USE F_BILCHG COPY ALL F_BILCHG
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
COPY DISPLAY F_BILCHG END
OUTPUT F_PROPERG GRUPPO
OUTPUT F_PROPERC CONTO NUMBER F_BILCHS 6
OUTPUT F_PROPERS SOTTOCONTO BEGIN
INPUT GRUPPO F_PROPERG PROMPT 51 9 ""
INPUT CONTO F_PROPERC HELP "Codice conto di riepilogo del bilancio di chiusura"
INPUT SOTTOCONTO F_PROPERS COPY ALL F_BILCHG
END CHECKTYPE REQUIRED
NUMBER F_PROPERC 3 END
BEGIN
PROMPT 44 10 "" NUMBER F_PROPERG 3
HELP "Codice conto di riepilogo del Profitti e perdite" BEGIN
COPY USE F_BILCHG PROMPT 3 10 "Profitti e perdite "
CHECKTYPE REQUIRED HELP "Codice conto di riepilogo del Profitti e perdite"
COPY DISPLAY F_BILCHG COPY USE F_BILCHG
COPY OUTPUT F_PROPERG CHECKTYPE REQUIRED
COPY INPUT F_PROPERG COPY DISPLAY F_BILCHG
END OUTPUT F_PROPERG GRUPPO
OUTPUT F_PROPERC CONTO
NUMBER F_PROPERS 6 OUTPUT F_PROPERS SOTTOCONTO
BEGIN INPUT GRUPPO F_PROPERG
PROMPT 51 10 "" INPUT CONTO F_PROPERC
HELP "Codice conto di riepilogo del Profitti e perdite" INPUT SOTTOCONTO F_PROPERS
COPY ALL F_PROPERC END
CHECKTYPE REQUIRED
END NUMBER F_PROPERC 3
BEGIN
NUMBER F_BILAPG 3 PROMPT 44 10 ""
BEGIN HELP "Codice conto di riepilogo del Profitti e perdite"
PROMPT 3 11 "Bilancio di apertura " COPY USE F_BILCHG
HELP "Codice conto di riepilogo del Bilancio di apertura" CHECKTYPE REQUIRED
COPY USE F_BILCHG COPY DISPLAY F_BILCHG
CHECKTYPE REQUIRED COPY OUTPUT F_PROPERG
COPY DISPLAY F_BILCHG COPY INPUT F_PROPERG
OUTPUT F_BILAPG GRUPPO END
OUTPUT F_BILAPC CONTO
OUTPUT F_BILAPS SOTTOCONTO NUMBER F_PROPERS 6
INPUT GRUPPO F_BILAPG BEGIN
INPUT CONTO F_BILAPC PROMPT 51 10 ""
INPUT SOTTOCONTO F_BILAPS HELP "Codice conto di riepilogo del Profitti e perdite"
END COPY ALL F_PROPERC
CHECKTYPE REQUIRED
NUMBER F_BILAPC 3 END
BEGIN
PROMPT 44 11 "" NUMBER F_BILAPG 3
HELP "Codice conto di riepilogo del Bilancio di apertura" BEGIN
COPY USE F_BILCHG PROMPT 3 11 "Bilancio di apertura "
CHECKTYPE REQUIRED HELP "Codice conto di riepilogo del Bilancio di apertura"
COPY DISPLAY F_BILCHG COPY USE F_BILCHG
COPY OUTPUT F_BILAPG CHECKTYPE REQUIRED
COPY INPUT F_BILAPG COPY DISPLAY F_BILCHG
END OUTPUT F_BILAPG GRUPPO
OUTPUT F_BILAPC CONTO
NUMBER F_BILAPS 6 OUTPUT F_BILAPS SOTTOCONTO
BEGIN INPUT GRUPPO F_BILAPG
PROMPT 51 11 "" INPUT CONTO F_BILAPC
HELP "Codice conto di riepilogo del Bilancio di apertura" INPUT SOTTOCONTO F_BILAPS
COPY ALL F_BILAPC END
CHECKTYPE REQUIRED
END NUMBER F_BILAPC 3
BEGIN
NUMBER F_UTILPG 3 PROMPT 44 11 ""
BEGIN HELP "Codice conto di riepilogo del Bilancio di apertura"
PROMPT 3 12 "Utile d'esercizio c/to patrim. " COPY USE F_BILCHG
HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio" CHECKTYPE REQUIRED
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") COPY DISPLAY F_BILCHG
CHECKTYPE REQUIRED COPY OUTPUT F_BILAPG
COPY DISPLAY F_BILCHG COPY INPUT F_BILAPG
OUTPUT F_UTILPG GRUPPO END
OUTPUT F_UTILPC CONTO
OUTPUT F_UTILPS SOTTOCONTO NUMBER F_BILAPS 6
INPUT GRUPPO F_UTILPG BEGIN
INPUT CONTO F_UTILPC PROMPT 51 11 ""
INPUT SOTTOCONTO F_UTILPS HELP "Codice conto di riepilogo del Bilancio di apertura"
END COPY ALL F_BILAPC
CHECKTYPE REQUIRED
NUMBER F_UTILPC 3 END
BEGIN
PROMPT 44 12 "" NUMBER F_UTILPG 3
HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio" BEGIN
COPY USE F_UTILPG PROMPT 3 12 "Utile d'esercizio c/to patrim. "
CHECKTYPE REQUIRED HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
COPY DISPLAY F_BILCHG USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY OUTPUT F_UTILPG CHECKTYPE REQUIRED
COPY INPUT F_UTILPG COPY DISPLAY F_BILCHG
END OUTPUT F_UTILPG GRUPPO
OUTPUT F_UTILPC CONTO
NUMBER F_UTILPS 6 OUTPUT F_UTILPS SOTTOCONTO
BEGIN INPUT GRUPPO F_UTILPG
PROMPT 51 12 "" INPUT CONTO F_UTILPC
HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio" INPUT SOTTOCONTO F_UTILPS
COPY ALL F_UTILPC END
CHECKTYPE REQUIRED
END NUMBER F_UTILPC 3
BEGIN
NUMBER F_PERDPG 3 PROMPT 44 12 ""
BEGIN HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
PROMPT 3 13 "Perdita d'esercizio c/to patr. " COPY USE F_UTILPG
HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio" CHECKTYPE REQUIRED
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") COPY DISPLAY F_BILCHG
CHECKTYPE REQUIRED COPY OUTPUT F_UTILPG
COPY DISPLAY F_BILCHG COPY INPUT F_UTILPG
OUTPUT F_PERDPG GRUPPO END
OUTPUT F_PERDPC CONTO
OUTPUT F_PERDPS SOTTOCONTO NUMBER F_UTILPS 6
INPUT GRUPPO F_PERDPG BEGIN
INPUT CONTO F_PERDPC PROMPT 51 12 ""
INPUT SOTTOCONTO F_PERDPS HELP "Codice conto patrimoniale in cui ripilogare l'utile d'esercizio"
END COPY ALL F_UTILPC
CHECKTYPE REQUIRED
NUMBER F_PERDPC 3 END
BEGIN
PROMPT 44 13 "" NUMBER F_PERDPG 3
HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio" BEGIN
COPY USE F_PERDPG PROMPT 3 13 "Perdita d'esercizio c/to patr. "
CHECKTYPE REQUIRED HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
COPY DISPLAY F_BILCHG USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY OUTPUT F_PERDPG CHECKTYPE REQUIRED
COPY INPUT F_PERDPG COPY DISPLAY F_BILCHG
END OUTPUT F_PERDPG GRUPPO
OUTPUT F_PERDPC CONTO
NUMBER F_PERDPS 6 OUTPUT F_PERDPS SOTTOCONTO
BEGIN INPUT GRUPPO F_PERDPG
PROMPT 51 13 "" INPUT CONTO F_PERDPC
HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio" INPUT SOTTOCONTO F_PERDPS
COPY ALL F_PERDPC END
CHECKTYPE REQUIRED
END NUMBER F_PERDPC 3
BEGIN
NUMBER F_UTILEG 3 PROMPT 44 13 ""
BEGIN HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
PROMPT 3 14 "Utile d'esercizio c/to econom. " COPY USE F_PERDPG
HELP "Codice conto economico in cui ripilogare l'utile d'esercizio" CHECKTYPE REQUIRED
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") COPY DISPLAY F_BILCHG
CHECKTYPE REQUIRED COPY OUTPUT F_PERDPG
COPY DISPLAY F_BILCHG COPY INPUT F_PERDPG
OUTPUT F_UTILEG GRUPPO END
OUTPUT F_UTILEC CONTO
OUTPUT F_UTILES SOTTOCONTO NUMBER F_PERDPS 6
INPUT GRUPPO F_UTILEG BEGIN
INPUT CONTO F_UTILEC PROMPT 51 13 ""
INPUT SOTTOCONTO F_UTILES HELP "Codice conto patrimoniale in cui ripilogare la perdita d'esercizio"
END COPY ALL F_PERDPC
CHECKTYPE REQUIRED
NUMBER F_UTILEC 3 END
BEGIN
PROMPT 44 14 "" NUMBER F_UTILEG 3
HELP "Codice conto economico in cui ripilogare l'utile d'esercizio" BEGIN
COPY USE F_UTILEG PROMPT 3 14 "Utile d'esercizio c/to econom. "
CHECKTYPE REQUIRED HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
COPY DISPLAY F_BILCHG USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY OUTPUT F_UTILEG CHECKTYPE REQUIRED
COPY INPUT F_UTILEG COPY DISPLAY F_BILCHG
END OUTPUT F_UTILEG GRUPPO
OUTPUT F_UTILEC CONTO
NUMBER F_UTILES 6 OUTPUT F_UTILES SOTTOCONTO
BEGIN INPUT GRUPPO F_UTILEG
PROMPT 51 14 "" INPUT CONTO F_UTILEC
HELP "Codice conto economico in cui ripilogare l'utile d'esercizio" INPUT SOTTOCONTO F_UTILES
COPY ALL F_UTILEC END
CHECKTYPE REQUIRED
END NUMBER F_UTILEC 3
BEGIN
NUMBER F_PERDEG 3 PROMPT 44 14 ""
BEGIN HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
PROMPT 3 15 "Perdita d'esercizio c/to econ. " COPY USE F_UTILEG
HELP "Codice conto economico in cui ripilogare la perdita d'esercizio" CHECKTYPE REQUIRED
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="") COPY DISPLAY F_BILCHG
CHECKTYPE REQUIRED COPY OUTPUT F_UTILEG
COPY DISPLAY F_BILCHG COPY INPUT F_UTILEG
OUTPUT F_PERDEG GRUPPO END
OUTPUT F_PERDEC CONTO
OUTPUT F_PERDES SOTTOCONTO NUMBER F_UTILES 6
INPUT GRUPPO F_PERDEG BEGIN
INPUT CONTO F_PERDEC PROMPT 51 14 ""
INPUT SOTTOCONTO F_PERDES HELP "Codice conto economico in cui ripilogare l'utile d'esercizio"
COPY ALL F_UTILEC
END CHECKTYPE REQUIRED
END
NUMBER F_PERDEC 3
BEGIN NUMBER F_PERDEG 3
PROMPT 44 15 "" BEGIN
HELP "Codice conto economico in cui ripilogare la perdita d'esercizio" PROMPT 3 15 "Perdita d'esercizio c/to econ. "
COPY USE F_PERDEG HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
CHECKTYPE REQUIRED USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
COPY DISPLAY F_BILCHG CHECKTYPE REQUIRED
COPY OUTPUT F_PERDEG COPY DISPLAY F_BILCHG
COPY INPUT F_PERDEG OUTPUT F_PERDEG GRUPPO
END OUTPUT F_PERDEC CONTO
OUTPUT F_PERDES SOTTOCONTO
NUMBER F_PERDES 6 INPUT GRUPPO F_PERDEG
BEGIN INPUT CONTO F_PERDEC
PROMPT 51 15 "" INPUT SOTTOCONTO F_PERDES
HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
COPY ALL F_PERDEC END
CHECKTYPE REQUIRED
END NUMBER F_PERDEC 3
BEGIN
BUTTON DLG_OK 9 2 PROMPT 44 15 ""
BEGIN HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
PROMPT -12 -1 "" COPY USE F_PERDEG
END CHECKTYPE REQUIRED
COPY DISPLAY F_BILCHG
BUTTON DLG_QUIT 9 2 COPY OUTPUT F_PERDEG
BEGIN COPY INPUT F_PERDEG
PROMPT -22 -1 "" END
END
NUMBER F_PERDES 6
ENDPAGE BEGIN
PROMPT 51 15 ""
ENDMASK HELP "Codice conto economico in cui ripilogare la perdita d'esercizio"
COPY ALL F_PERDEC
CHECKTYPE REQUIRED
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

300
cg/cglib.h
View File

@ -1,150 +1,150 @@
#ifndef __CGLIB_H #ifndef __CGLIB_H
#define __CGLIB_H #define __CGLIB_H
#ifndef __ISAM_H #ifndef __ISAM_H
#include <isam.h> #include <isam.h>
#endif #endif
#include <assoc.h> #include <assoc.h>
#include "conto.h" #include "conto.h"
#include "cg2103.h" // per TCausale #include "cg2103.h" // per TCausale
class TCaus : public TCausale class TCaus : public TCausale
{ {
private: private:
TRectype _rec; TRectype _rec;
public: public:
bool chiusura() const; bool chiusura() const;
bool apertura() const; bool apertura() const;
virtual bool read(const char* cod); virtual bool read(const char* cod);
TCaus(const char* cod); TCaus(const char* cod);
~TCaus() {} ~TCaus() {}
}; };
class TSaldi_list : public TAssoc_array class TSaldi_list : public TAssoc_array
{ {
public: public:
TSaldi_list (int g, int c, int aec, int aep=0); TSaldi_list (int g, int c, int aec, int aep=0);
TRectype* saldi() const; TRectype* saldi() const;
}; };
enum tipobil { DataLimite=1, UltimaImmissione }; enum tipobil { DataLimite=1, UltimaImmissione };
const int EsePre(const int EseCorr); const int EsePre(const int EseCorr);
class TSaldo class TSaldo
{ {
real _saldo, _saldo_iniziale, _saldoiniziale; real _saldo, _saldo_iniziale, _saldoiniziale;
real _prg_dare, _prg_avere, _prg_daresca, _prg_averesca; real _prg_dare, _prg_avere, _prg_daresca, _prg_averesca;
int _indbil; int _indbil;
TRectype _saldo_ep; TRectype* _saldo_ep;
int _annoes; int _annoes;
TDate _inizioEs, _fineEs; TDate _inizioEs, _fineEs;
TString16 _codcaus; TString16 _codcaus;
TDate _datareg; TDate _datareg;
TDate _datacomp; TDate _datacomp;
TString _provv; TString _provv;
bool _movimentato; bool _movimentato;
bool _significativo; bool _significativo;
bool _rec_presente_ec; bool _rec_presente_ec;
bool _rec_presente_ep; bool _rec_presente_ep;
protected: protected:
void InFinEs(int); void InFinEs(int);
void leggi_mov(long numreg); // Leggi testata void leggi_mov(long numreg); // Leggi testata
real calcola_saldo_iniziale(int g, int c, long s, int indbil); real calcola_saldo_iniziale(int g, int c, long s, int indbil);
public: public:
bool movimentato() const { return _movimentato; } bool movimentato() const { return _movimentato; }
bool significativo() const { return _significativo; } bool significativo() const { return _significativo; }
bool esiste_saldo() const { return _rec_presente_ec || _rec_presente_ep;} bool esiste_saldo() const { return _rec_presente_ec || _rec_presente_ep;}
bool esiste_saldo_ep() const { return _rec_presente_ep; } bool esiste_saldo_ep() const { return _rec_presente_ep; }
int annoes () const { return _annoes; } int annoes () const { return _annoes; }
void set_annoes (int anno) { _annoes = anno; } void set_annoes (int anno) { _annoes = anno; }
bool causale_mov(long, const TDate&, const TDate&, TString&); bool causale_mov(long, const TDate&, const TDate&, TString&);
const char* causale_chiusura_es(); const char* causale_chiusura_es();
const char* causale_apertura_es(); const char* causale_apertura_es();
bool ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil,int prov); bool ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil,int prov);
bool ultima_immissione_verifica(int anno,int g,int c,long s,int indbil,int prov); bool ultima_immissione_verifica(int anno,int g,int c,long s,int indbil,int prov);
bool data_limite_bilancio(int,int,int,long,const TDate&,const TDate&,int,int); bool data_limite_bilancio(int,int,int,long,const TDate&,const TDate&,int,int);
TRectype& ricerca_progr_prec(int, int, int, long); TRectype& ricerca_progr_prec(int, int, int, long);
real saldofin_esprec(int,int,int,long); real saldofin_esprec(int,int,int,long);
bool prg_attuali(int,TConto&,real&,real&); bool prg_attuali(int,TConto&,real&,real&);
bool prg_mov_eliminati(int,TConto&,real&,real&); bool prg_mov_eliminati(int,TConto&,real&,real&);
const real& saldo() const { return _saldo;} const real& saldo() const { return _saldo;}
const real& saldoini() const { return _saldo_iniziale;} const real& saldoini() const { return _saldo_iniziale;}
const real& saldoinisusaldi() const { return _saldoiniziale;} const real& saldoinisusaldi() const { return _saldoiniziale;}
const real& prgdare() const { return _prg_dare;} const real& prgdare() const { return _prg_dare;}
const real& prgavere() const { return _prg_avere;} const real& prgavere() const { return _prg_avere;}
bool prg_attuali(int,TConto&,int,real&,real&); bool prg_attuali(int,TConto&,int,real&,real&);
bool prg_mov_eliminati(int,TConto&,int,real&,real&); bool prg_mov_eliminati(int,TConto&,int,real&,real&);
TSaldo(); TSaldo();
~TSaldo(); ~TSaldo();
}; };
class TTab_conti : public TAssoc_array class TTab_conti : public TAssoc_array
{ {
public: public:
void aggiorna_conto(const TBill& tc, int anno_es, const TImporto& importo, void aggiorna_conto(const TBill& tc, int anno_es, const TImporto& importo,
bool movap, bool provv, bool somma); bool movap, bool provv, bool somma);
TConto* add(const TBill& c, int anno); TConto* add(const TBill& c, int anno);
TConto* find(const TBill& c, int anno); TConto* find(const TBill& c, int anno);
void remove(const TBill& c, int anno); void remove(const TBill& c, int anno);
}; };
class TSaldo_agg : public TObject class TSaldo_agg : public TObject
{ {
TTab_conti _tab_conti; TTab_conti _tab_conti;
bool _movap; // se e' mov. d'apertura (aggiorno SALDO e FLAGSALINI in bool _movap; // se e' mov. d'apertura (aggiorno SALDO e FLAGSALINI in
// saldi) // saldi)
bool _provv; bool _provv;
int _anno_es; // anno esercizio int _anno_es; // anno esercizio
TDate _data_ulmov; // data ultimo movimento TDate _data_ulmov; // data ultimo movimento
long _num_ulmov; // numero ultimo movimento long _num_ulmov; // numero ultimo movimento
TRectype * _rec; // record corrente sui saldi TRectype * _rec; // record corrente sui saldi
public: public:
void clear_saldi(int year); void clear_saldi(int year);
void registra(); void registra();
void aggiorna (const TBill& tc, const TImporto& importo, bool somma=TRUE); void aggiorna (const TBill& tc, const TImporto& importo, bool somma=TRUE);
void aggiorna (int gruppo, int conto, long sottoconto, void aggiorna (int gruppo, int conto, long sottoconto,
const real& importo, char sezione, bool somma=TRUE); const real& importo, char sezione, bool somma=TRUE);
TConto* find(const TBill& c, int anno) { return _tab_conti.find(c, anno); } TConto* find(const TBill& c, int anno) { return _tab_conti.find(c, anno); }
void set_anno_es(int anno) { _anno_es = anno; } void set_anno_es(int anno) { _anno_es = anno; }
int anno_es() const { return _anno_es; } int anno_es() const { return _anno_es; }
void set_movap (bool movap) { _movap = movap; } void set_movap (bool movap) { _movap = movap; }
bool movap() const { return _movap; } bool movap() const { return _movap; }
void set_movprovv (bool p) { _provv = p; } void set_movprovv (bool p) { _provv = p; }
bool movprovv() const { return _provv; } bool movprovv() const { return _provv; }
void set_data_ulmov (const TDate& data) { _data_ulmov = data; } void set_data_ulmov (const TDate& data) { _data_ulmov = data; }
const TDate& data_ulmov() const { return _data_ulmov; } const TDate& data_ulmov() const { return _data_ulmov; }
void set_num_ulmov (long num) { _num_ulmov = num; } void set_num_ulmov (long num) { _num_ulmov = num; }
long num_ulmov() const { return _num_ulmov; } long num_ulmov() const { return _num_ulmov; }
void reset(); // pulisce l'array dei conti void reset(); // pulisce l'array dei conti
TSaldo_agg(); TSaldo_agg();
int items() const { return _tab_conti.items();} int items() const { return _tab_conti.items();}
}; };
#endif #endif

1335
cg/cglib01.cpp
View File

File diff suppressed because it is too large Load Diff