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

Patch level :4.0 418

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunto programma di ricerca documenti del cazzo; ancora non a menu perchè va testato


git-svn-id: svn://10.65.10.50/trunk@14019 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2006-06-01 16:59:50 +00:00
parent 9f1020db48
commit 45aad68b83
2 changed files with 57 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ve/ve1500.cpp
View File

@ -56,16 +56,18 @@ TStampa_contab_docs_mask::TStampa_contab_docs_mask()
class TStampa_contab_docs_recordset : public TISAM_recordset class TStampa_contab_docs_recordset : public TISAM_recordset
{ {
public: public:
void set_filter(const TStampa_contab_docs_mask& msk); void set_filter(const int anno, const TString& codnum);
TStampa_contab_docs_recordset(const TString& sql) : TISAM_recordset(sql) { } TStampa_contab_docs_recordset(const TString& sql) : TISAM_recordset(sql) { }
}; };
static const TStampa_contab_docs_recordset* myself = NULL; static const TStampa_contab_docs_recordset* myself = NULL;
//metodo per caricare i valori nel recordset dalla maschera...fighissimo!! //metodo per caricare i valori nel recordset dalla maschera...fighissimo!!
void TStampa_contab_docs_recordset::set_filter(const TStampa_contab_docs_mask& msk) void TStampa_contab_docs_recordset::set_filter(const int anno, const TString& codnum)
{ {
//mette il valore delle variabili nel report
set_var("#CODNUM", TVariant(codnum));
set_var("#ANNO", TVariant(long(anno)));
} }
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
@ -78,17 +80,18 @@ protected:
virtual bool get_usr_val(const TString& name, TVariant& var) const; virtual bool get_usr_val(const TString& name, TVariant& var) const;
public: public:
void set_filter(const TStampa_contab_docs_mask& msk, const TString& codnum); void set_filter(const int anno, const TString& codnum);
}; };
void TStampa_contab_docs_rep::set_filter(const TStampa_contab_docs_mask& msk, const TString& codnum) void TStampa_contab_docs_rep::set_filter(const int anno, const TString& codnum)
{ {
((TStampa_contab_docs_recordset*) recordset())->set_filter(anno, codnum);
} }
bool TStampa_contab_docs_rep::get_usr_val(const TString& name, TVariant& var) const bool TStampa_contab_docs_rep::get_usr_val(const TString& name, TVariant& var) const
{ {
const TRecordset& recset = *recordset();
return TReport::get_usr_val(name, var); return TReport::get_usr_val(name, var);
} }
@ -99,14 +102,14 @@ class TStampa_contab_docs : public TSkeleton_application
{ {
TString_array _codnums; TString_array _codnums;
protected: protected:
void cerca_numerazioni_valide(const TStampa_contab_docs_mask& msk); void cerca_numerazioni_valide(const int anno);
virtual void main_loop(); virtual void main_loop();
}; };
//scan di tutte le numerazioni;per ognuna di esse scan dei tipi collegati;se almeno uno di questi.. //scan di tutte le numerazioni;per ognuna di esse scan dei tipi collegati;se almeno uno di questi..
//..presenta una causale contabile (generale e/o analitica) -> la numerazione in questione viene.. //..presenta una causale contabile (generale e/o analitica) -> la numerazione in questione viene..
//..presa in considerazione nella stampa del report! //..presa in considerazione nella stampa del report!
void TStampa_contab_docs::cerca_numerazioni_valide(const TStampa_contab_docs_mask& msk) void TStampa_contab_docs::cerca_numerazioni_valide(const int anno)
{ {
_codnums.destroy(); _codnums.destroy();
TTable num("%NUM"); TTable num("%NUM");
@ -127,7 +130,7 @@ void TStampa_contab_docs::cerca_numerazioni_valide(const TStampa_contab_docs_mas
_codnums.add(codnum.codice()); _codnums.add(codnum.codice());
break; break;
/* //crea l'oggetto causale per chiedergli se è legata all'analitica (quindi anale) /* //crea l'oggetto causale per chiedergli se è legata all'analitica (quindi anale)
const TCausale caus(codcaus, msk.get_int(F_ESERCIZIO)); const TCausale caus(codcaus, anno);
const bool anale = caus.link_analitica();*/ const bool anale = caus.link_analitica();*/
} }
} //for(int t =... } //for(int t =...
@ -145,11 +148,12 @@ void TStampa_contab_docs::main_loop()
rep.load("ve1500a"); rep.load("ve1500a");
//crea l'elenco delle numerazioni da considerare e lo mette in _codnums //crea l'elenco delle numerazioni da considerare e lo mette in _codnums
cerca_numerazioni_valide(mask); const int anno = mask.get_int(F_ESERCIZIO);
cerca_numerazioni_valide(anno);
FOR_EACH_ARRAY_ROW(_codnums, i, row) FOR_EACH_ARRAY_ROW(_codnums, i, row)
{ {
rep.set_filter(mask, *row); //passa alla set_filter anche la numerazione corrente rep.set_filter(anno, *row); //passa alla set_filter anche la numerazione corrente
book.add(rep); book.add(rep);
} }
book.print_or_preview(); //stampa il book dei report book.print_or_preview(); //stampa il book dei report

