Patch level :
Files correlati :10.0 964 Ricompilazione Demo : [ ] Commento : 0001787: Stampa Fatture Blacklist Descrizione Nuova stampa delle fatture di clienti con residenza in stati a fiscalità agevolata Da definire il tracciato git-svn-id: svn://10.65.10.50/branches/R_10_00@21837 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
1ea81b0797
commit
f0e03b8757
8
cg/cg7100.h
Executable file
8
cg/cg7100.h
Executable file
@ -0,0 +1,8 @@
|
||||
//campi maschera cg7100p (lista fatture stati 'P'irata)
|
||||
#define F_CODDITTA 201
|
||||
#define F_RAGSOC 202
|
||||
#define F_DATASTAMPA 203
|
||||
#define F_ANNO 204
|
||||
#define F_DATAINI 205
|
||||
#define F_DATAFIN 206
|
||||
#define F_TIPOELENCO 207
|
||||
138
cg/cg7100p.rep
Executable file
138
cg/cg7100p.rep
Executable file
@ -0,0 +1,138 @@
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<report name="cg7100p" orientation="1" lpi="6">
|
||||
<description>Lista fatture clienti di stati a fiscalita' agevol</description>
|
||||
<font face="Arial" size="8" />
|
||||
<section type="Head" pattern="1">
|
||||
<font italic="1" face="Arial" size="8" />
|
||||
<field x="1" y="0.5" type="Array" width="12" pattern="1">
|
||||
<font italic="1" face="Arial" bold="1" size="8" />
|
||||
<source>H1.101</source>
|
||||
<list>
|
||||
<li Value="Cliente" Code="C" />
|
||||
<li Value="Fornitore" Code="F" />
|
||||
</list>
|
||||
</field>
|
||||
<field border="1" x="1" y="0.5" type="Linea" width="112" height="0" pattern="1" />
|
||||
<field x="60" y="0.5" type="Testo" width="6" pattern="1" text="P. IVA">
|
||||
<font italic="1" face="Arial" bold="1" size="8" />
|
||||
</field>
|
||||
<field x="73" y="0.5" type="Testo" width="10" pattern="1" text="Cod. Fisc.">
|
||||
<font italic="1" face="Arial" bold="1" size="8" />
|
||||
</field>
|
||||
<field x="90" y="0.5" type="Testo" width="10" pattern="1" text="Stato">
|
||||
<font italic="1" face="Arial" bold="1" size="8" />
|
||||
</field>
|
||||
<field x="2" y="1.5" type="Testo" align="right" width="7" pattern="1" text="N.Reg." />
|
||||
<field x="10.5" y="1.5" type="Testo" align="center" width="10" pattern="1" text="Data Reg." />
|
||||
<field x="21" y="1.5" type="Testo" width="4" pattern="1" text="Reg." />
|
||||
<field x="26.5" y="1.5" type="Testo" align="right" width="6" pattern="1" text="Prot." />
|
||||
<field x="32.5" y="1.5" type="Testo" align="right" width="6" pattern="1" text="N.Doc." />
|
||||
<field x="41" y="1.5" type="Testo" align="center" width="10" pattern="1" text="Data Doc." />
|
||||
<field x="52" y="1.5" type="Testo" width="4" pattern="1" text="Caus." />
|
||||
<field x="57" y="1.5" type="Testo" width="12" pattern="1" text="Descrizione" />
|
||||
<field x="101" y="1.5" type="Testo" align="right" width="10" pattern="1" text="Tot. Doc." />
|
||||
<field border="1" x="1" y="2.5" type="Linea" width="112" height="0" pattern="1" />
|
||||
</section>
|
||||
<section type="Head" level="1" pattern="1">
|
||||
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1</prescript>
|
||||
<field border="1" radius="50" x="15.5" y="0.5" type="Testo" valign="center" align="center" shade_offset="50" width="80" height="3" pattern="2" text="LISTA FATTURE STATI A FISCALITA' AGEVOLATA">
|
||||
<font face="Arial" bold="1" size="14" />
|
||||
</field>
|
||||
<field x="2" y="4.5" type="Testo" width="12" pattern="1" text="Tipo elenco:" />
|
||||
<field x="30" y="4.5" type="Testo" width="4" pattern="1" text="Dal:" />
|
||||
<field x="34" y="4.5" type="Data" width="10" pattern="1">
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<source>#DATAINI</source>
|
||||
</field>
|
||||
<field x="47" y="4.5" type="Testo" width="3" pattern="1" text="Al:" />
|
||||
<field x="49.5" y="4.5" type="Data" width="10" pattern="1">
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<source>#DATAFIN</source>
|
||||
</field>
|
||||
<field x="14" y="4.5" type="Array" width="12" id="101" pattern="1">
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<source>#TIPOELENCO</source>
|
||||
<list>
|
||||
<li Value="Clienti" Code="C" />
|
||||
<li Value="Fornitori" Code="F" />
|
||||
</list>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Head" level="2" pattern="1">
|
||||
<groupby>CODCF</groupby>
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
|
||||
<field x="8" y="0.75" type="Stringa" width="50" pattern="1">
|
||||
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#151,RAGSOC</prescript>
|
||||
</field>
|
||||
<field x="59" y="0.75" type="Stringa" width="11" pattern="1">
|
||||
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#151,PAIV</prescript>
|
||||
</field>
|
||||
<field x="71" y="0.75" type="Stringa" width="16" pattern="1">
|
||||
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#151,COFI</prescript>
|
||||
</field>
|
||||
<field x="90" y="0.75" type="Stringa" width="30" pattern="1">
|
||||
<prescript description="H2.0 PRESCRIPT">MESSAGE TABLEREAD,%STA,4-E;CODTAB,S0</prescript>
|
||||
</field>
|
||||
<field x="1" y="0.75" type="Numero" align="right" width="6" id="151" pattern="1">
|
||||
<source>CODCF</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Body" pattern="1" />
|
||||
<section type="Body" level="1" pattern="1">
|
||||
<field x="1" type="Numero" align="right" width="7" pattern="1">
|
||||
<source>NUMREG</source>
|
||||
</field>
|
||||
<field x="9.5" type="Data" width="10" pattern="1">
|
||||
<source>DATAREG</source>
|
||||
</field>
|
||||
<field x="20.5" type="Stringa" width="3.5" pattern="1">
|
||||
<source>REG</source>
|
||||
</field>
|
||||
<field x="24.5" type="Numero" align="right" width="6" pattern="1">
|
||||
<source>PROTIVA</source>
|
||||
</field>
|
||||
<field x="31.5" type="Stringa" align="right" width="7" pattern="1">
|
||||
<source>NUMDOC</source>
|
||||
</field>
|
||||
<field x="40" type="Data" width="10" pattern="1">
|
||||
<source>DATADOC</source>
|
||||
</field>
|
||||
<field x="51.5" type="Stringa" width="3.5" pattern="1">
|
||||
<source>CODCAUS</source>
|
||||
</field>
|
||||
<field x="55.5" type="Stringa" width="42" pattern="1">
|
||||
<font face="Arial Narrow" size="8" />
|
||||
<source>DESCR</source>
|
||||
</field>
|
||||
<field x="98" type="Valuta" align="right" width="13" pattern="1" text="#########,@@">
|
||||
<source>TOTDOC</source>
|
||||
<prescript description="B1.0 PRESCRIPT">MESSAGE ADD,F1.201</prescript>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Foot" pattern="1">
|
||||
<field border="1" x="1" y="0.25" type="Linea" width="112" height="0" pattern="1" />
|
||||
<field x="3.5" y="0.75" type="Testo" width="12" pattern="1" text="Data stampa" />
|
||||
<field x="15.5" y="0.75" type="Data" width="10" pattern="1">
|
||||
<source>#DATASTAMPA</source>
|
||||
</field>
|
||||
<field x="96" y="0.75" type="Testo" width="5" pattern="1" text="Pag." />
|
||||
<field x="101" y="0.75" type="Numero" align="right" width="4" pattern="1">
|
||||
<source>#REPORT.PAGE</source>
|
||||
</field>
|
||||
</section>
|
||||
<section type="Foot" level="1" pattern="1">
|
||||
<font face="Arial" bold="1" size="8" />
|
||||
<field border="2" x="1" y="0.5" type="Linea" width="112" height="0" pattern="1" />
|
||||
<field x="88.5" y="1" type="Testo" bg_color="#000000" width="8" pattern="1" text="Totale" />
|
||||
<field x="97" y="1" type="Valuta" align="right" width="14" id="201" pattern="1" text="#########,@@" />
|
||||
</section>
|
||||
<section type="Foot" level="2" pattern="1" />
|
||||
<sql>USE MOV KEY 2
|
||||
SELECT (TIPO=#TIPOELENCO)(4-E;B0="X")
|
||||
BY 4-E;S0 CLIFO.CODCF DATAREG
|
||||
JOIN CLIFO INTO TIPOCF=TIPO CODCF==CODCF
|
||||
JOIN %STA TO CLIFO INTO CODTAB==STATOCF
|
||||
FROM DATAREG=#DATAINI
|
||||
TO DATAREG=#DATAFIN</sql>
|
||||
</report>
|
||||
64
cg/cg7100p.uml
Executable file
64
cg/cg7100p.uml
Executable file
@ -0,0 +1,64 @@
|
||||
#include "cg7100.h"
|
||||
|
||||
PAGE "Lista fatture per imponibile" -1 -1 78 8
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 15 1 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 1 2 "Data stampa "
|
||||
HELP "Data in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
FIELD #DATASTAMPA
|
||||
END
|
||||
|
||||
LIST F_TIPOELENCO 9
|
||||
BEGIN
|
||||
PROMPT 1 3 "Tipo elenco "
|
||||
HELP "Indicare cosa includere nella stampa"
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
FIELD #TIPOELENCO
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 1 5 "Movimenti dalla data "
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
DRIVENBY F_ANNO
|
||||
FIELD #DATAINI
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 38 5 "alla data "
|
||||
HELP "Data fino a cui eseguire la stampa"
|
||||
FIELD #DATAFIN
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
#include <printbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -218,13 +218,10 @@ void TPrint_x_imponibile_mask::elabora()
|
||||
const long codcf = get_long(F_CODCF);
|
||||
const bool clifo_spec = codcf > 0L;
|
||||
const int anno = get_int(F_ANNO);
|
||||
const TDate dataini(1, 1, anno);
|
||||
const TDate datafine(31, 12, anno);
|
||||
const TDate dataini = get_date(F_DATAINI);
|
||||
const TDate datafine = get_date(F_DATAFIN);
|
||||
const real limite = get_real(F_LIMITE);
|
||||
|
||||
const TDate dataini_stampa = get_date(F_DATAINI);
|
||||
const TDate datafine_stampa = get_date(F_DATAFIN);
|
||||
|
||||
TString query;
|
||||
|
||||
query << "USE MOV KEY 2";
|
||||
|
||||
@ -221,8 +221,5 @@ THEN</prescript>
|
||||
<field x="152" y="3.75" type="Valuta" align="right" width="8" id="208" pattern="1" text="#########,@@" />
|
||||
</section>
|
||||
<section type="Foot" level="2" pattern="1" />
|
||||
<sql>USE MOV KEY 3
|
||||
SELECT (ANNOIVA=2010)
|
||||
FROM TIPO=C
|
||||
TO TIPO=C</sql>
|
||||
<sql>USE MOV KEY 3</sql>
|
||||
</report>
|
||||
Loading…
x
Reference in New Issue
Block a user