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

Patch level :10.0 94

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :riportate modifiche 3.2


git-svn-id: svn://10.65.10.50/trunk@16969 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-07-29 13:36:43 +00:00
parent da858b8d71
commit 1a560c6df1
13 changed files with 244 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
co/co0800.cpp
View File

@ -188,6 +188,7 @@ void TImportazioneConf::main_loop()
r.put(RDOC_SCONTO, ritprezzo);
}
update_spese_doc(codmercato, *d);
d->stato(d->tipo().stato_finale_inserimento());
d->write();
delete d;
d = NULL;
@ -272,6 +273,7 @@ void TImportazioneConf::main_loop()
r.put(RDOC_SCONTO, ritprezzo);
}
update_spese_doc(codmercato, *d);
d->stato(d->tipo().stato_finale_inserimento());
d->write();
}
input_docs.close();

3
co/co1.cpp
View File

@ -12,6 +12,9 @@ int main(int argc, char** argv)
case 3:
co1400(argc, argv); // Fatturazione Conferimenti
break;
//case 4:
// co1500(argc, argv); // Invio mov.coop. a TeamSystem
// break;
default:
break;
}

1
co/co1.h
View File

@ -1,2 +1,3 @@
int co1300(int argc, char* argv[]);
int co1400(int argc, char* argv[]);
//int co1500(int argc, char* argv[]);

2
co/co1100a.rep
View File

@ -1,5 +1,5 @@
<report name="co1100a" orientation="2" lpi="6">
<report name="co1100a" orientation="2" lpi="6" command="ba8 -4">
<description>Stampa libro soci</description>
<font face="Courier New" size="7" />
<section type="Head" />

11
co/co1100a.uml
View File

@ -1,6 +1,6 @@
#include "co1100a.h"
PAGE "Stampa libro soci" 0 -1 78 7
PAGE "Stampa libro soci" -1 -1 78 7
GROUPBOX DLG_NULL 76 3
BEGIN
@ -21,17 +21,16 @@ STRING F_RAGSOC 50
BEGIN
PROMPT 23 2 ""
FLAGS "D"
//FIELD RAGSOC
END
BUTTON DLG_OK 10 2
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL 10 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE

2
co/co1200a.rep
View File

@ -1,5 +1,5 @@
<report name="co1200a" orientation="2" lpi="6">
<report name="co1200a" orientation="2" lpi="6" command="ve1 -3">
<description>STAMPA CONFERIMENTI</description>
<font face="Courier New" size="8" />
<section type="Head" />

86
co/co1300.cpp
View File

