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();
} }

35
ve/veacc.frm
View File

@ -49,28 +49,28 @@ STRINGA 1 36 1
BEGIN BEGIN
KEY "nome ditta" KEY "nome ditta"
PROMPT 5 1 "" PROMPT 5 1 ""
MESSAGE _DITTA, !RAGSOC MESSAGE _DITTA,!RAGSOC
END END
STRINGA 2 36 1 STRINGA 2 36 1
BEGIN BEGIN
KEY "indirizzo ditta" KEY "indirizzo ditta"
PROMPT 5 2 "" PROMPT 5 2 ""
MESSAGE _DITTA, !IND MESSAGE _DITTA,!IND
END END
STRINGA 3 5 1 STRINGA 3 5 1
BEGIN BEGIN
KEY "cap ditta" KEY "cap ditta"
PROMPT 5 3 "" PROMPT 5 3 ""
MESSAGE _DITTA, !CAP MESSAGE _DITTA,!CAP
END END
STRINGA 4 30 1 STRINGA 4 30 1
BEGIN BEGIN
KEY "comune ditta" KEY "comune ditta"
PROMPT 12 3 "" PROMPT 12 3 ""
MESSAGE _DITTA, !COM MESSAGE _DITTA,!COM
END END
STRINGA 5 5 1 STRINGA 5 5 1
@ -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
@ -96,21 +96,21 @@ STRINGA 8 16 1
BEGIN BEGIN
KEY "codice fiscale ditta" KEY "codice fiscale ditta"
PROMPT 15 5 "" PROMPT 15 5 ""
MESSAGE _DITTA, !CF MESSAGE _DITTA,!CF
END END
NUMERO 9 30 1 NUMERO 9 30 1
BEGIN BEGIN
KEY "reg.soc.trib...." KEY "reg.soc.trib...."
PROMPT 5 6 "REG.SOC.TRIB.R.E. " PROMPT 5 6 "REG.SOC.TRIB.R.E. "
MESSAGE _DITTA, !REGSOC MESSAGE _DITTA,!REGSOC
END END
NUMERO 10 30 1 NUMERO 10 30 1
BEGIN BEGIN
KEY "c.c.i.a.a. 143011" KEY "c.c.i.a.a. 143011"
PROMPT 5 7 "C.C.I.A.A. " PROMPT 5 7 "C.C.I.A.A. "
MESSAGE _DITTA, !CCIAA MESSAGE _DITTA,!CCIAA
END END
STRINGA 11 36 2 STRINGA 11 36 2
@ -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

33
ve/vefat.frm
View File

@ -50,28 +50,28 @@ STRINGA 1 35 1
BEGIN BEGIN
KEY "nome ditta" KEY "nome ditta"
PROMPT 3 4 "" PROMPT 3 4 ""
MESSAGE _DITTA, !RAGSOC MESSAGE _DITTA,!RAGSOC
END END
STRINGA 2 35 1 STRINGA 2 35 1
BEGIN BEGIN
KEY "indirizzo ditta" KEY "indirizzo ditta"
PROMPT 3 5 "" PROMPT 3 5 ""
MESSAGE _DITTA, !IND MESSAGE _DITTA,!IND
END END
STRINGA 3 5 1 STRINGA 3 5 1
BEGIN BEGIN
KEY "cap ditta" KEY "cap ditta"
PROMPT 3 6 "" PROMPT 3 6 ""
MESSAGE _DITTA, !CAP MESSAGE _DITTA,!CAP
END END
STRINGA 4 30 1 STRINGA 4 30 1
BEGIN BEGIN
KEY "comune ditta" KEY "comune ditta"
PROMPT 10 6 "" PROMPT 10 6 ""
MESSAGE _DITTA, !COM MESSAGE _DITTA,!COM
END END
STRINGA 5 5 1 STRINGA 5 5 1
@ -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
@ -97,21 +97,21 @@ STRINGA 8 16 1
BEGIN BEGIN
KEY "codice fiscale ditta" KEY "codice fiscale ditta"
PROMPT 13 8 "" PROMPT 13 8 ""
MESSAGE _DITTA, !CF MESSAGE _DITTA,!CF
END END
NUMERO 9 30 1 NUMERO 9 30 1
BEGIN BEGIN
KEY "reg.soc.trib...." KEY "reg.soc.trib...."
PROMPT 3 9 "REG.SOC.TRIB.R.E. " PROMPT 3 9 "REG.SOC.TRIB.R.E. "
MESSAGE _DITTA, !REGSOC MESSAGE _DITTA,!REGSOC
END END
NUMERO 10 30 1 NUMERO 10 30 1
BEGIN BEGIN
KEY "c.c.i.a.a. ....." KEY "c.c.i.a.a. ....."
PROMPT 3 10 "C.C.I.A.A. " PROMPT 3 10 "C.C.I.A.A. "
MESSAGE _DITTA, !CCIAA MESSAGE _DITTA,!CCIAA
END END
STRINGA 11 10 1 STRINGA 11 10 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