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

Patch level : nopatch

Browse Source 
Files correlati     :
Commento        :

Implementazione nuovo modulo FP
This commit is contained in:
smen 2021-12-01 17:57:05 +01:00
parent fdef295393
commit 7d5b5396ea
8 changed files with 79 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/cg/cg0200.h
View File

@ -164,6 +164,7 @@
#define F_DISABLECUSTFP 265
#define F_CODCUSTFP 266
#define F_DATAICONAI 267
#define FLD_CODEORI 268
#define F_PRODACC 271

58
src/cg/cg0200a.uml
View File

@ -1701,7 +1701,7 @@ ENDPAGE
PAGE "Dati Vendita 2" -1 -1 78 19
GROUPBOX DLG_NULL 76 4
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 0 "Dati identificativi"
END
@ -1724,6 +1724,12 @@ BEGIN
GROUP 2
END
STRING FLD_CODEORI 20
BEGIN
PROMPT 2 3 "EORI "
FIELD LF_CLIFO->CODEORI
END
STRING DLG_NULL 30
BEGIN
PROMPT 25 1 "Cognome/Rag. Soc. "
@ -1740,7 +1746,7 @@ END
STRING F_CODNOTESP1 3
BEGIN
PROMPT 2 4 "Codici note documento "
PROMPT 2 5 "Codici note documento "
FIELD LF_CFVEN->CODNOTESP1
GROUP 7
USE %NDO
@ -1755,7 +1761,7 @@ END
STRING F_CODNOTESP2 3
BEGIN
PROMPT 33 4 ""
PROMPT 33 5 ""
FIELD LF_CFVEN->CODNOTESP2
GROUP 7
FLAGS "U"
@ -1769,7 +1775,7 @@ END
STRING F_CODSPMEZZO 3
BEGIN
PROMPT 43 4 "Codice modalità spedizione "
PROMPT 43 5 "Codice modalità spedizione "
FIELD LF_CFVEN->CODSPMEZZO
USE %MSP
INPUT CODTAB F_CODSPMEZZO
@ -1782,12 +1788,12 @@ END
GROUPBOX DLG_NULL 20 5
BEGIN
PROMPT 1 5 "Vettori"
PROMPT 1 6 "Vettori"
END
STRING F_CODVETT1 6
BEGIN
PROMPT 2 6 "Vettore 1 "
PROMPT 2 7 "Vettore 1 "
FIELD LF_CFVEN->CODVETT1
FLAGS "UZ"
USE %VET
@ -1800,7 +1806,7 @@ END
STRING F_CODVETT2 6
BEGIN
PROMPT 2 7 "Vettore 2 "
PROMPT 2 8 "Vettore 2 "
FIELD LF_CFVEN->CODVETT2
FLAGS "UZ"
COPY USE F_CODVETT1
@ -1812,7 +1818,7 @@ END
STRING F_CODVETT3 6
BEGIN
PROMPT 2 8 "Vettore 3 "
PROMPT 2 9 "Vettore 3 "
FIELD LF_CFVEN->CODVETT3
FLAGS "UZ"
COPY USE F_CODVETT1
@ -1824,7 +1830,7 @@ END
STRING F_CODPORTO 3
BEGIN
PROMPT 23 7 "Porto "
PROMPT 23 8 "Porto "
FIELD LF_CFVEN->CODPORTO
USE %POR
INPUT CODTAB F_CODPORTO
@ -1837,7 +1843,7 @@ END
BOOLEAN F_RAGGDOC
BEGIN
PROMPT 23 8 "Raggr. documenti"
PROMPT 23 9 "Raggr. documenti"
FIELD LF_CFVEN->RAGGDOC
GROUP 7
HELP "Indicare se vanno raggruppati i documenti (bolle/fatture)"
@ -1845,14 +1851,14 @@ END
CURRENCY F_IMPMINFAT 10
BEGIN
PROMPT 43 8 "Importo minimo fatture "
PROMPT 43 9 "Importo minimo fatture "
FIELD LF_CFVEN->IMPMINFAT
END
STRING F_ASSFIS 4
BEGIN
PROMPT 2 10 "Codice Assoggettamento fiscale "
PROMPT 2 11 "Codice Assoggettamento fiscale "
FIELD LF_CFVEN->ASSFIS
HELP "Codice d'assoggettamento fiscale"
USE %IVA
@ -1870,14 +1876,14 @@ END
BOOLEAN F_FATTSOSP
BEGIN
PROMPT 51 10 "Fatture in sospensione"
PROMPT 51 11 "Fatture in sospensione"
FIELD LF_CFVEN->FATTSOSP
HELP "Indicase se si tartta di fatture in sospensione d'imposta"
END
STRING F_TIPODOCFAT 4
BEGIN
PROMPT 2 11 "Tipo "
PROMPT 2 12 "Tipo "
FIELD LF_CFVEN->TIPODOCFAT
HELP "Codice tipo documento"
USE %TIP
@ -1891,7 +1897,7 @@ END
STRING F_CODCAUS 3
BEGIN
PROMPT 43 11 "Causale contabile "
PROMPT 43 12 "Causale contabile "
FIELD LF_CFVEN->CODCAUS
USE LF_CAUSALI
INPUT CODCAUS F_CODCAUS
@ -1904,7 +1910,7 @@ END
STRING F_CODCAUSNC 3
BEGIN
PROMPT 2 12 "Causale contabile Note Credito "
PROMPT 2 13 "Causale contabile Note Credito "
FIELD LF_CFVEN->CODCAUSNC
USE LF_CAUSALI
INPUT CODCAUS F_CODCAUSNC
@ -1917,7 +1923,7 @@ END
STRING F_CODCAUSINC 3
BEGIN
PROMPT 43 12 "Causale contabile Anticipi "
PROMPT 43 13 "Causale contabile Anticipi "
FIELD LF_CFVEN->CODCAUSINC
USE LF_CAUSALI
INPUT CODCAUS F_CODCAUSINC
@ -1930,13 +1936,13 @@ END
STRING DLG_NULL 76 4
BEGIN
PROMPT 1 13 "Dati lettera esenzione"
PROMPT 1 14 "Dati lettera esenzione"
FLAGS "DH" // NON PIU UTILIZZATI
END
STRING F_VSNRPROT 7
BEGIN
PROMPT 2 14 "Vs nr. protocollo "
PROMPT 2 15 "Vs nr. protocollo "
FIELD LF_CFVEN->VSNRPROT
GROUP 7
HELP "Vostro nr. di protocollo della lettera"
@ -1945,7 +1951,7 @@ END
DATE F_VSDATAREG
BEGIN
PROMPT 40 14 "Vs data registrazione "
PROMPT 40 15 "Vs data registrazione "
FIELD LF_CFVEN->VSDATAREG
GROUP 7
HELP "Data di registrazione della lettera"
@ -1954,7 +1960,7 @@ END
STRING F_NSNRPROT 7
BEGIN
PROMPT 2 15 "Ns nr. protocollo "
PROMPT 2 16 "Ns nr. protocollo "
FIELD LF_CFVEN->NSNPROT
GROUP 7
HELP "Nostro nr. di protocollo della lettera"
@ -1963,7 +1969,7 @@ END
DATE F_NSDATAREG
BEGIN
PROMPT 40 13 "Ns data registrazione "
PROMPT 40 14 "Ns data registrazione "
FIELD LF_CFVEN->NSDATAREG
GROUP 7
HELP "Data di registrazione della lettera"
@ -1972,7 +1978,7 @@ END
NUMBER F_CODCFFATT 6
BEGIN
PROMPT 2 13 "Fatturare a "
PROMPT 2 14 "Fatturare a "
FIELD CODCFFATT
FLAGS "GR"
USE LF_CLIFO KEY 1
@ -1991,7 +1997,7 @@ END
STRING F_DESCFFATT 50 30
BEGIN
PROMPT 25 13 ""
PROMPT 25 14 ""
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_DESCFFATT
@ -2007,7 +2013,7 @@ END
STRING F_CATFIN 2
BEGIN
PROMPT 2 14 "Categoria finanziaria "
PROMPT 2 15 "Categoria finanziaria "
FIELD LF_CFVEN->CATFIN
USE %CFI
INPUT CODTAB F_CATFIN
@ -2023,7 +2029,7 @@ ENDPAGE
PAGE "Dati Vendita 3" -1 -1 78 19
GROUPBOX DLG_NULL 76 4
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 0 "Dati identificativi"
END

