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

Aggiustati flag campi IVA

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@745 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-12-07 18:02:26 +00:00
parent 7660622eb7
commit 6f9ba45c36
8 changed files with 147 additions and 148 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

226
cg/cg2100a.uml
View File

@ -1,113 +1,113 @@
#include "cg2100.h" #include "cg2100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 8 PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 8
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 1 4 "Numero operazione " PROMPT 1 4 "Numero operazione "
HELP "Numero del movimento di prima nota da gestire" HELP "Numero del movimento di prima nota da gestire"
FLAGS "R" FLAGS "R"
FIELD LF_MOV->NUMREG FIELD LF_MOV->NUMREG
USE LF_MOV USE LF_MOV
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
DISPLAY "Numero@6" NUMREG DISPLAY "Numero@6" NUMREG
DISPLAY "Data@10" DATAREG DISPLAY "Data@10" DATAREG
DISPLAY "Causale" CODCAUS DISPLAY "Causale" CODCAUS
DISPLAY "Documento" NUMDOC DISPLAY "Documento" NUMDOC
DISPLAY "Protoc." PROTIVA DISPLAY "Protoc." PROTIVA
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_NUMREG NUMREG OUTPUT F_NUMREG NUMREG
KEY 1 KEY 1
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 6 "Data operazione " PROMPT 1 6 "Data operazione "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "A" FLAGS "A"
HELP "Data in cui viene registrata l'operazione" HELP "Data in cui viene registrata l'operazione"
MESSAGE COPY,F_ANNOIVA,7,10 MESSAGE COPY,F_ANNOIVA,7,10
END END
NUMBER F_ANNOIVA 4 NUMBER F_ANNOIVA 4
BEGIN BEGIN
PROMPT 51 6 "Anno IVA " PROMPT 51 6 "Anno IVA "
FLAGS "D" FLAGS "D"
END END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 1 7 "Data di competenza " PROMPT 1 7 "Data di competenza "
HELP "Data di competenza dell'operazione" HELP "Data di competenza dell'operazione"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "A" FLAGS "A"
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 51 7 "Anno di esercizio " PROMPT 51 7 "Anno di esercizio "
FLAGS "DRZ" FLAGS "DRZ"
END END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 9 "Causale " PROMPT 1 9 "Causale "
HELP "Codice della causale dell'operazione" HELP "Codice della causale dell'operazione"
FLAGS "U" FLAGS "UZ"
FIELD LF_MOV->CODCAUS FIELD LF_MOV->CODCAUS
USE LF_CAUSALI KEY 1 USE LF_CAUSALI KEY 1
INPUT CODCAUS F_CODCAUS INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Tipo" TIPODOC DISPLAY "Tipo" TIPODOC
DISPLAY "Registro" REG DISPLAY "Registro" REG
OUTPUT F_CODCAUS CODCAUS OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCRCAUS DESCR OUTPUT F_DESCRCAUS DESCR
ADD RUN cg0 -4 ADD RUN cg0 -4
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Causale assente" WARNING "Causale assente"
END END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
BEGIN BEGIN
PROMPT 21 9 "" PROMPT 21 9 ""
HELP "Descrizione della causale dell'operazione" HELP "Descrizione della causale dell'operazione"
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT DESCR F_DESCRCAUS INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Tipo" TIPODOC DISPLAY "Tipo" TIPODOC
DISPLAY "Registro" REG DISPLAY "Registro" REG
COPY OUTPUT F_CODCAUS COPY OUTPUT F_CODCAUS
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
cg/cg2100b.uml
View File

@ -122,7 +122,7 @@ STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 8 "Causale " PROMPT 1 8 "Causale "
HELP "Codice della causale generante l'operazione" HELP "Codice della causale generante l'operazione"
FLAGS "U" FLAGS "UZ"
FIELD CODCAUS FIELD CODCAUS
USE LF_CAUSALI KEY 1 USE LF_CAUSALI KEY 1
INPUT CODCAUS F_CODCAUS INPUT CODCAUS F_CODCAUS

7
cg/cg2100c.uml
View File

