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()
{
TToken_string nulla("|**Nessuno**||||");
const TToken_string nulla("|**Nessuno**||||");
app().field_sheet(F_CODINDDOC)->destroy();
app().field_sheet(F_CODINDDOC)->add(nulla);

22
cg/cg1700a.uml
View File

@ -1,18 +1,18 @@
#include "cg1700.h"
PAGE "" -1 -1 70 10
PAGE "" -1 -1 70 8
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
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
OUTPUT F_RAGSOC RAGSOC
END
STRING F_RAGSOC 50
@ -27,14 +27,14 @@ BEGIN
FLAGS "A"
END
BUTTON DLG_OK 9 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT 30 8 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT 46 8 ""
PROMPT -22 -1 ""
END
ENDPAGE

278
cg/cg5000a.uml
View File

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

35
cg/cglib.h
View File

@ -1,20 +1,13 @@
#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"
@ -64,10 +57,10 @@ public:
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() {return _saldo;}
real saldoini() {return _saldo_iniziale;}
real prgdare() {return _prg_dare;}
real prgavere() {return _prg_avere;}
real saldo() const {return _saldo;}
real saldoini() const {return _saldo_iniziale;}
real prgdare() const {return _prg_dare;}
real prgavere() const {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&);
@ -109,19 +102,19 @@ public:
char sezione, bool somma=TRUE);
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; }
bool movap() { return _movap; }
bool movap() const { return _movap; }
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; }
TDate& data_ulmov() { return _data_ulmov; }
void set_data_ulmov (const TDate& data) { _data_ulmov = data; }
const TDate& data_ulmov() const { return _data_ulmov; }
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
TSaldo_agg();

58
cg/cglib01.cpp
View File

@ -2,12 +2,10 @@
// calcolo dei saldi
#include <applicat.h>
#include <date.h>
#include <real.h>
#include <lffiles.h>
#include <config.h>
#include <isam.h>
#include <utility.h>
#include <config.h>
#include <rmov.h>
#include <mov.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 ( 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;
@ -106,17 +104,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))
@ -124,7 +122,7 @@ bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s,
return TRUE;
}
*/
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
continue; //mov. provvisori li scarto
gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto);
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-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;
@ -256,7 +254,7 @@ 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)
const TDate& data_sup, int indbil, bool stp_prov)
{
TString16 gcs_corr, gcs_prec;
real importo, dep = ZERO;
@ -291,9 +289,9 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf,
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;
@ -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
continue; //mov. provvisori li scarto
gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto);
if (gcs_corr != gcs_prec)
@ -341,7 +339,7 @@ long s, int indbil)
_saldo_iniziale = ZERO;
_prg_dare = ZERO;
_prg_avere = ZERO;
_saldo = ZERO;
_saldo = ZERO;
saldi.zero();
@ -366,10 +364,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
@ -407,7 +405,7 @@ real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil)
_saldo_iniziale = ZERO;
_prg_dare = ZERO;
_prg_avere = ZERO;
_saldo = ZERO;
_saldo = 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 (indbil == 3 || indbil == 4)
// return esito;
// return esito;
if (indbil == 1 || indbil == 2 || indbil == 5)
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());
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);
@ -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());
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')