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

Patch level :

Browse Source 
Files correlati     : ps0017.exe
Ricompilazione Demo : [ ]
Commento            :


Incassi Dinamica


git-svn-id: svn://10.65.10.50/branches/R_10_00@21437 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-01-17 11:38:18 +00:00
parent 03412607e1
commit 29ec2137f6
3 changed files with 146 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
ps/ps0017100.cpp
View File

@ -9,6 +9,8 @@
#include <clifo.h> #include <clifo.h>
#include <cfven.h> #include <cfven.h>
#include <partite.h>
#include <rmov.h>
#include <doc.h> #include <doc.h>
#include <mov.h> #include <mov.h>
#include "../ca/calib01.h" #include "../ca/calib01.h"
@ -48,7 +50,7 @@ public:
void sort_sheet(); void sort_sheet();
void update_total(); void update_total();
TRectype& new_row_effetto(TDistinta& dist, char tipocf, long codcf, TRectype& new_row_effetto(TDistinta& dist, char tipocf, long codcf, const TString & cup, const TString & cig,
int& rigadist, int& rigaeff) const; int& rigadist, int& rigaeff) const;
long get_free_num() const; long get_free_num() const;
void save_rate(); void save_rate();
@ -218,6 +220,27 @@ bool TPE_mask::fill_row(const TRiga_scadenze& rs, TToken_string& row, bool& part
case 9:row.add(TR("Bonifico")); break; case 9:row.add(TR("Bonifico")); break;
default: break; default: break;
} }
TRiga_partite& rp = rs.riga();
TString cup;
TString cig;
const long numreg = rp.get_long(PART_NREG);
if (numreg > 0)
{
TToken_string key;
key.add(numreg);
key.add(1);
const TRectype & rmov = cache().get(LF_RMOV, key);
cup = rmov.get(RMV_CUP);
cig = rmov.get(RMV_CIG);
}
row.add(cup);
row.add(cig);
} }
return ok; return ok;
} }
@ -332,7 +355,7 @@ bool TPE_mask::fill_rate()
const TDate adata = get(F_A_DATA); const TDate adata = get(F_A_DATA);
const TString& codval = get(F_CODVAL); const TString& codval = get(F_CODVAL);
TSheet_field& sheet = sfield(F_SHEET); TSheet_field& sheet = sfield(F_SHEET);
sheet.destroy(); // sheet.destroy();
TString commessa; TString commessa;
TString cdc; TString cdc;
@ -449,7 +472,7 @@ bool TPE_mask::fill_distinta(bool clear_all)
const bool dist_cont = dist.contabilizzata(); const bool dist_cont = dist.contabilizzata();
if (dist.items() > 0) if (dist.items() > 0)
{ {
TToken_string row; int rows = 0;
for (int e = 0; e < dist.items(); e++) for (int e = 0; e < dist.items(); e++)
{ {
const TEffetto& eff = dist[e]; const TEffetto& eff = dist[e];
@ -468,13 +491,15 @@ bool TPE_mask::fill_distinta(bool clear_all)
{ {
TRiga_scadenze& rs = game.rata(nriga, nrata); TRiga_scadenze& rs = game.rata(nriga, nrata);
bool partially_unassigned; bool partially_unassigned;
if (fill_row(rs, row, partially_unassigned, dist_cont, clear_all)) TToken_string& row = sheet.row(rows++);
if (fill_row(rs, row, partially_unassigned, dist_cont, clear_all))
{ {
const int numrow = insert_row(row); row.add(eff.get(EFF_CUP), sheet.cid2index(F_CUP));
row.add(eff.get(EFF_CIG), sheet.cid2index(F_CIG));
if (partially_unassigned) if (partially_unassigned)
sheet.disable_cell(numrow, 1); // Non e' possibile mettere saldo sheet.disable_cell(r - 1, 1); // Non e' possibile mettere saldo
if (dist_cont) if (dist_cont)
sheet.disable_cell(numrow, -1); // Non e' possibile modificare nulla sheet.disable_cell(r - 1, -1); // Non e' possibile modificare nulla
} }
} }
else else
@ -516,7 +541,7 @@ bool TPE_mask::fill_distinta(bool clear_all)
return full; return full;
} }
TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf, TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf, const TString & cup, const TString & cig,
int& rigadist, int& rigaeff ) const int& rigadist, int& rigaeff ) const
{ {
TString16 codice; codice << tipocf << '|' << codcf; TString16 codice; codice << tipocf << '|' << codcf;
@ -528,12 +553,22 @@ TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf,
for (int i = 0; i < dist.items(); i++) for (int i = 0; i < dist.items(); i++)
{ {
TEffetto& eff = dist[i]; TEffetto& eff = dist[i];
if (eff.get_char(EFF_TIPOCF) == tipocf && if (eff.get_char(EFF_TIPOCF) == tipocf && eff.get_long(EFF_CODCF) == codcf)
eff.get_long(EFF_CODCF) == codcf)
{ {
neweff = &eff; bool found = true;
rigadist = i+1;
break; if (main_app().has_module(CUAUT))
{
const TString & eff_cup = eff.get(EFF_CUP);
found = (cup == eff_cup) && (cig == eff.get(EFF_CIG));
}
if (found)
{
neweff = &eff;
rigadist = i+1;
break;
}
} }
} }
} }
@ -547,7 +582,9 @@ TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf,
neweff->put(EFF_CODVAL, get(F_CODVAL)); neweff->put(EFF_CODVAL, get(F_CODVAL));
neweff->put(EFF_CAMBIO, get(F_CAMBIO)); neweff->put(EFF_CAMBIO, get(F_CAMBIO));
neweff->put(EFF_DATACAMBIO, get(F_DATACAMBIO)); neweff->put(EFF_DATACAMBIO, get(F_DATACAMBIO));
} neweff->put(EFF_CUP, cup);
neweff->put(EFF_CIG, cig);
}
rigaeff = neweff->rows_r()+1; rigaeff = neweff->rows_r()+1;
return neweff->row_r(rigaeff, TRUE); return neweff->row_r(rigaeff, TRUE);
} }
@ -596,13 +633,15 @@ void TPE_mask::save_rate()
char accsal = row->get_char(sheet.cid2index(F_ACCSAL)); char accsal = row->get_char(sheet.cid2index(F_ACCSAL));
int rigadist = row->get_int(sheet.cid2index(F_RIGADIST)); int rigadist = row->get_int(sheet.cid2index(F_RIGADIST));
int rigaeff = row->get_int(sheet.cid2index(F_RIGAEFF)); int rigaeff = row->get_int(sheet.cid2index(F_RIGAEFF));
const TString cup = row->get(sheet.cid2index(F_CUP));
const TString cig = row->get(sheet.cid2index(F_CIG));
if (rigaeff > 0 || accsal == 'S' || imp > ZERO) if (rigaeff > 0 || accsal == 'S' || imp > ZERO)
{ {
if (rigaeff <= 0) if (rigaeff <= 0)
{ {
long codcf = row->get_long(sheet.cid2index(F_CODCF)); long codcf = row->get_long(sheet.cid2index(F_CODCF));
TRectype& reff = new_row_effetto(distinta, 'C', codcf, rigadist, rigaeff); TRectype& reff = new_row_effetto(distinta, 'C', codcf, cup, cig, rigadist, rigaeff);
reff.put(REFF_ANNO, row->get(sheet.cid2index(F_ANNO))); reff.put(REFF_ANNO, row->get(sheet.cid2index(F_ANNO)));
reff.put(REFF_NUMPART, row->get(sheet.cid2index(F_PARTITA))); reff.put(REFF_NUMPART, row->get(sheet.cid2index(F_PARTITA)));
reff.put(REFF_NRIGA, row->get(sheet.cid2index(F_RIGA))); reff.put(REFF_NRIGA, row->get(sheet.cid2index(F_RIGA)));
@ -655,6 +694,8 @@ void TPE_mask::save_rate()
} }
TEffetto& eff = distinta[rigadist-1]; TEffetto& eff = distinta[rigadist-1];
eff.put(EFF_CUP, cup);
eff.put(EFF_CIG, cig);
TRectype& reff = eff.row_r(rigaeff); TRectype& reff = eff.row_r(rigaeff);
real oldimp = reff.get(REFF_IMPORTO); real oldimp = reff.get(REFF_IMPORTO);
real oldimpval = reff.get(REFF_IMPORTOVAL); real oldimpval = reff.get(REFF_IMPORTOVAL);

4
ps/ps0017100a.h
View File

@ -42,3 +42,7 @@
#define F_RIGADIST 111 #define F_RIGADIST 111
#define F_RIGAEFF 112 #define F_RIGAEFF 112
#define F_DESC_TIPO 113 #define F_DESC_TIPO 113
#define F_CUP 114
#define F_DCUP 115
#define F_CIG 116
#define F_DCIG 117

98
ps/ps0017100a.uml
View File

@ -2,27 +2,38 @@
TOOLBAR "" 0 0 0 2 TOOLBAR "" 0 0 0 2
BUTTON F_UNCONTABIL 2 2 BUTTON DLG_NEWREC 10 2
BEGIN BEGIN
PROMPT 1 1 "~Annulla cont." PROMPT -16 -1 "~Nuovo"
PICTURE TOOL_CONVERT PICTURE BMP_NEWREC
FLAGS "H" PICTURE BMP_NEWRECDN
GROUP 3
END END
BUTTON F_CONTABILI 2 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT 2 1 "~Contabiliz." PROMPT -26 -1 "~Registra"
PICTURE TOOL_ELABORA
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -36 -1 "~Elimina"
PICTURE BMP_DELREC
PICTURE BMP_DELRECDN
GROUP 5 GROUP 5
END END
BUTTON DLG_PRINT 2 2 BUTTON DLG_PRINT 10 2
BEGIN BEGIN
PROMPT 3 1 "" PROMPT -46 -1 ""
PICTURE TOOL_PRINT PICTURE BMP_PRINT
END END
#include <relapbar.h> #include <cancelbar.h>
ENDPAGE ENDPAGE
@ -215,9 +226,21 @@ BEGIN
PICTURE BMP_SELECT PICTURE BMP_SELECT
END END
BUTTON F_CONTABILI 30 1
BEGIN
PROMPT 2 8 "~Contabilizzazione"
GROUP 5
END
BUTTON F_UNCONTABIL 30 1
BEGIN
PROMPT 47 8 "~Annulla contabilizzazione"
FLAGS "H"
END
SPREADSHEET F_SHEET 0 -2 SPREADSHEET F_SHEET 0 -2
BEGIN BEGIN
PROMPT 0 8 "" PROMPT 0 9 ""
ITEM "Importo@18" ITEM "Importo@18"
ITEM "A/S@3" ITEM "A/S@3"
ITEM "Residuo@18" ITEM "Residuo@18"
@ -231,6 +254,10 @@ BEGIN
ITEM "Riga" ITEM "Riga"
ITEM "Effetto" ITEM "Effetto"
ITEM "Tipo Pagamento@20" ITEM "Tipo Pagamento@20"
ITEM "CUP@15"
ITEM "Descrizione CUP@50"
ITEM "CIG@10"
ITEM "Descrizione CIG@50"
END END
CURRENCY F_TOTAL 18 CURRENCY F_TOTAL 18
@ -350,6 +377,53 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
STRING F_CUP 22
BEGIN
PROMPT 1 8 "CUP "
USE %CUP
INPUT CODTAB F_CUP
DISPLAY "Codice@22" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CUP CODTAB
OUTPUT F_DCUP S0
FIELD CUP
CHECKTYPE NORMAL
END
STRING F_DCUP 50 30
BEGIN
PROMPT 40 8 ""
USE %CUP KEY 2
INPUT S0 F_DCUP
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@22" CODTAB
COPY OUTPUT F_CUP
END
STRING F_CIG 10
BEGIN
PROMPT 1 9 "CIG "
USE %CIG
INPUT CODTAB F_CIG
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Codice gara" S1
OUTPUT F_CIG CODTAB
OUTPUT F_DCIG S0
FIELD CIG
CHECKTYPE NORMAL
END
STRING F_DCIG 50 30
BEGIN
PROMPT 40 9 ""
USE %CIG KEY 2
INPUT S0 F_DCIG
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@10" CODTAB
COPY OUTPUT F_CIG
END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""