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

Correzioni varie

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3028 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1996-06-20 07:24:36 +00:00
parent ad35c4e4dc
commit 3b963dab14
36 changed files with 1034 additions and 1027 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
m770/770100b.uml
View File

@ -92,7 +92,7 @@ BEGIN
OUTPUT SPF_CAUSD1 S3
FLAGS "Z"
WARNING "Manca la causale"
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
END
NUMBER F_PERC_INPS 6

5
m770/770102.cpp
View File

@ -893,6 +893,7 @@ real TSchedaPercipienti::calcola_imponibile(TMask_field& f, const real& compenso
real rPercCassaPrev=ZERO;
rPercCassaPrev = mm.get_real(F_CASSA_PREV);
imponibile_calcolato = (imponibile_calcolato / (100.00 + rPercCassaPrev)) * 100.00;
imponibile_calcolato.trunc();
}
TString impost(imponibile_calcolato.string());
@ -923,6 +924,7 @@ real TSchedaPercipienti::calcola_imponibile(const real& compenso)
else
imponibile_calcolato = (compenso * quota_imp) / 100.00;
// imponibile_calcolato = round_770(imponibile_calcolato);
imponibile_calcolato.trunc();
}
return imponibile_calcolato;
}
@ -1112,6 +1114,7 @@ real TSchedaPercipienti::calcola_ritenuta(const real& imponibile)
rite = imponibile;
else
rite = (imponibile * rQuotaRaCaus)/100.00;
rite.trunc();
return rite;
}
@ -1162,7 +1165,7 @@ real TSchedaPercipienti::calcola_netto(TMask_field& f)
const real inpsperc (m.get(MPAG_INPSPERC));
netto = compenso - ritenuta + spesa - inpsperc;
netto.trunc();
f.mask().set(MPAG_NETTO, netto.string());
return netto;

5
m770/771100e.uml
View File

@ -119,8 +119,9 @@ END
STRING F_NISCRAA 10
BEGIN
PROMPT 30 9 "Numero di iscrizione all'albo "
FLAGS "D"
PROMPT 30 9 "Numero di iscrizione all'albo "
CHECKTYPE REQUIRED
FLAGS "DG"
END
GROUPBOX DLG_NULL 78 4

2
m770/771200.cpp
View File

@ -535,7 +535,7 @@ bool TQuadroA::QA3_base_occupazionale(TMask_field& f , KEY k)
if (k == K_SPACE)
{
TString appname(30);
appname.format("773 -1 771200i 37 \"%s\" 0", "Base occupati");
appname.format("773mod -1 771200i 37 \"%s\" 0", "Base occupati");
TExternal_app a(appname);
a.run();
}

2
m770/771200a.uml
View File

@ -60,7 +60,7 @@ BEGIN
OUTPUT F_CODANAGDIP CODIP
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti"
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP
END

6
m770/771200b.uml
View File

@ -664,7 +664,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 44 11 "63 interessi "
GROUP 7
// GROUP 7
END
NUMBER F_IMPVER60 15
@ -712,7 +712,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 44 15 "66 Contr. versato "
GROUP 7
// GROUP 7
END
NUMBER F_CONRIMB63 15
@ -725,7 +725,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 16 "67 interessi "
GROUP 7
// GROUP 7
END
NUMBER F_CONVER64 15

5
m770/771200c.uml
View File

@ -60,11 +60,8 @@ BEGIN
OUTPUT F_CODANAGDIP CODIP
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
// CHECKTYPE REQUIRED
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti"
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP
// FIELD LF_QUAA1->CODIP
// KEY 1
END
STRING QAF_COGNOME 24

2
m770/771200e.uml
View File

@ -60,7 +60,7 @@ BEGIN
OUTPUT F_CODANAGDIP CODIP
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
ADD RUN 773 -1 771150a 45 "Anagrafica dipendenti"
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, F_CODIP
END

57
m770/771200f.uml
View File

@ -99,17 +99,30 @@ BEGIN
PROMPT 1 6 "@bSALDO IRPEF PER IL 1994 "
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "10 Imposta rimborsata "
PROMPT 2 7 "10 Imposta rimbor. "
GROUP 6
END
*/
/*
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "11 Imposta versata "
GROUP 7
END
*/
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "10 Imposta rimbor. "
END
TEXT DLG_NULL
BEGIN
PROMPT 41 7 "11 Imposta versata "
END
NUMBER F_IIRPEFVER8 15
BEGIN
@ -118,22 +131,31 @@ BEGIN
PICTURE "."
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 41 7 "12 Interessi "
GROUP 6
END
*/
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "12 Interessi "
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 10 "@bPRIMA RATA ACCONTO IRPEF PER IL 1995 "
END
/*
TEXT DLG_NULL
BEGIN
BEGIN
PROMPT 41 7 "13 Imposta versata "
GROUP 7
END
*/
NUMBER F_IIRPEFRI9 15
BEGIN
@ -142,13 +164,13 @@ BEGIN
PICTURE "."
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "14 Interessi "
GROUP 6
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 2 8 "1a rata acc.IRPEF96 "
@ -166,14 +188,16 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "13 Imposta versata "
GROUP 6
// GROUP 6
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 2 11 "14 Interessi "
GROUP 7
END
*/
NUMBER F_PRIRPEF10 15
BEGIN
@ -185,8 +209,8 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 41 11 "Interessi "
GROUP 6
PROMPT 41 11 "14 Interessi "
// GROUP 6
END
TEXT DLG_NULL
@ -273,14 +297,21 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "16 Cont.a rimborso "
GROUP 6
// GROUP 6
END
TEXT DLG_NULL
BEGIN
PROMPT 41 5 "17 Cont. versato "
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "17 Cont. versato "
GROUP 7
END
*/
NUMBER QA2F_CSSNCRIMB 15
BEGIN
@ -289,6 +320,7 @@ BEGIN
PICTURE "."
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 41 5 "18 Interessi "
@ -300,6 +332,7 @@ BEGIN
PROMPT 41 5 "2a rata acc.CSSN 96"
GROUP 7
END
*/
NUMBER QA2F_CSSNCVER 15
BEGIN
@ -311,7 +344,7 @@ END
NUMBER QA2F_CSSNINT 15
BEGIN
PROMPT 2 6 "Interessi "
PROMPT 2 6 "18 Interessi "
FIELD LF_QUAA2->INTER18
PICTURE "."
END
@ -323,21 +356,21 @@ END
NUMBER QA2F_CSSNAIV 15
BEGIN
PROMPT 2 9 "Imposta versata "
PROMPT 2 9 "19 Contrib.versato "
FIELD LF_QUAA2->CONTV19
PICTURE "."
END
NUMBER QA2F_CSSNAINT 15
BEGIN
PROMPT 41 9 "Interessi "
PROMPT 41 9 "20 Interessi "
FIELD LF_QUAA2->INTE20
PICTURE "."
END
NUMBER QA2F_STCSSN 15
BEGIN
PROMPT 2 11 "Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 "
PROMPT 2 11 "21 Soprattasse su C.S.S.N. saldo 94 e prima rata acc.95 "
FIELD LF_QUAA2->SOPRAT21
PICTURE "."
END

