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

Patch level : 1.7 at 682

Browse Source 
Files correlati     : at9.exe
Ricompilazione Demo : [ ]
Commento            : Estrazione archivi per aggiornamento: funzionano gli automatismi data e percorso sulla sezione


git-svn-id: svn://10.65.10.50/trunk@11782 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-02-26 13:53:54 +00:00
parent 0df931908c
commit 6d63166559
3 changed files with 73 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
at/at9200.cpp
View File

@ -1,4 +1,5 @@
#include <applicat.h>
#include <automask.h>
#include <filetext.h>
#include <form.h>
#include <mask.h>
@ -19,11 +20,24 @@
#include "benem.h"
#include "storico.h"
class TCom2prov_mask : public TAutomask
{
protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TCom2prov_mask();
virtual ~TCom2prov_mask(){};
};
TCom2prov_mask::TCom2prov_mask() :TAutomask ("at9200a")
{
}
class TCom2prov: public TSkeleton_application
{
TMask* _msk;
TCom2prov_mask* _msk;
TRelation* _rel;
TConfig* _configfile;
@ -34,9 +48,9 @@ protected:
void transfer();
public:
const TMask& msk() const { return *_msk; }
TCom2prov() {}
virtual ~TCom2prov() {}
TConfig& get_config() { return *_configfile;}
};
// restituisce un riferimento all' applicazione
@ -45,7 +59,7 @@ inline TCom2prov& app() { return (TCom2prov&) main_app();}
// creazione dell'applicazione
bool TCom2prov::create()
{
_msk = new TMask("at9200a");
_msk = new TCom2prov_mask();
_configfile = new TConfig("at9200a.ini");
return TSkeleton_application::create();
}
@ -58,19 +72,37 @@ bool TCom2prov::destroy()
return TSkeleton_application::destroy();
}
// carica la maschera
bool TCom2prov_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
{
switch (f.dlg())
{
case F_SEZINI:
if (e == fe_modify)
{
TString16 sezini = get(F_SEZINI);
TString80 percorso = app().get_config().get("PERCORSO", "ARCHIVIO");
if (percorso.find(sezini) == -1)
{
TConfig configditta(CONFIG_DITTA);
set(F_DATA, configditta.get(sezini, "AT"));
percorso << sezini;
percorso << '\\';
set(F_PERCORSO, percorso);
}
}
break;
default:
break;
}
return TRUE;
}
void TCom2prov::main_loop()
{
_msk->set(F_PERCORSO,_configfile->get("PERCORSO", "ARCHIVIO"));
_msk->set(F_DATA,_configfile->get("DATA", "ARCHIVIO"));
KEY key = _msk->run();
if (key == K_ENTER)
{
if (_msk->run() == K_ENTER)
transfer();
_configfile->set("PERCORSO", _msk->get(F_PERCORSO), "ARCHIVIO");
TDate oggi(TODAY);
_configfile->set("DATA", oggi, "ARCHIVIO");
}
}
// trasferimento dati da file CT su programma avis
@ -194,6 +226,10 @@ void TCom2prov::transfer()
}
}
}
TDate oggi(TODAY);
TConfig configditta(CONFIG_DITTA);
configditta.set(_msk->get(F_SEZINI), oggi, "AT");
}
int at9200(int argc, char* argv[])

12
at/at9200a.h
View File

@ -6,9 +6,9 @@
#define F_CONTROLLI 103
#define F_BENEMERENZE 104
#define F_STORICO 105
#define F_DATA 106
#define F_PERCORSO 107
#define F_SEZINI 108
#define F_D_SEZINI 109
#define F_SOTINI 110
#define F_D_SOTINI 111
#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

31
at/at9200a.uml
View File

@ -44,19 +44,9 @@ BEGIN
PROMPT 2 6 "Storico"
END
DATE F_DATA
BEGIN
PROMPT 2 8 "Modifiche a partire dal "
END
STRING F_PERCORSO 50
BEGIN
PROMPT 2 9 "Percorso "
END
STRING F_SEZINI 2
BEGIN
PROMPT 2 11 "Sezione "
PROMPT 2 8 "Sezione "
FLAGS "U"
USE LF_SEZIONI
INPUT CODSEZ F_SEZINI
@ -75,7 +65,7 @@ END
STRING F_D_SEZINI 25
BEGIN
PROMPT 16 11 ""
PROMPT 16 8 ""
FLAGS "U"
USE LF_SEZIONI KEY 2
INPUT DENSEZ F_D_SEZINI
@ -90,7 +80,7 @@ END
STRING F_SOTINI 2
BEGIN
PROMPT 2 12 "Sottog. "
PROMPT 2 9 "Sottog. "
COPY ALL F_SEZINI
CHECKTYPE SEARCH
HELP "Codice sottogruppo da cui partire"
@ -98,7 +88,7 @@ END
STRING F_D_SOTINI 25
BEGIN
PROMPT 16 12 ""
PROMPT 16 9 ""
FLAGS "U"
COPY USE F_D_SEZINI
INPUT DENSEZ F_D_SEZINI
@ -109,5 +99,18 @@ BEGIN
HELP "Sottogruppo da cui partire"
END
DATE F_DATA
BEGIN
PROMPT 2 11 "Modifiche a partire dal "
END
STRING F_PERCORSO 50
BEGIN
PROMPT 2 12 "Percorso "
END
ENDPAGE
ENDMASK