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

Patch level : 10.0 109

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento           :

Riportata la versione 3.2 1208


git-svn-id: svn://10.65.10.50/trunk@17099 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2008-08-27 09:06:46 +00:00
parent adf4cd9228
commit c485d4bf4d
6 changed files with 39 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ce/ce3900.cpp
View File

@ -4,6 +4,12 @@
#include <recarray.h>
#include <reprint.h>
#include "celib.h"
#include "ce2101.h"
#include "ce3.h"
#include "ce3900.h"
#include "../cg/cglib01.h"
#include "ammce.h"
@ -12,11 +18,6 @@
#include "movam.h"
#include "movce.h"
#include "salce.h"
#include "celib.h"
#include "ce2101.h"
#include "ce3.h"
#include "ce3900.h"
////////////////////////////////////////////////////////
// MASCHERA
@ -229,16 +230,17 @@ bool TStampa_sintetica_rep::get_usr_val(const TString& name, TVariant& var) cons
return true;
}
if (name == "#PERCAMM") //percentuale ammortamento
if (name == "#PERCAMM") // percentuale ammortamento
{
real percamm;
const real valamm = _cespite.val_amm();
const real valamm = val_amm(_cespite.sal_ini());
if (valamm > ZERO)
{
TVariant qamm, qammmv;
get_usr_val("#QAMM", qamm);
get_usr_val("#QAMMMV", qammmv);
percamm = CENTO * (qamm.as_real() + qammmv.as_real()) / valamm;
percamm.round(1);
}
var = percamm;
return true;

4
ce/ce3900a.rep
View File

@ -197,13 +197,13 @@ MESSAGE ADD,F3.105
MESSAGE ADD,F4.105</postscript>
</field>
<field x="145" type="Valuta" align="right" width="12" id="106" pattern="1" text="#########,@@">
<source>#CESSELIM</source>
<source>#CESSELIM+#QAMMMV</source>
<postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F2.106
MESSAGE ADD,F3.106
MESSAGE ADD,F4.106</postscript>
</field>
<field x="158" type="Valuta" align="right" width="12" id="107" pattern="1" text="#########,@@">
<source>#104+#105-#106-#QAMMMV</source>
<source>#104+#105-#106</source>
<postscript description="B1.107 POSTSCRIPT">MESSAGE ADD,F2.107
MESSAGE ADD,F3.107
MESSAGE ADD,F4.107</postscript>

20
cg/cg2100.cpp
View File

@ -1761,6 +1761,26 @@ void TPrimanota_application::ini2mask(TConfig& ini, TMask& msk, bool query)
add_not_empty(row, 2, ini, SCAD_IMPORTOVAL);
pag_notify(pag, i, K_ENTER);
}
// In inserimento tento di riempire anche le scadenze
if (i == 0 && msk.insert_mode())
{
TString4 codpag = msk.get(F_CODPAG);
if (codpag.empty())
{
TToken_string key;
key = iva() == iva_acquisti ? "F" : "C";
key.add(ini.get(MOV_CODCF, "23"));
codpag = cache().get(LF_CLIFO, key, CLI_CODPAG);
}
if (codpag.full())
{
msk.set(FS_RECALC, "X"); // Forza ricalcolo automatico
msk.set(F_CODPAG, codpag);
set_scadenze(msk);
}
}
pagamento().set_sheet(pag);
}
}

12
cg/cg6900.cpp
View File

@ -18,8 +18,8 @@ TInv_cont::TInv_cont(char mov) : _scelta(toupper(mov))
{
switch (_scelta)
{
case 'S': _titolo = "Invio a Sistema"; break;
case 'P': _titolo = "Invio a PC"; break;
case 'S': _titolo = TR("Invio a Sistema"); break;
case 'P': _titolo = TR("Invio a PC"); break;
default : break;
}
}
@ -55,9 +55,9 @@ void TInv_cont::main_loop()
TString uselab = _tras_file.ult_file();
TString chiave = _tras_file.key();
msk->set(F_USELAB, uselab);
msk->set(F_CHIAVE, chiave);
msk->set(F_DATALIM, _data.string());
msk->set(F_USELAB, uselab);
msk->set(F_CHIAVE, chiave);
msk->set(F_DATALIM, _data.string());
msk->disable(F_DATALIM);
if (_scelta == 'S' && _ditta > 9999)
@ -91,7 +91,7 @@ void TInv_cont::main_loop()
return;
}
_dittaAS = msk->get_long(F_DITTAAS); //Se la ditta per l'invio ad AS non viene compilata perche' trattasi di invio a PC
_dittaAS = msk->get_long(F_DITTAAS);//Se la ditta per l'invio ad AS non viene compilata perche' trattasi di invio a PC
if (_dittaAS == 0) //o perche' il codice e' di 4, gli assegno la ditta corrente. Nel caso di invio a
_dittaAS = _ditta; //PC non servirebbe il codice aggiuntivo, ma lo metto ugualmente per avere una situazione analoga

2
cg/cg6904.cpp
View File

@ -1105,7 +1105,7 @@ void TInv_cont::invio_righe_IVA()
// record.overwrite(_triva->get(RMI_CODCMS),118);
// record.overwrite(_triva->get(RMI_FASCMS),138);
record.overwrite(_triva->get(RMI_NAVP),148);
record.overwrite(_triva->get(RMI_NAVP), 148)
_numrec_iva++;

2
cg/cgtrc.ini
View File

@ -35,7 +35,7 @@
# 1 10 Nome studio inviante
# 11 14 Codice ditta inviante
# 15 17 Numero progressivo di invio
# 18 23 Data del trasferimento
# 18 23 Data del trasferimento (AAMMGG)
# 24 29 Numero totale di record trasferiti
# 30 31 Numero totale dischetti
# 32 33 Numero dischetto corrente