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

Patch level : 12.0 no-patch

Browse Source 
Files correlati     : 
Commento            : Aggiunto report occasionali da terminale

git-svn-id: svn://10.65.10.50/branches/R_10_00@23317 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2016-09-23 15:40:14 +00:00
parent 7fdcbe63e2
commit 0b522db6e5
7 changed files with 113 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/cg/cg5500.cpp
View File

@ -10,6 +10,7 @@
#include <reprint.h>
#include <sheet.h>
#include <viswin.h>
#include <reputils.h>
#include "cglib03.h"
#include "cg5500.h"
@ -1205,7 +1206,7 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
else
replace_number(vsw, lcrs, credspec, 58);
const bool print_intr = _freqviva == "T" && intr != 0.0;
const bool print_intr = _freqviva == "T" && intr != ZERO;
const char* desc_inter = TR("Interessi dovuti per liquidazioni trimestrali");
lintr = vsw->search(desc_inter, x, line, true);
@ -1271,7 +1272,7 @@ void Visliq_app::recalc_liq_data(TViswin* vsw, real& rimb, real& rett, real& ver
}
else if (risul.sign() >= 0) // ... altrimenti siamo a debito, in tal caso si hanno gli interessi (solo trimestrali of course)
{
const bool print_intr = _freqviva == "T" && intr != 0.0;
const bool print_intr = _freqviva == "T" && intr != ZERO;
if (print_intr)
{
if (lintr == -1)

21
src/cg/cg5800.cpp
View File

@ -5,6 +5,7 @@
#include <recarray.h>
#include <reprint.h>
#include <sheet.h>
#include <reputils.h>
#include <nditte.h>
@ -270,8 +271,24 @@ bool TQuadro_VT_iva_mask::on_field_event(TOperable_field& o, TField_event e, lon
case DLG_PRELPR:
if (e == fe_button)
{
TReport rep;
if (rep.load("cg5800ra.rep"))
TProgram_report rep;
if (rep.load("cg5800a.rep"))
{
TRecordset* r = rep.recordset();
if (r != NULL)
{
const TVariant var = get(F_YEAR);
r->set_var("#ANNO", var);
}
rep.print_or_preview();
}
}
break;
case DLG_PRELOC:
if (e == fe_button)
{
TProgram_report rep;
if (rep.load("cg5800b.rep"))
{
TRecordset* r = rep.recordset();
if (r != NULL)

3
src/cg/cg5800.h
View File

@ -31,4 +31,5 @@
#define FFR_REGIMP(reg) 2 ## reg
#define FFR_REGIVA(reg) 3 ## reg
#define DLG_PRELPR 151
#define DLG_PRELPR 151
#define DLG_PRELOC 152

0
src/cg/cg5800ra.rep → src/cg/cg5800a.rep
View File

74
src/cg/cg5800b.rep Normal file
View File

@ -0,0 +1,74 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="cg5800b" lpi="6">
<description>Lista occasionali per quadro VT</description>
<font face="Courier New" size="10" />
<section type="Head" height="3" pattern="1">
<field type="Stringa" align="center" width="80" height="2" pattern="1">
<font face="Courier New" bold="1" size="12" />
<source>"Lista clienti occasionali per quadro IVA VT anno " + #ANNO</source>
</field>
<field border="3" y="2" type="Linea" width="80" height="0" pattern="1" />
</section>
<section type="Head" level="1" pattern="1" />
<section type="Head" level="2" height="4" pattern="1">
<groupby>23.OCFPI</groupby>
<prescript description="H3 PRESCRIPT">0 "F3.101" !
0 "F3.102" !</prescript>
<field y="1" type="Testo" width="10" pattern="1" text="Cliente">
<font face="Courier New" bold="1" size="12" />
</field>
<field x="10" y="1" type="Numero" align="right" width="8" pattern="1">
<font face="Courier New" bold="1" size="12" />
<source>23.CODCF</source>
</field>
<field x="19" y="1" type="Stringa" width="49" pattern="1">
<font face="Courier New" bold="1" size="12" />
<source>18.RAGSOC</source>
</field>
<field border="1" y="2" type="Linea" width="70" height="0" pattern="1" />
<field x="1" y="2.25" type="Testo" width="16" pattern="1" text="N.Operazione" />
<field x="19" y="2.25" type="Testo" align="right" width="18" pattern="1" text="Imponibile" />
<field x="41" y="2.25" type="Testo" width="6" pattern="1" text="Cod." />
<field x="50" y="2.25" type="Testo" align="right" width="18" pattern="1" text="Imposta" />
</section>
<section type="Body" pattern="1" />
<section type="Body" level="1" pattern="1">
<field x="1" type="Numero" align="right" width="6" pattern="1">
<source>RMOVIVA.NUMREG</source>
</field>
<field x="16" type="Valuta" align="right" width="20" pattern="1" text="###.###.###,@@">
<source>RMOVIVA.IMPONIBILE</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F3.101</prescript>
</field>
<field x="41" type="Stringa" width="4" pattern="1">
<source>RMOVIVA.CODIVA</source>
</field>
<field x="50" type="Valuta" align="right" width="18" pattern="1" text="###.###.###,@@">
<source>RMOVIVA.IMPOSTA</source>
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F3.102</prescript>
</field>
</section>
<section type="Foot" pattern="1" />
<section type="Foot" level="1" pattern="1">
<field border="2" y="0.5" type="Linea" width="70" height="0" pattern="1" />
<field border="2" y="0.75" type="Linea" width="70" height="0" pattern="1" />
<field x="2" y="1" type="Testo" width="15" pattern="1" text="Totale generale" />
<field x="18" y="1" type="Valuta" align="right" width="18" id="201" pattern="1" text="###.###.###,@@" />
<field x="50" y="1" type="Valuta" align="right" width="18" id="202" pattern="1" text="###.###.###,@@" />
</section>
<section type="Foot" level="2" pattern="1">
<field x="2" y="1" type="Testo" width="14" pattern="1" text="Totale cliente" />
<field x="18" y="1" type="Valuta" align="right" width="18" id="101" pattern="1" text="###.###.###,@@">
<prescript description="F3.101 PRESCRIPT">MESSAGE ADD,F1.201</prescript>
</field>
<field x="50" y="1" type="Valuta" align="right" width="18" id="102" pattern="1" text="###.###.###,@@">
<prescript description="F3.102 PRESCRIPT">MESSAGE ADD,F1.202</prescript>
</field>
</section>
<sql>USE RMOVIVA SE (23.TIPO=="C")&#26;&#26;(23.ANNOIVA=#ANNO)&#26;&#26;(20.OCCAS=="X")&#26;&#26;(202@.S1=="")
BY 23.ANNOIVA 23.OCFPI NUMREG
JOIN MOV INTO NUMREG==NUMREG
JOIN OCCAS TO MOV INTO CFPI==OCFPI
JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF
JOIN %IVA TO RMOVIVA ALIAS 202 INTO CODTAB==CODIVA</sql>
</report>

6
src/cg/cg5800b.uml
View File

@ -14,6 +14,12 @@ BEGIN
PICTURE TOOL_PRINTELENCO
END
BUTTON DLG_PRELOC 15 2
BEGIN
PROMPT -33 -11 "Elenco Occasionali"
PICTURE TOOL_PRINTELENCO
END
#include <helpbar.h>
ENDPAGE

10
src/cg/cgmenu.men
View File

@ -275,6 +275,14 @@ Picture = <cg01>
Module = 7
Flags = ""
Item_01 = "Comunicazione annuale dati IVA", "cg5 -7", "F"
Item_02 = "Quadro VT", "cg5 -8", "F"
Item_02 = "Dichiarazione IVA" [CGMENU_030]
Item_03 = "Elenco clienti/fornitori", "cg3 -8", "F"
Item_04 = "Comunicazione Polivalente", "fe0 -0", "F"
[CGMENU_030]
Caption = "Dichiarazione IVA"
Picture = <cg01>
Module = 7
Flags = ""
Item_01 = "Quadro VE", "cg7 -4", "F"
Item_02 = "Quadro VT", "cg5 -8", "F"