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

Patch level : 12.0 486

Browse Source 
Files correlati     : cg
Commento            : 
- Modificato programma clienti/fornitori: Incrementato campo Codice Fiscale da 16 a 28 caratteri per accettare tutti gli identificativi fiscali
- Modificato programma prima nota: Il campo "Numero Documento Esteso" è stato posizionato prima del campo "Numero Documento", inoltre se dopo aver valorizzato NDE il campo ND è vuoto viene automaticamente valorizzato con le ultime cifre di NDE.
- Aggiornati i tracciati per supportare la modifica dell'identificativo fiscale

git-svn-id: svn://10.65.10.50/branches/R_10_00@24232 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-12-13 13:51:22 +00:00
parent f2677bcbc5
commit 6f2c64f905
8 changed files with 135 additions and 118 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/cg/cg0200a.uml
View File

@ -105,25 +105,6 @@ BEGIN
HELP "Chiave di ricerca alternativa" HELP "Chiave di ricerca alternativa"
END END
STRING F_COFI 16
BEGIN
PROMPT 2 5 "Codice fiscale "
FIELD COFI
FLAGS "U"
KEY 4
USE LF_CLIFO KEY 4
INPUT TIPOCF F_TIPOCF SELECT
INPUT COFI F_COFI
DISPLAY "Codice fiscale@16" COFI
DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice@R" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF
HELP "Codice fiscale del cliente/fornitore"
VALIDATE XTCF_FUNC F_STATOPAIV F_SESSO F_DATANASC F_COMNASC
END
STRING F_STATOPAIV 2 STRING F_STATOPAIV 2
BEGIN BEGIN
PROMPT 42 4 "Codice ISO " PROMPT 42 4 "Codice ISO "
@ -154,9 +135,28 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_PAIV 12 STRING F_COFI 28
BEGIN BEGIN
PROMPT 42 5 "P.IVA " PROMPT 2 5 "Ident. fiscale "
FIELD COFI
FLAGS "U"
KEY 4
USE LF_CLIFO KEY 4
INPUT TIPOCF F_TIPOCF SELECT
INPUT COFI F_COFI
DISPLAY "Codice fiscale@16" COFI
DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice@R" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF
HELP "Codice fiscale del cliente/fornitore"
VALIDATE XTCF_FUNC F_STATOPAIV F_SESSO F_DATANASC F_COMNASC
END
STRING F_PAIV 12 15
BEGIN
PROMPT 51 5 "P.IVA "
FIELD PAIV FIELD PAIV
KEY 5 KEY 5
USE LF_CLIFO KEY 5 USE LF_CLIFO KEY 5

8
src/cg/cg2100.cpp
View File