101
ve/ve1500a.rep
View File

@ -6,10 +6,10 @@
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</section> </section>
<section type="Head" level="1" height="6"> <section type="Head" level="1" height="6">
<field border="1" radius="100" x="18" y="0.5" type="Testo" valign="center" align="center" shade_offset="25" width="130" height="2.5" text="LISTA SINTETICA CESPITI"> <field border="1" radius="100" x="1" y="0.5" type="Testo" valign="center" align="center" shade_offset="25" width="90" height="2.5" text="STAMPA DI CONTROLLO DOCUMENTI CONTABILIZZATI">
<font face="Courier New" bold="1" size="16" /> <font face="Courier New" bold="1" size="16" />
</field> </field>
<field border="2" y="4" type="Linea" width="176" height="0" pattern="1" /> <field border="2" y="4" type="Linea" width="90" height="0" pattern="1" />
<field x="1" y="4.5" type="Stringa" width="50" pattern="1"> <field x="1" y="4.5" type="Stringa" width="50" pattern="1">
<font italic="1" face="Courier New" bold="1" size="9" /> <font italic="1" face="Courier New" bold="1" size="9" />
<source>#SYSTEM.RAGSOC</source> <source>#SYSTEM.RAGSOC</source>
@ -24,81 +24,64 @@
<section repeat="1" type="Head" level="2"> <section repeat="1" type="Head" level="2">
<groupby>CODCAT</groupby> <groupby>CODCAT</groupby>
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
<field x="1" type="Testo" width="12" pattern="1" text="Categoria:"> <field x="1" type="Testo" width="6" pattern="1" text="Anno">
<font face="Courier New" bold="1" size="9" /> <font face="Courier New" bold="1" size="9" />
</field> </field>
<field x="16" type="Stringa" width="70" pattern="1"> <field x="8" type="Numero" align="right" width="4" pattern="1">
<font face="Courier New" bold="1" size="9" /> <source>ANNO</source>
<source>#DESCAT</source>
</field> </field>
<field x="157" y="0.75" type="Testo" align="justify" width="12" height="3" pattern="1" text="Valore residuo da ammortizzare" /> <field x="1" y="1" type="Testo" width="14" pattern="1" text="Numerazione">
<field x="24" y="1" type="Testo" align="center" width="10" pattern="1" text="Date" />
<field x="89.5" y="1" type="Testo" width="8" pattern="1" text="Valori" />
<field x="126.5" y="1" type="Testo" width="20" pattern="1" text="Fondo Ammortamento" />
<field x="1" y="2" type="Testo" width="10" pattern="1" text="Codice" />
<field x="11" y="2" type="Testo" width="11" pattern="1" text="Alienazione" />
<field x="24" y="2" type="Testo" width="10" pattern="1" text="Acquisto" />
<field x="34.5" y="2" type="Testo" width="10" pattern="1" text="Entr. Funz." />
<field x="46" y="2" type="Testo" width="30" pattern="1" text="Descrizione" />
<field x="72" y="2" type="Testo" align="right" width="12" pattern="1" text="Acquisizione" />
<field x="85" y="2" type="Testo" align="right" width="12" pattern="1" text="Alienazioni" />
<field x="98" y="2" type="Testo" align="right" width="12" pattern="1" text="Aggiornato" />
<field x="112" y="2" type="Testo" align="right" width="4" pattern="1" text="%Amm" />
<field x="118" y="2" type="Testo" align="right" width="12" pattern="1" text="Es. corrente" />
<field x="131" y="2" type="Testo" align="right" width="12" pattern="1" text="Fine es.prec" />
<field x="143" y="2" type="Testo" align="right" width="12" pattern="1" text="Totale" />
<field border="1" x="1" y="3" type="Linea" width="172" height="0" pattern="1" />
<field x="13" type="Numero" align="right" width="2" id="101" pattern="1">
<font face="Courier New" bold="1" size="9" /> <font face="Courier New" bold="1" size="9" />
<source>CODCAT</source>
</field> </field>
<field x="15" y="1" type="Stringa" align="right" width="5" pattern="1">
<font face="Courier New" bold="1" size="9" />
<source>CODNUM</source>
</field>
<field x="21" y="1" type="Stringa" width="50" pattern="1">
<font face="Courier New" bold="1" size="9" />
<prescript description="H2.0 PRESCRIPT">MESSAGE TABLEREAD,%NUM,CODNUM,S0</prescript>
</field>
<field x="1" y="2.5" type="Testo" width="5" pattern="1" text="Tipo" />
<field x="7" y="2.5" type="Testo" align="right" width="8" pattern="1" text="Numero" />
<field x="16" y="2.5" type="Testo" align="center" width="10" pattern="1" text="Data" />
<field x="27" y="2.5" type="Testo" align="right" width="10" pattern="1" text="N. reg. CG" />
<field x="39" y="2.5" type="Testo" align="right" width="10" pattern="1" text="N. reg. CA" />
<field border="1" x="1" y="3.5" type="Linea" width="90" height="0" pattern="1" />
</section> </section>
<section type="Body" /> <section type="Body" />
<section type="Body" level="1"> <section type="Body" level="1">
<field type="Stringa" width="10" pattern="1"> <field x="1" type="Stringa" width="4" pattern="1">
<source>IDCESPITE</source> <source>TIPODOC</source>
</field> </field>
<field x="11.5" type="Data" width="10" pattern="1"> <field x="7" type="Numero" align="right" width="7" pattern="1">
<source>DTALIEN</source> <source>NDOC</source>
</field> </field>
<field x="23" type="Data" width="10" pattern="1"> <field x="16" type="Data" width="10" pattern="1">
<source>DTCOMP</source> <source>DATADOC</source>
</field> </field>
<field x="34.5" type="Data" width="10" pattern="1"> <field x="30" type="Numero" align="right" width="7" pattern="1" hide_zero="1">
<source>DTFUNZ</source> <source>NUMREG</source>
</field> </field>
<field x="46" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1"> <field x="42" type="Numero" align="right" width="7" pattern="1" hide_zero="1">
<source>DESC</source> <source>NUMREGCA</source>
</field> </field>
<field x="112" type="Numero" align="right" width="4" pattern="1"> <field x="60" type="Numero" align="right" fg_color="#FF0000" width="7" pattern="1">
<source>#PERCAMM</source> <source>23.NUMREG</source>
</field> </field>
<field x="98" type="Valuta" align="right" width="12" id="101" pattern="1" text="#########,@@"> <field x="70" type="Numero" align="right" fg_color="#FF0000" width="7" pattern="1">
<source>#COSTO</source> <source>107.NUMREG</source>
</field>
<field x="85" type="Valuta" align="right" width="12" id="102" pattern="1" text="#########,@@">
<source>#ALIENAZ</source>
</field>
<field x="72" type="Valuta" align="right" width="12" id="103" pattern="1" text="###.###.###,@@">
<source>#101-#102</source>
</field>
<field x="118" type="Numero" align="right" width="12" id="104" pattern="1">
<source>#QAMM</source>
</field>
<field x="131" type="Numero" align="right" width="12" id="105" pattern="1">
<source>#FAMM</source>
</field>
<field x="144" type="Numero" align="right" width="12" id="106" pattern="1">
<source>#104+#105</source>
</field>
<field x="157" type="Numero" align="right" width="12" id="107" pattern="1">
<source>#101-#106</source>
</field> </field>
</section> </section>
<section type="Foot" /> <section type="Foot" />
<section type="Foot" level="1" /> <section type="Foot" level="1" />
<section type="Foot" level="2" height="1"> <section type="Foot" level="2" height="1">
<field border="1" x="1" y="0.5" type="Linea" width="196" height="0" pattern="1" /> <field border="1" x="1" y="0.5" type="Linea" width="90" height="0" pattern="1" />
</section> </section>
<sql>USE CESPI KEY 2</sql> <sql>USE DOC
SELECT ((NUMREG!='')||(NUMREGCA!=''))&#26;&#26;((23-&#3E;NUMREG!=NUMREG)||(107-&#3E;NUMREG!=NUMREGCA))
JOIN MOV INTO NUMREG==NUMREG
JOIN MOVANA INTO NUMREG==NUMREGCA
FROM PROVV='D' CODNUM=#CODNUM ANNO=#ANNO
TO PROVV='D' CODNUM=#CODNUM ANNO=#ANNO
</sql>
</report> </report>