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

Merge branch 'R12.00.1136' of http://10.65.20.33/sirio/CAMPO/campo into R12.00.1136

Browse Source
This commit is contained in:
Alessandro Bonazzi 2022-07-30 22:24:00 +02:00
commit 6bdaecf6f1
9 changed files with 153 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cd/test/cg1186.txt Normal file
View File

@ -0,0 +1,3 @@
cg2.exe
Corretto un bug in prima nota che non aggiornava il numero documento quando si cercava di registrare più di una integrazione senza uscire dalla prima nota

98
cd/test/cg1186a.ini Normal file
View File

@ -0,0 +1,98 @@
[Main]
Demo=0
[cg2]
File(51) = cg2.exe|X
Patch = 1186
Versione = 21511200
[cg99]
Kill(0) = batbins.msk|x
Kill(1) = bastpor.rep|x
Kill(2) = batbcfi.msk|x
Kill(3) = batbntb.msk|x
Kill(4) = bastleg.msk|x
Kill(5) = batbdel.msk|x
Kill(6) = bastnot.msk|x
Kill(7) = bastvet.rep|x
Kill(8) = bastpor.msk|x
Kill(9) = bastcve.msk|x
Kill(10) = batbpdb.msk|x
Kill(11) = batbpor.msk|x
Kill(12) = bastivd.msk|x
Kill(13) = batbind.msk|x
Kill(14) = batblbu.msk|x
Kill(15) = bastdpn.msk|x
Kill(16) = batbleg.msk|x
Kill(17) = bastcfi.msk|x
Kill(18) = batbdpn.msk|x
Kill(19) = bastcam.msk|x
Kill(20) = bastcco.msk|x
Kill(21) = batbvet.msk|x
Kill(22) = bastarb.msk|x
Kill(23) = bastesc.rep|x
Kill(24) = cg2fppro.msk|x
Kill(25) = bastver.msk|x
Kill(26) = batbtit.msk|x
Kill(27) = batbcco.msk|x
Kill(28) = bastzon.rep|x
Kill(29) = bastndo.msk|x
Kill(30) = bastreg.rep|x
Kill(31) = batbndo.msk|x
Kill(32) = bastscc.rep|x
Kill(33) = batbnot.msk|x
Kill(34) = batbscc.msk|x
Kill(35) = bastntb.rep|x
Kill(36) = batbivd.msk|x
Kill(37) = bastnot.rep|x
Kill(38) = batbtra.msk|x
Kill(39) = bastver.rep|x
Kill(40) = bastcam.rep|x
Kill(41) = batbmsp.msk|x
Kill(42) = bastmsp.rep|x
Kill(43) = bastvet.msk|x
Kill(44) = batbesc.msk|x
Kill(45) = bastpdb.msk|x
Kill(46) = bastleg.rep|x
Kill(47) = batblia.msk|x
Kill(48) = bastpdb.rep|x
Kill(49) = bastarb.rep|x
Kill(50) = bastcfi.rep|x
Kill(51) = bastntb.msk|x
Kill(52) = cgtbcon.msk|x
Kill(53) = bastcve.rep|x
Kill(54) = batbver.msk|x
Kill(55) = batbzon.msk|x
Kill(56) = batbcve.msk|x
Kill(57) = batbcam.msk|x
Kill(58) = bastesc.msk|x
Kill(59) = batbinl.msk|x
Kill(60) = bastivd.rep|x
Kill(61) = batbarb.msk|x
Kill(62) = bastmsp.msk|x
Kill(63) = bastscc.msk|x
Kill(64) = bastndo.rep|x
Kill(65) = bastdpn.rep|x
Kill(66) = bastzon.msk|x
Kill(67) = batblia.msk|x
Kill(68) = batbreg.msk|x
Kill(69) = bastreg.msk|x
Kill(70) = bastcco.rep|x
[cg]
Data = 26-07-2022
Descrizione = Contabilita' Generale
Dischi = 1
Edit_19 = cg0 -0
Edit_20 = cg0 -1
Edit_26 = cg0 -4
Edit_5 = cg0 -5
Moduli = ba
OEM =
Patch = 1186
PostProcess = bainst -0 CG
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

BIN
cd/test/cg1186a1.zip Normal file
View File

Binary file not shown.

5
cd/test/fp1186.txt Normal file
View File

@ -0,0 +1,5 @@
fp0.exe
Commento:
- Sistemati alcuni campi nel PAFW300, nello specifico: PW_TIPODOC, PW_TIPONUM
- Corretto un bug nell'invio integrazioni che stampava il rapportino di Campo anche se l'esportazione dell'integrazione non andava a buon fine

19
cd/test/fp1186a.ini Normal file
View File

@ -0,0 +1,19 @@
[Main]
Demo=0
[fp0]
File(0) = fp0.exe|X
Patch = 1186
Versione = 21511200
[fp]
Data = 26-07-2022
Descrizione = Fattura Elettronica
Dischi = 1
Moduli = cg,ve
OEM =
Patch = 1186
PostProcess =
PreProcess =
Versione = 21511200

BIN
cd/test/fp1186a1.zip Normal file
View File

Binary file not shown.

5
src/cg/cg2100.cpp
View File

@ -1909,7 +1909,10 @@ void TPrimanota_application::genera_automatico(int tipo, const char* causimm)
{
_automatico->_datadoc = m.get(F_DATAREG);
_automatico->_numdoc.cut(0);
_automatico->_numdoc << cached_registro(causreg.codice_registro()).protocol() + 1;
TRegistro & cr = (TRegistro &) cached_registro(causreg.codice_registro());
cr.reread();
_automatico->_numdoc << cr.protocol() + 1;
}
else
{

7
src/fp/fp0700.cpp
View File

@ -443,6 +443,7 @@ void TPAR_mask::export_paf()
const bool diagn = get_bool(F_DIAGN);
TReg_fp elab(EMPTY_STRING, !diagn);
TReport_book book;
bool err = false;
const TString8& reg_fisc = get(F_REG_FISC);
@ -475,7 +476,8 @@ void TPAR_mask::export_paf()
{
TString msg;
msg.format("La registrazione numero %ld non è stata esportata, continuare?", nreg);
msg.format("La registrazione numero %ld non e' stata esportata, continuare?", nreg);
err = true;
elab.log().log(2, msg);
if (!yesno_box(msg))
break;
@ -488,12 +490,13 @@ void TPAR_mask::export_paf()
TString msg;
msg.format("Errore durante il cambiamento di stato finale, potrebbero esser rimaste delle fatture in Pronto");
err = true;
elab.log().log(2, msg);
error_box(msg);
}
}
elab.show_log();
if (diagn)
if (diagn && !err)
{
print_reg();
}

46
src/fp/fplib01.cpp
View File

@ -701,12 +701,7 @@ TPaf_record::TPaf_record(const char* table) : _table(table), _key(15, ',')
constraint.rtrim(1);
constraint << 'Q';
// q << "SELECT col.[name] FROM sys.columns AS col \
// inner JOIN sys.index_columns AS idx on col.[object_id] = idx.[object_id] AND col.[column_id] = idx.[column_id] \
// inner join sys.indexes as K on idx.[index_id] = K.[index_id] \
// where K.[name] = '" << table << "_KEY' \
// AND idx.[object_id] = object_id('" << table << "') \
// ORDER BY index_column_id ASC";
q << "SELECT col.[name] FROM sys.columns AS col \
inner JOIN sys.index_columns AS idx on col.[object_id] = idx.[object_id] AND col.[column_id] = idx.[column_id] \
inner join sys.indexes as K on idx.[index_id] = K.[index_id] \
@ -2985,9 +2980,9 @@ TDoc_fp::~TDoc_fp()
| $$ | $$ \ $$| $$_____/| $$ | $$
| $$ | $$ | $$| $$$$$$$| $$$$$$$
|__/ |__/ |__/ \_______/ \____ $$
/$$ \ $$
| $$$$$$/
\______/
/$$ \ $$
| $$$$$$/
\______/
*/
bool TReg_fp::insert(TPaf_record& p, bool force)
@ -3564,11 +3559,6 @@ bool TReg_fp::reg_to_paf(const TMovimento_contabile& mov)
const TCodiceIVA& cod_iva = cached_codIVA(cod_aliquota);
const real aliquota = cod_iva.percentuale();
paf1800f.set("PI_NUMEROLINEA", (long)i);
//PI_TIPOCESSPREST CHAR(2) NOT NULL DEFAULT '', ci va?
//PI_DESCRIZIONE CHAR(100) NOT NULL DEFAULT '',
//PI_RIFAMMINISTR CHAR(20) NOT NULL DEFAULT '',
paf1800f.set("PI_DESCRIZIONE", descr);
paf1800f.set("PI_QUANTITA", 1l);
paf1800f.set("PI_PREZZOUNIT", rec_iva.get(RMI_IMPONIBILE));
@ -3595,8 +3585,8 @@ bool TReg_fp::reg_to_paf(const TMovimento_contabile& mov)
TPaf_record& pafw300f = _paf_container.get_paf("PAFW300F");
reset(pafw300f);
pafw300f.set("PW_TIPODOC", ""); //TODO PASSARE IL TIPO DOCUMENTO DELLA MASK NEL COSTRUTTORE
pafw300f.set("PW_TIPONUM", ""); //TODO COSA CI METTIAMO NEL TIPO NUM
pafw300f.set("PW_TIPODOC", _tipo_doc_sdi);
pafw300f.set("PW_TIPONUM", caus.reg().name()); //TODO COSA CI METTIAMO NEL TIPO NUM ava
pafw300f.set("PW_NUMERO", mov.get(MOV_NUMDOC));
pafw300f.set("PW_DATA", mov.get_date(MOV_DATADOC));
pafw300f.set("PW_CDEST", _coddest);
@ -3613,6 +3603,8 @@ bool TReg_fp::reg_to_paf(const TMovimento_contabile& mov)
else
pafw300f.set("PW_RAGSOC", fornitore.ragione_sociale().left(35));
pafw300f.set("PW_IMPO", mov.get_real(MOV_TOTDOC)); //TODO controllare ?????
pafw300f.set("PW_CXML", "");
pafw300f.set("PW_CXMLP", "");
pafw300f.set("PW_UPAG", "");
ok &= insert(pafw300f);
return _to_commit = (ok && save_paf());
@ -3625,7 +3617,17 @@ bool TReg_fp::reg_to_paf(long n_mov)
return reg_to_paf(mov);
}
//NON LE CAPISCO
bool TReg_fp::show_log()
{
TReport_book b;
TFilename name = "fp_err.log";
b.add(_log);
b.export_text(name);
return _log.preview();
}
//COSTRUTTORI E DISTRUTTORI
TReg_fp::TReg_fp(const char* tipo_doc_sdi, bool definitivo) : _cache_insert(false) , _tipo_doc_sdi(tipo_doc_sdi), _definitivo(definitivo)
{
@ -3656,13 +3658,3 @@ TReg_fp::~TReg_fp()
{
commit();
}
bool TReg_fp::show_log()
{
TReport_book b;
TFilename name = "fp_err.log";
b.add(_log);
b.export_text(name);
return _log.preview();
}