From fcd3061aa7d1d99f4b22e6ef89c42874797dbd3f Mon Sep 17 00:00:00 2001 From: cris Date: Wed, 3 Dec 2003 09:29:45 +0000 Subject: [PATCH] Patch level : 1.7 at Files correlati : at0.exe at0500a.msk Ricompilazione Demo : [ ] Commento : sistemato funzionamento data di dimissione e aggiunto parametri per stampa cartoline, tessere ed etichette; modificato programma per cambio intervalli di donazione git-svn-id: svn://10.65.10.50/trunk@11641 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- at/at0100.cpp | 10 ++++++ at/at0500a.h | 33 ++++++++++-------- at/at0500a.uml | 91 ++++++++++++++++++++++++++++++++++++++++++++------ at/at0900.cpp | 19 ++++++++--- 4 files changed, 125 insertions(+), 28 deletions(-) diff --git a/at/at0100.cpp b/at/at0100.cpp index 51916a842..c77b582c4 100755 --- a/at/at0100.cpp +++ b/at/at0100.cpp @@ -2013,6 +2013,11 @@ void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si) { mask.set(F_CATDON,catcoll); mask.field(F_CATDON).on_key(K_TAB); + const bool dimissione = cache().get("CTD", catcoll).get_bool("B0"); + const TDate datadim = mask.get_date(F_DATADIM); + const TDate datastato = mask.get_date(F_DATASTATO); + if (dimissione && datadim.empty()) + mask.set(F_DATADIM, datastato); } // verifico la concordanza di stato soggetto e stato idoneita TString16 statosi = mask.get(F_STATOSI); @@ -2059,6 +2064,11 @@ void TGestioneSoggetti::c_reord(TSheet_field& s, TSheet_field& si) { mask.set(F_CATDON,catcoll); mask.field(F_CATDON).on_key(K_TAB); + const bool dimissione = cache().get("CTD", catcoll).get_bool("B0"); + const TDate datadim = mask.get_date(F_DATADIM); + const TDate datastato = mask.get_date(F_DATASTATO); + if (dimissione && datadim.empty()) + mask.set(F_DATADIM, datastato); } } } diff --git a/at/at0500a.h b/at/at0500a.h index 6afe6a70e..1e59b0664 100755 --- a/at/at0500a.h +++ b/at/at0500a.h @@ -29,22 +29,27 @@ #define AT_ETFORM 115 #define AT_ETLARG 116 #define AT_ETCOL 117 +#define AT_ETRIGHE 118 +#define AT_ETBORDOINI 119 +#define AT_ETBORDOFIN 120 // disabilita messaggi in giornaliero donazioni -#define AT_NOMESSAGE 118 +#define AT_NOMESSAGE 121 // definizione schede -#define AT_SCHFORM 119 -#define AT_SCHXPAG 120 +#define AT_SCHFORM 122 +#define AT_SCHXPAG 123 // definizione elenco personalizzato -#define AT_ELENCO 121 +#define AT_ELENCO 124 // definizione etichette sezioni -#define AT_ETSFORM 122 -#define AT_ETSLARG 123 -#define AT_ETSCOL 124 - +#define AT_ETSFORM 125 +#define AT_ETSLARG 126 +#define AT_ETSCOL 127 +#define AT_ETSRIGHE 128 +#define AT_ETSBORDOINI 129 +#define AT_ETSBORDOFIN 130 // descrizioni #define AT_D_CATINI1 151 #define AT_D_CATFIN1 152 @@ -78,16 +83,16 @@ #define AT_CAFORM 168 #define AT_CAPARAM 169 #define AT_D_CAFORM 170 - -// definizione cartoline altre stampe (dove previste) -#define AT_ACAFORM 171 -#define AT_ACAPARAM 172 -#define AT_D_ACAFORM 173 +#define AT_CAPERPAG 171 +#define AT_CABORDOINI 172 +#define AT_CABORDOFIN 173 // definizione tessere #define AT_TEFORM 174 #define AT_D_TEFORM 175 +#define AT_TECOL 176 +#define AT_TELARG 177 // nome file di stampa per convocazione via SMS -#define AT_FILESMS 176 +#define AT_FILESMS 180 diff --git a/at/at0500a.uml b/at/at0500a.uml index 4cc5b8635..3010e8e64 100755 --- a/at/at0500a.uml +++ b/at/at0500a.uml @@ -252,10 +252,29 @@ END NUMBER AT_ETCOL 1 BEGIN - PROMPT 20 2 "Colonne " + PROMPT 17 2 "Colonne " FIELD EtColonne END +NUMBER AT_ETRIGHE 2 +BEGIN + PROMPT 28 2 "Righe " + FIELD EtRighe +END + +NUMBER AT_ETBORDOINI 1 +BEGIN + PROMPT 38 2 "Bordo iniz. " + FIELD EtBordoIni +END + +NUMBER AT_ETBORDOFIN 1 +BEGIN + PROMPT 53 2 "Bordo fin. " + FIELD EtBordoFin +END + + GROUPBOX DLG_NULL 77 4 BEGIN PROMPT 1 4 "Etichette per notiziario" @@ -297,6 +316,7 @@ BEGIN PROMPT 1 8 "Etichette sezioni" END + STRING AT_ETSFORM 8 BEGIN PROMPT 2 9 "Formato " @@ -324,10 +344,28 @@ END NUMBER AT_ETSCOL 1 BEGIN - PROMPT 20 10 "Colonne " + PROMPT 17 10 "Colonne " FIELD EtSColonne END +NUMBER AT_ETSRIGHE 2 +BEGIN + PROMPT 28 10 "Righe " + FIELD EtSRighe +END + +NUMBER AT_ETSBORDOINI 1 +BEGIN + PROMPT 38 10 "Bordo iniz. " + FIELD EtSBordoIni +END + +NUMBER AT_ETSBORDOFIN 1 +BEGIN + PROMPT 53 10 "Bordo fin. " + FIELD EtSBordoFin +END + BOOLEAN AT_ETICTOT BEGIN PROMPT 2 13 "Stampa totale etichette stampate" @@ -393,7 +431,7 @@ BEGIN FLAGS "D" END -GROUPBOX DLG_NULL 77 4 +GROUPBOX DLG_NULL 77 5 BEGIN PROMPT 1 7 "Cartoline per donazione" END @@ -411,9 +449,30 @@ BEGIN CHECKTYPE SEARCH END +NUMERO AT_CAPERPAG 1 +BEGIN + PROMPT 2 9 "Num. car. per pag. " + HELP "Numero cartoline per pagina per le stampe su foglio A4" + FIELD CaPerPag +END + +NUMERO AT_CABORDOINI 1 +BEGIN + PROMPT 25 9 "Righe bordo superiore " + HELP "Righe non stampabili a inizio modulo" + FIELD CaBordoIni +END + +NUMERO AT_CABORDOFIN 1 +BEGIN + PROMPT 50 9 "Righe bordo inferiore " + HELP "Righe non stampabili a fine modulo" + FIELD CaBordoFin +END + BOOLEAN AT_CAPARAM BEGIN - PROMPT 2 9 "Richiesta parametri per stampa cartolina " + PROMPT 2 10 "Richiesta parametri per stampa cartolina " HELP "Chiede all'utente i dati da stampare sulla cartolina di convocazione" FIELD CaParametri END @@ -424,14 +483,14 @@ BEGIN FLAGS "D" END -GROUPBOX DLG_NULL 77 3 +GROUPBOX DLG_NULL 77 4 BEGIN - PROMPT 1 11 "Tessere" + PROMPT 1 12 "Tessere" END STRING AT_TEFORM 8 BEGIN - PROMPT 2 12 "Formato " + PROMPT 2 13 "Formato " FIELD TeFormato USE LF_FORM INPUT TIPOPROF AT_TEFORM @@ -444,20 +503,32 @@ END STRING AT_D_TEFORM 50 BEGIN - PROMPT 23 12 "" + PROMPT 23 13 "" FLAGS "D" END +NUMBER AT_TELARG 3 +BEGIN + PROMPT 2 14 "Larghezza " + FIELD TeLarghezza +END + +NUMBER AT_TECOL 1 +BEGIN + PROMPT 17 14 "Colonne " + FIELD TeColonne +END + BOOLEAN AT_STAMPA80 BEGIN - PROMPT 2 15 "Stampa elenchi a 80 colonne dove previsto" + PROMPT 2 16 "Stampa elenchi a 80 colonne dove previsto" HELP "Stampa gli elenchi con il formato 80 colonne dove previsto" FIELD Stampa80 END STRING AT_FILESMS 50 BEGIN - PROMPT 2 17 "File per invio SMS " + PROMPT 2 18 "File per invio SMS " HELP "Indicare percorso completo e nome file da utilizzare per la stampa convocazioni via SMS" FIELD FileSMS END diff --git a/at/at0900.cpp b/at/at0900.cpp index a362574af..cdca5e1b6 100755 --- a/at/at0900.cpp +++ b/at/at0900.cpp @@ -42,9 +42,14 @@ bool TIntSI::preprocess_page(int file, int counter) bool rewrite = FALSE; TRectype& recsog = current_cursor()->curr(); const int intsi = recsog.get_int(SOG_INTSI); - if (intsi == 110 || intsi == 120) + if (intsi == 110 || intsi == 120 || intsi == 180 || intsi == 320 || intsi == 360) { - recsog.put(SOG_INTSI, 100); + if (intsi == 110 || intsi == 120) + recsog.put(SOG_INTSI, 100); + if (intsi == 180) + recsog.put(SOG_INTSI, 160); + if (intsi == 320 || intsi == 360) + recsog.put(SOG_INTSI, 330); const long codice = recsog.get_long(SOG_CODICE); TRectype* keyc = new TRectype(LF_CONTSAN); keyc->put(CON_CODICE, codice); @@ -60,6 +65,12 @@ bool TIntSI::preprocess_page(int file, int counter) int intsi = riga.get_int(CON_INTSI); if (intsi == 110 || intsi == 120) riga.put(CON_INTSI, 100); + if (intsi == 180) + riga.put(CON_INTSI, 160); + if (intsi == 320) + riga.put(CON_INTSI, 330); + if (intsi == 360) + riga.put(CON_INTSI, 330); } /* for (int r=1; r<=_sidoneita->rows(); r++) @@ -106,11 +117,11 @@ bool TIntSI::set_print(int) TRectype a(LF_SOGGETTI); da.zero(); a.zero(); - TString16 codsez = "19"; + TString16 codsez = "10"; da.put(SOG_CODSEZ, codsez); a.put(SOG_CODSEZ, codsez); current_cursor()->setregion(da,a); - current_cursor()->setfilter(format("SESSO == '1'")); + //current_cursor()->setfilter(format("SESSO == '1'")); reset_files(); add_file(LF_SOGGETTI); reset_print();