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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
iniziata personalizzazione habilita


git-svn-id: svn://10.65.10.50/trunk@20336 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-04-15 08:26:27 +00:00
parent c6e7c5df0b
commit 44c062708a
6 changed files with 516 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ps/pd6342.cpp Executable file
View File

@ -0,0 +1,15 @@
#include <xvt.h>
#include "pd6342.h"
int main(int argc, char** argv)
{
int n = argc > 1 ? atoi(argv[1]+1) : 0;
switch(n)
{
case 0:
default:
pd6342100(argc, argv); break; //stampa costi/ricavi mensili per Habilita
}
return 0;
}

2
ps/pd6342.h Executable file
View File

@ -0,0 +1,2 @@
int pd6342100(int argc, char* argv[]);

350
ps/pd6342100.cpp Executable file
View File

@ -0,0 +1,350 @@
#include <applicat.h>
#include <defmask.h>
#include <dongle.h>
#include <modaut.h>
#include <progind.h>
#include <recset.h>
#include <reprint.h>
#include <textset.h>
#include "pd6342.h"
#include "pd6342100a.h"
#include "../ca/movana.h"
#include "../ca/rmovana.h"
#include "../ca/calib01.h"
#include "../ca/calib02.h"
///////////////////////////////////////////////////////////
// MASCHERA
///////////////////////////////////////////////////////////
class TPrint_cosric_month_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TPrint_cosric_month_mask();
virtual ~TPrint_cosric_month_mask() {}
};
TPrint_cosric_month_mask::TPrint_cosric_month_mask() : TAutomask("pd6342100a")
{
int nfields = ca_create_fields(*this, 0, LF_COMMESSE, 2, 4, F_CMS, F_CMS + 100, 0x0, "#CMS");
for (int i = 0; i < nfields; i++)
{
TMask_field& dacms = field(F_CMS + i);
dacms.set_group(1);
dacms.check_type(CHECK_NORMAL);
}
//conti
ca_create_fields(*this, 0, LF_PCONANA, 2, 7, F_DACONTO, F_DACONTO + 100, 0x0, "#DACONTO");
nfields = ca_create_fields(*this, 0, LF_PCONANA, 2, 11, F_ACONTO, F_ACONTO + 100, 0x0, "#ACONTO");
for (int i = 0; i < nfields; i++)
{
TMask_field& daconto = field(F_DACONTO + i);
daconto.set_group(1);
daconto.check_type(CHECK_NORMAL);
TMask_field& aconto = field(F_ACONTO + i);
aconto.set_group(2);
aconto.check_type(CHECK_NORMAL);
}
}
bool TPrint_cosric_month_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch(o.dlg())
{
case DLG_PRINT:
if (e == fe_button)
{
main_app().print();
return false;
}
break;
case DLG_PREVIEW:
if (e == fe_button)
{
main_app().preview();
return false;
}
break;
default:
break;
}
return true;
}
////////////////////////////////////////////////////////
// REPORT
////////////////////////////////////////////////////////
class TPrint_cosric_month_report : public TAnal_report
{
protected:
virtual bool use_mask() { return false; }
public:
TPrint_cosric_month_report() {}
};
////////////////////////////////////////////////////////
// RECORDSET
////////////////////////////////////////////////////////
class TPrint_cosric_month_recordset : public TAS400_recordset
{
public:
bool crea_nuova_riga(const TString& codcms, const TString& codfase, const TString& codconto, TArray& importi);
TPrint_cosric_month_recordset();
};
TPrint_cosric_month_recordset::TPrint_cosric_month_recordset()
: TAS400_recordset("AS400(280)")
{
create_field(RMOVANA_CODCMS, -1, 20, _alfafld, true);
create_field(RMOVANA_CODFASE, -1, 10, _alfafld);
create_field(RMOVANA_CODCONTO, -1, 20, _alfafld, true);
TString16 month_string;
for (int i = 1; i <= 12; i++)
{
month_string.format("IMPORTO_%02d", i);
create_field(month_string, -1, 18, _realfld);
month_string.format("SEZIONE_%02d", i);
create_field(month_string, -1, 1, _alfafld);
}
}
bool TPrint_cosric_month_recordset::crea_nuova_riga(const TString& codcms, const TString& codfase,
const TString& codconto, TArray& importi)
{
new_rec("");
set(RMOVANA_CODCMS, codcms);
set(RMOVANA_CODFASE, codfase);
set(RMOVANA_CODCONTO, codconto);
TString16 month_string;
for (int i = 1; i <= 12; i++)
{
const TImporto& importo = (const TImporto&)importi[i - 1];
if (!importo.is_zero())
{
month_string.format("IMPORTO_%02d", i);
real imp = importo.valore();
imp.round(2);
set(month_string, imp);
month_string.format("SEZIONE_%02d", i);
TString4 sez;
sez << importo.sezione();
set(month_string, sez);
}
}
return true;
}
///////////////////////////////////////////////////////////
// APPLICAZIONE
///////////////////////////////////////////////////////////
class TPrint_cosric_month : public TSkeleton_application
{
TPrint_cosric_month_mask* _mask;
bool _has_ca;
protected:
virtual bool check_autorization() const {return false;}
virtual const char * extra_modules() const {return "ca";}
virtual bool create();
virtual void print();
virtual void preview();
virtual void print_or_preview(const bool stampa);
TPrint_cosric_month_recordset* elabora() const;
public:
virtual void main_loop();
};
TPrint_cosric_month_recordset* TPrint_cosric_month::elabora() const
{
//creazione dell'as400 recordset che verra' riempito dai record del recordset righe
TPrint_cosric_month_recordset* printset = new TPrint_cosric_month_recordset();
//creazione della query per la creazione del recordset
TString query;
query << "USE RMOVANA KEY 4\n";
query << "SELECT (ANNOES=#ANNOES)&&(BETWEEN(CODCONTO,#DACONTO,#ACONTO))\n";
query << "JOIN MOVANA INTO NUMREG==NUMREG\n";
query << "FROM CODCMS=#CMS\n";
query << "TO CODCMS=#CMS";
TISAM_recordset recset(query);
recset.set_var("#CMS", TVariant(_mask->get(F_CMS)));
recset.set_var("#ANNOES", TVariant(_mask->get(F_ANNO)));
TString80 dacontone, acontone;
//c'e' un range di conti da considerare?
const short dlg_da = F_DACONTO;
const short dlg_al = F_ACONTO;
for (int i = 0; _mask->id2pos(dlg_da + i) > 0; i++)
{
dacontone << _mask->get(dlg_da + i);
acontone << _mask->get(dlg_al + i);
}
recset.set_var("#DACONTO", TVariant(dacontone));
recset.set_var("#ACONTO", TVariant(acontone));
const long recset_items = recset.items();
if (recset_items > 0)
{
TAssoc_array commesse_fasi; //assoc_array con chiave cms-fase-conto e un simpatico array dei 12 importi dei mesi per quella chiave
TToken_string key; //chiave assoc_array
TProgind pi(recset_items, TR("Elaborazione dati per la stampa..."), true, true);
//Scansione delle righe analitiche filtrate...
const TRectype& rmovana = recset.cursor()->curr();
const TRectype& movana = recset.cursor()->curr(LF_MOVANA);
for (bool ok = recset.move_first(); ok; ok = recset.move_next())
{
if (!pi.addstatus(1))
break;
//questo per adesso non serve, ma non si sa mai che chiedano la spaccatura tra costi e ricavi...
const TAnal_bill uncle(rmovana);
const TIndbil indbil = uncle.indicatore_bilancio();
key = rmovana.get(RMOVANA_CODCMS);
key.add(rmovana.get(RMOVANA_CODFASE));
key.add(rmovana.get(RMOVANA_CODCONTO));
//importo
const real valore = rmovana.get_real(RMOVANA_IMPORTO);
const char sezione = rmovana.get_char(RMOVANA_SEZIONE);
//durata del movana che contiene la riga in oggetto
const TDate datacomp = movana.get_date(MOVANA_DATACOMP);
TDate datafcomp = movana.get_date(MOVANA_DATAFCOMP);
if (!datafcomp.ok())
datafcomp = datacomp;
const long durata_totale = datafcomp - datacomp + 1;
//giro sulle durate per il riproporzionamento
int first_month = datacomp.month();
int last_month = datafcomp.month();
if (datafcomp.year() > datacomp.year())
last_month = 12;
const int year = _mask->get_int(F_ANNO);
for (int m = first_month; m <= last_month; m++)
{
TDate data_ini(1, m, year);
TDate data_fin(1, m, year); data_fin.set_end_month();
if (data_ini < datacomp)
data_ini = datacomp;
if (data_fin > datafcomp)
data_fin = datafcomp;
const int durata_month = data_fin - data_ini + 1;
real valore_mese = valore * durata_month / durata_totale;
const TImporto importo_mese(sezione, valore_mese);
//cerca se l'importo in questione va aggiunto ad un elemento già esistente dell'assoc_array o se..
//..l'elemento con questa chiave non esiste e quindi deve aggiungerlo
TArray* cms_fas = (TArray*)commesse_fasi.objptr(key);
if (cms_fas == NULL)
{
cms_fas = new TArray(12);
const TImporto importo_nullo;
for (int j = 0; j < 12; j++)
cms_fas->add(importo_nullo);
commesse_fasi.add(key, cms_fas);
}
TImporto& imp_cms_fas = (TImporto&)(*cms_fas)[m - 1];
imp_cms_fas += importo_mese;
}
} //for(int m = first_month...
FOR_EACH_ASSOC_OBJECT(commesse_fasi, obj, chiave, arr)
{
key = chiave;
const TString& codcms = key.get(0);
const TString& codfase = key.get(1);
const TString& codconto = key.get(2);
TArray& importi = *(TArray*)arr;
printset->crea_nuova_riga(codcms, codfase, codconto, importi);
}
printset->sort();
}
return printset;
}
void TPrint_cosric_month::print_or_preview(const bool stampa)
{
if (_mask->check_fields())
{
TPrint_cosric_month_report rep;
rep.load("pd6342100a.rep");
TPrint_cosric_month_recordset* printset = elabora();
rep.set_recordset(printset);
//setta i valori della maschera sul report (dopo la set_recordset, sennò..
//..sarebbero sovrascritti dalla set_recordset)
rep.mask2report(*_mask);
TReport_book book;
book.add(rep);
if (stampa)
book.print();
else
book.preview();
}
}
void TPrint_cosric_month::print()
{
print_or_preview(true);
}
void TPrint_cosric_month::preview()
{
print_or_preview(false);
}
void TPrint_cosric_month::main_loop()
{
_mask = new TPrint_cosric_month_mask;
_mask->run();
delete _mask;
_mask = NULL;
}
bool TPrint_cosric_month::create()
{
//controlla se la chiave ha il modulo CA (e non solo CM) NON è ammesso CA E CM
_has_ca = dongle().active(CAAUT);
//in tal caso il programma è utilizzabile solo se si ha il piano dei conti contabile..
if (_has_ca)
{
//le commesse devono essere state configurate
const TMultilevel_code_info& mci = ca_multilevel_code_info(LF_COMMESSE);
if (mci.levels() != 1)
return error_box(TR("Il programma funziona solo con le commesse configurate come primo livello di CA"));
}
return TSkeleton_application::create();
}
int pd6342100(int argc, char* argv[])
{
TPrint_cosric_month stat_anal;
stat_anal.run(argc, argv, TR("Stampa costi per mese"));
return 0;
}

