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");
}
} else {
TFieldref fref(s.get(), 0);
TFieldref fref(in, 0);
valore = fref.read(_firmrel);
}
cf.put_paragraph(valore);
@ -662,23 +662,18 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s) {
// !IND indirizzo
// !NUM 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)
// !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (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();
TString in(s.get()); // prende la macro o il fieldref
if (in[0] != '!')
valore = cli_for.get(s.get());
valore = cli_for.get(in);
else
{
in.ltrim(1);
@ -954,6 +949,7 @@ class TStampaDoc_application: public TApplication
bool _definitiva; // flag che indica se la stampa è definitiva o no
TRelation *_firmrel; // puntatore alla relazione che gestisce i dati della ditta corrente
TDocumento_form *_form; // puntatore al form di stampa
TLocalisamfile *_occas;
protected:
virtual bool create();
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_COMUNI, "COM=STATORES+COMRES", 1, LF_ANAG, 100+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();
_is_lista = argc == 3 && argv(2)[0] == 'L';
@ -1224,6 +1221,7 @@ bool TStampaDoc_application::create()
bool TStampaDoc_application::destroy()
{
delete _firmrel; // distruzione della relazione di gestione della ditta corrente
if (_occas) delete _occas;
return TApplication::destroy();
}

35
ve/veacc.frm
View File

@ -49,28 +49,28 @@ STRINGA 1 36 1
BEGIN
KEY "nome ditta"
PROMPT 5 1 ""
MESSAGE _DITTA, !RAGSOC
MESSAGE _DITTA,!RAGSOC
END
STRINGA 2 36 1
BEGIN
KEY "indirizzo ditta"
PROMPT 5 2 ""
MESSAGE _DITTA, !IND
MESSAGE _DITTA,!IND
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 5 3 ""
MESSAGE _DITTA, !CAP
MESSAGE _DITTA,!CAP
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 12 3 ""
MESSAGE _DITTA, !COM
MESSAGE _DITTA,!COM
END
STRINGA 5 5 1
@ -83,7 +83,7 @@ STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 11 4 ""
MESSAGE _DITTA, !PIVA
MESSAGE _DITTA,!IVA
END
STRINGA 7 9 1
@ -96,21 +96,21 @@ STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 15 5 ""
MESSAGE _DITTA, !CF
MESSAGE _DITTA,!CF
END
NUMERO 9 30 1
BEGIN
KEY "reg.soc.trib...."
PROMPT 5 6 "REG.SOC.TRIB.R.E. "
MESSAGE _DITTA, !REGSOC
MESSAGE _DITTA,!REGSOC
END
NUMERO 10 30 1
BEGIN
KEY "c.c.i.a.a. 143011"
PROMPT 5 7 "C.C.I.A.A. "
MESSAGE _DITTA, !CCIAA
MESSAGE _DITTA,!CCIAA
END
STRINGA 11 36 2
@ -131,21 +131,21 @@ STRINGA 13 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 14 ""
MESSAGE _CLIENTE,!CAP
MESSAGE _CLIENTE,CAPCF
END
STRINGA 14 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 14 ""
MESSAGE _CLIENTE,!COM
MESSAGE _CLIENTE,!COM->DENCOM
END
STRINGA 15 2 1
BEGIN
KEY "destinatario, provincia"
PROMPT 77 15 ""
MESSAGE _CLIENTE,!PROV
MESSAGE _CLIENTE,!COM->PROVCOM
END
STRINGA 16 10 1
@ -237,7 +237,7 @@ STRINGA 28 16 1
BEGIN
KEY "partita iva cliente"
PROMPT 16 23 ""
MESSAGE _CLIENTE,!IVA
MESSAGE _CLIENTE,PIVA
END
STRINGA 29 25 1
@ -765,19 +765,12 @@ END
// !IND indirizzo
// !NUM 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)
// !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (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:
// CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite

19
ve/vebol.frm
View File

@ -115,21 +115,21 @@ STRING 11 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 20 ""
MESSAGE _CLIENTE,!CAP
MESSAGE _CLIENTE,CAPCF
END
STRING 12 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 20 ""
MESSAGE _CLIENTE,!COM
MESSAGE _CLIENTE,!COM->DENCOM
END
STRING 13 2
BEGIN
KEY "destinatario, provincia"
PROMPT 72 21 ""
MESSAGE _CLIENTE,!PROV
MESSAGE _CLIENTE,!COM->PROVCOM
END
DATE 14 8 1
@ -223,7 +223,7 @@ STRING 26 11 1
BEGIN
KEY "partita iva cliente"
PROMPT 12 29 ""
MESSAGE _CLIENTE,!IVA
MESSAGE _CLIENTE,PIVA
END
STRING 27 18 1
@ -542,19 +542,12 @@ END
// !IND indirizzo
// !NUM 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)
// !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (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:
// CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite

19
ve/vebolbmp.frm
View File

@ -122,21 +122,21 @@ STRING 11 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 18 ""
MESSAGE _CLIENTE,!CAP
MESSAGE _CLIENTE,CAPCF
END
STRING 12 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 18 ""
MESSAGE _CLIENTE,!COM
MESSAGE _CLIENTE,!COM->DENCOM
END
STRING 13 2
BEGIN
KEY "destinatario, provincia"
PROMPT 72 19 ""
MESSAGE _CLIENTE,!PROV
MESSAGE _CLIENTE,!COM->PROVCOM
END
DATE 14 8 1
@ -230,7 +230,7 @@ STRING 26 11 1
BEGIN
KEY "partita iva cliente"
PROMPT 18 25 ""
MESSAGE _CLIENTE,!IVA
MESSAGE _CLIENTE,PIVA
END
STRING 27 18 1
@ -528,19 +528,12 @@ END
// !IND indirizzo
// !NUM 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)
// !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (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:
// CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite

33
ve/vefat.frm
View File

@ -50,28 +50,28 @@ STRINGA 1 35 1
BEGIN
KEY "nome ditta"
PROMPT 3 4 ""
MESSAGE _DITTA, !RAGSOC
MESSAGE _DITTA,!RAGSOC
END
STRINGA 2 35 1
BEGIN
KEY "indirizzo ditta"
PROMPT 3 5 ""
MESSAGE _DITTA, !IND
MESSAGE _DITTA,!IND
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 3 6 ""
MESSAGE _DITTA, !CAP
MESSAGE _DITTA,!CAP
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 10 6 ""
MESSAGE _DITTA, !COM
MESSAGE _DITTA,!COM
END
STRINGA 5 5 1
@ -84,7 +84,7 @@ STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 9 7 ""
MESSAGE _DITTA, !PIVA
MESSAGE _DITTA,!IVA
END
STRINGA 7 9 1
@ -97,21 +97,21 @@ STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 13 8 ""
MESSAGE _DITTA, !CF
MESSAGE _DITTA,!CF
END
NUMERO 9 30 1
BEGIN
KEY "reg.soc.trib...."
PROMPT 3 9 "REG.SOC.TRIB.R.E. "
MESSAGE _DITTA, !REGSOC
MESSAGE _DITTA,!REGSOC
END
NUMERO 10 30 1
BEGIN
KEY "c.c.i.a.a. ....."
PROMPT 3 10 "C.C.I.A.A. "
MESSAGE _DITTA, !CCIAA
MESSAGE _DITTA,!CCIAA
END
STRINGA 11 10 1
@ -203,21 +203,21 @@ STRINGA 23 5 1
BEGIN
KEY "cliente cap"
PROMPT 44 15 ""
MESSAGE _CLIENTE,!CAP
MESSAGE _CLIENTE,CAPCF
END
STRINGA 24 30 1
BEGIN
KEY "cliente comune"
PROMPT 50 15 ""
MESSAGE _CLIENTE,!COM
MESSAGE _CLIENTE,!COM->DENCOM
END
STRINGA 25 2 1
BEGIN
KEY "cliente provincia"
PROMPT 73 16 ""
MESSAGE _CLIENTE,!PROV
MESSAGE _CLIENTE,!COM->PROVCOM
END
END
@ -754,19 +754,12 @@ END
// !IND indirizzo
// !NUM 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)
// !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (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:
// CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite