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

Patch level : 12.0 646

Browse Source 
Files correlati     : cg,fp
Commento            :
- Modificata gestiona campi vettori
This commit is contained in:
Mattia Tollari 2018-11-29 14:57:25 +01:00
parent baef2bfba4
commit ed90e16590
3 changed files with 28 additions and 14 deletions

15
src/cg/cg0600.cpp

@ -151,9 +151,18 @@ int CGTTable_application::read(TMask& m)
else if (table_name == "%VET" && err == NOERR)
{
// Prendo il vecchio campo della P.IVA e lo sbatto in quello nuovo
if(m.get(F_PAIV).empty())
m.set(F_PAIV, get_relation()->curr().get("S3").mid(20, 12));
// Il campo Albo è stato unito alla p.iva, verifico se vanno separati
// Il campo eori è diventato obbligatorio con le nuove modifiche
if(m.field(F_EORI).required() && m.get(F_EORI).empty())
{
// Prendo il vecchio campo dell'albo e metto in quello nuovo
TString piva = m.get(F_PAIV);
if(piva.len() > 11)
{
m.set(F_ALBO, piva.mid(12));
m.set(F_PAIV, piva.left(11));
}
}
}
return err;

17
src/cg/cgtbvet.uml

@ -24,7 +24,8 @@ INPUT CODTAB F_CODVETT
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0
OUTPUT F_RAGSO S0[1,30]
OUTPUT F_RAGSOA S0[31,50]
KEY 1
END
@ -41,14 +42,11 @@ PROMPT 2 3 "Cognome/Ragione sociale "
HELP "Ragione sociale del vettore"
FIELD S0[1,30]
USE %VET KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_RAGSO
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0[1,30]
OUTPUT F_RAGSO S0[31,50]
KEY 2
COPY OUTPUT F_CODVETT
CHECKTYPE REQUIRED
END
STRING F_RAGSOA 20
@ -57,6 +55,7 @@ BEGIN
FIELD S0[31,50]
USE %VET KEY 2
HELP "Seconda parte della ragione sociale o nome"
COPY OUTPUT F_CODVETT
MESSAGE COPY,6@
END
@ -64,7 +63,7 @@ END
STRING F_STATOPAIV 2
BEGIN
PROMPT 2 6 "Partita IVA "
FIELD S3[49,51]
FIELD S3[50,52]
HELP "Codice ISO dello stato"
FLAGS "U"
USE %SCE
@ -78,7 +77,7 @@ END
STRING F_PAIV 28 16
BEGIN
PROMPT 20 6 ""
FIELD S13[1,28]
FIELD S3[21,49]
HELP "Partita IVA del vettore"
VALIDATE PI_FUNC F_STATOPAIV
CHECKTYPE REQUIRED
@ -195,7 +194,7 @@ END
STRING F_ALBO 15
BEGIN
PROMPT 2 12 "N.ro iscr.all'albo"
FIELD S3[33,48]
FIELD S13[1,16]
END
STRING F_EORI 17

10
src/fp/fplib01.cpp

@ -1209,8 +1209,14 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc)
if(doc.get("CODVETT1").full())
{
TRectype vet = cache().get("%VET", doc.get("CODVETT1"));
paf1700f.set("PG_FISCIVAPAESE", vet.get("S3").mid(48,2));
paf1700f.set("PG_FISCIVACODICE", vet.get("S13").mid(0, 28));
TString4 statopiva = vet.get("S3").mid(49, 2);
TString piva = vet.get("S3").mid(20, 28);
if(statopiva.full() && piva.full())
{
paf1700f.set("PG_FISCIVAPAESE", statopiva.full() ? statopiva : "IT");
paf1700f.set("PG_FISCIVACODICE", piva);
}
paf1700f.set("PG_CODICEFISCALE", vet.get("S13").mid(28, 16));
if (vet.get_bool("B0"))