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

Patch level : 1.7 680

Browse Source 
Files correlati     : at2.exe at4.exe atefluzz.frm atetluzz.frm
Ricompilazione Demo : [ ]
Commento            : sistemata la stampa etichette per famiglie che ora e` spettacolare!!


git-svn-id: svn://10.65.10.50/trunk@11740 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-02-03 10:39:32 +00:00
parent 77ff830011
commit c666ff82be
4 changed files with 202 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
at/at2700.cpp
View File

@ -1041,6 +1041,18 @@ bool TStampaPerCategorie::set_print(int m)
if (catnses.not_empty()) if (catnses.not_empty())
_catnondon.add((const char*) catnses); _catnondon.add((const char*) catnses);
current_cursor()->set_filterfunction (filter_func_percat, FALSE); current_cursor()->set_filterfunction (filter_func_percat, FALSE);
if (_perfamiglie)
{
TConfig config(CONFIG_STUDIO);
TString16 etformato = config.get("EtFFormato");
_etlarghezza = config.get_int("EtFLarghezza");
_etcolonne = config.get_int("EtFColonne");
_etrighe = config.get_int("EtFRighe");
_etbordoini = config.get_int("EtFBordoIni");
_etbordofin = config.get_int("EtFBordoFin");
delete _form_eti;
_form_eti = new TEti_percat_form(etformato);
}
reset_print(); reset_print();
printer().footerlen(0); printer().footerlen(0);
crea_intestazione(); crea_intestazione();

2
at/at4100.cpp
View File

@ -825,6 +825,8 @@ bool TStampaScadenze::set_print(int m)
} }
if (_tipostampa != undefined) if (_tipostampa != undefined)
{ {
if (_tipostampa==etichette || _tipostampa==notiziario)
_cognome_nome.set_width(200);
_codsez = "**"; _codsez = "**";
_codsot = "**"; _codsot = "**";
reset_files(); reset_files();

104
at/atefluzz.frm Executable file
View File

@ -0,0 +1,104 @@
USE 90
JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 8
GRID ""
END
SECTION BODY ODD 9
STRINGA 10 45
BEGIN
KEY "Presso"
PROMPT 1 4 ""
FIELD 90->DOM_DISTRI
END
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 30 3
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 4 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 8 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 " - "
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 45 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 1 5 ""
END
END
END

83
at/atetluzz.frm Executable file
View File

@ -0,0 +1,83 @@
USE 90
JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 9
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,3|COPY,3
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
MESSAGE APPEND,3
END
STRINGA 3 30 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 1 ""
END
STRINGA 4 30 1
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 4 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 1 5 ""
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 8 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 0 0 " - "
FLAGS "H"
MESSAGE APPEND,9
END
STRINGA 9 23 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
END
END