2
m770/771200g.uml
View File

@ -75,7 +75,7 @@ BEGIN
OUTPUT QAF_COGNOME COGNOME
OUTPUT QAF_NOME NOME
MESSAGE COPY, F_CODIP
ADD RUN 775 -0
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
GROUP 2
END

40
m770/771230.cpp
View File

@ -5,6 +5,7 @@
#include <sort.h>
#include <tabutil.h>
#include <progind.h>
#include "caus77.h"
#include "77lib.h"
#include "scperc.h"
#include "rpag.h"
@ -31,6 +32,7 @@ class TQuadroC_E2 : public TRelation_application
real rite;
real comp;
bool acim;
bool bInps;
real inps;
};
righe_pag* _rig;
@ -81,7 +83,7 @@ class TQuadroC_E2 : public TRelation_application
bool azzera_quadro();
void riempi_record(char,long,int,const real&,const real&,
const real&,const real&,const real&,bool,
const real& inps_perc);
const real& inps_perc, bool bCinps=FALSE);
void init_sort();
void leggi_sort(TProgind&);
TRectype& look_causali(int c);
@ -268,7 +270,7 @@ bool TQuadroC_E2::imponibile_hnd(TMask_field& f, KEY k)
{
int causale = f.mask().get_int(F_CODCAUS);
TRectype& cau = app().look_causali(causale);
real aliquota = cau.get_real("R0");
real aliquota = cau.get_real(rPERC_RAC);
f.mask().set(F_PERC, aliquota.string());
}
}
@ -300,7 +302,7 @@ void TQuadroC_E2::init_sort()
void TQuadroC_E2::riempi_record(char t,long ca,int cc,const real& p,
const real& so,const real& im,
const real& ri,const real& co,bool acim,
const real& inps)
const real& inps, bool bInps)
{
_rig->tipoa = t;
sprintf(_rig->codan, "%5ld", ca);
@ -316,7 +318,8 @@ void TQuadroC_E2::riempi_record(char t,long ca,int cc,const real& p,
_rig->rite = ri;
_rig->comp = co;
_rig->acim = acim;
_rig->inps = inps;
_rig->inps = inps;
_rig->bInps = bInps;
_sort->sort((const char*)_rig);
}
@ -386,10 +389,11 @@ bool TQuadroC_E2::generazione()
codcaus = scperc.get_int(SPR_CODCAUS);
nprog = scperc.get_int(SPR_NPROG);
TRectype cau = look_causali(codcaus);
TString16 qua = cau.get("S1");
bool acc_imp = cau.get_bool("B0");
TRectype cau = look_causali(codcaus);
TString16 qua = cau.get(bCODICE_QUADRO);
bool acc_imp = cau.get_bool(bSOMME_ASSOG_RAC);
bool bContrInps = cau.get_bool(bCONTRIBUTO_INPS);
if (_tipoq == 'D' && qua != "D") continue;
if (_tipoq == 'C' && qua != "C") continue;
if (_tipoq == '1' && qua != "D1") continue;
@ -423,7 +427,7 @@ bool TQuadroC_E2::generazione()
if (perc==ZERO && comp==ZERO && rite==ZERO && impo==ZERO
&& somme==ZERO)
continue;
riempi_record(tipoa,codan,codcaus,perc,somme,impo,rite,comp,acc_imp,inps);
riempi_record(tipoa,codan,codcaus,perc,somme,impo,rite,comp,acc_imp,inps,bContrInps);
}
rpag.readat(nrec);
}
@ -540,9 +544,8 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
long codanag, codanag_p;
int codcaus_p, codcaus, nprog;
real tot_somme=ZERO,tot_impo=ZERO,tot_rite=ZERO,tot_comp=ZERO, rQCInps=ZERO;
real rTotQCInps = ZERO;
bool esiste_record = FALSE;
bool acc_imp = FALSE;
real rTotQCInps = ZERO;
bool esiste_record = FALSE, acc_imp = FALSE, bInps = FALSE;
struct righe_pag* rp;
keyp = key = "";
@ -559,8 +562,8 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
codcaus = atoi(rp->codcau);
perc = rp->perc;
acc_imp = rp->acim;
rQCInps = rp->inps;
bInps = rp->bInps; // se la riga aveva il contributo inps nella cau.
rQCInps = bInps ? rp->inps : ZERO;
if (QuadroE1() && !acc_imp)
{
genera_prospetto(codcaus,rp->comp,rp->impo,rp->rite);
@ -569,7 +572,7 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
else
{
key.format("%c%5ld%2d%s", tipoa, codanag, codcaus, (const char*)perc);
if (key != keyp && keyp != "")
if ( (key != keyp) && (keyp != "") )
{
qd.zero();
qd.put("CODDITTA", (long)get_firm_770());
@ -580,7 +583,7 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
// 12.6.96 aggiunto contributo inps
if (QuadroC())
qd.put("CONTSSN", rQCInps);
qd.put("CONTSSN", rTotQCInps);
if (QuadroD() || QuadroC())
qd.put("SOMME", tot_somme + tot_comp - tot_impo);
@ -619,14 +622,15 @@ void TQuadroC_E2::leggi_sort(TProgind& p)
else
qd.put("NETTO", tot_impo - tot_rite);
qd.write();
tot_impo = tot_somme = tot_rite = tot_comp = ZERO;
rTotQCInps = tot_impo = tot_somme = tot_rite = tot_comp = ZERO;
}
tot_somme += rp->somme;
tot_rite += rp->rite;
tot_impo += rp->impo;
tot_comp += rp->comp;
rTotQCInps += rQCInps;
if (bInps)
rTotQCInps += rQCInps;
if (tipoa_p != tipoa || codanag != codanag_p)
nprog = 1;

2
m770/771230b.uml
View File

@ -88,7 +88,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
FIELD LF_QUAD->CODCAUS
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
END
STRING QDF_CODCAUSD 1

2
m770/771230f.uml
View File

@ -86,7 +86,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
FIELD LF_QUAC->CODCAUS
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
END
STRING F_DESCRCAUS 58

2
m770/771230h.uml
View File

@ -83,7 +83,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
FIELD LF_QUAE->CODCAUS
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
END
STRING F_DESCRCAUS 58

3
m770/771230i.uml
View File

@ -10,8 +10,7 @@ END
BUTTON F_PROSPETTO 21 2
BEGIN
PROMPT -23 -3 "~Prospetto"
// MESSAGE RUN,7783,771230m,89,"Prospetto del Quadro E1","E1"
MESSAGE RUN,773,-1,771230m,89,"Prospetto del Quadro E1","E1"
MESSAGE RUN,773mod,-1,771230m,89,"Prospetto del Quadro E1","E1"
END
#include <toolbar.h>

2
m770/771230l.uml
View File

@ -83,7 +83,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
FIELD LF_QUAE1->CODCAUS
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
END
STRING F_DESCRCAUS 58

2
m770/771230m.uml
View File

@ -64,7 +64,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
FIELD LF_PROSPE1->CODCAUS
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
KEY 1
GROUP 9
MESSAGE COPY,PE1F_CODCAUS

2
m770/771231a.uml
View File

@ -219,7 +219,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
CHECKTYPE NORMAL
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
FIELD LF_QUAF->F_CODCAUS
END

2
m770/771231b.uml
View File

@ -17,7 +17,7 @@ BEGIN
OUTPUT 103 R0
FLAGS "Z"
WARNING "Manca la causale"
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
GROUP 1
END

2
m770/771231c.uml
View File

@ -17,7 +17,7 @@ BEGIN
OUTPUT 103 R0
FLAGS "Z"
WARNING "Manca la causale"
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
GROUP 1
END

2
m770/771232b.uml
View File

@ -17,7 +17,7 @@ BEGIN
OUTPUT 103 R0
FLAGS "Z"
WARNING "Manca la causale"
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
GROUP 1
END

2
m770/771233b.uml
View File

@ -17,7 +17,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
VALIDATE REQIF_FUNC 6 102 103 104 105
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
GROUP 1
END

35
m770/771310.cpp
View File

@ -161,44 +161,9 @@ bool M71310_application::auto_premi(TMask_field& f, KEY k)
{
if (k == K_TAB && f.mask().is_running())
{
// TLocalisamfile qual (LF_QUAL,FALSE);
TRelation* rel = app()._rel;
TMask& m = f.mask();
m.autosave(rel);
/* long codditta = m.get_long(F_CODDITTA);
TDate datavers (m.get(F_QLDATAVERS));
TString data = datavers.string();
int mesepag = m.get_int(F_QLMESEPAG);
int annopag = m.get_int(F_QLANNOPAG);
char luovers = m.get (F_QLLUOVERS)[0];
char tipovers = m.get (F_QLTIPOVERS)[0];
long codtrib = m.get_long(F_QLCODTRIB);
int artbil = m.get_int(F_ARTBIL);
TString serie(m.get(FH_ABISERIE));
TString numero(m.get(FH_NUMERO)); */
// TString cab(m.get(FH_CAB));
// TString nprog(m.get(FH_NPROG));
// Se abi/cab devo attaccare al cab il progressivo vers.banca
// if (tipovers == DELEGA_BANCARIA)
// numero << nprog;
/*
qual.setkey(1);
qual.zero();
qual.put(QUL_CODDITTA, codditta);
qual.put(QUL_QLDV, datavers);
qual.put(QUL_QLMP, mesepag);
qual.put(QUL_QLAP, annopag);
qual.put(QUL_QLLV, luovers);
qual.put(QUL_QLTV, tipovers);
qual.put(QUL_QLCT, (long)codtrib);
qual.put(QUL_QLAB, (long)artbil);
qual.put(QUL_QLSERIE, serie);
qual.put(QUL_QLNUMERO, numero); */
// if (qual.read() == NOERR)
if (rel->read() == NOERR)
f.mask().stop_run(K_AUTO_ENTER);
else

660
m770/771310a.uml
View File

@ -1,329 +1,331 @@
// 771310a.uml - Quadro L
#include "771310.h"
TOOLBAR "" 0 18 0 4
BUTTON F_GENERA 21 2
BEGIN
PROMPT -13 -3 "~Generazione"
END
BUTTON F_PARAMETRI 21 2
BEGIN
PROMPT -23 -3 "~Parametri Generazione"
END
#include <toolbar.h>
ENDPAGE
PAGE "QUADRO L" -1 -1 78 18
#define ABI_CAB 7
#define NUM_SERIE 8
#define TEXT_NUM_SERIE 9
#define TEXT_ABI_CAB 6
#define GH 10
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "RDG"
USE LF_NDITTE KEY 1
FIELD LF_QUAL->CODDITTA
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
TEXT 96
BEGIN
PROMPT 2 10 "Numero serie "
GROUP TEXT_NUM_SERIE
END
TEXT 97
BEGIN
PROMPT 2 10 "Codice ABI "
GROUP ABI_CAB
END
TEXT 98
BEGIN
PROMPT 46 10 "Numero quietanza "
GROUP TEXT_NUM_SERIE
END
TEXT 99
BEGIN
PROMPT 46 10 "Codice CAB "
GROUP ABI_CAB
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 0 5 ""
END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 2 4 "Anno dichiarazione "
END
NUMBER F_QLANNOPAG 4
BEGIN
PROMPT 2 6 "Anno pagamento "
USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC))
INPUT CODDITTA F_CODDITTA
INPUT QLAP F_QLANNOPAG
DISPLAY "A.P." QLAP
DISPLAY "M.P." QLMP
DISPLAY "Ritenute@15" QLRITEFF
DISPLAY "Importo versato" QLRITVER
DISPLAY "L.V." QLLV
DISPLAY "T.V." QLTV
DISPLAY "C.T." QLCT
DISPLAY "Art.Bil." QLAB
DISPLAY "Data Vers." QLDV
DISPLAY "Serie/ABI" QLSERIE
DISPLAY "Numero/CAB@11" QLNUMERO
DISPLAY "Rss" QLRSS
DISPLAY "Note@7" QLNOTE
OUTPUT F_QLDATAVERS QLDV
OUTPUT F_QLMESEPAG QLMP
OUTPUT F_QLANNOPAG QLAP
OUTPUT F_QLLUOVERS QLLV
OUTPUT F_QLTIPOVERS QLTV
OUTPUT F_QLCODTRIB QLCT
OUTPUT F_ARTBIL QLAB
OUTPUT F_QLSERIE QLSERIE
OUTPUT F_ABI QLSERIE
OUTPUT F_CAB1 QLNUMERO[1,5]
OUTPUT F_CAB QLNUMERO[6,11]
FIELD LF_QUAL->QLAP
FLAGS "R"
VALIDATE FIXLEN_FUNC 4
WARNING "L' anno deve essere indicato per esteso"
KEY 1
END
LIST F_QLMESEPAG 2 13
BEGIN
PROMPT 46 6 "Mese pagamento "
FIELD LF_QUAL->QLMP
ITEM " |Indefinito"
FLAGS "M"
KEY 1
END
DATE F_QLDATAVERS
BEGIN
PROMPT 2 7 "Data versamento "
FIELD LF_QUAL->QLDV
KEY 1
END
LIST F_QLLUOVERS 11
BEGIN
PROMPT 46 7 "Luogo versamento "
ITEM " |Nessuno"
ITEM "C|Concessione"
ITEM "T|Tesoreria"
FIELD LF_QUAL->QLLV
KEY 1
END
LIST F_QLTIPOVERS 15
BEGIN
PROMPT 2 8 "Tipo versamento "
ITEM " |Nessuno"
MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@
MESSAGE ENABLE,F_QLSERIE
ITEM "B|Delega bancaria"
MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@
MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@
ITEM "D|Distinta"
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@
MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
ITEM "C|C/C Postale"
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@
MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@
FIELD LF_QUAL->QLTV
KEY 1
END
NUMBER F_QLCODTRIB 4
BEGIN
PROMPT 46 8 "Codice tributo "
FIELD LF_QUAL->QLCT
KEY 1
END
NUMBER F_ARTBIL 2
BEGIN
PROMPT 2 9 "Articolo di bilancio "
FIELD LF_QUAL->QLAB
KEY 1
END
STRING F_QLSERIE 5
BEGIN
PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE
GROUP NUM_SERIE
KEY 1
END
STRING F_QLNUMERO 11
BEGIN
PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO
GROUP NUM_SERIE
KEY 1
END
NUMBER F_ABI 5
BEGIN
PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE
GROUP ABI_CAB
KEY 1
END
NUMBER F_CAB1 5
BEGIN
PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO[1,5]
GROUP ABI_CAB
KEY 1
END
NUMBER F_CAB 6
BEGIN
PROMPT 69 10 ""
FIELD LF_QUAL->QLNUMERO[6,11]
FLAGS "Z"
GROUP ABI_CAB
KEY 1
END
LIST F_QUADRO 2
BEGIN
PROMPT 0 12 "Codice quadro "
HELP "Inserire il codice quadro"
ITEM "| "
ITEM "A|A"
ITEM "B|B"
ITEM "B1|B1"
ITEM "C|C"
ITEM "D|D"
ITEM "D1|D1"
ITEM "E|E"
ITEM "E1|E1"
ITEM "G|G"
ITEM "G1|G1"
FIELD LF_QUAL->QLCODQUA
END
TEXT DLG_NULL
BEGIN
PROMPT 0 13 "Somme assoggettate a ritenuta:"
END
TEXT DLG_NULL
BEGIN
PROMPT 0 14 "Rit. Effettuate"
END
NUMBER F_QLRITEFF 15
BEGIN
PROMPT 0 15 ""
FIELD LF_QUAL->QLRITEFF
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT 17 14 "Importo versato"
END
NUMBER F_QLRITVER 15
BEGIN
PROMPT 17 15 ""
FIELD LF_QUAL->QLRITVER
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT 37 14 "RSS"
END
LIST F_QLRSS 7
BEGIN
PROMPT 34 15 ""
ITEM " |Nessuna"
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD LF_QUAL->QLRSS
END
TEXT DLG_NULL
BEGIN
PROMPT 58 14 "Note"
END
BOOLEAN F_NOTEA
BEGIN
PROMPT 45 15 "A"
END
BOOLEAN F_NOTEB
BEGIN
PROMPT 50 15 "B"
END
BOOLEAN F_NOTEC
BEGIN
PROMPT 55 15 "C"
END
BOOLEAN F_NOTED
BEGIN
PROMPT 60 15 "D"
END
BOOLEAN F_NOTEE
BEGIN
PROMPT 65 15 "E"
END
BOOLEAN F_NOTEF
BEGIN
PROMPT 70 15 "F"
END
BOOLEAN F_NOTEG
BEGIN
PROMPT 75 15 "G"
END
ENDPAGE
ENDMASK
// 771310a.uml - Quadro L
#include "771310.h"
TOOLBAR "" 0 18 0 4
BUTTON F_GENERA 21 2
BEGIN
PROMPT -13 -3 "~Generazione"
END
BUTTON F_PARAMETRI 21 2
BEGIN
PROMPT -23 -3 "~Parametri Generazione"
END
#include <toolbar.h>
ENDPAGE
PAGE "QUADRO L" -1 -1 78 18
#define ABI_CAB 7
#define NUM_SERIE 8
#define TEXT_NUM_SERIE 9
#define TEXT_ABI_CAB 6
#define GH 10
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "RDG"
USE LF_NDITTE KEY 1
FIELD LF_QUAL->CODDITTA
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_RAGSOC RAGSOC
KEY 1
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
FLAGS "D"
END
TEXT 96
BEGIN
PROMPT 2 10 "Numero serie "
GROUP TEXT_NUM_SERIE
END
TEXT 97
BEGIN
PROMPT 2 10 "Codice ABI "
GROUP ABI_CAB
END
TEXT 98
BEGIN
PROMPT 46 10 "Numero quietanza "
GROUP TEXT_NUM_SERIE
END
TEXT 99
BEGIN
PROMPT 46 10 "Codice CAB "
GROUP ABI_CAB
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 0 5 ""
END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 2 4 "Anno dichiarazione "
END
NUMBER F_QLANNOPAG 4
BEGIN
PROMPT 2 6 "Anno pagamento "
USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC))
INPUT CODDITTA F_CODDITTA
INPUT QLAP F_QLANNOPAG
DISPLAY "A.P." QLAP
DISPLAY "M.P." QLMP
DISPLAY "Ritenute@15" QLRITEFF
DISPLAY "Importo versato" QLRITVER
DISPLAY "L.V." QLLV
DISPLAY "T.V." QLTV
DISPLAY "C.T." QLCT
DISPLAY "Art.Bil." QLAB
DISPLAY "Data Vers." QLDV
DISPLAY "Serie/ABI" QLSERIE
DISPLAY "Numero/CAB@11" QLNUMERO
DISPLAY "Rss" QLRSS
DISPLAY "Note@7" QLNOTE
OUTPUT F_QLDATAVERS QLDV
OUTPUT F_QLMESEPAG QLMP
OUTPUT F_QLANNOPAG QLAP
OUTPUT F_QLLUOVERS QLLV
OUTPUT F_QLTIPOVERS QLTV
OUTPUT F_QLCODTRIB QLCT
OUTPUT F_ARTBIL QLAB
OUTPUT F_QLSERIE QLSERIE
OUTPUT F_ABI QLSERIE
OUTPUT F_CAB1 QLNUMERO[1,5]
OUTPUT F_CAB QLNUMERO[6,11]
FIELD LF_QUAL->QLAP
FLAGS "R"
VALIDATE FIXLEN_FUNC 4
WARNING "L' anno deve essere indicato per esteso"
KEY 1
END
LIST F_QLMESEPAG 2 13
BEGIN
PROMPT 46 6 "Mese pagamento "
FIELD LF_QUAL->QLMP
ITEM " |Indefinito"
FLAGS "M"
KEY 1
END
DATE F_QLDATAVERS
BEGIN
PROMPT 2 7 "Data versamento "
FIELD LF_QUAL->QLDV
KEY 1
END
LIST F_QLLUOVERS 11
BEGIN
PROMPT 46 7 "Luogo versamento "
ITEM " |Nessuno"
ITEM "C|Concessione"
ITEM "T|Tesoreria"
FIELD LF_QUAL->QLLV
KEY 1
END
LIST F_QLTIPOVERS 15
BEGIN
PROMPT 2 8 "Tipo versamento "
ITEM " |Nessuno"
MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@
MESSAGE ENABLE,F_QLSERIE
ITEM "B|Delega bancaria"
MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@
MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@
ITEM "D|Distinta"
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@
MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
ITEM "C|C/C Postale"
MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@
MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@
FIELD LF_QUAL->QLTV
KEY 1
END
NUMBER F_QLCODTRIB 4
BEGIN
PROMPT 46 8 "Codice tributo "
FIELD LF_QUAL->QLCT
KEY 1
END
NUMBER F_ARTBIL 2
BEGIN
PROMPT 2 9 "Articolo di bilancio "
FIELD LF_QUAL->QLAB
KEY 1
END
STRING F_QLSERIE 5
BEGIN
PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE
GROUP NUM_SERIE
KEY 1
END
STRING F_QLNUMERO 11
BEGIN
PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO
GROUP NUM_SERIE
KEY 1
END
NUMBER F_ABI 5
BEGIN
PROMPT 23 10 ""
FIELD LF_QUAL->QLSERIE
FLAGS "Z"
GROUP ABI_CAB
KEY 1
END
NUMBER F_CAB1 5
BEGIN
PROMPT 63 10 ""
FIELD LF_QUAL->QLNUMERO[1,5]
FLAGS "Z"
GROUP ABI_CAB
KEY 1
END
NUMBER F_CAB 6
BEGIN
PROMPT 69 10 ""
FIELD LF_QUAL->QLNUMERO[6,11]
FLAGS "Z"
GROUP ABI_CAB
KEY 1
END
LIST F_QUADRO 2
BEGIN
PROMPT 0 12 "Codice quadro "
HELP "Inserire il codice quadro"
ITEM "| "
ITEM "A|A"
ITEM "B|B"
ITEM "B1|B1"
ITEM "C|C"
ITEM "D|D"
ITEM "D1|D1"
ITEM "E|E"
ITEM "E1|E1"
ITEM "G|G"
ITEM "G1|G1"
FIELD LF_QUAL->QLCODQUA
END
TEXT DLG_NULL
BEGIN
PROMPT 0 13 "Somme assoggettate a ritenuta:"
END
TEXT DLG_NULL
BEGIN
PROMPT 0 14 "Rit. Effettuate"
END
NUMBER F_QLRITEFF 15
BEGIN
PROMPT 0 15 ""
FIELD LF_QUAL->QLRITEFF
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT 17 14 "Importo versato"
END
NUMBER F_QLRITVER 15
BEGIN
PROMPT 17 15 ""
FIELD LF_QUAL->QLRITVER
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT 37 14 "RSS"
END
LIST F_QLRSS 7
BEGIN
PROMPT 34 15 ""
ITEM " |Nessuna"
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD LF_QUAL->QLRSS
END
TEXT DLG_NULL
BEGIN
PROMPT 58 14 "Note"
END
BOOLEAN F_NOTEA
BEGIN
PROMPT 45 15 "A"
END
BOOLEAN F_NOTEB
BEGIN
PROMPT 50 15 "B"
END
BOOLEAN F_NOTEC
BEGIN
PROMPT 55 15 "C"
END
BOOLEAN F_NOTED
BEGIN
PROMPT 60 15 "D"
END
BOOLEAN F_NOTEE
BEGIN
PROMPT 65 15 "E"
END
BOOLEAN F_NOTEF
BEGIN
PROMPT 70 15 "F"
END
BOOLEAN F_NOTEG
BEGIN
PROMPT 75 15 "G"
END
ENDPAGE
ENDMASK