@ -77,7 +77,7 @@ TMask* TPrimanota_application::load_mask(int n)
_savenew = !c.get_bool("Cg21SN"); _savenew = !c.get_bool("Cg21SN");
} }
break; break;
case 2: case 2: // 2100c
if (m) if (m)
{ {
m->set_handler(F_DATA74TER, data74ter_handler); m->set_handler(F_DATA74TER, data74ter_handler);
@ -98,7 +98,8 @@ TMask* TPrimanota_application::load_mask(int n)
m->set_handler(F_REVCHARGE, revcharge_handler); m->set_handler(F_REVCHARGE, revcharge_handler);
m->set_handler(F_SHEETIVA, iva_handler); m->set_handler(F_SHEETIVA, iva_handler);
m->show(F_LIQDIFF, _liqdiff); m->show(F_LIQDIFF, _liqdiff);
m->set_handler(F_NUMDOCEXT, ndocext_handler);
TSheet_field& is = m->sfield(F_SHEETIVA); TSheet_field& is = m->sfield(F_SHEETIVA);
is.set_notify(iva_notify); is.set_notify(iva_notify);
TMask& ism = is.sheet_mask(); TMask& ism = is.sheet_mask();
@ -117,7 +118,7 @@ TMask* TPrimanota_application::load_mask(int n)
if (_quadratura) if (_quadratura)
m->set_handler(F_ADJUST_IVA, quadratura_handler); m->set_handler(F_ADJUST_IVA, quadratura_handler);
} }
case 1: case 1: // 2100b
if (m) if (m)
{ {
m->first_focus(_firstfocus); m->first_focus(_firstfocus);
@ -137,6 +138,7 @@ TMask* TPrimanota_application::load_mask(int n)
m->set_handler(F_LINKDOC, linkdoc_handler); m->set_handler(F_LINKDOC, linkdoc_handler);
m->set_handler(F_MASTRINO, mastrino_handler); m->set_handler(F_MASTRINO, mastrino_handler);
m->enable(F_MASTRINO, !is_transaction()); m->enable(F_MASTRINO, !is_transaction());
m->set_handler(F_NUMDOCEXT, ndocext_handler);
TSheet_field& cg = m->sfield(F_SHEETCG); TSheet_field& cg = m->sfield(F_SHEETCG);
cg.set_notify(cg_notify); cg.set_notify(cg_notify);

18
src/cg/cg2100b.uml
View File

@ -92,9 +92,15 @@ BEGIN
MESSAGE COPY,K_TIPODOC MESSAGE COPY,K_TIPODOC
END END
STRING F_NUMDOCEXT 50
BEGIN
PROMPT 1 6 "Numero documento esteso "
FIELD NUMDOCEXT
END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 6 "Data del documento " PROMPT 1 7 "Data del documento "
FIELD DATADOC FIELD DATADOC
WARNING "Specificare una data del documento non superiore a quella dell'operazione" WARNING "Specificare una data del documento non superiore a quella dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG VALIDATE DATE_CMP_FUNC <= F_DATAREG
@ -103,7 +109,7 @@ END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 50 6 "Documento n. " PROMPT 50 7 "Documento n. "
FIELD NUMDOC FIELD NUMDOC
FLAGS "U" FLAGS "U"
WARNING "La causale impone di specificare il numero documento" WARNING "La causale impone di specificare il numero documento"
@ -112,13 +118,7 @@ END
BUTTON F_LINKDOC 3 1 BUTTON F_LINKDOC 3 1
BEGIN BEGIN
PROMPT 73 6 "Doc." PROMPT 73 7 "Doc."
END
STRING F_NUMDOCEXT 50
BEGIN
PROMPT 1 7 "Numero documento esteso "
FIELD NUMDOCEXT
END END
NUMBER F_ANNOIVA 4 NUMBER F_ANNOIVA 4

20
src/cg/cg2100c.uml
View File

@ -105,9 +105,15 @@ BEGIN
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
STRING F_NUMDOCEXT 50
BEGIN
PROMPT 1 4 "Numero documento esteso "
FIELD NUMDOCEXT
END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 1 4 "Documento n. " PROMPT 1 5 "Documento n. "
FIELD NUMDOC FIELD NUMDOC
FLAGS "U" FLAGS "U"
WARNING "La causale o il saldaconto richiedono il numero documento" WARNING "La causale o il saldaconto richiedono il numero documento"
@ -115,7 +121,7 @@ END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 27 4 "Data documento " PROMPT 27 5 "Data documento "
FIELD DATADOC FIELD DATADOC
WARNING "Inserire una data documento non superiore alla data dell'operazione" WARNING "Inserire una data documento non superiore alla data dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG VALIDATE DATE_CMP_FUNC <= F_DATAREG
@ -123,20 +129,14 @@ END
STRING F_TIPODOC 2 STRING F_TIPODOC 2
BEGIN BEGIN
PROMPT 56 4 "Tipo " PROMPT 56 5 "Tipo "
FIELD TIPODOC FIELD TIPODOC
FLAGS "D" FLAGS "D"
END END
BUTTON F_LINKDOC 3 1 BUTTON F_LINKDOC 3 1
BEGIN BEGIN
PROMPT 73 4 "Doc." PROMPT 73 5 "Doc."
END
STRING F_NUMDOCEXT 50
BEGIN
PROMPT 1 5 "Numero documento esteso "
FIELD NUMDOCEXT
END END
LIST F_SOLAIVA 1 3 LIST F_SOLAIVA 1 3

12
src/cg/cg2102.cpp
View File

@ -2593,6 +2593,18 @@ bool TPrimanota_application::numdoc_handler(TMask_field& f, KEY key)
return true; return true;
} }
bool TPrimanota_application::ndocext_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
if (key == K_TAB && f.to_check(key, true) && m.get(F_NUMDOC).empty())
{
// Mi precarico la dimensione del campo numdoc, così in caso di aggiornamenti non devo cambiare
static const int numdoc_size = TRectype(LF_MOV).length(MOV_NUMDOC);
m.set(F_NUMDOC, f.get().right(numdoc_size));
}
return true;
}
bool TPrimanota_application::datadoc_handler(TMask_field& f, KEY key) bool TPrimanota_application::datadoc_handler(TMask_field& f, KEY key)
{ {
TMask& m = f.mask(); TMask& m = f.mask();

1
src/cg/cg2102.h
View File

@ -93,6 +93,7 @@ class TPrimanota_application : public TRelation_application
static bool data74ter_handler(TMask_field& f, KEY key); static bool data74ter_handler(TMask_field& f, KEY key);
static bool datadoc_handler(TMask_field& f, KEY key); static bool datadoc_handler(TMask_field& f, KEY key);
static bool numdoc_handler(TMask_field& f, KEY key); static bool numdoc_handler(TMask_field& f, KEY key);
static bool ndocext_handler(TMask_field& f, KEY key);
static bool annorif_handler(TMask_field& f, KEY key); static bool annorif_handler(TMask_field& f, KEY key);
static bool numrif_handler(TMask_field& f, KEY key); static bool numrif_handler(TMask_field& f, KEY key);
static bool protiva_handler(TMask_field& f, KEY key); static bool protiva_handler(TMask_field& f, KEY key);

6
src/cg/f20.dir
View File

@ -1,3 +1,3 @@
20 20
0 0
$clifo|0|0|783|0|Clienti/Fornitori||| $clifo|4299|4300|809|0|Clienti/Fornitori|||

146
src/cg/f20.trr
View File

@ -1,72 +1,74 @@
20 20
63 65
TIPOCF|1|1|0|Tipo <C>liente <F>ornitore TIPOCF|1|1|0|Tipo <C>liente <F>ornitore
CODCF|3|6|0|Codice CODCF|3|6|0|Codice
RAGSOC|1|50|0|Ragione sociale RAGSOC|1|50|0|Ragione sociale
INDCF|1|35|0|Indirizzo INDCF|1|35|0|Indirizzo
CIVCF|1|10|0|Numero civico CIVCF|1|10|0|Numero civico
LOCALITACF|1|35|0|Loacalita' LOCALITACF|1|35|0|Loacalita'
STATOCF|1|3|0|Çodice stato STATOCF|1|3|0|Çodice stato
COMCF|1|4|0|Codice comune COMCF|1|4|0|Codice comune
CAPCF|1|5|0|CAP CAPCF|1|5|0|CAP
COFI|1|16|0|Codice fiscale COFI|1|28|0|Codice fiscale
STATOPAIV|1|2|0|Stato ISO della partita IVA STATOPAIV|1|2|0|Stato ISO della partita IVA
PAIV|1|12|0|Partita IVA PAIV|1|12|0|Partita IVA
TIPOPERS|1|1|0|Tipo persona <F>isica <G>iuridica TIPOPERS|1|1|0|Tipo persona <F>isica <G>iuridica
ALLEG|1|1|0|Inserimento in allegato ALLEG|1|1|0|Inserimento in allegato
CODALLEG|3|6|0|Codice per allegato (se diverso) CODALLEG|3|6|0|Codice per allegato (se diverso)
GRUPPO|2|3|0|Gruppo prevalente (se presente) GRUPPO|2|3|0|Gruppo prevalente (se presente)
CONTO|2|3|0|Conto prevalente (se presente) CONTO|2|3|0|Conto prevalente (se presente)
GRUPPORIC|2|3|0|Gruppo prevalente di ricavo (se presente) GRUPPORIC|2|3|0|Gruppo prevalente di ricavo (se presente)
CONTORIC|2|3|0|Conto prevalente di ricavo (se presente) CONTORIC|2|3|0|Conto prevalente di ricavo (se presente)
SOTTOCRIC|3|6|0|Sottoconto prevalente di ricavo (se presente) SOTTOCRIC|3|6|0|Sottoconto prevalente di ricavo (se presente)
TIPOAPER|1|1|0|Tipo anagrafico percipiente TIPOAPER|1|1|0|Tipo anagrafico percipiente
CODANAGPER|3|5|0|Codice angrafico percipiente CODANAGPER|3|5|0|Codice angrafico percipiente
PTEL|1|10|0|Prefisso del numero di telefono PTEL|1|10|0|Prefisso del numero di telefono
TEL|1|30|0|Numero di telefono TEL|1|30|0|Numero di telefono
PTEL2|1|10|0|Prefisso del 2 numero di telefono PTEL2|1|10|0|Prefisso del 2 numero di telefono
TEL2|1|30|0|2 numero di telefono TEL2|1|30|0|2 numero di telefono
PTEL3|1|10|0|Prefisso del 3 numero di telefono PTEL3|1|10|0|Prefisso del 3 numero di telefono
TEL3|1|30|0|3 numero di telefono TEL3|1|30|0|3 numero di telefono
PFAX|1|10|0|Prefisso del numero di FAX PFAX|1|10|0|Prefisso del numero di FAX
FAX|1|30|0|Numero di FAX FAX|1|30|0|Numero di FAX
PTELEX|1|10|0|Prefisso del numero di TELEX PTELEX|1|10|0|Prefisso del numero di TELEX
TELEX|1|30|0|Prefisso del numero di TELEX TELEX|1|30|0|Prefisso del numero di TELEX
MAIL|1|50|0|Indirizzo di posta elettronica generico MAIL|1|50|0|Indirizzo di posta elettronica generico
BYMAIL|8|1|0|Consenso all' invio dei documenti per posta elettronica BYMAIL|8|1|0|Consenso all' invio dei documenti per posta elettronica
DOCMAIL|1|50|0|Indirizzo di posta elettronica per i documenti DOCMAIL|1|50|0|Indirizzo di posta elettronica per i documenti
DATANASC|5|8|0|Data di nascita DATANASC|5|8|0|Data di nascita
STATONASC|2|3|0|Codice stato di nascita STATONASC|2|3|0|Codice stato di nascita
SESSO|1|1|0|Sesso SESSO|1|1|0|Sesso
COMNASC|1|4|0|Codice comune di nascita COMNASC|1|4|0|Codice comune di nascita
CODSTAT|1|7|0|Codice statistico CODSTAT|1|7|0|Codice statistico
CODABI|10|5|0|Codice ABI banca CODABI|10|5|0|Codice ABI banca
CODCAB|10|5|0|Codice CAB banca CODCAB|10|5|0|Codice CAB banca
NUMCC|1|20|0|Numero di conto corrente NUMCC|1|20|0|Numero di conto corrente
IBAN|1|34|0|Codice IBAN IBAN|1|34|0|Codice IBAN
OCCAS|8|1|0|Cliente / fornitore occasionale OCCAS|8|1|0|Cliente / fornitore occasionale
STATO|2|3|0|Codice stato STATO|2|3|0|Codice stato
CODVAL|1|3|0|Codice valuta CODVAL|1|3|0|Codice valuta
CODLIN|1|1|0|Codice lingua CODLIN|1|1|0|Codice lingua
FIDO|4|18|2|Fido Cliente FIDO|4|18|2|Fido Cliente
CODPAG|1|4|0|Codice pagamento CODPAG|1|4|0|Codice pagamento
RICALT|1|30|0|Sigla di ricerca alternativa RICALT|1|30|0|Sigla di ricerca alternativa
OGGETTI|11|10|0|Link ad oggetti esterni OGGETTI|11|10|0|Link ad oggetti esterni
SOSPESO|8|1|0|Anagrafica sospesa SOSPESO|8|1|0|Anagrafica sospesa
DIRTY|1|1|0|Anagrafica modificata (NON UTILIZZATO) DIRTY|1|1|0|Anagrafica modificata (NON UTILIZZATO)
REFERENTE|1|50|0|Persona referente presso il cliente/fornitore REFERENTE|1|50|0|Persona referente presso il cliente/fornitore
VALINTRA|1|3|0|Codice Valuta Intracomunitaria VALINTRA|1|3|0|Codice Valuta Intracomunitaria
CODCFASS|3|6|0|Codice cliente (fornitori) o fornitore (clienti) associato CODCFASS|3|6|0|Codice cliente (fornitori) o fornitore (clienti) associato
CODCFFATT|3|6|0|Codice cliente (fornitore) cui fatturare CODCFFATT|3|6|0|Codice cliente (fornitore) cui fatturare
DIPPUBB|8|1|0|Dipendente Pubblico DIPPUBB|8|1|0|Dipendente Pubblico
ENTE|1|4|0|Codice ente pubblico di appartenenza (Dipendente Pubblico) ENTE|1|4|0|Codice ente pubblico di appartenenza (Dipendente Pubblico)
SPLITPAY|8|1|0|Ente pubblico soggetto a split payment SPLITPAY|8|1|0|Ente pubblico soggetto a split payment
UTENTE|1|32|0|Utente dell'ultima modifica UTENTE|1|32|0|Utente dell'ultima modifica
DATAAGG|5|8|0|Data ultima modifica DATAAGG|5|8|0|Data ultima modifica
6 CODRFSO|1|6|0|Codice Rappresentate Fisc/Stabile Org
TIPOCF+CODCF| DATARFSO|5|8|0|
TIPOCF+UPPER(RAGSOC)|X 6
TIPOCF+GRUPPO+CONTO+CODCF| TIPOCF+CODCF|
TIPOCF+COFI|X TIPOCF+UPPER(RAGSOC)|X
TIPOCF+STATOPAIV+PAIV|X TIPOCF+GRUPPO+CONTO+CODCF|
TIPOCF+RICALT|X TIPOCF+COFI|X
TIPOCF+STATOPAIV+PAIV|X
TIPOCF+RICALT|X