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

Patch level : at 1.7 702

Browse Source 
Files correlati     : at9.exe
Ricompilazione Demo : [ ]
Commento            : Estrazione archivi per agg.: anche famiglie


git-svn-id: svn://10.65.10.50/trunk@12144 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-06-03 11:01:07 +00:00
parent fcc8dae17d
commit c7769f18f1
3 changed files with 33 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
at/at9200.cpp
View File

@ -19,6 +19,7 @@
#include "idoneita.h" #include "idoneita.h"
#include "benem.h" #include "benem.h"
#include "storico.h" #include "storico.h"
#include "famiglie.h"
class TCom2prov_mask : public TAutomask class TCom2prov_mask : public TAutomask
{ {
@ -113,6 +114,7 @@ void TCom2prov::transfer()
const bool controlli = _msk->get_bool(F_CONTROLLI); const bool controlli = _msk->get_bool(F_CONTROLLI);
const bool benemerenze = _msk->get_bool(F_BENEMERENZE); const bool benemerenze = _msk->get_bool(F_BENEMERENZE);
const bool storico = _msk->get_bool(F_STORICO); const bool storico = _msk->get_bool(F_STORICO);
const bool famiglie = _msk->get_bool(F_FAMIGLIE);
TString80 percorso = _msk->get(F_PERCORSO); TString80 percorso = _msk->get(F_PERCORSO);
percorso.insert("%"); percorso.insert("%");
TString80 nomesog = percorso; TString80 nomesog = percorso;
@ -127,6 +129,8 @@ void TCom2prov::transfer()
nomeben << "BENEM"; nomeben << "BENEM";
TString80 nomesto = percorso; TString80 nomesto = percorso;
nomesto << "STORICO"; nomesto << "STORICO";
TString80 nomefam = percorso;
nomefam << "FAMIGLIE";
TIsamtempfile filecon(LF_CONTSAN, (const char*) nomecon); TIsamtempfile filecon(LF_CONTSAN, (const char*) nomecon);
TIsamtempfile filesog(LF_SOGGETTI, (const char *) nomesog); TIsamtempfile filesog(LF_SOGGETTI, (const char *) nomesog);
@ -134,11 +138,10 @@ void TCom2prov::transfer()
TIsamtempfile fileido(LF_IDONEITA, (const char*) nomeido); TIsamtempfile fileido(LF_IDONEITA, (const char*) nomeido);
TIsamtempfile fileben(LF_BENEM, (const char*) nomeben); TIsamtempfile fileben(LF_BENEM, (const char*) nomeben);
TIsamtempfile filesto(LF_STORICO, (const char*) nomesto); TIsamtempfile filesto(LF_STORICO, (const char*) nomesto);
TIsamtempfile filefam(LF_FAMIGLIE, (const char*) nomefam);
_rel = new TRelation(LF_SOGGETTI); _rel = new TRelation(LF_SOGGETTI);
if (donazioni) if (donazioni)
{
_rel->add(LF_DONAZ, "CODICE==CODICE"); _rel->add(LF_DONAZ, "CODICE==CODICE");
}
if (controlli) if (controlli)
{ {
_rel->add(LF_CONTSAN, "CODICE==CODICE"); _rel->add(LF_CONTSAN, "CODICE==CODICE");
@ -148,7 +151,9 @@ void TCom2prov::transfer()
_rel->add(LF_BENEM, "CODICE==CODICE"); _rel->add(LF_BENEM, "CODICE==CODICE");
if (storico) if (storico)
_rel->add(LF_STORICO, "CODICE==CODICE"); _rel->add(LF_STORICO, "CODICE==CODICE");
anagrafica = (anagrafica || donazioni || controlli || benemerenze || storico); if (famiglie)
_rel->add(LF_FAMIGLIE, "CODFAM==CODICE");
anagrafica = (anagrafica || donazioni || controlli || benemerenze || storico || famiglie);
TRectype da(LF_SOGGETTI); TRectype da(LF_SOGGETTI);
da.zero(); da.zero();
const TString16 codsez = _msk->get(F_SEZINI); const TString16 codsez = _msk->get(F_SEZINI);
@ -225,6 +230,12 @@ void TCom2prov::transfer()
continua = cursore.next_match(LF_STORICO, "CODICE"); continua = cursore.next_match(LF_STORICO, "CODICE");
} }
} }
if (famiglie)
{
const long codice = cursore.curr(LF_FAMIGLIE).get_long(FAM_CODFAM);
if (codice == codsog)
filefam.write(cursore.curr(LF_FAMIGLIE));
}
} }
TDate oggi(TODAY); TDate oggi(TODAY);
TConfig configditta(CONFIG_DITTA); TConfig configditta(CONFIG_DITTA);