17
src/cg/cg2100.cpp
View File

@ -1001,14 +1001,11 @@ void TPrimanota_application::f1_init_modify(TMask& m, const TRectype& mov)
{
const bool after_data_inizio_fe = mov.get_date(MOV_DATADOC) >= get_data_start_fatt();
if (m.find_by_id(F_COLFPPRO) != nullptr && after_data_inizio_fe)
m.set(F_COLFPPRO, mov.get(MOV_KEYFPPRO).empty() ? " " : "X");
else
if(m.find_by_id(F_COLFPPRO) != nullptr && !after_data_inizio_fe)
{
m.field(F_COLFPPRO).hide();
m.field(DLG_LINK).disable();
}
m.field(F_IDDOCSDI).show(after_data_inizio_fe);
m.field(F_DATADOCSDI).show(after_data_inizio_fe);
m.field(F_COLFPPRO).show(after_data_inizio_fe);
m.field(DLG_LINK).enable(after_data_inizio_fe);
m.set(F_COLFPPRO, !after_data_inizio_fe || mov.get(MOV_KEYFPPRO).empty() ? " " : "X");
}
void TPrimanota_application::init_modify_mode(TMask& m)
@ -1118,8 +1115,8 @@ void TPrimanota_application::init_modify_mode(TMask& m)
m.enable(F_BOLLACODCLI, causale().tipo_doc() == "BD");
m.enable(F_BOLLARAGCLI, causale().tipo_doc() == "BD");
}
f1_init_modify(m, mov);
if (iva() != nessuna_iva)
f1_init_modify(m, mov);
}
// Controlla sulla causale se il segno del totale documento (ritsoc=false)

