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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@18941 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-05-26 11:32:34 +00:00
parent c3261c4be5
commit 936d57a2bf
10 changed files with 27 additions and 378 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
at/at9100.cpp
View File

@ -174,7 +174,7 @@ bool TStatSogSosp::create()
_sezioni = new TLocalisamfile(LF_SEZIONI);
_colonne = new TAssoc_array();
_sospensioni = new TAssoc_array();
dispatch_e_menu(BAR_ITEM(1));
dispatch_e_menu(BAR_ITEM_ID(1));
return true;
}

16
at/at9100a.uml
View File

@ -1,6 +1,10 @@
#include "at9100a.h"
PAGE "Statistica sospesi" -1 -1 78 12
TOOLBAR "" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Statistica sospesi" 0 2 0 0
GROUPBOX DLG_NULL 77 4
BEGIN
@ -137,15 +141,5 @@ BEGIN
PROMPT 2 7 "Stampa solo totale finale (non stampa il dettaglio per sezione)"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

14
at/at9200a.uml
View File

@ -1,18 +1,10 @@
#include "at9200a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -11 ""
END
TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Estrazione archivi per aggiornamento" -1 -1 78 20
PAGE "Estrazione archivi per aggiornamento" 0 2 0 0
GROUPBOX DLG_NULL 77 14
BEGIN

14
at/at9300a.uml
View File

@ -1,18 +1,10 @@
#include "at9300a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -11 ""
END
TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Aggiornamento archivi da estrazione" -1 -1 78 20
PAGE "Aggiornamento archivi da estrazione" 0 2 0 0
GROUPBOX DLG_NULL 77 9
BEGIN

2
at/at9400.cpp
View File

@ -77,7 +77,7 @@ bool TReconstruction::create()
_intsi_f2 = config.get_int("IntSI_F2");
_intsi_m = config.get_int("IntSI_M");
_intaf_m = config.get_int("IntAF_M");
dispatch_e_menu(BAR_ITEM(1));
dispatch_e_menu(BAR_ITEM_ID(1));
return true;
}

15
at/at9400a.uml
View File

@ -1,13 +1,6 @@
PAGE "Aggiornamento situazione soggetti" -1 -1 78 20
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 14 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 14 ""
END
TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Aggiornamento situazione soggetti" 0 2 0 0
ENDPAGE
ENDMASK

16
at/at9500a.uml
View File

@ -1,20 +1,10 @@
#include "at9500a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_PRINT 9 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -11 ""
END
TOOLBAR "" 0 0 0 2
#include <printbar.h>
ENDPAGE
PAGE "Stampa moduli intestati" -1 -1 78 20
PAGE "Stampa moduli intestati" 0 2 0 0
GROUPBOX DLG_NULL 77 5
BEGIN

15
at/at9600.cpp
View File

@ -114,20 +114,6 @@ public:
void TEsporta_ON_app::crea_prima_riga(TEsporta_ON_recordset& csv, const TString& sezini, const TString& sezfin) const
{
TConfig config("at9600a.ini");
// query su soggetti
TString query;
query << "USE SOGGETTI KEY 3";
TString4 sezini = m.get(F_SEZINI);
TString4 sotini = m.get(F_SOTINI);
TString4 sezfin = m.get(F_SEZFIN);
TString4 sotfin = m.get(F_SOTFIN);
if (sezini.not_empty())
query << "\nFROM CODSEZ=\"" << sezini << "\"";
if (sezini.not_empty())
query << "\nTO CODSEZ=\"" << sezfin << "\"";
TISAM_recordset soggetti(query);
// query su sezioni per stabilire cosa scrivere nel primo record
// elenco delle sezioni trasferite separate da ','
TString querysez;
@ -178,7 +164,6 @@ void TEsporta_ON_app::esporta_soggetti(const TMask& m) const
{
if (!pi.addstatus(1))
break;
const TString4& catdon = soggetti.get(SOG_CATDON).as_string();
const TDate dataisc = soggetti.get(SOG_DATAISC).as_date();
const bool passa = config.get_bool(catdon, "CATEGORIE");

2
at/at9600a.h
View File

@ -39,3 +39,5 @@
#define F_D_CATN5 310
#define F_CATN6 311
#define F_D_CATN6 312
#define F_DATA 401

309
at/at9600a.uml
View File

@ -1,21 +1,10 @@
#include "at9600a.h"
TOOLBAR "" 0 -2 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE
PAGE "Estrazione dati per Osservatorio Associativo" -1 -1 78 20
PAGE "Estrazione dati per Osservatorio Associativo" 0 2 0 0
GROUPBOX DLG_NULL 77 4
BEGIN
@ -132,298 +121,10 @@ BEGIN
HELP "Sottogruppo finale"
END
GROUPBOX DLG_NULL 77 6
DATE F_DATA
BEGIN
PROMPT 1 4 "Categorie donatori"
PROMPT 2 6 "Situazione al "
END
STRING F_CAT1 2
BEGIN
PROMPT 2 5 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_CAT1 CODTAB
OUTPUT F_D_CAT1 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT1 30
BEGIN
PROMPT 8 5 ""
FLAGS "D"
END
STRING F_CAT2 2
BEGIN
PROMPT 2 6 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT2
COPY DISPLAY F_CAT1
OUTPUT F_CAT2 CODTAB
OUTPUT F_D_CAT2 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT2 30
BEGIN
PROMPT 8 6 ""
FLAGS "D"
END
STRING F_CAT3 2
BEGIN
PROMPT 2 7 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT3
COPY DISPLAY F_CAT1
OUTPUT F_CAT3 CODTAB
OUTPUT F_D_CAT3 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT3 30
BEGIN
PROMPT 8 7 ""
FLAGS "D"
END
STRING F_CAT4 2
BEGIN
PROMPT 2 8 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT4
COPY DISPLAY F_CAT1
OUTPUT F_CAT4 CODTAB
OUTPUT F_D_CAT4 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT4 30
BEGIN
PROMPT 8 8 ""
FLAGS "D"
END
STRING F_CAT5 2
BEGIN
PROMPT 40 5 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT5
COPY DISPLAY F_CAT1
OUTPUT F_CAT5 CODTAB
OUTPUT F_D_CAT5 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT5 30
BEGIN
PROMPT 46 5 ""
FLAGS "D"
END
STRING F_CAT6 2
BEGIN
PROMPT 40 6 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT6
COPY DISPLAY F_CAT1
OUTPUT F_CAT6 CODTAB
OUTPUT F_D_CAT6 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT6 30
BEGIN
PROMPT 46 6 ""
FLAGS "D"
END
STRING F_CAT7 2
BEGIN
PROMPT 40 7 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT7
COPY DISPLAY F_CAT1
OUTPUT F_CAT7 CODTAB
OUTPUT F_D_CAT7 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT7 30
BEGIN
PROMPT 46 7 ""
FLAGS "D"
END
STRING F_CAT8 2
BEGIN
PROMPT 40 8 ""
FLAGS "U"
USE CTD
INPUT CODTAB F_CAT8
COPY DISPLAY F_CAT1
OUTPUT F_CAT8 CODTAB
OUTPUT F_D_CAT8 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CAT8 30
BEGIN
PROMPT 46 8 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 77 5
BEGIN
PROMPT 1 10 "Categorie non donatori"
END
STRING F_CATN1 2
BEGIN
PROMPT 2 11 ""
FLAGS "U"
USE CTN
INPUT CODTAB F_CATN1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_CATN1 CODTAB
OUTPUT F_D_CATN1 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CATN1 30
BEGIN
PROMPT 8 11 ""
FLAGS "D"
END
STRING F_CATN2 2
BEGIN
PROMPT 2 12 ""
FLAGS "U"
USE CTN
INPUT CODTAB F_CATN2
COPY DISPLAY F_CATN1
OUTPUT F_CATN2 CODTAB
OUTPUT F_D_CATN2 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CATN2 30
BEGIN
PROMPT 8 12 ""
FLAGS "D"
END
STRING F_CATN3 2
BEGIN
PROMPT 2 13 ""
FLAGS "U"
USE CTN
INPUT CODTAB F_CATN3
COPY DISPLAY F_CATN1
OUTPUT F_CATN3 CODTAB
OUTPUT F_D_CATN3 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CATN3 30
BEGIN
PROMPT 8 13 ""
FLAGS "D"
END
STRING F_CATN4 2
BEGIN
PROMPT 40 11 ""
FLAGS "U"
USE CTN
INPUT CODTAB F_CATN4
COPY DISPLAY F_CATN1
OUTPUT F_CATN4 CODTAB
OUTPUT F_D_CATN4 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CATN4 30
BEGIN
PROMPT 46 11 ""
FLAGS "D"
END
STRING F_CATN5 2
BEGIN
PROMPT 40 12 ""
FLAGS "U"
USE CTN
INPUT CODTAB F_CATN5
COPY DISPLAY F_CATN1
OUTPUT F_CATN5 CODTAB
OUTPUT F_D_CATN5 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CATN5 30
BEGIN
PROMPT 46 12 ""
FLAGS "D"
END
STRING F_CATN6 2
BEGIN
PROMPT 40 13 ""
FLAGS "U"
USE CTN
INPUT CODTAB F_CATN6
COPY DISPLAY F_CATN1
OUTPUT F_CATN6 CODTAB
OUTPUT F_D_CATN6 S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
HELP "Categoria di appartenenza"
END
STRING F_D_CATN6 30
BEGIN
PROMPT 46 13 ""
FLAGS "D"
END
ENDPAGE
ENDMASK