diff --git a/ve/ve1100.cpp b/ve/ve1100.cpp index 29dbf83f8..e33c32c8d 100755 --- a/ve/ve1100.cpp +++ b/ve/ve1100.cpp @@ -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 se persona fisica, 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-> accede ai campi del comune di residenza cliente + // !COMN-> 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(); } diff --git a/ve/veacc.frm b/ve/veacc.frm index ffd81b914..287bcc7e9 100755 --- a/ve/veacc.frm +++ b/ve/veacc.frm @@ -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 se persona fisica, 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-> accede ai campi del comune di residenza cliente +// !COMN-> 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 diff --git a/ve/vebol.frm b/ve/vebol.frm index c365fbeaf..8ef47e16f 100755 --- a/ve/vebol.frm +++ b/ve/vebol.frm @@ -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 se persona fisica, 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-> accede ai campi del comune di residenza cliente +// !COMN-> 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 diff --git a/ve/vebolbmp.frm b/ve/vebolbmp.frm index 4bb075796..8687d061a 100755 --- a/ve/vebolbmp.frm +++ b/ve/vebolbmp.frm @@ -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 se persona fisica, 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-> accede ai campi del comune di residenza cliente +// !COMN-> 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 diff --git a/ve/vefat.frm b/ve/vefat.frm index 2e5487175..22bea9eca 100755 --- a/ve/vefat.frm +++ b/ve/vefat.frm @@ -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 se persona fisica, 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-> accede ai campi del comune di residenza cliente +// !COMN-> 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