@ -163,7 +163,7 @@ STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 8 "Causale " PROMPT 1 8 "Causale "
HELP "Codice della causale generante l'operazione" HELP "Codice della causale generante l'operazione"
FLAGS "U" FLAGS "UZ"
FIELD LF_MOV->CODCAUS FIELD LF_MOV->CODCAUS
USE LF_CAUSALI SELECT REG!="" USE LF_CAUSALI SELECT REG!=""
INPUT CODCAUS F_CODCAUS INPUT CODCAUS F_CODCAUS
@ -199,7 +199,7 @@ END
STRING F_CODREG 3 STRING F_CODREG 3
BEGIN BEGIN
PROMPT 1 9 "Registro IVA " PROMPT 1 9 "Registro IVA "
FLAGS "DG" FLAGS "DGUZ"
FIELD LF_MOV->REG FIELD LF_MOV->REG
END END
@ -388,7 +388,7 @@ BEGIN
PROMPT 60 11 "Pagamento " PROMPT 60 11 "Pagamento "
HELP "Codice del pagamento concordato per il movimento" HELP "Codice del pagamento concordato per il movimento"
FIELD CODPAG FIELD CODPAG
FLAGS "U" FLAGS "UZ"
USE %CPG USE %CPG
INPUT CODTAB F_CODPAG INPUT CODTAB F_CODPAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -475,6 +475,7 @@ BEGIN
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
OUTPUT F_CODIVA CODTAB OUTPUT F_CODIVA CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE ZEROFILL_FUNC 2
WARNING "Codice IVA assente" WARNING "Codice IVA assente"
END END

2
cg/cg2100i.uml
View File

@ -77,7 +77,7 @@ BEGIN
OUTPUT F_CODCAUS CODCAUS OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCRCAUS DESCR OUTPUT F_DESCRCAUS DESCR
OUTPUT F_TIPODOC TIPODOC OUTPUT F_TIPODOC TIPODOC
FLAGS "D" FLAGS "DUZ"
END END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50

2
cg/cg21iva.uml
View File

@ -20,7 +20,7 @@ BEGIN
OUTPUT 211 S0 OUTPUT 211 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Codice IVA assente" WARNING "Codice IVA assente"
VALIDATE REQIF_FUNC 1 101 VALIDATE ZEROFILL_FUNC 2
END END
STRING 211 58 STRING 211 58

6
cg/cg3200.cpp
View File

@ -36,7 +36,7 @@ class TMastrini_application : public TPrintapp
TDociva_array _b; TDociva_array _b;
TRelation* _rel; TRelation* _rel;
TMask* _msk; TMask* _msk;
TTable* _tabivd, * _tabtpd, * _tabreg, * _tabesc; TTable* _tabivd, * _tabtpd, * _tabreg, * _tabesc;
TLocalisamfile* _mov; TLocalisamfile* _mov;
TLocalisamfile* _nditte; TLocalisamfile* _nditte;
@ -44,7 +44,6 @@ class TMastrini_application : public TPrintapp
TLocalisamfile* _comuni; TLocalisamfile* _comuni;
TLocalisamfile* _clifo; TLocalisamfile* _clifo;
TLocalisamfile* _caus; TLocalisamfile* _caus;
Saldo _sld;
TDate _data_ini,_data_fine,_data_finese,_data_finesesucc,_ultima_data_reg; TDate _data_ini,_data_fine,_data_finese,_data_finesesucc,_ultima_data_reg;
TDate _datareg,_datadoc,_data_inizioese,_datareg_stampa,_inizioes; TDate _datareg,_datadoc,_data_inizioese,_datareg_stampa,_inizioes;
@ -1573,8 +1572,9 @@ void TMastrini_application::calcola_progressivi()
{ {
if ((_indbil == 1) || (_indbil == 2) || (_indbil == 5)) if ((_indbil == 1) || (_indbil == 2) || (_indbil == 5))
{ {
TSaldo sld;
const TRecnotype pos = saldi.recno(); const TRecnotype pos = saldi.recno();
saldo = _sld.saldofin_esprec(_anno_corrente,_gruppo,_conto,_sottoc); saldo = sld.saldofin_esprec(_anno_corrente,_gruppo,_conto,_sottoc);
saldi.readat(pos); saldi.readat(pos);
if (saldo> ZERO) if (saldo> ZERO)

2
cg/cglib.h
View File

@ -32,7 +32,7 @@ class TSaldo
real _saldo, _saldo_iniziale; real _saldo, _saldo_iniziale;
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;

48
cg/cglib01.cpp
View File

@ -2,13 +2,11 @@
// 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 <tabutil.h> #include <tabutil.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>
@ -78,7 +76,7 @@ TRectype* TSaldi_list::saldi() const
return (TRectype*)o; return (TRectype*)o;
} }
TSaldo::TSaldo() TSaldo::TSaldo() : _saldo_ep(LF_SALDI)
{ {
_saldo_iniziale = ZERO; _saldo_iniziale = ZERO;
_prg_dare = ZERO; _prg_dare = ZERO;
@ -86,15 +84,12 @@ TSaldo::TSaldo()
_saldo = ZERO; _saldo = ZERO;
_annoes = 0; _annoes = 0;
_indbil = 0; _indbil = 0;
_saldo_ep = new TRectype(LF_SALDI);
_movimentato = _significativo = FALSE; _movimentato = _significativo = FALSE;
_rec_presente_ec = _rec_presente_ep = FALSE; _rec_presente_ec = _rec_presente_ep = FALSE;
} }
TSaldo::~TSaldo() TSaldo::~TSaldo()
{ {}
delete _saldo_ep;
}
// //
// Cerca l'esercizio precedente di EseCorr // Cerca l'esercizio precedente di EseCorr
@ -121,28 +116,28 @@ const int TSaldo::EsePre(const int EseCorr)
real TSaldo::saldofin_esprec(int annoes, int g, int c, long s) real TSaldo::saldofin_esprec(int annoes, int g, int c, long s)
{ {
real saldo,pdare,pavere,pdaresca,paveresca;
char flag;
const int annoesprec = EsePre(annoes); const int annoesprec = EsePre(annoes);
if (annoesprec == 0) return ZERO; // non ci sono esercizi prima del primo if (annoesprec == 0) return ZERO; // non ci sono esercizi prima del primo
TRectype app = ricerca_progr_prec(annoesprec, g, c, s); const TRectype& app = ricerca_progr_prec(annoesprec, g, c, s);
flag = app.get(SLD_FLAGSALINI)[0]; const char flag = app.get(SLD_FLAGSALINI)[0];
saldo = app.get_real(SLD_SALDO); const real saldo = app.get_real(SLD_SALDO);
pdare = app.get_real(SLD_PDARE); const real pdare = app.get_real(SLD_PDARE);
pavere = app.get_real(SLD_PAVERE); const real pavere = app.get_real(SLD_PAVERE);
pdaresca = app.get_real(SLD_PDARESCA); const real pdaresca = app.get_real(SLD_PDARESCA);
paveresca = app.get_real(SLD_PAVERESCA); const real paveresca = app.get_real(SLD_PAVERESCA);
_significativo = (saldo != ZERO || pdare != ZERO || pavere != ZERO _significativo = (saldo != ZERO || pdare != ZERO || pavere != ZERO
|| pdaresca != ZERO || paveresca != ZERO); || pdaresca != ZERO || paveresca != ZERO);
real tot = pdare-pavere+pdaresca-paveresca;
if (flag == 'D') if (flag == 'D')
return pdare-pavere+saldo+pdaresca-paveresca; tot += saldo;
else else
return pdare-pavere-saldo+pdaresca-paveresca; tot -= saldo;
return tot;
} }
real TSaldo::calcola_saldo_iniziale(int g,int c,long s,int indbil) real TSaldo::calcola_saldo_iniziale(int g,int c,long s,int indbil)
@ -231,7 +226,10 @@ void TSaldo::leggi_mov(long nr)
} }
/******************************************** /********************************************
bool Saldo::calcola_data_limite(int annoes, 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) bool Saldo::calcola_data_limite(int annoes, 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)
{ {
TString sezione, gcs_corr, gcs_prec="", provv = ""; TString sezione, gcs_corr, gcs_prec="", provv = "";
real importo, dep = ZERO; real importo, dep = ZERO;
@ -601,10 +599,10 @@ TRectype& TSaldo::ricerca_progr_prec (int annoesprec, int g, int c, long s)
_rec_presente_ep = FALSE; _rec_presente_ep = FALSE;
} }
*_saldo_ep = saldi.curr(); _saldo_ep = saldi.curr();
saldi.setkey(oldkey); saldi.setkey(oldkey);
return *_saldo_ep; return _saldo_ep;
} }
//calcolo dei progressivi attuali //calcolo dei progressivi attuali