2
m770/773.cpp
View File

@ -1,7 +1,7 @@
#include <xvt.h>
#include <checks.h>
#include "773.h"
#include "773.h"
#define usage "Error - usage : %s -{0|1|2|3}"

3
m770/773100.cpp
View File

@ -1,3 +1,4 @@
// 773100 - Parametri di studio 770
#include <confapp.h>
class M73_App : public TConfig_application
@ -9,7 +10,7 @@ class M73_App : public TConfig_application
virtual ~M73_App() {}
};
bool M73_App::user_create()
bool M73_App::user_create()
{
TString16 section;
const char* edit_mask = "773100a";

25
m770/773100a.uml
View File

@ -7,21 +7,24 @@ PAGE "Parametri Modello 770" -1 -1 76 13
//
NUMBER F_ANNO 4
BEGIN
PROMPT 3 2 "Anno dichiarazione "
FLAGS "R"
FIELD AnnoDic
PROMPT 3 2 "Anno dichiarazione "
FLAGS "R"
FIELD AnnoDic
END
NUMBER F_CODCAU1015 2
BEGIN
PROMPT 3 4 "Codice causale 1015 "
USE %CA7 SELECT (I0=1015)
INPUT CODTAB F_CODCAU1015
DISPLAY "Codice Causale" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODCAU1015 CODTAB
FIELD CoCa1015
FLAGS "RZ"
PROMPT 3 4 "Codice causale 1015 "
USE %CA7 SELECT (I0=1015)
INPUT CODTAB F_CODCAU1015
DISPLAY "Codice Causale" CODTAB
DISPLAY "Descrizione@60" S0
OUTPUT F_CODCAU1015 CODTAB
CHECKTYPE NORMAL
WARNING "Causale non valida"
FIELD CoCa1015
FLAGS "Z"
ADD RUN 773mod -3 %ca7
END
LIST F_FSTAMPAQL 35

26
m770/773mod.url Executable file
View File

@ -0,0 +1,26 @@
#include <default.url>
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(1)
MENU MENU_BAR(1)
SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(2)
MENU MENU_BAR(2)
SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(3)
MENU MENU_BAR(3)
SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(4)
MENU MENU_BAR(4)
SUBMENU MENU_FILE "~File"

1041
m770/774100.cpp
View File

File diff suppressed because it is too large Load Diff

3
m770/774200.cpp
View File

@ -1935,7 +1935,6 @@ void TRiporti::calcola_riporti_G1 (TCursor* cur, const long dich)
i27_1 = i27_2 = i27_3 = i27_4 = i27_5 = ZERO;
(*cur) = 0L;
TRecnotype items = cur->items();
almeno_una_riga = items > 0L;
i27_1 = cur->curr().get_real(QG1_P12TOT);
i27_2 = cur->curr().get_real(QG1_P13TOT);
@ -1943,6 +1942,8 @@ void TRiporti::calcola_riporti_G1 (TCursor* cur, const long dich)
i27_4 = cur->curr().get_real(QG1_P16TOT);
i27_5 = cur->curr().get_real(QG1_P17TOT);
almeno_una_riga = (i27_1 != ZERO) || (i27_2 != ZERO) || (i27_3 != ZERO) ||
(i27_4 != ZERO) || (i27_5 != ZERO);
TString scritta(60);
scritta.format("Calcolo riporti del quadro G-1 per la ditta %ld", _codditta);
TProgind progn(items, scritta, FALSE, TRUE);

20
m770/776100b.uml
View File

@ -77,7 +77,7 @@ BEGIN
PROMPT 1 7 ""
PICTURE 123
GROUP 1
MESSAGE RUN,773,-1,771150a,45,"Anagrafica dipendenti",/uPRASSI
MESSAGE RUN,773mod,-1,771150a,45,"Anagrafica dipendenti",/uPRASSI
END
TEXT DLG_NULL
@ -218,7 +218,7 @@ BUTTON DLG_STOPREC_B 1 1
BEGIN
PROMPT 1 14 ""
PICTURE 123
MESSAGE RUN,773,-4,77qb,59,"Quadro B","B"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-4,77qb,59,"Quadro B","B"|K_TAB,RILEGGI_QUADRI
GROUP 1
END
@ -232,7 +232,7 @@ BUTTON DLG_STOPREC_B1 1 1
BEGIN
PROMPT 1 15 ""
PICTURE 123
MESSAGE RUN,773,-4,77qb1,60,"Quadro B1","B1"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-4,77qb1,60,"Quadro B1","B1"|K_TAB,RILEGGI_QUADRI
GROUP 1
END
@ -460,7 +460,7 @@ BUTTON DLG_STOPREC_N 1 1
BEGIN
PROMPT 39 16 ""
PICTURE 123
MESSAGE RUN,773,-2,77qn,72,"Quadro N","N"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-2,77qn,72,"Quadro N","N"|K_TAB,RILEGGI_QUADRI
GROUP 1
END
// Fine terza colonna
@ -476,7 +476,7 @@ BUTTON DLG_STOPREC_P 1 1
BEGIN
PROMPT 58 10 ""
PICTURE 123
MESSAGE RUN,773,-2,77qp,73,"Quadro P","P"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-2,77qp,73,"Quadro P","P"|K_TAB,RILEGGI_QUADRI
GROUP 1
END
@ -489,7 +489,7 @@ END
BUTTON DLG_STOPREC_Q 1 1
BEGIN
PROMPT 58 11 ""
MESSAGE RUN,773,-2,77qq,74,"Quadro Q","Q"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-2,77qq,74,"Quadro Q","Q"|K_TAB,RILEGGI_QUADRI
PICTURE 123
GROUP 1
END
@ -504,7 +504,7 @@ BUTTON DLG_STOPREC_R 1 1
BEGIN
PROMPT 58 12 ""
PICTURE 123
MESSAGE RUN,773,-2,77qr,75,"Quadro R","R"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-2,77qr,75,"Quadro R","R"|K_TAB,RILEGGI_QUADRI
GROUP 1
END
@ -518,7 +518,7 @@ BUTTON DLG_STOPREC_S 1 1
BEGIN
PROMPT 58 13 ""
PICTURE 123
MESSAGE RUN,773,-2,77qs,76,"Quadro S","S"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-2,77qs,76,"Quadro S","S"|K_TAB,RILEGGI_QUADRI
GROUP 1
END
@ -532,7 +532,7 @@ BUTTON DLG_STOPREC_T 1 1
BEGIN
PROMPT 58 14 ""
PICTURE 123
MESSAGE RUN,773,-2,77qt,77,"Quadro T","T"|K_TAB,RILEGGI_QUADRI
MESSAGE RUN,773mod,-2,77qt,77,"Quadro T","T"|K_TAB,RILEGGI_QUADRI
GROUP 1
END
// Fine QUARTA colonna
@ -663,7 +663,7 @@ BUTTON DLG_STOPREC_SOCTRA 1 1
BEGIN
PROMPT 1 12 ""
PICTURE 123
MESSAGE RUN,773,-1,771100h,102,"Manutenzione dati societa' trasformate"
MESSAGE RUN,773mod,-1,771100h,102,"Manutenzione dati societa' trasformate"
FLAGS "H"
GROUP 2
END

22
m770/776500.cpp
View File

@ -23,7 +23,6 @@ class TParametri_genera : public TApplication
int _risposta;
bool init_print();
protected:
static bool ProgBancaHnd(TMask_field& f, KEY k);
virtual void on_config_change();
virtual bool create() ;
virtual bool destroy();
@ -42,32 +41,11 @@ void TParametri_genera::on_config_change()
_anno_dic = (int)conf.get_long(ANNO_SEL, _section);
}
// Copia su NUMERO CAB+PROGBANCA
bool TParametri_genera::ProgBancaHnd(TMask_field& f, KEY k)
{
TMask& m = f.mask();
if (k == K_TAB && m.is_running())
{
char tipov = m.get(F_TIPOVERS)[0];
TString cab(m.get(F_CAB));
TString prg(m.get(F_PROGBANCA));
TString numero;
if (tipov == DELEGA_BANCARIA)
{
numero = cab;
numero << prg;
m.set(FH_NUMERO, numero);
}
}
return TRUE;
}
bool TParametri_genera::main_loop()
{
KEY tasto;
TMask msk ("776500a");
msk.set_handler(F_CAB, ProgBancaHnd);
msk.set_handler(F_PROGBANCA, ProgBancaHnd);
long codditta, codditta_prec;
int i = 0;

19
m770/776500a.uml
View File

@ -110,32 +110,23 @@ NUMBER F_ABI 5
BEGIN
PROMPT 18 13 ""
FIELD LF_BASE->SERIE
FLAGS "RZ"
FLAGS "Z"
GROUP ABI_CAB
END
STRING FH_NUMERO 11
BEGIN
PROMPT 0 1 ""
FLAGS "D"
KEY 1
FIELD LF_BASE->NUMERO
END
NUMBER F_CAB 5
BEGIN
PROMPT 63 13 ""
// FIELD LF_BASE->NUMERO
// MESSAGE COPY,FH_NUMERO
FLAGS "RZ"
FIELD LF_BASE->NUMERO[1,5]
FLAGS "Z"
GROUP ABI_CAB
END
NUMBER F_PROGBANCA 6
BEGIN
PROMPT 69 13 ""
FLAGS "RZ"
// MESSAGE ADD,FH_NUMERO
FLAGS "Z"
FIELD LF_BASE->NUMERO[6,11]
GROUP ABI_CAB
END

2
m770/77qe2b.uml
View File

@ -80,7 +80,7 @@ BEGIN
FLAGS "Z"
WARNING "Manca la causale"
FIELD LF_QUAE2->CODCAUS
ADD RUN 773 -3 %CA7
ADD RUN 773mod -3 %CA7
END
STRING F_DESCRCAUS 60

5
m770/caus77.h Executable file
View File

@ -0,0 +1,5 @@
// caus77.h - campi tabella causali
#define bCONTRIBUTO_INPS "B4"
#define bCODICE_QUADRO "S1"
#define bSOMME_ASSOG_RAC "B0"
#define rPERC_RAC "R0"

47
m770/quadb_b1.cpp
View File

@ -35,7 +35,6 @@ class TQuadriBB1_application : public TRelation_application
bool _MaskConAnnoDic, _MaskConCodditta;
bool MaskConAnnoDic() const;
bool MaskConCodditta() const { return _MaskConCodditta; }
bool EsisteUnRec();
bool QuadroB() const { return _num == LF_QUAB; }
bool QuadroB1() const { return _num == LF_QUAB1; }
bool CheckImporti(const TMask& m);
@ -47,6 +46,7 @@ class TQuadriBB1_application : public TRelation_application
protected:
virtual bool user_create();
virtual bool user_destroy();
// virtual int read(TMask& m);
virtual int rewrite(const TMask& m);
virtual int write (const TMask& m);
virtual bool remove();
@ -145,13 +145,11 @@ TMask* TQuadriBB1_application::load_mask(int n)
switch (n)
{
case 0:
if (m)
{}
break;
case 1:
if (m)
if (QuadroB())
{
{
m->set_handler(QBF_TOTIMP, QBTotRedImpHandler);
m->set_handler(QBF_ROPE, QBAmmRopeHandler);
m->set_handler(QBF_AMMNETTO, QBTotIndennHandler);
@ -191,19 +189,6 @@ bool TQuadriBB1_application::user_create()
return TRUE;
}
bool TQuadriBB1_application::EsisteUnRec()
{
TLocalisamfile q(_num);
q.zero();
q.put(QB_CODDITTA, (long)app()._codditta);
TRectype dep(q.curr());
q.read(_isgteq);
if (q.curr() > dep || q.eof())
return FALSE;
else
return TRUE;
}
bool TQuadriBB1_application::user_destroy()
{
if (_quadro != "")
@ -257,6 +242,21 @@ int TQuadriBB1_application::rewrite(const TMask& m)
_registra = err == NOERR;
return err;
}
/*
int TQuadriBB1_application::read(TMask& m)
{
int err;
TLocalisamfile q(_num);
const long codip = m.get_long(QuadroB()? QBF_CODDIP : QB1F_CODDIP);
const long nprog = m.get_long(QuadroB()? QBF_NPROG : QB1F_NPROG);
q.zero();
q.put(QB_CODDITTA, _codditta);
q.put(QB_CODDIP, codip);
q.put(QB_NPROG, nprog);
err = q.read();
err = _rel->read();
return err;
} */
int TQuadriBB1_application::write(const TMask& m)
{
@ -312,18 +312,10 @@ void TQuadriBB1_application::init_insert_mode(TMask& m)
void TQuadriBB1_application::init_query_mode(TMask& m)
{
m.set(ANNODIC77, _anno_dic);
/* m.send_key(K_SHIFT+K_CTRL+'s', -RICERCA_QB); // Ricerca su quadro B
m.send_key(K_SHIFT+K_CTRL+'h', -RICERCA_DIP); // Ricerca su ANAGR.DIP.
init_mask(m);*/
}
void TQuadriBB1_application::init_query_insert_mode(TMask& m)
{
/*
m.send_key(K_SHIFT+K_CTRL+'h', -RICERCA_QB); // Nasconde ricerca su quadro B
m.send_key(K_SHIFT+K_CTRL+'s', -RICERCA_DIP); // Ricerca su ANAGR.DIP.
init_mask(m); */
}
{}
bool TQuadriBB1_application::codditta77_handler(TMask_field& f, KEY k)
{
@ -376,8 +368,10 @@ bool TQuadriBB1_application::CodDipHandler(TMask_field& f, KEY k)
const long codip = atol(f.get());
if (codip==0L)
return TRUE;
if (!esiste_dipendente(app()._codditta, codip))
return f.warning_box("Dipendente inesistente");
PrimoNprogLibero(m, app()._codditta, codip);
}
return TRUE;
@ -388,7 +382,6 @@ bool TQuadriBB1_application::NprogExitHandler(TMask_field& f, KEY k)
TMask& m = f.mask();
if (!m.is_running()) return TRUE;
// if (k == K_TAB && ricerca(m))
if (k == K_TAB)
{
TString nprog(f.get());