4
ps/pd6342100a.h Executable file
View File

@ -0,0 +1,4 @@
#define F_ANNO 100
#define F_CMS 101
#define F_DACONTO 151
#define F_ACONTO 160

97
ps/pd6342100a.rep Executable file
View File

@ -0,0 +1,97 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="pd6342100a" orientation="2" lpi="6">
<description>Stampa costi-ricavi mensili CA</description>
<font face="Arial" size="8" />
<section type="Head">
<font face="Arial" bold="1" size="8" />
</section>
<section type="Head" level="1">
<field border="1" radius="100" x="30" y="0.5" type="Testo" valign="center" align="center" width="100" height="3" pattern="2" text="COSTI - RICAVI MENSILI PER SEDE E UNITA' OPERATIVA">
<font face="Times New Roman" bold="1" size="16" />
</field>
<field x="10" y="4" type="Testo" width="6" text="Anno:">
<font face="Arial" size="9" />
</field>
<field x="16" y="4" type="Numero" align="right" width="6">
<font face="Arial" bold="1" size="9" />
<source>ANNO</source>
</field>
<field x="30" y="4" type="Testo" width="15" text="Data di stampa:">
<font face="Arial" size="9" />
</field>
<field x="44" y="4" type="Data" width="12">
<font face="Arial" bold="1" size="9" />
<source>#SYSTEM.DATE</source>
</field>
<field border="1" y="5" type="Linea" width="170" height="0" />
</section>
<section type="Head" level="2">
<groupby>CODCMS</groupby>
<font face="Arial" bold="1" size="9" />
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
<field x="1" y="0.5" type="Stringa" width="10" id="98" pattern="2">
<source>CODCMS</source>
<prescript description="H2.98 PRESCRIPT">MESSAGE COPY,F2.98</prescript>
</field>
<field x="12" y="0.5" type="Stringa" width="50" id="99" pattern="2">
<prescript description="H2.99 PRESCRIPT">MESSAGE ISAMREAD,COMMESSE,CODCMS=CODCMS,DESCRIZ</prescript>
<postscript description="H2.99 POSTSCRIPT">MESSAGE COPY,F2.99</postscript>
</field>
</section>
<section type="Head" level="3">
<groupby>CODFASE</groupby>
<font italic="1" face="Arial" bold="1" size="8" />
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3</prescript>
<field x="2" type="Stringa" width="5" id="98" pattern="2">
<source>CODFASE</source>
<prescript description="H3.98 PRESCRIPT">MESSAGE COPY,F3.98</prescript>
</field>
<field x="8" type="Stringa" width="50" id="99" pattern="2">
<prescript description="H3.99 PRESCRIPT">MESSAGE ISAMREAD,FASI,CODCMSFAS=CODCMS!CODFASE=CODFASE,DESCRIZ</prescript>
<postscript description="H3.99 POSTSCRIPT">MESSAGE COPY,F3.99</postscript>
</field>
</section>
<section type="Body" />
<section type="Body" level="1">
<field x="3" type="Stringa" width="8" id="98" pattern="2">
<source>CODCONTO</source>
</field>
<field x="11" type="Stringa" width="20" id="99" pattern="2">
<font face="Arial Narrow" size="8" />
<prescript description="B1.99 PRESCRIPT">MESSAGE ISAMREAD,PCONANA,CODCONTO=#98,DESCR</prescript>
</field>
<field x="32" type="Valuta" align="right" width="10" id="101" pattern="2" text="#########,@@">
<source>IMPORTO_01</source>
<postscript description="B1.101 POSTSCRIPT">"F3.102" "F3.101" 102 @ 101 @
REP_ADD_IMPORTO
</postscript>
</field>
<field x="42.5" type="Stringa" width="1" id="102" pattern="2">
<source>SEZIONE_01</source>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1" />
<section type="Foot" level="2">
<font face="Arial" bold="1" size="9" />
<field border="1" x="1" y="0.25" type="Linea" width="169" height="0" pattern="2" />
<field x="1" y="0.5" type="Testo" width="6" pattern="2" text="Totale" />
<field x="8" y="0.5" type="Stringa" width="8" id="98" pattern="2" />
<field x="16" y="0.5" type="Stringa" width="20" id="99" pattern="2">
<font face="Arial Narrow" bold="1" size="8" />
</field>
</section>
<section type="Foot" level="3">
<font italic="1" face="Arial Narrow" bold="1" size="8" />
<field border="1" x="1" y="0.25" type="Linea" width="168" height="0" pattern="2" />
<field x="2" y="0.5" type="Testo" width="6" pattern="2" text="Totale" />
<field x="8" y="0.5" type="Stringa" width="6" id="98" pattern="2" />
<field x="14" y="0.5" type="Stringa" width="15" id="99" pattern="2" />
<field x="32" y="0.5" type="Valuta" align="right" width="10" id="101" pattern="2" text="#########,@@">
<font italic="1" face="Arial" bold="1" size="8" />
</field>
<field x="42.5" y="0.5" type="Stringa" width="1" id="102" pattern="2">
<font italic="1" face="Arial" bold="1" size="8" />
</field>
</section>
</report>

48
ps/pd6342100a.uml Executable file
View File

@ -0,0 +1,48 @@
#include "pd6342100a.h"
TOOLBAR "topbar" 0 0 0 2
BUTTON DLG_PREVIEW 2 2
BEGIN
PROMPT 1 1 "~Anteprima"
PICTURE TOOL_PREVIEW
END
#include <printbar.h>
ENDPAGE
PAGE "Stampa costi per mese" 0 2 0 0
NUMBER F_ANNO 4
BEGIN
PROMPT 1 1 "Anno "
USE ESC
INPUT CODTAB F_ANNO
DISPLAY "Codice Esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio " D1
OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED
FLAGS "RZ"
FIELD ANNO
END
GROUPBOX DLG_NULL 77 13
BEGIN
PROMPT 1 3 "@bParametri"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 6 "@bDa Conto"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 10 "@bA Conto"
END
ENDPAGE
ENDMASK