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

Sistemazione messaggi cliente sull'applicazione di stampa e

Browse Source 
relativi forms per versione 97_03


git-svn-id: svn://10.65.10.50/trunk@4783 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-06-28 11:29:43 +00:00
parent 17e54e9f2b
commit 0442364208
5 changed files with 46 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ve/ve1100.cpp
View File

@ -645,7 +645,7 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s) {
valore << " del " << _firmrel[LF_UNLOC].get("DATAICCIAA"); valore << " del " << _firmrel[LF_UNLOC].get("DATAICCIAA");
} }
} else { } else {
TFieldref fref(s.get(), 0); TFieldref fref(in, 0);
valore = fref.read(_firmrel); valore = fref.read(_firmrel);
} }
cf.put_paragraph(valore); cf.put_paragraph(valore);
@ -662,23 +662,18 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s) {
// !IND indirizzo // !IND indirizzo
// !NUM numero civico // !NUM numero civico
// !INDNUM indirizzo + numero civico // !INDNUM indirizzo + numero civico
// !LOC località
// !CAP CAP
// !COM comune // !COM comune
// !PROV provincia // !PROV provincia
// !IVA partita iva
// !CF codice fiscale
// !PERS <F> se persona fisica, <G> se giuridica
// !DATANAS data di nascita
// !COMNAS comune di nascita
// !TEL primo numero di telefono (con prefisso) // !TEL primo numero di telefono (con prefisso)
// !TEL2 secondo numero di telefono (con prefisso) // !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (con prefisso) // !TEL3 terzo numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso) // !FAX numero di fax (con prefisso)
// !COM-><FIELD> accede ai campi del comune di residenza cliente
// !COMN-><FIELD> accede ai campi del comune di nascita del cliente
TCli_for & cli_for = _doc->clifor(); TCli_for & cli_for = _doc->clifor();
TString in(s.get()); // prende la macro o il fieldref TString in(s.get()); // prende la macro o il fieldref
if (in[0] != '!') if (in[0] != '!')
valore = cli_for.get(s.get()); valore = cli_for.get(in);
else else
{ {
in.ltrim(1); in.ltrim(1);
@ -954,6 +949,7 @@ class TStampaDoc_application: public TApplication
bool _definitiva; // flag che indica se la stampa è definitiva o no bool _definitiva; // flag che indica se la stampa è definitiva o no
TRelation *_firmrel; // puntatore alla relazione che gestisce i dati della ditta corrente TRelation *_firmrel; // puntatore alla relazione che gestisce i dati della ditta corrente
TDocumento_form *_form; // puntatore al form di stampa TDocumento_form *_form; // puntatore al form di stampa
TLocalisamfile *_occas;
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
@ -1181,6 +1177,7 @@ bool TStampaDoc_application::create()
_firmrel->add(LF_UNLOC,"CODDITTA=CODDITTA"); // si posiziona sulla prima unita' locale della ditta _firmrel->add(LF_UNLOC,"CODDITTA=CODDITTA"); // si posiziona sulla prima unita' locale della ditta
_firmrel->add(LF_COMUNI, "COM=STATORES+COMRES", 1, LF_ANAG, 100+LF_COMUNI); _firmrel->add(LF_COMUNI, "COM=STATORES+COMRES", 1, LF_ANAG, 100+LF_COMUNI);
_firmrel->add(LF_COMUNI, "COM=STATORES+COMRF", 1, LF_ANAG, 200+LF_COMUNI); _firmrel->add(LF_COMUNI, "COM=STATORES+COMRF", 1, LF_ANAG, 200+LF_COMUNI);
_occas = new TLocalisamfile(LF_OCCAS);
const int argc = TApplication::argc(); const int argc = TApplication::argc();
_is_lista = argc == 3 && argv(2)[0] == 'L'; _is_lista = argc == 3 && argv(2)[0] == 'L';
@ -1224,6 +1221,7 @@ bool TStampaDoc_application::create()
bool TStampaDoc_application::destroy() bool TStampaDoc_application::destroy()
{ {
delete _firmrel; // distruzione della relazione di gestione della ditta corrente delete _firmrel; // distruzione della relazione di gestione della ditta corrente
if (_occas) delete _occas;
return TApplication::destroy(); return TApplication::destroy();
} }

21
ve/veacc.frm
View File

@ -83,7 +83,7 @@ STRINGA 6 16 1
BEGIN BEGIN
KEY "partita iva ditta" KEY "partita iva ditta"
PROMPT 11 4 "" PROMPT 11 4 ""
MESSAGE _DITTA, !PIVA MESSAGE _DITTA,!IVA
END END
STRINGA 7 9 1 STRINGA 7 9 1
@ -131,21 +131,21 @@ STRINGA 13 5 1
BEGIN BEGIN
KEY "destinatario, cap" KEY "destinatario, cap"
PROMPT 44 14 "" PROMPT 44 14 ""
MESSAGE _CLIENTE,!CAP MESSAGE _CLIENTE,CAPCF
END END
STRINGA 14 30 2 STRINGA 14 30 2
BEGIN BEGIN
KEY "destinatario, comune" KEY "destinatario, comune"
PROMPT 50 14 "" PROMPT 50 14 ""
MESSAGE _CLIENTE,!COM MESSAGE _CLIENTE,!COM->DENCOM
END END
STRINGA 15 2 1 STRINGA 15 2 1
BEGIN BEGIN
KEY "destinatario, provincia" KEY "destinatario, provincia"
PROMPT 77 15 "" PROMPT 77 15 ""
MESSAGE _CLIENTE,!PROV MESSAGE _CLIENTE,!COM->PROVCOM
END END
STRINGA 16 10 1 STRINGA 16 10 1
@ -237,7 +237,7 @@ STRINGA 28 16 1
BEGIN BEGIN
KEY "partita iva cliente" KEY "partita iva cliente"
PROMPT 16 23 "" PROMPT 16 23 ""
MESSAGE _CLIENTE,!IVA MESSAGE _CLIENTE,PIVA
END END
STRINGA 29 25 1 STRINGA 29 25 1
@ -765,19 +765,12 @@ END
// !IND indirizzo // !IND indirizzo
// !NUM numero civico // !NUM numero civico
// !INDNUM indirizzo + numero civico // !INDNUM indirizzo + numero civico
// !LOC località
// !CAP CAP
// !COM comune
// !PROV provincia
// !IVA partita iva
// !CF codice fiscale
// !PERS <F> se persona fisica, <G> se giuridica
// !DATANAS data di nascita
// !COMNAS comune di nascita
// !TEL primo numero di telefono (con prefisso) // !TEL primo numero di telefono (con prefisso)
// !TEL2 secondo numero di telefono (con prefisso) // !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (con prefisso) // !TEL3 terzo numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso) // !FAX numero di fax (con prefisso)
// !COM-><FIELD> accede ai campi del comune di residenza cliente
// !COMN-><FIELD> accede ai campi del comune di nascita del cliente
// nota: la relazione del cliente è così strutturata: // nota: la relazione del cliente è così strutturata:
// CLIFO (20) Clienti/fornitori // CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite // + CFVEN (17) Clienti/fornitori per vendite

19
ve/vebol.frm
View File

@ -115,21 +115,21 @@ STRING 11 5 1
BEGIN BEGIN
KEY "destinatario, cap" KEY "destinatario, cap"
PROMPT 44 20 "" PROMPT 44 20 ""
MESSAGE _CLIENTE,!CAP MESSAGE _CLIENTE,CAPCF
END END
STRING 12 30 2 STRING 12 30 2
BEGIN BEGIN
KEY "destinatario, comune" KEY "destinatario, comune"
PROMPT 50 20 "" PROMPT 50 20 ""
MESSAGE _CLIENTE,!COM MESSAGE _CLIENTE,!COM->DENCOM
END END
STRING 13 2 STRING 13 2
BEGIN BEGIN
KEY "destinatario, provincia" KEY "destinatario, provincia"
PROMPT 72 21 "" PROMPT 72 21 ""
MESSAGE _CLIENTE,!PROV MESSAGE _CLIENTE,!COM->PROVCOM
END END
DATE 14 8 1 DATE 14 8 1
@ -223,7 +223,7 @@ STRING 26 11 1
BEGIN BEGIN
KEY "partita iva cliente" KEY "partita iva cliente"
PROMPT 12 29 "" PROMPT 12 29 ""
MESSAGE _CLIENTE,!IVA MESSAGE _CLIENTE,PIVA
END END
STRING 27 18 1 STRING 27 18 1
@ -542,19 +542,12 @@ END
// !IND indirizzo // !IND indirizzo
// !NUM numero civico // !NUM numero civico
// !INDNUM indirizzo + numero civico // !INDNUM indirizzo + numero civico
// !LOC località
// !CAP CAP
// !COM comune
// !PROV provincia
// !IVA partita iva
// !CF codice fiscale
// !PERS <F> se persona fisica, <G> se giuridica
// !DATANAS data di nascita
// !COMNAS comune di nascita
// !TEL primo numero di telefono (con prefisso) // !TEL primo numero di telefono (con prefisso)
// !TEL2 secondo numero di telefono (con prefisso) // !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (con prefisso) // !TEL3 terzo numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso) // !FAX numero di fax (con prefisso)
// !COM-><FIELD> accede ai campi del comune di residenza cliente
// !COMN-><FIELD> accede ai campi del comune di nascita del cliente
// nota: la relazione del cliente è così strutturata: // nota: la relazione del cliente è così strutturata:
// CLIFO (20) Clienti/fornitori // CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite // + CFVEN (17) Clienti/fornitori per vendite

19
ve/vebolbmp.frm
View File

@ -122,21 +122,21 @@ STRING 11 5 1
BEGIN BEGIN
KEY "destinatario, cap" KEY "destinatario, cap"
PROMPT 44 18 "" PROMPT 44 18 ""
MESSAGE _CLIENTE,!CAP MESSAGE _CLIENTE,CAPCF
END END
STRING 12 30 2 STRING 12 30 2
BEGIN BEGIN
KEY "destinatario, comune" KEY "destinatario, comune"
PROMPT 50 18 "" PROMPT 50 18 ""
MESSAGE _CLIENTE,!COM MESSAGE _CLIENTE,!COM->DENCOM
END END
STRING 13 2 STRING 13 2
BEGIN BEGIN
KEY "destinatario, provincia" KEY "destinatario, provincia"
PROMPT 72 19 "" PROMPT 72 19 ""
MESSAGE _CLIENTE,!PROV MESSAGE _CLIENTE,!COM->PROVCOM
END END
DATE 14 8 1 DATE 14 8 1
@ -230,7 +230,7 @@ STRING 26 11 1
BEGIN BEGIN
KEY "partita iva cliente" KEY "partita iva cliente"
PROMPT 18 25 "" PROMPT 18 25 ""
MESSAGE _CLIENTE,!IVA MESSAGE _CLIENTE,PIVA
END END
STRING 27 18 1 STRING 27 18 1
@ -528,19 +528,12 @@ END
// !IND indirizzo // !IND indirizzo
// !NUM numero civico // !NUM numero civico
// !INDNUM indirizzo + numero civico // !INDNUM indirizzo + numero civico
// !LOC località
// !CAP CAP
// !COM comune
// !PROV provincia
// !IVA partita iva
// !CF codice fiscale
// !PERS <F> se persona fisica, <G> se giuridica
// !DATANAS data di nascita
// !COMNAS comune di nascita
// !TEL primo numero di telefono (con prefisso) // !TEL primo numero di telefono (con prefisso)
// !TEL2 secondo numero di telefono (con prefisso) // !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (con prefisso) // !TEL3 terzo numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso) // !FAX numero di fax (con prefisso)
// !COM-><FIELD> accede ai campi del comune di residenza cliente
// !COMN-><FIELD> accede ai campi del comune di nascita del cliente
// nota: la relazione del cliente è così strutturata: // nota: la relazione del cliente è così strutturata:
// CLIFO (20) Clienti/fornitori // CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite // + CFVEN (17) Clienti/fornitori per vendite

19
ve/vefat.frm
View File

@ -84,7 +84,7 @@ STRINGA 6 16 1
BEGIN BEGIN
KEY "partita iva ditta" KEY "partita iva ditta"
PROMPT 9 7 "" PROMPT 9 7 ""
MESSAGE _DITTA, !PIVA MESSAGE _DITTA,!IVA
END END
STRINGA 7 9 1 STRINGA 7 9 1
@ -203,21 +203,21 @@ STRINGA 23 5 1
BEGIN BEGIN
KEY "cliente cap" KEY "cliente cap"
PROMPT 44 15 "" PROMPT 44 15 ""
MESSAGE _CLIENTE,!CAP MESSAGE _CLIENTE,CAPCF
END END
STRINGA 24 30 1 STRINGA 24 30 1
BEGIN BEGIN
KEY "cliente comune" KEY "cliente comune"
PROMPT 50 15 "" PROMPT 50 15 ""
MESSAGE _CLIENTE,!COM MESSAGE _CLIENTE,!COM->DENCOM
END END
STRINGA 25 2 1 STRINGA 25 2 1
BEGIN BEGIN
KEY "cliente provincia" KEY "cliente provincia"
PROMPT 73 16 "" PROMPT 73 16 ""
MESSAGE _CLIENTE,!PROV MESSAGE _CLIENTE,!COM->PROVCOM
END END
END END
@ -754,19 +754,12 @@ END
// !IND indirizzo // !IND indirizzo
// !NUM numero civico // !NUM numero civico
// !INDNUM indirizzo + numero civico // !INDNUM indirizzo + numero civico
// !LOC località
// !CAP CAP
// !COM comune
// !PROV provincia
// !IVA partita iva
// !CF codice fiscale
// !PERS <F> se persona fisica, <G> se giuridica
// !DATANAS data di nascita
// !COMNAS comune di nascita
// !TEL primo numero di telefono (con prefisso) // !TEL primo numero di telefono (con prefisso)
// !TEL2 secondo numero di telefono (con prefisso) // !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (con prefisso) // !TEL3 terzo numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso) // !FAX numero di fax (con prefisso)
// !COM-><FIELD> accede ai campi del comune di residenza cliente
// !COMN-><FIELD> accede ai campi del comune di nascita del cliente
// nota: la relazione del cliente è così strutturata: // nota: la relazione del cliente è così strutturata:
// CLIFO (20) Clienti/fornitori // CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite // + CFVEN (17) Clienti/fornitori per vendite