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

Patch level : at

Browse Source 
Files correlati     : at2.exe
Ricompilazione Demo : [ ]
Commento            : sistemate relationi per stampe etichette


git-svn-id: svn://10.65.10.50/trunk@11266 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2003-06-23 10:27:15 +00:00
parent a5a648b006
commit a2de9f5b63
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
at/at2200.cpp
View File

@ -10,8 +10,22 @@
#include "at2200a.h"
#include "atlib.h"
#define ALIAS_LCP 100
#define ALIAS_TCS 200
#define ALIAS_CTD 700 // categoria donatori
#define ALIAS_CTN1 701 // categoria non donatori 1
#define ALIAS_CTN2 702 // categoria non donatori 2
#define ALIAS_TCS 200 // tipi/esiti controlli sanitari
#define ALIAS_LDN 400 // punti di prelievo
#define ALIAS_LDNDON 401 // punti di prelievo
#define ALIAS_LCPDOM 100 // localita' postale di domicilio
#define ALIAS_COMDOM 501 // comune di domicilio
#define ALIAS_COMNAS 500 // comune di nascita
#define ALIAS_BNZ 600 // benemerenze
#define ALIAS_GAZ 300 // gruppi aziendale
#define ETI_COGNOME 3 // numero campo cognome e nome in etichetta (deve essere sempre cosi') per famiglie
enum ts { undefined = 0, elenco = 1, etichette = 2 };
@ -218,7 +232,7 @@ bool TStampaPerEta::preprocess_page(int file, int counter)
localita << ' ';
if (recsog.get(SOG_DOM_CODLOC).not_empty())
{
localita << current_cursor()->curr(-ALIAS_LCP).get("S0");
localita << current_cursor()->curr(-ALIAS_LCPDOM).get("S0");
localita << " - ";
}
localita << current_cursor()->curr(LF_COMUNI).get(COM_DENCOM);
@ -404,8 +418,9 @@ bool TStampaPerEta::user_create()
{
_rel = new TRelation(LF_SOGGETTI);
_rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
_rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCP);
_rel->add(LF_COMUNI, "COM==DOM_CODCOM");
_rel->add("LCP", "CODTAB==DOM_CODLOC",1,0,ALIAS_LCPDOM);
_rel->add(LF_COMUNI, "COM==DOM_CODCOM",1,0,ALIAS_COMDOM);
_rel->add(LF_MEDICI, "CODMED==CODMED");
_rel->add(LF_SEZIONI, "CODSEZ==CODSEZ|CODSOT==CODSOT");
add_cursor(new TCursor(_rel, "", 3));
TConfig config(CONFIG_STUDIO);