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

Merge remote-tracking branch 'origin/R_10_00' into R_10_00

Browse Source
This commit is contained in:
Simone Palacino 2019-06-11 09:50:17 +02:00
commit 37704d8ef8
5 changed files with 257 additions and 85 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -0,0 +1,5 @@
ve6.exe
ve0.exe
Nel caso di numero partita dal numero documento di riferimento è stato aggiunto il controllo che il fornitore sia lo stesso
quando cerca il documento di riferimento sui documenti.

130
cd/test/ve0818a.ini Normal file
View File

@ -0,0 +1,130 @@
[Main]
Demo=0
[ve1]
File(0) = ve0.exe|X
File(93) = ve6.exe|X
Patch = 818
Versione = 21511200
[ve99]
Kill(0) = batbimb.msk|x
Kill(1) = batbacr.msk|x
Kill(2) = batbums.msk|x
Kill(3) = batbeld.msk|x
Kill(4) = bastnum.msk|x
Kill(5) = basttri.msk|x
Kill(6) = batbfrm.msk|x
Kill(7) = batbcra.msk|x
Kill(8) = bastfrd.rep|x
Kill(9) = bastcra.rep|x
Kill(10) = ve7600a.msk|x
Kill(11) = ve7300a.msk|x
Kill(12) = bastfca.rep|x
Kill(13) = batbspt.msk|x
Kill(14) = basttip.rep|x
Kill(15) = ve7700a.msk|x
Kill(16) = bastimb.msk|x
Kill(17) = baststd.msk|x
Kill(18) = bastfrr.msk|x
Kill(19) = ve7500a.msk|x
Kill(20) = efstbnp.rep|x
Kill(21) = batbtri.msk|x
Kill(22) = batbrfa.msk|x
Kill(23) = batbasf.msk|x
Kill(24) = basteld.rep|x
Kill(25) = bastasf.rep|x
Kill(26) = batbmre.msk|x
Kill(27) = ve7200a.msk|x
Kill(28) = batbfrr.msk|x
Kill(29) = bastrfc.rep|x
Kill(30) = batbprv.msk|x
Kill(31) = bastums.rep|x
Kill(32) = bastcaa.msk|x
Kill(33) = batbgca.msk|x
Kill(34) = bastfca.msk|x
Kill(35) = ve7.exe|x
Kill(36) = ve7400conf.ini|x
Kill(37) = bastctr.msk|x
Kill(38) = bastrfa.rep|x
Kill(39) = bastfrr.rep|x
Kill(40) = batbfrd.msk|x
Kill(41) = ve7200a.frm|x
Kill(42) = bastfrm.rep|x
Kill(43) = batbpro.msk|x
Kill(44) = bastcau.msk|x
Kill(45) = bastums.msk|x
Kill(46) = basteld.msk|x
Kill(47) = batbubi.msk|x
Kill(48) = bastubi.rep|x
Kill(49) = ve7400a.ini|x
Kill(50) = batbtip.msk|x
Kill(51) = basttri.rep|x
Kill(52) = bastimb.rep|x
Kill(53) = basttag.msk|x
Kill(54) = bastasf.msk|x
Kill(55) = bastrfa.msk|x
Kill(56) = batbfid.msk|x
Kill(57) = ve7100a.msk|x
Kill(58) = batbspp.msk|x
Kill(59) = bastrfc.msk|x
Kill(60) = batbctr.msk|x
Kill(61) = bastabe.rep|x
Kill(62) = ve7300a.frm|x
Kill(63) = batbcaa.msk|x
Kill(64) = batbgcg.msk|x
Kill(65) = bastprs.msk|x
Kill(66) = bastubi.msk|x
Kill(67) = bastgmc.msk|x
Kill(68) = batbfsa.msk|x
Kill(69) = batbstd.msk|x
Kill(70) = bastnum.rep|x
Kill(71) = bastgcg.msk|x
Kill(72) = batbtag.msk|x
Kill(73) = batbrfc.msk|x
Kill(74) = batbnum.msk|x
Kill(75) = ve7701a.ini|x
Kill(76) = eftbbnp.msk|x
Kill(77) = bastabe.msk|x
Kill(78) = bastgca.rep|x
Kill(79) = batbbnp.msk|x
Kill(80) = basttag.rep|x
Kill(81) = bastspp.msk|x
Kill(82) = bastctr.rep|x
Kill(83) = batbcau.msk|x
Kill(84) = batbprs.msk|x
Kill(85) = bastcaa.rep|x
Kill(86) = bastcau.rep|x
Kill(87) = bastgca.msk|x
Kill(88) = ve7400a.msk|x
Kill(89) = baststd.rep|x
Kill(90) = batbabe.msk|x
Kill(91) = efstbnp.msk|x
Kill(92) = bastcra.msk|x
Kill(93) = batbgmc.msk|x
Kill(94) = bastfrd.msk|x
Kill(95) = bastbnp.rep|x
Kill(96) = basttip.msk|x
Kill(97) = bastprs.rep|x
Kill(98) = bastspp.rep|x
Kill(99) = batbcld.msk|x
Kill(100) = bastfrm.msk|x
Kill(101) = batbgsa.msk|x
Kill(102) = bastgmc.rep|x
Kill(103) = bastbnp.msk|x
Kill(104) = bastgcg.rep|x
Kill(105) = batbfca.msk|x
[ve]
Data = 03-05-2019
Descrizione = Vendite
Dischi = 1
Moduli = ba,cg9,pr9,mg9,sv9,in9,ef9
OEM =
Patch = 818
PostProcess = bainst -0 VE
PreProcess =
Prezzo(1) =
Prezzo(2) =
Versione = 21511200

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

Binary file not shown.

17
src/ve/velib04b.cpp
View File

@ -537,6 +537,7 @@ static TBill _co_cliente, // conto clifo per movimento d'anticipo
static bool _numpart_pro; // se true prende il numero rif. partita dal numero protocollo
static bool _numpart_mon; // se true prende il numero rif. partita dal mese
static char _part_type; // tipi di numero partita "D" codcumento, "P" protocollo IVA, "M" Mese
static bool _part_acq_ndoc; // numero partita acquisti acquisti numero doc
static bool _sc_enabled; // se true il saldaconto di ditta è abilitato
static bool _in_enabled; // se true l'intra è abilitato
static TToken_string* _search_seq = NULL;
@ -2701,8 +2702,9 @@ error_type TContabilizzazione::write_scadenze(TDocumento& doc, bool recontabiliz
// int anno = head.get_int(MOV_ANNOIVA);
int anno = 0;
TString8 numpart; // Max. 7 chars
const TString4 tipocf = doc.get(DOC_TIPOCF);
if (doc.get(DOC_TIPOCF) == "F" || is_nc)
if (tipocf == "F" || is_nc)
{
anno = doc.get_int(DOC_ANNORIF);
numpart = doc.get(DOC_NUMDOCRIF);
@ -2725,7 +2727,16 @@ error_type TContabilizzazione::write_scadenze(TDocumento& doc, bool recontabiliz
keydoc.add(codnum);
keydoc.add(numpart);
const long numreg = atol(cache().get(LF_DOC, keydoc, DOC_NUMREG));
const TRectype & docrif = cache().get(LF_DOC, keydoc);
const TString4 & tipocfrif = docrif.get(DOC_TIPOCF);
if (tipocf == tipocfrif)
{
const long codcf = docrif.get_long(DOC_CODCF);
if (codcf == doc.get_long(DOC_CODCF))
{
const long numreg = docrif.get_long( DOC_NUMREG);
if (numreg > 0)
{
@ -2740,6 +2751,8 @@ error_type TContabilizzazione::write_scadenze(TDocumento& doc, bool recontabiliz
}
}
}
}
}
if (anno <= 0 || numpart.blank())
{
switch (_part_type)

32
src/ve/velib04c.cpp
View File

@ -518,7 +518,9 @@ long TGenerazione_effetti::group_bills(TAssoc_array& group_array, bool interatti
if (numpart_mon)
part_type = 'M';
if (doc.get(DOC_TIPOCF) == "F" || is_nota_credito)
const TString4 tipocf = doc.get(DOC_TIPOCF);
if (tipocf == "F" || is_nota_credito)
{
anno = doc.get_int(DOC_ANNORIF);
numpart = doc.get(DOC_NUMDOCRIF); // Max. 7 chars
@ -541,7 +543,16 @@ long TGenerazione_effetti::group_bills(TAssoc_array& group_array, bool interatti
keydoc.add(codnum);
keydoc.add(numpart);
const long numreg = atol(cache().get(LF_DOC, keydoc, DOC_NUMREG));
const TRectype & docrif = cache().get(LF_DOC, keydoc);
const char tipocfrif = docrif.get_char(DOC_TIPOCF);
if (tipocf == tipocfrif)
{
const long codcf = docrif.get_long(DOC_CODCF);
if (codcf == doc.get_long(DOC_CODCF))
{
const long numreg = docrif.get_long(DOC_NUMREG);
if (numreg > 0)
{
@ -556,6 +567,8 @@ long TGenerazione_effetti::group_bills(TAssoc_array& group_array, bool interatti
}
}
}
}
}
if (anno <= 0 || numpart.blank())
{
switch (part_type)
@ -801,7 +814,7 @@ void TGenerazione_effetti::generate_bill(TDocumento& doc, bool interattivo) // b
if (numpart_mon)
part_type = 'M';
if (doc.get(DOC_TIPOCF) == "F" || is_nota_credito)
if (tipocf == 'F' || is_nota_credito)
{
anno = doc.get_int(DOC_ANNORIF);
numpart = doc.get(DOC_NUMDOCRIF); // Max. 7 chars
@ -824,7 +837,16 @@ void TGenerazione_effetti::generate_bill(TDocumento& doc, bool interattivo) // b
keydoc.add(codnum);
keydoc.add(numpart);
const long numreg = atol(cache().get(LF_DOC, keydoc, DOC_NUMREG));
const TRectype & docrif = cache().get(LF_DOC, keydoc);
const char tipocfrif = docrif.get_char(DOC_TIPOCF);
if (tipocf == tipocfrif)
{
const long codcf = docrif.get_long(DOC_CODCF);
if (codcf == doc.get_long(DOC_CODCF))
{
const long numreg = docrif.get_long(DOC_NUMREG);
if (numreg > 0)
{
@ -839,6 +861,8 @@ void TGenerazione_effetti::generate_bill(TDocumento& doc, bool interattivo) // b
}
}
}
}
}
if (anno <= 0 || numpart.blank())
{
switch (part_type)