@ -1,10 +1,16 @@
#include <applicat.h>
#include <automask.h>
#include <reprint.h>
#include <textset.h>
#include "co1.h"
#include "co1300a.h"
#include "socicoop.h"
#include "..\ve\velib.h"
#include "..\ve\velib07.h"
////////////////////////////////////////////////////////
// MASCHERA
@ -31,11 +37,26 @@ bool TEstrattoConto_mask::on_field_event(TOperable_field& f, TField_event e, lon
// REPORT
////////////////////////////////////////////////////////
// vediamo se serve
class TEstrattoConto_rep : public TDocument_report
{
protected:
virtual bool use_mask() {return false;}
};
////////////////////////////////////////////////////////
// APPLICAZIONE
////////////////////////////////////////////////////////
struct TRiga_totale
{
TString80 _descr;
real _qta;
real _acc;
real _impcredito;
real _impdebito;
};
class TEstrattoConto : public TSkeleton_application
{
public:
@ -44,14 +65,67 @@ public:
void TEstrattoConto::main_loop()
{
TEstrattoConto_mask mask;
while (mask.run() == K_ENTER)
TEstrattoConto_mask m;
while (m.run() == K_ENTER)
{
//report e book dei report
TReport_book book;
TReport rep;
TEstrattoConto_rep rep;
rep.load("co1300a");
book.add(rep);
const TDate dataini = m.get_date(F_DATAINI);
const TDate datafin = m.get_date(F_DATAFIN);
const int anno = dataini.year();
// creo recordset dei soci da stampare
TISAM_recordset soci("USE SOCICOOP\nFROM CODCF=#DASOCIO\nTO CODCF=#ASOCIO");
soci.set_var("#DASOCIO", m.get_long(F_DASOCIO));
soci.set_var("#ASOCIO", m.get_long(F_ASOCIO));
for (bool ok = soci.move_first(); ok; ok = soci.move_next())
{
TRecordset * r = rep.recordset();
long codcf = soci.get(SC_CODCF).as_int();
r->set_var("#SOCIO", soci.get("CODCF"));
r->set_var("#ANNO", TVariant(long(anno)));
r->set_var("#DATAINI", dataini);
r->set_var("#DATAFIN", datafin);
// calcolo totali per articolo
TAssoc_array totali_art;
TReport_section& body2 = rep.section('B', 12);
for (bool ok = r->move_first(); ok; ok = r->move_next())
{
TRecordset* rr = rep.section('B', 11).recordset();
for (bool okr = rr->move_first(); okr; okr = rr->move_next())
{
const TString& codart = rr->get(RDOC_CODART).as_string();
TRiga_totale* rt = (TRiga_totale*) totali_art.objptr(codart);
if (rt == NULL)
{
rt = new TRiga_totale;
rt->_descr = rr->get(RDOC_DESCR).as_string();
totali_art.add(codart, (TObject*) rt);
}
// sommare qta e importi
real qta = rr->get(RDOC_QTA).as_real();
rt->_qta += qta;
}
}
// devo passare il recordset al report
TCSV_recordset csv("");
FOR_EACH_ASSOC_OBJECT(totali_art, o, k, it)
{
TRiga_totale& rt = (TRiga_totale&) *it;
csv.new_rec("");
TVariant descr = rt._descr;
csv.set(0, descr);
csv.set(1, rt._qta);
}
body2.set_recordset(&csv);
book.add(rep);
}
book.print_or_preview();
}
}

107
co/co1300a.rep
View File

@ -2,17 +2,7 @@
<report name="co1300a" orientation="2" lpi="6">
<description>Stampa Estratto Conto Socio</description>
<font face="Courier New" size="8" />
<section type="Head" />
<section type="Head" level="1" />
<section type="Head" level="2" page_break="1">
<groupby>CODCF</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.103
MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
MESSAGE RESET,F2.106
MESSAGE RESET,F2.107</prescript>
<section type="Head">
<field x="1" y="1" type="Stringa" width="10" pattern="1">
<source>101@.CODCF</source>
</field>
@ -75,7 +65,8 @@ MESSAGE RESET,F2.107</prescript>
<field x="128" y="8" type="Testo" align="right" width="10" pattern="1" text="Imposta" />
<field x="140" y="8" type="Testo" width="20" pattern="1" text="Mercato" />
</section>
<section type="Head" level="3" />
<section type="Head" level="1" />
<section type="Head" level="2" />
<section type="Body" />
<section type="Body" level="1" />
<section type="Head" level="11" />
@ -118,7 +109,7 @@ ELSE
#107 ENABLE
THEN</prescript>
</field>
<field x="52" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###.@@">
<field x="52" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###,@@">
<groups>1</groups>
<source>QTA</source>
<postscript description="B11.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
@ -134,12 +125,13 @@ THEN</prescript>
<field x="85" type="Prezzo" align="right" width="10" id="104" pattern="1" hide_zero="1" text="#########,@@">
<groups>1</groups>
<source>IMPCNN-IMPCNS</source>
<prescript description="B11.104 PRESCRIPT">MESSAGE ADD,F2.104</prescript>
<postscript description="B11.104 POSTSCRIPT">MESSAGE ADD,F2.104</postscript>
</field>
<field x="96" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@">
<groups>1</groups>
<source>IMPCNS</source>
<postscript description="B11.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript>
<postscript description="B11.105 POSTSCRIPT">MESSAGE ADD,F2.105
MESSAGE ADD,F2.115</postscript>
</field>
<field x="112" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@">
<groups>2</groups>
@ -152,27 +144,86 @@ THEN</prescript>
</field>
</section>
<section type="Foot" level="11" />
<section type="Head" level="12" />
<section deactivated="1" type="Body" level="12" hidden="1">
<sql>USE RDOC
SELECT (TIPORIGA='CO')||(TIPORIGA='06')
JOIN %SPP ALIAS 201 INTO CODTAB==CODART
FROM CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
TO CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC
</sql>
<field x="13" type="Stringa" width="30" pattern="1">
<source>DESCR</source>
</field>
<field x="142" type="Stringa" hidden="1" align="right" bg_color="#00FFFF" width="12" id="100" pattern="1">
<font face="Arial" size="10" />
<source>34.TIPORIGA</source>
<prescript>#THIS @
"CO" = \ confronta tiporiga con "CO"
IF
#101 ENABLE
#102 ENABLE
#103 ENABLE
#104 ENABLE
#105 ENABLE
#106 DISABLE
#107 ENABLE
ELSE
#101 DISABLE
#102 DISABLE
#103 DISABLE
#104 DISABLE
#105 DISABLE
#106 ENABLE
#107 ENABLE
THEN</prescript>
</field>
<field x="53" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###.@@">
<source>QTA</source>
<postscript>MESSAGE ADD,F2.101</postscript>
</field>
<field x="64" type="Prezzo" align="right" width="10" id="102" pattern="1" hide_zero="1" text="#########,@@">
<source>PREZZONN</source>
</field>
<field x="75" type="Prezzo" align="right" width="10" id="103" pattern="1" hide_zero="1" text="#########,@@">
<source>PREZZONS</source>
</field>
<field x="86" type="Prezzo" align="right" width="10" id="104" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPCNN-IMPCNS</source>
<prescript>MESSAGE ADD,F2.104</prescript>
</field>
<field x="97" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPCNS</source>
<postscript>MESSAGE ADD,F2.105</postscript>
</field>
<field x="113" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPCNS</source>
<postscript>MESSAGE ADD,F2.106</postscript>
</field>
<field x="129" type="Prezzo" align="right" width="10" id="107" pattern="1" hide_zero="1" text="#########,@@">
<source>IMPOSTA</source>
<postscript>MESSAGE ADD,F2.107</postscript>
</field>
</section>
<section type="Foot" level="12" />
<section type="Foot" />
<section type="Foot" level="1" />
<section type="Foot" level="2">
<field border="1" y="1" type="Linea" width="160" height="0" pattern="1" />
<field x="24" y="2" type="Testo" width="10" pattern="1" text="TOTALI" />
<field x="140" y="2" type="Testo" width="10" pattern="1" text="Saldo" />
<field x="52" y="2" type="Numero" align="right" width="10" id="101" pattern="1" />
<field x="85" y="2" type="Prezzo" align="right" width="10" id="104" pattern="1" hide_zero="1" text="#########,@@" />
<field x="96" y="2" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@" />
<field x="112" y="2" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@" />
<field x="128" y="2" type="Prezzo" align="right" width="10" id="107" pattern="1" hide_zero="1" text="#########,@@" />
<field x="146" y="2" type="Prezzo" align="right" width="15" id="108" pattern="1" hide_zero="1" text="#########,@@">
<source>#105-#106</source>
<field x="30" type="Testo" width="10" pattern="1" text="TOTALI" />
<field x="92" y="3" type="Testo" width="35" pattern="1" text="Progressivo annuo conferimenti" />
<field x="52" type="Numero" align="right" width="10" id="101" pattern="1" hide_zero="1" text="###.###,@@">
<postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
</field>
<field x="96" type="Prezzo" align="right" width="15" id="105" pattern="1" hide_zero="1" text="#########,@@" />
<field x="112" type="Prezzo" align="right" width="15" id="106" pattern="1" hide_zero="1" text="#########,@@" />
<field x="128" type="Prezzo" align="right" width="15" id="107" pattern="1" hide_zero="1" text="#########,@@" />
<field x="128" y="3" type="Prezzo" align="right" width="15" id="115" pattern="1" text="###.###.###,@@" />
</section>
<section type="Foot" level="3" />
<sql>USE DOC
KEY 2
SELECT (NUM(ANSI(DATADOC)&#3E;=ANSI(#DATAINI)))&#26;&#26;(NUM(ANSI(DATADOC)&#3C;=ANSI(#DATAFIN)))
JOIN CLIFO ALIAS 101 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN COMUNI TO 101@ INTO STATO==STATOCF COM==COMCF
FROM TIPOCF='F' CODCF=#DASOCIO PROVV='D'
TO TIPOCF='F' CODCF=#ASOCIO PROVV='D'</sql>
FROM TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAINI
TO TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAFIN</sql>
</report>

75
co/co1400.cpp
View File

@ -1,15 +1,19 @@
#include <progind.h>
#include "../ve/velib04.h"
#include "../ve/ve6200.h"
#include "../ve/ve6200a.h"
#include <doc.h>
class TFatturazione_cooperative : TFatturazione_bolle
class TFatturazione_cooperative : public TFatturazione_bolle
{
void campi_raggruppamento_righe(TToken_string& campi_riga) const;
void campi_raggruppamento(TToken_string& campi) const;
void add_rows(TRiga_documento & rout, TRiga_documento & rin);
virtual void campi_raggruppamento_righe(TToken_string& campi_riga) const;
virtual void campi_raggruppamento(TToken_string& campi) const;
virtual bool doc_raggruppabile(const TDocumento & doc) const { return true; }
virtual bool doc_raggruppabile(const TDocumento & doc_in, const TDocumento & doc_out, TToken_string & campi) const;
virtual void add_rows(TRiga_documento & rout, TRiga_documento & rin);
virtual void create_row(TDocumento& doc_out, const TRiga_documento & rin);
virtual const TString & get_tipo_out(const TDocumento & doc_out);
public:
TFatturazione_cooperative(const char* cod) : TFatturazione_bolle(cod) {}
@ -18,7 +22,7 @@ public:
void TFatturazione_cooperative::campi_raggruppamento_righe(TToken_string& campi_riga) const
{
campi_riga = "CODART|UMQTA"; // Uguali sempre
campi_riga = "CODART|UMQTA!CODIVA"; // Uguali sempre
}
void TFatturazione_cooperative::campi_raggruppamento(TToken_string& campi) const
@ -28,21 +32,62 @@ void TFatturazione_cooperative::campi_raggruppamento(TToken_string& campi) const
void TFatturazione_cooperative::add_rows(TRiga_documento & rout, TRiga_documento & rin)
{
if (rin.get(RDOC_CODAGG1).full())
{
real valore = rout.get_real(RDOC_PREZZO);
real valore = rout.get_real(RDOC_PREZZO);
valore += rin.get_real(RDOC_PREZZO);
rout.put(RDOC_PREZZO, valore);
}
else
TFatturazione_bolle::add_rows(rout, rin);
valore += rin.doc().imponibile();
rout.put(RDOC_PREZZO, valore);
}
bool TFatturazione_cooperative::doc_raggruppabile(const TDocumento & doc_in, const TDocumento & doc_out, TToken_string & campi) const
{
if (doc_in.physical_rows() > 0 && doc_out.physical_rows() > 0)
{
const TRiga_documento & rout = doc_out[1];
const TRiga_documento & rin = doc_in[1];
const TString art_in = rin.get(RDOC_CODART);
const TString art_out = rout.get(RDOC_CODART);
bool raggruppa = art_in == art_out;
if (raggruppa)
{
const TString iva_in = rin.get(RDOC_CODIVA);
const TString iva_out = rout.get(RDOC_CODIVA);
raggruppa = iva_in == iva_out;
}
return raggruppa;
}
return false;
}
void TFatturazione_cooperative::create_row(TDocumento& doc_out, const TRiga_documento & rin)
{
if (rin.get_int(RDOC_NRIGA) == 1)
{
TFatturazione_bolle::create_row(doc_out, rin);
TRiga_documento & rout = doc_out[1];
const real valore = rin.doc().imponibile();
rout.put(RDOC_QTA, 1);
rout.put(RDOC_PREZZO, valore);
rout.zero(RDOC_SCONTO);
}
}
const TString & TFatturazione_cooperative::get_tipo_out(const TDocumento & doc_out)
{
const TString & art = doc_out[1].get(RDOC_CODARTMAG);
const TString & tipodoc = cache().get(LF_ANAMAG, art, ANAMAG_USER2);
if (tipodoc.full() && !cache().get("%TIP", tipodoc).empty())
return tipodoc;
else
return get("S8");
};
class TFatturazione_cooperative_app : public TFatturazione_bolle_app
{
protected:
virtual TElaborazione * elab(const TString & cod) { return new TFatturazione_bolle(cod);}
virtual TFatturazione_bolle * elab(const TString & cod) const { return new TFatturazione_cooperative(cod);}
};
int co1400(int argc, char *argv[])

2
co/comenu.men
View File

@ -5,7 +5,7 @@ Module = 29
Flags = ""
Item_01 = "Configurazione modulo", "co0 -2", "F"
Item_02 = "Archivi e tabelle", [COMENU_011]
Item_03 = "Stampa archivi e tabelle", [COMENU_11]
Item_03 = "Stampa archivi e tabelle", [COMENU_012]
Item_04 = "Conferimenti e prestazioni", [COMENU_013]
Item_05 = "Stampe", [COMENU_014]

6
co/costcmp.uml
View File

@ -19,13 +19,13 @@ END
STRING F_INIZIO2 50
BEGIN
PROMPT 3 2 "Descrizione "
PROMPT 9 1 "Descrizione "
FLAGS "D"
END
NUMBER F_FINE1 4
BEGIN
PROMPT 5 1 "A Codice compagnia "
PROMPT 3 2 "A Codice compagnia "
FIELD CODTAB
KEY 1
USE %CMP
@ -40,7 +40,7 @@ END
STRING F_FINE2 50
BEGIN
PROMPT 5 2 "Descrizione "
PROMPT 9 2 "Descrizione "
FLAGS "D"
END

8
co/costcoa.uml
View File

@ -4,7 +4,7 @@ PAGE "Stampa Correlazione articolo" -1 -1 78 19
NUMBER F_INIZIO1 6
BEGIN
PROMPT 2 2 "Mercato "
PROMPT 2 2 "Da Mercato "
KEY 1
FIELD CODTAB[1,6]
USE LF_MERCATICOOP
@ -20,13 +20,13 @@ END
STRING F_INIZIO2 50
BEGIN
PROMPT 2 9 ""
PROMPT 22 2 ""
FLAGS "D"
END
NUMBER F_FINE1 6
BEGIN
PROMPT 4 2 "Mercato "
PROMPT 2 4 "A Mercato "
KEY 1
FIELD CODTAB[1,6]
USE LF_MERCATICOOP
@ -42,7 +42,7 @@ END
STRING F_FINE2 50
BEGIN
PROMPT 4 9 ""
PROMPT 22 4 ""
FLAGS "D"
END

8
co/cotbcoa.uml
View File

@ -26,7 +26,7 @@ END
STRING F_DESMER 50
BEGIN
PROMPT 35 2 ""
PROMPT 14 2 ""
FLAGS "D"
END
@ -51,7 +51,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
PROMPT 14 3 "Descrizione "
KEY 2
FIELD S0
USE %COA KEY 2
@ -66,7 +66,7 @@ END
STRING F_CODART 20
BEGIN
PROMPT 2 6 "Articolo "
PROMPT 2 4 "Articolo "
FLAG "U"
FIELD S1
USE LF_ANAMAG
@ -80,7 +80,7 @@ END
STRING F_DESART 50
BEGIN
PROMPT 35 6 ""
PROMPT 24 4 ""
USE LF_ANAMAG KEY 2
INPUT DESCR F_DESART
DISPLAY "Codice@20" CODART