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

Aggiunto nuovo modulo Gestione IVA per cassa (ic)

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22736 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2012-10-26 08:26:15 +00:00
parent 1f2e7c2c82
commit a188f840dc
7 changed files with 180 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ic/ic0.cpp Normal file
View File

@ -0,0 +1,13 @@
#include <xvt.h>
#include "ic0.h"
int main(int argc, char** argv)
{
const int n = argc > 1 ? argv[1][1]-'0' : 0;
switch (n)
{
case 1:
default: ic0100(argc, argv); break; // Stampa IVA per cassa
}
return 0;
}

2
ic/ic0.h Normal file
View File

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

37
ic/ic0100.cpp Normal file
View File

@ -0,0 +1,37 @@
#include <applicat.h>
#include <report.h>
#include "ic0.h"
class TIC_report : public TReport
{
protected:
virtual bool use_mask() { return false; }
public:
TIC_report(const char* n) { load(n); }
};
class TIC_print : public TSkeleton_application
{
public:
virtual void main_loop();
};
void TIC_print::main_loop()
{
TMask m("ic0100a");
while (m.run() == K_ENTER)
{
TIC_report r("ic0100f");
r.mask2report(m);
r.print_or_preview();
}
}
int ic0100(int argc, char* argv[])
{
TIC_print a;
a.run(argc, argv, TR("Stampa IVA per cassa"));
return 0;
}

4
ic/ic0100a.h Normal file
View File

@ -0,0 +1,4 @@
#define F_TIPODIFF 201
#define F_TIPOIVA 202
#define F_DAL 203
#define F_AL 204

46
ic/ic0100a.uml Normal file
View File

@ -0,0 +1,46 @@
#include "ic0100a.h"
PAGE "IVA differita / per cassa" -1 -1 44 9
RADIOBUTTON F_TIPODIFF 20
BEGIN
PROMPT 1 1 "Tipo stampa"
ITEM "1|IVA differita"
ITEM "2|IVA per cassa"
FIELD #TIPODIFF
END
RADIOBUTTON F_TIPOIVA 20
BEGIN
PROMPT 23 1 "Tipo IVA"
ITEM "1|Vendite"
ITEM "2|Acquisti"
FIELD #TIPOIVA
END
GROUPBOX DLG_NULL 42 3
BEGIN
PROMPT 1 5 "Periodo "
END
DATA F_DAL
BEGIN
PROMPT 2 6 "Dal "
FIELD #DAL
END
DATA F_AL
BEGIN
PROMPT 23 6 "Al "
FIELD #AL
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENPAGE
ENDMASK

72
ic/ic0100f.rep Normal file
View File

@ -0,0 +1,72 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="ic0100f" lpi="6">
<font face="Courier New" size="10" />
<section type="Head" pattern="1" />
<section type="Head" level="1" pattern="1">
<field type="Stringa" valign="center" align="center" width="90" height="3" pattern="1">
<font face="Arial" bold="1" size="24" />
<source>"MOVIMENTI IVA " + IF(#TIPODIFF==1,"DIFFERITA", "PER CASSA")</source>
</field>
</section>
<section type="Head" level="2" pattern="1">
<groupby>NUMREG</groupby>
<font face="Arial" bold="1" size="10" />
<field border="3" y="0.5" type="Linea" width="90" height="0" pattern="1" />
<field y="1" type="Testo" width="10" pattern="1" text="Documento " />
<field x="10" y="1" type="Stringa" width="10" pattern="1">
<source>MOV.NUMDOC</source>
</field>
<field x="22" y="1" type="Testo" width="3" pattern="1" text="Del" />
<field x="26" y="1" type="Data" width="10" pattern="1">
<source>MOV.DATADOC</source>
</field>
<field x="40" y="1" type="Stringa" width="50" pattern="1">
<source>CLIFO.RAGSOC</source>
</field>
<field x="19" y="2" type="Testo" width="7" pattern="1" text="Sezione" />
<field x="25" y="2" type="Testo" align="right" width="15" pattern="1" text="Importo" />
<field x="40" y="2" type="Testo" align="right" width="15" pattern="1" text="Imponibile" />
<field x="56" y="2" type="Testo" align="right" width="4" pattern="1" text="IVA" />
<field x="60" y="2" type="Testo" align="right" width="15" pattern="1" text="Imposta" />
<field x="75" y="2" type="Testo" align="right" width="15" pattern="1" text="Versata" />
</section>
<section type="Body" pattern="1" />
<section type="Body" level="1" pattern="1">
<field type="Numero" align="right" link="MOV.NUMREG" width="7" pattern="1" hide_zero="1">
<source>NUMREGP</source>
<alt_source>NUMREG</alt_source>
</field>
<field x="8" type="Data" width="10" pattern="1">
<source>DATAREGP</source>
<alt_source>DATAREG</alt_source>
</field>
<field x="19" type="Array" width="5" pattern="1">
<source>SEZIONE</source>
<list>
<li Value="Dare" Code="D" />
<li Value="Avere" Code="A" />
</list>
</field>
<field x="25" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<source>IMPORTO</source>
</field>
<field x="40" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<source>IMPONIBILE</source>
</field>
<field x="55" type="Stringa" align="right" width="4" pattern="1">
<source>CODIVA</source>
</field>
<field x="60" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<source>IMPOSTA</source>
</field>
<field x="75" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<source>VERSATA</source>
</field>
</section>
<section type="Foot" pattern="1" />
<section type="Foot" level="1" pattern="1" />
<section type="Foot" level="2" pattern="1" />
<sql>USE IVADIFF SELECT (BETWEEN(DATAREG,#DAL,#AL))&#26;&#26;(TIPOIVA==#TIPOIVA)&#26;&#26;(TIPODIFF==#TIPODIFF)
JOIN MOV INTO NUMREG==NUMREG
JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF</sql>
</report>

6
ic/icmenu.men Normal file
View File

@ -0,0 +1,6 @@
[ICMENU_001]
Caption = "IVA per cassa"
Picture = <cg02>
Module = ic
Flags = ""
Item_01 = "Stampa movimenti", "ic0 -0", "F"