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

Patch level : 12.0 584

Browse Source 
Files correlati     : cg
Commento            : Implementata normativa sulla privacy (GDPR UE 2016/679)

git-svn-id: svn://10.65.10.50/branches/R_10_00@24505 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2018-05-24 14:22:33 +00:00
parent 65848c821a
commit 81f839eafa
10 changed files with 4986 additions and 4885 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
build/ba_masktab.vcxproj
View File

@ -139,6 +139,7 @@
<MskCompiler Include="..\src\ba\batblng.uml" />
<MskCompiler Include="..\src\ba\batbnoc.uml" />
<MskCompiler Include="..\src\ba\batbois.uml" />
<MskCompiler Include="..\src\ba\batbpri.uml" />
<MskCompiler Include="..\src\ba\batbrgi.uml" />
<MskCompiler Include="..\src\ba\batbsce.uml" />
<MskCompiler Include="..\src\ba\batbsta.uml" />

2
src/ba/batbpri.h Normal file
View File

@ -0,0 +1,2 @@
#define F_CODICE 101
#define F_DESCR 102

41
src/ba/batbpri.uml Normal file
View File

@ -0,0 +1,41 @@
#include "batbpri.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Risposte informativa privacy" -1 -1 78 19
STRING F_CODICE 5
BEGIN
PROMPT 2 3 "Codice "
FLAGS "U"
USE %PRI
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
FIELD CODTAB
KEY 1
END
STRING F_DESCR 50
BEGIN
PROMPT 2 5 "Descrizione "
USE %PRI KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@8" CODTAB
COPY OUTPUT F_CODICE
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
FIELD S0
KEY 2
END
ENDPAGE
ENDMASK

2
src/cg/cg0200.cpp
View File

@ -1537,7 +1537,7 @@ bool TClifo_application::effetti_notify(TSheet_field& pnae, int r, KEY key)
bool TClifo_application::user_create() // initvar e arrmask
{
open_files(LF_CLIFO, LF_CFVEN, LF_INDSP, LF_TAB, LF_TABCOM, LF_MOV, LF_ANAG,
LF_ANAGFIS, LF_PCON, LF_COMUNI, LF_TABMOD, 0);
LF_ANAGFIS, LF_PCON, LF_COMUNI, LF_TABMOD, LF_CFPRI, 0);
_has_cg = has_module(CGAUT, CHK_DONGLE);
_rel = new TClifoVI;

5
src/cg/cg0200.h
View File

@ -189,6 +189,11 @@
#define DLG_INIFATTEL 318
#define DLG_INIREVCHG 319
#define F_SPEDPRI 320
#define F_SPEDDATA 321
#define F_SPEDRISP 322
#define F_SPEDDATARISP 323
#define F_TPIMBALLO 401
#define F_DIMENSIONE 402
#define F_RIEMPIMENTO 403

105
src/cg/cg0200a.uml
View File

