Corretti particolari piu' o meno estetici delle maschere
git-svn-id: svn://10.65.10.50/trunk@262 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
ef7ea71e06
commit
3c0e1c9a43
@ -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);
|
||||
|
@ -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
278
cg/cg5000a.uml
@ -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
35
cg/cglib.h
@ -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();
|
||||
|
@ -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')
|
||||
|
Loading…
x
Reference in New Issue
Block a user