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

13
at/at9200a.h
View File

@ -6,9 +6,10 @@
#define F_CONTROLLI 103
#define F_BENEMERENZE 104
#define F_STORICO 105
#define F_SEZINI 106
#define F_D_SEZINI 107
#define F_SOTINI 108
#define F_D_SOTINI 109
#define F_DATA 110
#define F_PERCORSO 111
#define F_FAMIGLIE 106
#define F_SEZINI 107
#define F_D_SEZINI 108
#define F_SOTINI 109
#define F_D_SOTINI 110
#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
GROUPBOX DLG_NULL 77 13
GROUPBOX DLG_NULL 77 14
BEGIN
PROMPT 1 1 "Opzioni di trasferimento"
END
@ -44,9 +44,14 @@ BEGIN
PROMPT 2 6 "Storico"
END
BOOLEAN F_FAMIGLIE
BEGIN
PROMPT 2 7 "Famiglie"
END
STRING F_SEZINI 2
BEGIN
PROMPT 2 8 "Sezione "
PROMPT 2 9 "Sezione "
FLAGS "U"
USE LF_SEZIONI
INPUT CODSEZ F_SEZINI
@ -65,7 +70,7 @@ END
STRING F_D_SEZINI 25
BEGIN
PROMPT 16 8 ""
PROMPT 16 9 ""
FLAGS "U"
USE LF_SEZIONI KEY 2
INPUT DENSEZ F_D_SEZINI
@ -80,7 +85,7 @@ END
STRING F_SOTINI 2
BEGIN
PROMPT 2 9 "Sottog. "
PROMPT 2 10 "Sottog. "
COPY ALL F_SEZINI
CHECKTYPE SEARCH
HELP "Codice sottogruppo da cui partire"
@ -88,7 +93,7 @@ END
STRING F_D_SOTINI 25
BEGIN
PROMPT 16 9 ""
PROMPT 16 10 ""
FLAGS "U"
COPY USE F_D_SEZINI
INPUT DENSEZ F_D_SEZINI
@ -101,16 +106,13 @@ END
DATE F_DATA
BEGIN
PROMPT 2 11 "Modifiche a partire dal "
PROMPT 2 12 "Modifiche a partire dal "
END
STRING F_PERCORSO 50
BEGIN
PROMPT 2 12 "Percorso "
PROMPT 2 13 "Percorso "
END
ENDPAGE
ENDMASK