@ -522,89 +522,89 @@ BEGIN
PROMPT 1 4 "Numeri telefonici"
END
STRING F_PTEL 10
STRING F_PTEL 5
BEGIN
PROMPT 2 5 "Telefono "
PROMPT 2 5 "Telefono "
FIELD PTEL
HELP "Prefisso telefonico primo recapito"
END
STRING F_TEL 30
STRING F_TEL 20 15
BEGIN
PROMPT 43 5 ""
PROMPT 18 5 "/"
FIELD TEL
HELP "Numero telefonico primo recapito"
END
STRING F_PTEL2 10
STRING F_PTEL2 5
BEGIN
PROMPT 16 6 ""
PROMPT 45 5 ""
FIELD PTEL2
HELP "Prefisso telefonico secondo recapito"
END
STRING F_TEL2 30
STRING F_TEL2 20 15
BEGIN
PROMPT 43 6 ""
PROMPT 52 5 "/"
FIELD TEL2
HELP "Numero telefonico secondo recapito"
END
STRING F_PTEL3 10
STRING F_PTEL3 5
BEGIN
PROMPT 16 7 ""
PROMPT 11 6 ""
FIELD PTEL3
HELP "Prefisso telefonico terzo recapito"
END
STRING F_TEL3 30
STRING F_TEL3 20 15
BEGIN
PROMPT 43 7 ""
PROMPT 18 6 "/"
FIELD TEL3
HELP "Numero telefonico terzo recapito"
END
STRING F_PFAX 10
STRING F_PTELEX 5
BEGIN
PROMPT 2 8 "Fax "
PROMPT 45 6 ""
FIELD PTELEX
END
STRING F_TELEX 20 15
BEGIN
PROMPT 52 6 "/"
FIELD TELEX
END
STRING F_PFAX 5
BEGIN
PROMPT 2 7 "Fax "
FIELD PFAX
HELP "Prefisso del numero di fax"
END
STRING F_FAX 30
STRING F_FAX 20 15
BEGIN
PROMPT 43 8 ""
PROMPT 18 7 "/"
FIELD FAX
HELP "Numero telefonico del fax"
END
STRING F_PTELEX 10
STRING F_MAIL 50 48
BEGIN
PROMPT 2 9 "Telex "
FIELD PTELEX
END
STRING F_TELEX 30
BEGIN
PROMPT 43 9 ""
FIELD TELEX
END
STRING F_MAIL 50
BEGIN
PROMPT 2 10 "E-mail "
PROMPT 2 8 "E-mail "
FIELD MAIL
END
BUTTON DLG_EMAIL 10 2
BEGIN
PROMPT 62 10 "~Posta"
PROMPT 62 8 "~Posta"
PICTURE BMP_EMAIL
END
BOOLEAN F_BYMAIL
BEGIN
PROMPT 2 11 "Consenso spedizione documenti per posta elettronica"
PROMPT 2 9 "Consenso spedizione documenti per posta elettronica"
FIELD BYMAIL
MESSAGE FALSE CLEAR,F_DOCMAIL
MESSAGE TRUE ENABLE,F_DOCMAIL
@ -612,11 +612,40 @@ END
STRING F_DOCMAIL 50
BEGIN
PROMPT 2 12 "Indirizzo doc."
PROMPT 2 10 "Indirizzo doc."
FIELD DOCMAIL
CHECKTYPE REQUIRED
END
BOOLEAN F_SPEDPRI
BEGIN
PROMPT 2 11 "Informativa Privacy spedita"
FIELD LF_CFPRI->SPEDITA
END
DATE F_SPEDDATA
BEGIN
PROMPT 40 11 "In data "
FIELD LF_CFPRI->DATASPE
END
STRING F_SPEDRISP 5
BEGIN
PROMPT 2 12 "Risposta ricevuta "
FIELD LF_CFPRI->RISPOSTA
USE %PRI
INPUT CODTAB F_SPEDRISP
DISPLAY "Codice" CODTAB
DISPLAY "Risposta@25" S0
OUTPUT F_SPEDRISP CODTAB
END
DATE F_SPEDDATARISP
BEGIN
PROMPT 40 12 "In data "
FIELD LF_CFPRI->DATARISP
END
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 1 14 "Dati Percipiente/Nascita"
@ -1625,16 +1654,16 @@ END
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 1 18 "@bFattura elettronica Pubblica Amministrazione"
MODULES PA
PROMPT 1 18 "@bFattura elettronica"
MODULES PA,FP
END
STRING F_PADESTIN 6
STRING F_PADESTIN 7
BEGIN
PROMPT 2 19 "Destinatario "
FLAGS "U"
MODULES PA
HELP "Codice dell'ufficio dell'amministrazione destinatario della fattura elettronica"
MODULES PA,FP
HELP "Codice ufficio dell destinatario della fattura elettronica"
FIELD LF_CFVEN->PADESTIN
END

9
src/cg/cg0201.cpp
View File

@ -12,6 +12,7 @@ TClifoVI::TClifoVI() : TRelation(LF_CLIFO), _oldindirizzi(0), _gesven(FALSE)
{
add(LF_CFVEN,"TIPOCF==TIPOCF|CODCF==CODCF");
add(LF_INDSP,"TIPOCF==TIPOCF|CODCF==CODCF");
add(LF_CFPRI,"TIPOCF==TIPOCF|CODCF==CODCF");
}
void TClifoVI::destroy_rows()
@ -173,6 +174,12 @@ int TClifoVI::registra(bool re, bool force)
err = write_rec(TRUE,v.curr(),v);
if (err!=NOERR) return err;
TLocalisamfile& p = lfile(LF_CFPRI);
p.put("TIPOCF", c.get(CLI_TIPOCF)[0]);
p.put("CODCF", c.get_long(CLI_CODCF));
err = write_rec(TRUE, p.curr(), p);
if (err != NOERR) return err;
// Put here gest_vend() discrimination
if (_gesven)
{
@ -230,6 +237,8 @@ int TClifoVI::remove()
{
const int err = lfile(LF_CLIFO).remove();
lfile(LF_CFPRI).remove();
// Put here gest_vend() discrimination
if (_gesven)
{

3
src/cg/f175.dir Normal file
View File

@ -0,0 +1,3 @@
175
0
$cfpri|2|2|30|0|Gestione Privacy clienti fornitori|||

10
src/cg/f175.trr Normal file
View File

@ -0,0 +1,10 @@
175
6
TIPOCF|1|1|0|
CODCF|3|6|0|
SPEDITA|8|1|0|
DATASPE|5|8|0|
RISPOSTA|1|5|0|
DATARISP|5|8|0|
1
TIPOCF+CODCF|

1
src/include/lffiles.h
View File

@ -192,6 +192,7 @@
#define LF_RMOVANAC 172
#define LF_TRASFATT 173
#define LF_IVALIQ 174
#define LF_CFPRI 175
#define LF_EXTERNAL 1000 // Files with id >= are considered to be externals