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

Corretti particolari piu' o meno estetici delle maschere

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@262 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-09-16 16:58:23 +00:00
parent ef7ea71e06
commit 3c0e1c9a43
5 changed files with 181 additions and 214 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg0200.cpp
View File

@ -452,7 +452,7 @@ TSheet_field& CG0200_application::indsp_sheet() const
void CG0200_application::reset_sheet() void CG0200_application::reset_sheet()
{ {
TToken_string nulla("|**Nessuno**||||"); const TToken_string nulla("|**Nessuno**||||");
app().field_sheet(F_CODINDDOC)->destroy(); app().field_sheet(F_CODINDDOC)->destroy();
app().field_sheet(F_CODINDDOC)->add(nulla); app().field_sheet(F_CODINDDOC)->add(nulla);

22
cg/cg1700a.uml
View File

@ -1,18 +1,18 @@
#include "cg1700.h" #include "cg1700.h"
PAGE "" -1 -1 70 10 PAGE "" -1 -1 70 8
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 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
@ -27,14 +27,14 @@ BEGIN
FLAGS "A" FLAGS "A"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT 30 8 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT 46 8 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

278
cg/cg5000a.uml
View File

@ -1,151 +1,127 @@
#include "cg5000a.h" #include "cg5000a.h"
PAGE "Parametri contabilita' studio" -1 -1 76 20 PAGE "Parametri contabilita' studio" -1 -1 76 16
GROUPBOX DLG_NULL 74 4 GROUPBOX DLG_NULL 74 4
BEGIN BEGIN
PROMPT 1 1 "Dati Banca di appoggio" PROMPT 1 1 "Dati Banca di appoggio"
END END
NUMBER FLD_CODABI 5 NUMBER FLD_CODABI 5
BEGIN BEGIN
PROMPT 3 2 "Codice az. banca " PROMPT 3 2 "Codice az. banca "
USE %BAN USE %BAN
INPUT CODTAB[1,5] FLD_CODABI INPUT CODTAB[1,5] FLD_CODABI
DISPLAY "Banca" CODTAB[1,5] DISPLAY "Banca" CODTAB[1,5]
DISPLAY "Dipendenza" CODTAB[6,10] DISPLAY "Dipendenza" CODTAB[6,10]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODABI CODTAB[1,5] OUTPUT FLD_CODABI CODTAB[1,5]
OUTPUT FLD_CODCAB CODTAB[6,10] OUTPUT FLD_CODCAB CODTAB[6,10]
OUTPUT FLD_RAGSOCB S0 OUTPUT FLD_RAGSOCB S0
FIELD CodABI FIELD CodABI
CHECKTYPE NORMAL CHECKTYPE NORMAL
FLAGS "RZ" FLAGS "RZ"
END END
NUMBER FLD_CODCAB 5 NUMBER FLD_CODCAB 5
BEGIN BEGIN
PROMPT 37 2 "Codice dipendenza " PROMPT 37 2 "Codice dipendenza "
COPY ALL FLD_CODABI COPY ALL FLD_CODABI
INPUT CODTAB[6,10] FLD_CODABI INPUT CODTAB[6,10] FLD_CODABI
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD CodCAB FIELD CodCAB
FLAGS "RZ" FLAGS "RZ"
END END
STRING FLD_RAGSOCB 50 STRING FLD_RAGSOCB 50
BEGIN BEGIN
PROMPT 3 3 "Rag. Soc. Banca " PROMPT 3 3 "Rag. Soc. Banca "
FLAGS "D" FLAGS "D"
END END
BOOLEAN CHK_SIND11 BOOLEAN CHK_SIND11
BEGIN BEGIN
PROMPT 2 5 "Somma imposte non detr. ad acq/import. in modello IVA 11" PROMPT 2 5 "Somma imposte non detr. ad acq/import. in modello IVA 11"
FIELD Sind11 FIELD Sind11
END END
BOOLEAN CHK_STIREG BOOLEAN CHK_STIREG
BEGIN BEGIN
PROMPT 2 6 "Stampa intestazione registri bollati" PROMPT 2 6 "Stampa intestazione registri bollati"
FIELD StiReg FIELD StiReg
END END
BOOLEAN CHK_NODTRG BOOLEAN CHK_NODTRG
BEGIN BEGIN
PROMPT 2 7 "Non stampa data di registrazione sui registri IVA" PROMPT 2 7 "Non stampa data di registrazione sui registri IVA"
FIELD NoDtRg FIELD NoDtRg
END END
BOOLEAN CHK_POCUDR BOOLEAN CHK_POCUDR
BEGIN BEGIN
PROMPT 2 8 "Posiz. cursore su data registr. in immissione documenti" PROMPT 2 8 "Posiz. cursore su data registr. in immissione documenti"
HELP "Determina il posizionamento automatico del cursore sulla data di registrazione o sulla causale in prima nota" HELP "Determina il posizionamento automatico del cursore sulla data di registrazione o sulla causale in prima nota"
FIELD PoCuDr FIELD PoCuDr
END END
NUMBER FLD_CODAGV 5 NUMBER FLD_CODAGV 5
BEGIN BEGIN
PROMPT 2 9 "Codice IVA per ricavi misti agenzie di viaggio " PROMPT 2 9 "Codice IVA per ricavi misti agenzie di viaggio "
USE %IVA USE %IVA
INPUT CODTAB FLD_CODAGV INPUT CODTAB FLD_CODAGV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT FLD_CODAGV CODTAB OUTPUT FLD_CODAGV CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD CodAgv FIELD CodAgv
END END
GROUPBOX DLG_NULL 74 3 GROUPBOX DLG_NULL 74 3
BEGIN BEGIN
PROMPT 1 11 "Interessi liquidazioni trimestrali" PROMPT 1 11 "Interessi liquidazioni trimestrali"
END END
NUMBER FLD_INTR0 5 2 NUMBER FLD_INTR0 5 2
BEGIN BEGIN
PROMPT 3 12 "I " PROMPT 3 12 "I "
FLAGS "R" FLAGS "R"
FIELD InTr(0) FIELD InTr(0)
END END
NUMBER FLD_INTR1 5 2 NUMBER FLD_INTR1 5 2
BEGIN BEGIN
PROMPT 20 12 "II " PROMPT 20 12 "II "
FLAGS "R" FLAGS "R"
FIELD InTr(1) FIELD InTr(1)
END END
NUMBER FLD_INTR2 5 2 NUMBER FLD_INTR2 5 2
BEGIN BEGIN
PROMPT 40 12 "III " PROMPT 40 12 "III "
FLAGS "R" FLAGS "R"
FIELD InTr(2) FIELD InTr(2)
END END
NUMBER FLD_INTR3 5 2 NUMBER FLD_INTR3 5 2
BEGIN BEGIN
PROMPT 60 12 "IV " PROMPT 60 12 "IV "
FLAGS "R" FLAGS "R"
FIELD InTr(3) FIELD InTr(3)
END END
BOOLEAN CHK_CODAPN BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT 2 14 "Controllo dare/avere in gestione primanota differita" PROMPT -12 -1 ""
FIELD CoDaPn END
END
BUTTON DLG_QUIT 10 2
BOOLEAN CHK_NOVIIP BEGIN
BEGIN PROMPT -22 -1 ""
PROMPT 2 15 "Non visualizza Incasso e Pagamento in automatico" END
FIELD NoViIP
END ENDPAGE
BOOLEAN CHK_NOVIPC ENDMASK
BEGIN
PROMPT 2 16 "Non visualizza parte contabile in immissione documenti"
FIELD NoViPC
END
BOOLEAN CHK_GSACMI
BEGIN
PROMPT 2 17 "Gestione anno di competenza per movimenti IVA"
FIELD GsAcMi
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 7 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

35
cg/cglib.h
View File

@ -1,20 +1,13 @@
#ifndef __CGLIB_H #ifndef __CGLIB_H
#define __CGLIB_H #define __CGLIB_H
#ifndef __ASSOC_H
#include <assoc.h>
#endif
#ifndef __ISAM_H #ifndef __ISAM_H
#include <isam.h> #include <isam.h>
#endif #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" #include "conto.h"
@ -64,10 +57,10 @@ public:
bool calcola_clifo(int, int, int, int, int); bool calcola_clifo(int, int, int, 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);
real saldo() {return _saldo;} real saldo() const {return _saldo;}
real saldoini() {return _saldo_iniziale;} real saldoini() const {return _saldo_iniziale;}
real prgdare() {return _prg_dare;} real prgdare() const {return _prg_dare;}
real prgavere() {return _prg_avere;} real prgavere() const {return _prg_avere;}
bool calcola(int,int,int,int,long,const TDate&,const TDate&,int,bool, bool calcola(int,int,int,int,long,const TDate&,const TDate&,int,bool,
const TDate&,const TDate&,const TDate&,bool); const TDate&,const TDate&,const TDate&,bool);
bool prg_attuali(int,TConto&,int,real&,real&); bool prg_attuali(int,TConto&,int,real&,real&);
@ -109,19 +102,19 @@ public:
char sezione, bool somma=TRUE); char sezione, bool somma=TRUE);
void set_anno_es(int anno) { _anno_es = anno; } void set_anno_es(int anno) { _anno_es = anno; }
int anno_es() { 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() { return _movap; } bool movap() const { return _movap; }
void set_movprovv (bool p) { _provv = p; } void set_movprovv (bool p) { _provv = p; }
bool movprovv() { return _provv; } bool movprovv() const { return _provv; }
void set_data_ulmov (TDate& data) { _data_ulmov = data; } void set_data_ulmov (const TDate& data) { _data_ulmov = data; }
TDate& data_ulmov() { 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() { 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();

58
cg/cglib01.cpp
View File

@ -2,12 +2,10 @@
// calcolo dei saldi // calcolo dei saldi
#include <applicat.h> #include <applicat.h>
#include <date.h> #include <config.h>
#include <real.h>
#include <lffiles.h>
#include <isam.h> #include <isam.h>
#include <utility.h> #include <utility.h>
#include <config.h>
#include <rmov.h> #include <rmov.h>
#include <mov.h> #include <mov.h>
#include <saldi.h> #include <saldi.h>
@ -98,7 +96,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 (saldoini == ZERO) //e il conto e' patrimoniale o d'ordine
if ( indbil == 1 || indbil == 2 || indbil == 5 ) if ( indbil == 1 || indbil == 2 || indbil == 5 )
saldoini = saldofin_esprec(annoes, g, c, s); saldoini = saldofin_esprec(annoes, g, c, s);
if (flag == 'D') if (flag == 'D')
return saldoini+pdaresca-paveresca; return saldoini+pdaresca-paveresca;
@ -106,17 +104,17 @@ real Saldo::calcola_saldo_iniziale(int annoes,int g,int c,long s,int indbil)
return pdaresca-saldoini-paveresca; return pdaresca-saldoini-paveresca;
} }
/*
bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s, bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s,
const TDate& data_inf, const TDate& data_sup, const TDate& data_inf, const TDate& data_sup,
int indbil, bool controllo_competenza, const TDate& inizio_es, int indbil, bool controllo_competenza, const TDate& inizio_es,
const TDate& fine_es, const TDate& fine_es_prec,bool stp_prov) const TDate& fine_es, const TDate& fine_es_prec,bool stp_prov)
{ {
if (data_sup.ok()) if (data_sup.ok())
{ {
if (!calcola_data_limite(annoes, g, c, s, data_inf, data_sup, indbil, if (!calcola_data_limite(annoes, g, c, s, data_inf, data_sup, indbil,
controllo_competenza, inizio_es, fine_es, fine_es_prec,stp_prov)) controllo_competenza, inizio_es, fine_es, fine_es_prec,stp_prov))
return FALSE; return FALSE;
} }
else else
if (!calcola_ultima_immissione(annoes,annoesprec, g, c, s, indbil)) if (!calcola_ultima_immissione(annoes,annoesprec, g, c, s, indbil))
@ -124,7 +122,7 @@ bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s,
return TRUE; return TRUE;
} }
*/
const char* Saldo::causale_chiusura_es() const char* Saldo::causale_chiusura_es()
{ {
@ -196,7 +194,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 if ((!stp_prov) && (provv.trim().not_empty())) //se non e' richiesta stampa
continue; //mov. provvisori li scarto continue; //mov. provvisori li scarto
gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto); gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto);
if (gcs_corr != gcs_prec) if (gcs_corr != gcs_prec)
@ -209,14 +207,14 @@ bool Saldo::calcola_data_limite(int annoes, int g, int c, long s, const TDate& d
if (annoe != annoes) if (annoe != annoes)
if (annoe != annoes-1) if (annoe != annoes-1)
continue; continue;
if (controllo_competenza) if (controllo_competenza)
if ( (annoe == annoes -1) && (data_sup != fine_es) ) if ( (annoe == annoes -1) && (data_sup != fine_es) )
continue; continue;
else else
if ( (data_rmv <= fine_es) && (data_rmv <= fine_es_prec) || if ( (data_rmv <= fine_es) && (data_rmv <= fine_es_prec) ||
(data_rmv > fine_es) ) (data_rmv > fine_es) )
continue; continue;
if ( (data_rmv < data_inf) || (data_rmv > data_sup) ) if ( (data_rmv < data_inf) || (data_rmv > data_sup) )
continue; continue;
@ -256,7 +254,7 @@ void Saldo::InFinEs(int ae)
} }
*/ */
real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf, real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
const TDate& data_sup, int indbil, bool stp_prov) const TDate& data_sup, int indbil, bool stp_prov)
{ {
TString16 gcs_corr, gcs_prec; TString16 gcs_corr, gcs_prec;
real importo, dep = ZERO; real importo, dep = ZERO;
@ -291,9 +289,9 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
else else
{ {
if (_annoes == 0) if (_annoes == 0)
data_mov = _datareg; data_mov = _datareg;
else else
data_mov = _datacomp; data_mov = _datacomp;
} }
if (data_mov < data_inf || data_mov > data_sup) if (data_mov < data_inf || data_mov > data_sup)
continue; continue;
@ -305,7 +303,7 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
if (!stp_prov && _provv != ' ') //se non e' richiesta stampa if (!stp_prov && _provv != ' ') //se non e' richiesta stampa
continue; //mov. provvisori li scarto continue; //mov. provvisori li scarto
gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto); gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto);
if (gcs_corr != gcs_prec) if (gcs_corr != gcs_prec)
@ -341,7 +339,7 @@ long s, int indbil)
_saldo_iniziale = ZERO; _saldo_iniziale = ZERO;
_prg_dare = ZERO; _prg_dare = ZERO;
_prg_avere = ZERO; _prg_avere = ZERO;
_saldo = ZERO; _saldo = ZERO;
saldi.zero(); saldi.zero();
@ -366,10 +364,10 @@ long s, int indbil)
if (annoesprec == 0) //all'ultima immissione es.in corso if (annoesprec == 0) //all'ultima immissione es.in corso
{ {
// if (indbil == 3 || indbil == 4) // if (indbil == 3 || indbil == 4)
// return esito; // return esito;
if (indbil == 1 || indbil == 2 || indbil == 5) if (indbil == 1 || indbil == 2 || indbil == 5)
if (_saldo_iniziale == ZERO) if (_saldo_iniziale == ZERO)
_saldo_iniziale += saldofin_esprec(annoes,gruppo,conto,sottoconto); _saldo_iniziale += saldofin_esprec(annoes,gruppo,conto,sottoconto);
// i tre valori precedenti vengono utilizzati per la stampa bilancio // i tre valori precedenti vengono utilizzati per la stampa bilancio
@ -407,7 +405,7 @@ real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil)
_saldo_iniziale = ZERO; _saldo_iniziale = ZERO;
_prg_dare = ZERO; _prg_dare = ZERO;
_prg_avere = ZERO; _prg_avere = ZERO;
_saldo = ZERO; _saldo = ZERO;
saldi.zero(); saldi.zero();
@ -430,7 +428,7 @@ real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil)
if (sezione == 'A') _saldo_iniziale = -_saldo_iniziale; if (sezione == 'A') _saldo_iniziale = -_saldo_iniziale;
// if (indbil == 3 || indbil == 4) // if (indbil == 3 || indbil == 4)
// return esito; // return esito;
if (indbil == 1 || indbil == 2 || indbil == 5) if (indbil == 1 || indbil == 2 || indbil == 5)
if (_saldo_iniziale == ZERO) if (_saldo_iniziale == ZERO)
@ -492,8 +490,8 @@ bool Saldo::prg_attuali(int annoes,TConto& conto,int indbil,real& prgdare,real&
saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto()); saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto());
if (saldoini > 0.00) if (saldoini > 0.00)
flagsalini = 'D'; flagsalini = 'D';
else flagsalini = 'A'; else flagsalini = 'A';
} }
pdare = saldi.get_real(SLD_PDARE); pdare = saldi.get_real(SLD_PDARE);
pavere = saldi.get_real(SLD_PAVERE); pavere = saldi.get_real(SLD_PAVERE);
pdaresca = saldi.get_real(SLD_PDARESCA); pdaresca = saldi.get_real(SLD_PDARESCA);
@ -537,8 +535,8 @@ bool Saldo::prg_mov_eliminati(int annoes,TConto& conto,int indbil,real& prgdare,
saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto()); saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto());
if (saldoini > ZERO) if (saldoini > ZERO)
flagsalini = 'D'; flagsalini = 'D';
else flagsalini = 'A'; else flagsalini = 'A';
} }
pdaresca = saldi.get_real(SLD_PDARESCA); pdaresca = saldi.get_real(SLD_PDARESCA);
paveresca = saldi.get_real(SLD_PAVERESCA); paveresca = saldi.get_real(SLD_PAVERESCA);
if (flagsalini == 'D') if (flagsalini == 'D')