3
src/cg/cg2100.h
View File

@ -91,10 +91,13 @@
#define F_REVCHARGE 184
#define F_MOVCOLL 185
#define F_GOCOLL 186
#define F_IDDOCSDI 187
#define F_DATADOCSDI 188
#define F_SHEETCG 190
#define F_SHEETIVA 191
// Sheet contabile
#define CG_DARE 101
#define CG_AVERE 102

29
src/cg/cg2100c.uml
View File

@ -558,6 +558,8 @@ BOOLEAN F_COLFPPRO
BEGIN
PROMPT 1 19 "Registrazione collegata a FPPRO"
FLAGS "D"
MESSAGE TRUE DISABLE, F_IDDOCSDI|DISABLE F_DATADOCSDI
MESSAGE FALSE ENABLE, F_IDDOCSDI|ENABLE F_DATADOCSDI
END
STRING F_PROKEY 80
@ -568,6 +570,18 @@ BEGIN
FLAGS "H"
END
STRING F_IDDOCSDI 20
BEGIN
PROMPT 28 19 "Id"
FIELD IDDOCSDI
END
DATE F_DATADOCSDI
BEGIN
PROMPT 52 19 "Data "
FIELD DATADOCSDI
END
BOOLEAN F_IVAXCASSA
BEGIN
PROMPT 1 20 "IVA per cassa"
@ -592,6 +606,12 @@ BEGIN
FIELD DATAINC
END
BOOLEAN F_RITFATT
BEGIN
PROMPT 1 21 "Fattura in ritardo "
FIELD RITFATT
END
LIST F_SPLITPAY 1 2
BEGIN
PROMPT 51 21 "Scissione pagamenti "
@ -619,9 +639,10 @@ BEGIN
VALIDATE REQIF_FUNC 1 F_CORRVALUTA
END
NUMBER F_CAMBIOINTRA 15 6
BEGIN
PROMPT 25 21 ""
PROMPT 25 22 ""
FIELD CAMBIOI
FLAGS "U"
GROUP 4
@ -650,12 +671,6 @@ BEGIN
DRIVENBY F_VALUTAINTRA
END
BOOLEAN F_RITFATT
BEGIN
PROMPT 1 24 "Fattura in ritardo "
FIELD RITFATT
END
STRING NP_CONTSEP 6
BEGIN
PROMPT 1 24 "Cont. separata "