13
at/at9200a.h
View File

@ -6,9 +6,10 @@
#define F_CONTROLLI 103 #define F_CONTROLLI 103
#define F_BENEMERENZE 104 #define F_BENEMERENZE 104
#define F_STORICO 105 #define F_STORICO 105
#define F_SEZINI 106 #define F_FAMIGLIE 106
#define F_D_SEZINI 107 #define F_SEZINI 107
#define F_SOTINI 108 #define F_D_SEZINI 108
#define F_D_SOTINI 109 #define F_SOTINI 109
#define F_DATA 110 #define F_D_SOTINI 110
#define F_PERCORSO 111 #define F_DATA 111
#define F_PERCORSO 112

22
at/at9200a.uml
View File

@ -14,7 +14,7 @@ ENDPAGE
PAGE "Estrazione archivi per aggiornamento" -1 -1 78 20 PAGE "Estrazione archivi per aggiornamento" -1 -1 78 20
GROUPBOX DLG_NULL 77 13 GROUPBOX DLG_NULL 77 14
BEGIN BEGIN
PROMPT 1 1 "Opzioni di trasferimento" PROMPT 1 1 "Opzioni di trasferimento"
END END
@ -44,9 +44,14 @@ BEGIN
PROMPT 2 6 "Storico" PROMPT 2 6 "Storico"
END END
BOOLEAN F_FAMIGLIE
BEGIN
PROMPT 2 7 "Famiglie"
END
STRING F_SEZINI 2 STRING F_SEZINI 2
BEGIN BEGIN
PROMPT 2 8 "Sezione " PROMPT 2 9 "Sezione "
FLAGS "U" FLAGS "U"
USE LF_SEZIONI USE LF_SEZIONI
INPUT CODSEZ F_SEZINI INPUT CODSEZ F_SEZINI
@ -65,7 +70,7 @@ END
STRING F_D_SEZINI 25 STRING F_D_SEZINI 25
BEGIN BEGIN
PROMPT 16 8 "" PROMPT 16 9 ""
FLAGS "U" FLAGS "U"
USE LF_SEZIONI KEY 2 USE LF_SEZIONI KEY 2
INPUT DENSEZ F_D_SEZINI INPUT DENSEZ F_D_SEZINI
@ -80,7 +85,7 @@ END
STRING F_SOTINI 2 STRING F_SOTINI 2
BEGIN BEGIN
PROMPT 2 9 "Sottog. " PROMPT 2 10 "Sottog. "
COPY ALL F_SEZINI COPY ALL F_SEZINI
CHECKTYPE SEARCH CHECKTYPE SEARCH
HELP "Codice sottogruppo da cui partire" HELP "Codice sottogruppo da cui partire"
@ -88,7 +93,7 @@ END
STRING F_D_SOTINI 25 STRING F_D_SOTINI 25
BEGIN BEGIN
PROMPT 16 9 "" PROMPT 16 10 ""
FLAGS "U" FLAGS "U"
COPY USE F_D_SEZINI COPY USE F_D_SEZINI
INPUT DENSEZ F_D_SEZINI INPUT DENSEZ F_D_SEZINI
@ -101,16 +106,13 @@ END
DATE F_DATA DATE F_DATA
BEGIN BEGIN
PROMPT 2 11 "Modifiche a partire dal " PROMPT 2 12 "Modifiche a partire dal "
END END
STRING F_PERCORSO 50 STRING F_PERCORSO 50
BEGIN BEGIN
PROMPT 2 12 "Percorso " PROMPT 2 13 "Percorso "
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK