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

Patch level :2.2 622 (per csa)

Browse Source 
Files correlati     :cg7.exe proforma.ini cg7200a.ini
Ricompilazione Demo : [ ]
Commento            :corretto filtro sulle date; gestione del totdoc senza iva corretta; aggiunto il file di configurazione (sono tutti riporti dalla 4.0)


git-svn-id: svn://10.65.10.50/trunk@14063 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2006-06-12 17:50:50 +00:00
parent 492fdd83d7
commit df47a791a5
2 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
cg/cg7200.cpp
View File

@ -94,7 +94,7 @@ void TInvioP_mask::config_loader(TSheet_field& sf, const char* paragrafo)
//carica file configurazione conti; attenzione!!!il file di configurazione in questione e' il //carica file configurazione conti; attenzione!!!il file di configurazione in questione e' il
//medesimo del programma per la stampa del pagato in contabilita' analitica, visto che i due //medesimo del programma per la stampa del pagato in contabilita' analitica, visto che i due
//programmi necessitano degli stessi conti //programmi necessitano degli stessi conti
TFilename configname = "ca3600.ini"; TFilename configname = "ca3600a.ini";
configname.custom_path(); configname.custom_path();
TConfig configfile(configname, paragrafo); TConfig configfile(configname, paragrafo);
@ -122,7 +122,7 @@ void TInvioP_mask::config_loader(TSheet_field& sf, const char* paragrafo)
void TInvioP_mask::config_setter(TSheet_field& sf, const char* paragrafo) void TInvioP_mask::config_setter(TSheet_field& sf, const char* paragrafo)
{ {
TFilename configname = "ca3600.ini"; TFilename configname = "ca3600a.ini";
configname.custom_path(); configname.custom_path();
TConfig configfile(configname, paragrafo); TConfig configfile(configname, paragrafo);
@ -512,7 +512,7 @@ bool TInvioP::i_proforma_righe(TCursor& cur, TInvioP_file* trasfilerighe)
cur_rmovana.curr() = riga; cur_rmovana.curr() = riga;
//carica le righe analitiche //carica le righe analitiche
trasfilerighe->autoload(recrighe, cur_rmovana); trasfilerighe->autoload(recrighe, cur_rmovana);
//tglie le righe contabili corrispondenti che sono appena state aggiunte con la autoload (sarebbero.. //toglie le righe contabili corrispondenti che sono appena state aggiunte con la autoload (sarebbero..
//..duplicate se non lo facesse!!!) //..duplicate se non lo facesse!!!)
conti_importi.sottrai(riga); conti_importi.sottrai(riga);
@ -867,7 +867,7 @@ bool TInvioP::cerca_sociali(const TBill& bill) const
void TInvioP::lettura_conti(TAssoc_array& assoc, const char tipoconto) void TInvioP::lettura_conti(TAssoc_array& assoc, const char tipoconto)
{ {
TConfig conti("ca3600.ini","Pdcc"); //paragrafo da scandire nell'ini TConfig conti("ca3600a.ini","Pdcc"); //paragrafo da scandire nell'ini
TAssoc_array& vars = conti.list_variables(); TAssoc_array& vars = conti.list_variables();
FOR_EACH_ASSOC_STRING(vars, h, k, val) //riempie l'assoc con i soli valori del paragrafo dell'ini FOR_EACH_ASSOC_STRING(vars, h, k, val) //riempie l'assoc con i soli valori del paragrafo dell'ini
@ -954,19 +954,29 @@ real TInvioP::calcola_pagamento(TRectype& curpag_rec)
if (conto.tipo() > ' ') if (conto.tipo() > ' ')
totdoc -= importo.valore(); totdoc -= importo.valore();
else else
{
if (cerca_fiscali(conto) || cerca_sociali(conto)) if (cerca_fiscali(conto) || cerca_sociali(conto))
totdoc -= importo.valore(); //valore da stampare nella colonna Tot.fattura con ritenute totdoc -= importo.valore(); //valore da stampare nella colonna Tot.fattura con ritenute
else else
if (rmov.get_char(RMV_ROWTYPE) != 'T' && conto.indicatore_bilancio() != 5)
{ {
imponibile += importo.valore(); if (rmov.get_char(RMV_ROWTYPE) != 'T' && conto.indicatore_bilancio() != 5)
totdoc += importo.valore(); {
imponibile += importo.valore();
totdoc += importo.valore();
}
} }
} } //else di if (conto.tipo()
} //for (int i = 0...
//tanti calcoli per nulla?
const real totdoc_testata = totale_documento(pn.curr());
if (totdoc_testata != ZERO)
totdoc = totdoc_testata;
} //end di else pn.iva_items()... } //end di else pn.iva_items()...
real percentuale = imponibile / totdoc; real percentuale = imponibile / totdoc;
totpagato *= percentuale; totpagato *= percentuale;
totpagato.round(2);
} }
} }
return totpagato; return totpagato;
@ -978,8 +988,8 @@ bool TInvioP::i_proforma_pagamenti()
TRectype da(LF_MOV); TRectype da(LF_MOV);
TRectype a(LF_MOV); TRectype a(LF_MOV);
da.put(MOV_DATACOMP, _dataini); da.put(MOV_DATAREG, _dataini);
a.put(MOV_DATACOMP, _datafin); a.put(MOV_DATAREG, _datafin);
TRelation rel(LF_MOV); TRelation rel(LF_MOV);
rel.add(LF_CAUSALI, "CODCAUS==CODCAUS"); rel.add(LF_CAUSALI, "CODCAUS==CODCAUS");
TCursor cur(&rel, "", 2, &da, &a); TCursor cur(&rel, "", 2, &da, &a);

5
cg/cg7200a.ini
View File

@ -1,4 +1,5 @@
[OPZIONI] [OPZIONI]
DATA = CONFSTRINGA =
PERCORSO = DATA =
PERCORSO =