7
src/cg/cglib.h
View File

@ -1368,7 +1368,7 @@ class TAnagrafica : public TObject
TString80 _ragsoc;
TString4 _com_nasc, _com_res;
TString80 _loc_res, _ind_res, _via_res;
TString16 _civ_res, _cap_res;
TString16 _civ_res, _cap_res, _cod_EORI;
TDate _data_nasc;
int _allegato, _stato_estero, _stato_nasc;
@ -1411,6 +1411,7 @@ public:
const TString& via_residenza() const { return _via_res; }
const TString& civico_residenza() const { return _civ_res; }
const TString& CAP_residenza() const { return _cap_res; }
const TString& cod_EORI() const { return _cod_EORI; }
bool init(const TRectype& rec);
bool init(int num, const TString& codice);
@ -1482,7 +1483,7 @@ public:
TToken_string & get_ban_pres(int nprog = 1);
const TOccasionale & occasionale(const TString& ocfpi = EMPTY_STRING) { return _occasionale = cache().get(LF_OCCAS, ocfpi); }
const TAnagrafica & anagrafica_cliente(const char * ocfpi = "") { _anagr.init(tipo(), codice(), ocfpi); return _anagr; }
const TAnagrafica & anagrafica() const { return _anagr; }
TCli_for(char tipo = ' ', long codice = 0L);
TCli_for(const TRectype & rec);
@ -1536,7 +1537,7 @@ public:
real imponibile(const char * codiva = nullptr) const;
real imposta(const char * codiva = nullptr) const;
TPagamento& pagamento();
const TCli_for & clifo() const { return cached_clifor(get_char(MOV_TIPO), get_long(MOV_CODCF)); }
const TCli_for & clifo() const { return cached_clifor(get_char(MOV_TIPO), get_long(MOV_CODCF)); }
const TCausale & causale() const { return cached_causale(get(MOV_CODCAUS), get_int(MOV_ANNOES)); }
bool is_reverse_charge() const { return ::is_reverse_charge(*this); }

10
src/cg/cglib07.cpp
View File

@ -288,6 +288,7 @@ bool TAnagrafica::init(const TRectype& rec)
_stato_estero = _stato_nasc = 0;
_allegato = 0;
_ragsoc.cut(0);
if (rec.empty())
return false;
@ -382,6 +383,7 @@ bool TAnagrafica::init(const TRectype& rec)
}
break;
case LF_CLIFO:
_cod_EORI = rec.get(ANA_CODEORI);
_allegato = rec.get_int(CLI_ALLEG);
if (_allegato == 4)
{
@ -466,6 +468,7 @@ bool TAnagrafica::init(const TRectype& rec)
_paiv = rec.get(CLI_PAIV);
_stato_paiv = rec.get(CLI_STATOPAIV);
if (_allegato != 5 && _allegato != 9)
{
if (_stato_paiv.blank() || _stato_paiv == "IT")
@ -884,6 +887,7 @@ TCli_for::TCli_for(char tipo, long codice) : TMultiple_rectype( LF_CLIFO ), _ven
add_file(LF_INDSP, IND_CODIND);
if (tipo > ' ' && codice > 0L)
read(tipo, codice);
_anagr.init(tipo, codice);
}
@ -893,11 +897,15 @@ TCli_for::TCli_for(const TRectype & rec) : TMultiple_rectype(rec), _ven_rec(LF_C
init();
add_file(LF_INDSP, IND_CODIND);
read(rec);
_anagr.init(tipo(), codice());
}
TCli_for::TCli_for(const TCli_for & c) : TMultiple_rectype(c), _ven_rec(c._ven_rec),
_letint(LF_LETINT), _use_lettere(false), _lettera_found(false), _extended(false)
{ init(); }
{
init();
_anagr.init(tipo(), codice());
}
TCli_for::~TCli_for()
{ }

2
src/cg/f20.dir
View File

@ -1,3 +1,3 @@
20
0
$clifo|0|0|916|0|Clienti/Fornitori|||
$clifo|9617|9617|916|0|Clienti/Fornitori|NCF||