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

Patch level : 12.0 344

Browse Source 
Files correlati     : li0
Commento            : 
- Sistemata maschera li0400a.uml, adesso non è obbligatorio il nuovo codice passato dall'agenzia delle entrate (Per evitare problemi di retrocompatibilità).
- Aggiornato report dichiarazioni di intento per supportare le ultime modifiche


git-svn-id: svn://10.65.10.50/branches/R_10_00@23624 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-02-16 10:46:02 +00:00
parent c912b7e7b0
commit 49e80ec1c6
5 changed files with 144 additions and 169 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/li/li0400a.uml
View File

@ -202,14 +202,14 @@ STRING F_PROTINTF 17
BEGIN BEGIN
PROMPT 1 12 "Numero di protocollo di invio:" PROMPT 1 12 "Numero di protocollo di invio:"
FIELD PROTINTF FIELD PROTINTF
CHECKTYPE REQUIRED //CHECKTYPE REQUIRED
END END
STRING F_PROTINTS 6 STRING F_PROTINTS 6
BEGIN BEGIN
PROMPT 50 12 " - " PROMPT 50 12 " - "
FIELD PROTINTS FIELD PROTINTS
CHECKTYPE REQUIRED //CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 75 6 GROUPBOX DLG_NULL 75 6

35
src/li/li0500.cpp
View File

@ -22,7 +22,7 @@ class TPrint_letint_mask : public TAutomask
TDate _last_data; TDate _last_data;
protected: protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly); bool on_field_event(TOperable_field& o, TField_event e, long jolly);
bool ask_service_pwd(); //bool ask_service_pwd();
public: public:
TPrint_letint_mask(); TPrint_letint_mask();
@ -54,27 +54,19 @@ bool TPrint_letint_mask::on_field_event(TOperable_field& o, TField_event e, long
TString s(o.get()); s.lpad(4, '0'); TString s(o.get()); s.lpad(4, '0');
_last_data = botime; _last_data = botime;
o.mask().set(F_PAGINI, ""); //o.mask().set(F_PAGINI, "");
reg.put("CODTAB", s); reg.put("CODTAB", s);
for (int err = reg.read(_isgteq); s == reg.get("CODTAB").left(4) && err == NOERR; err = reg.next()) for (int err = reg.read(_isgteq); s == reg.get("CODTAB").left(4) && err == NOERR; err = reg.next())
if (reg.get_int("I0") == 10) if (reg.get_int("I0") == 10)
{ {
o.mask().set(F_PAGINI, reg.get("I1")); //o.mask().set(F_PAGINI, reg.get("I1"));
_last_data = reg.get_date("D3"); _last_data = reg.get_date("D3");
} }
} }
break; break;
case F_MESE: /*
if (e == fe_close)
{
const int mese = atoi(o.get());
if (mese <= _last_data.month())
return error_box("Attenzione Stampa definitiva già effettuata. Ripristinare il mese se si desidera procedere");
}
break;
case F_RIPRISTINA: case F_RIPRISTINA:
if (e == fe_button) if (e == fe_button)
{ {
@ -149,12 +141,14 @@ bool TPrint_letint_mask::on_field_event(TOperable_field& o, TField_event e, long
} //end ask_service_pwd() } //end ask_service_pwd()
} //end if(e==fe_button) } //end if(e==fe_button)
break; break;
*/
default: default:
break; break;
} }
return true; return true;
} }
/*
bool TPrint_letint_mask::ask_service_pwd() bool TPrint_letint_mask::ask_service_pwd()
{ {
bool ok = false; bool ok = false;
@ -174,6 +168,7 @@ bool TPrint_letint_mask::ask_service_pwd()
return ok; return ok;
} }
*/
//--------------------------------------------------------------- //---------------------------------------------------------------
// REPORT // REPORT
@ -270,25 +265,13 @@ void TPrint_letint::main_loop()
TReport_book book; TReport_book book;
word last_page = 0; word last_page = 0;
const int anno = m.get_int(F_ANNO); const int anno = m.get_int(F_ANNO);
const bool definitiva = m.get_bool(F_DEFINITIVA);
if (definitiva)
{
last_page = m.get_int(F_PAGINI);
const int mese = m.get_int(F_MESE);
_da_data = TDate(1, mese, anno);
_a_data = _da_data;
_a_data.set_end_month();
}
else
{
_da_data = m.get_date(F_DAL); _da_data = m.get_date(F_DAL);
if (!_da_data.ok()) if (!_da_data.ok())
_da_data = TDate(1, 1, anno); _da_data = TDate(1, 1, anno);
_a_data = m.get_date(F_AL); _a_data = m.get_date(F_AL);
if (!_a_data.ok()) if (!_a_data.ok())
_a_data = TDate(31, 12, anno); _a_data = TDate(31, 12, anno);
}
TLetint_report rep(last_page); TLetint_report rep(last_page);
@ -304,10 +287,6 @@ void TPrint_letint::main_loop()
book.add(rep); book.add(rep);
book.print_or_preview(); book.print_or_preview();
//in caso di stampa definitiva...
if (definitiva && yesno_box(TR("La stampa e' corretta?")))
setta_stampato(m, (long)rep.page());
} }
} }

8
src/li/li0500a.h
View File

@ -2,10 +2,10 @@
// definizione campi per maschera li0500a // definizione campi per maschera li0500a
#define F_ANNO 101 #define F_ANNO 101
#define F_MESE 102 //#define F_MESE 102
#define F_DEFINITIVA 103 //#define F_DEFINITIVA 103
#define F_DAL 105 #define F_DAL 105
#define F_AL 106 #define F_AL 106
#define F_RIPRISTINA 107 //#define F_RIPRISTINA 107
#define F_REPORT 108 #define F_REPORT 108
#define F_PAGINI 109 //#define F_PAGINI 109

137
src/li/li0500a.rep
View File

@ -1,83 +1,85 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="li0500" name="li0500a" lpi="6"> <report name="li0500a" orientation="2" lpi="6">
<description>registro dichiarazioni d'intento</description> <description>registro dichiarazioni d'intento</description>
<font face="Courier New" size="10" /> <font face="Arial" size="8" />
<section type="Head"> <section type="Head" pattern="1">
<field type="Stringa" width="50" pattern="1"> <field type="Stringa" width="50" pattern="1">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
<prescript description="H0.0 PRESCRIPT">"!RAGSOC" <prescript description="H0.0 PRESCRIPT">"!RAGSOC"
GET_FIRM_DATA</prescript> GET_FIRM_DATA</prescript>
</field> </field>
<field x="121" type="Testo" width="4" pattern="1" text="Pag." /> <field x="161" type="Testo" width="4" pattern="1" text="Pag." />
<field x="125" type="Numero" align="right" width="5" pattern="1"> <field x="165" type="Numero" align="right" width="5" pattern="1">
<source>#PAGE</source> <source>#PAGE</source>
<prescript description="H0.0 PRESCRIPT">#REPORT.PAGE</prescript> <prescript description="H0.0 PRESCRIPT">#REPORT.PAGE</prescript>
</field> </field>
<field x="20" y="1" type="Testo" valign="center" align="center" width="56" height="2" pattern="1" text="Registro Dichiarazioni d'intento"> <field y="1" type="Stringa" valign="center" align="center" width="170" height="2" pattern="1">
<font face="Courier New" bold="1" size="14" /> <font face="Arial" bold="1" size="14" />
<source>"Registro Dichiarazioni d'intento " +#ANNO</source>
</field> </field>
<field x="74" y="1" type="Numero" valign="center" align="right" width="8" height="2" pattern="1"> <field y="4" type="Testo" valign="center" align="center" width="20" height="2" pattern="1" text="Ricevimento dichiarazione">
<font face="Courier New" bold="1" size="14" /> <font face="Arial Narrow" bold="1" size="10" />
<source>#ANNO</source>
</field> </field>
<field border="1" y="4" type="Linea" width="132" height="0" pattern="1" /> <field border="1" y="4" type="Linea" width="170" height="0" pattern="1" />
<field border="2" y="4" type="Linea" height="3" pattern="1" /> <field border="2" y="4" type="Linea" height="3" pattern="1" />
<field x="1" y="4" type="Testo" valign="center" align="center" width="18" height="2" pattern="1" text="Emissione dichiarazione"> <field x="20" y="4" type="Testo" valign="center" align="center" width="20" height="2" pattern="1" text="Emissione dichiarazione">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field border="1" x="20" y="4" type="Linea" height="3" pattern="1" /> <field border="1" x="20" y="4" type="Linea" height="3" pattern="1" />
<field x="21" y="4" type="Testo" valign="center" align="center" width="18" height="2" pattern="1" text="Ricevimento dichiarazione">
<font face="Courier New" bold="1" size="10" />
</field>
<field border="1" x="40" y="4" type="Linea" height="3" pattern="1" /> <field border="1" x="40" y="4" type="Linea" height="3" pattern="1" />
<field border="1" x="97" y="4" type="Linea" height="3" pattern="1" /> <field border="1" x="97" y="4" type="Linea" height="3" pattern="1" />
<field border="1" x="111" y="4" type="Linea" height="3" pattern="1" /> <field border="1" x="109.5" y="4" type="Linea" height="3" pattern="1" />
<field border="1" x="117.5" y="4" type="Linea" height="3" pattern="1" /> <field border="1" x="124.5" y="4" type="Linea" height="3" pattern="1" />
<field border="1" x="132" y="4" type="Linea" height="3" pattern="1" /> <field border="1" x="143.5" y="4" type="Linea" height="3" pattern="1" />
<field x="112" y="4.5" type="Testo" valign="center" align="center" width="4" height="2" pattern="1" text="Uff. IVA"> <field border="1" x="164.5" y="4" type="Linea" height="3" pattern="1" />
<font face="Courier New" bold="1" size="10" /> <field border="1" x="170" y="4" type="Linea" height="3" pattern="1" />
<field x="110" y="4.5" type="Testo" valign="center" align="center" width="14.5" height="2" pattern="1" text="Tipo dichiarazione">
<font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field x="112" y="4.5" type="Testo" valign="center" align="center" width="4" height="2" pattern="1" text="Uff. IVA"> <field x="125" y="4.5" type="Testo" valign="center" align="center" width="18" height="2" pattern="1" text="Limiti dichiarazione">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field x="40" y="5" type="Testo" valign="center" align="center" width="57" pattern="1" text="Dichiarante o fornitore &#2F; prestatore"> <field x="145" y="4.5" type="Testo" valign="center" align="center" width="19" height="2" pattern="1" text="Protocollo invio">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field x="98" y="5" type="Testo" valign="center" align="center" width="12" pattern="1" text="Partita IVA"> <field x="165" y="4.5" type="Testo" valign="center" align="center" width="4.5" height="2" pattern="1" text="Chiusa">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field x="123" y="5" type="Testo" valign="center" align="center" width="6" pattern="1" text="Note"> <field x="40" y="4.75" type="Testo" valign="center" align="center" width="57" height="1.25" pattern="1" text="Dichiarante o fornitore &#2F; prestatore">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data"> <field x="97" y="5" type="Testo" valign="center" align="center" width="11" pattern="1" text="Partita IVA">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field x="10" y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Protocollo"> <field y="5.75" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field x="20" y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data"> <field x="10" y="5.75" type="Testo" valign="center" align="center" width="10" pattern="1" text="Protocollo">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field x="30" y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Protocollo"> <field x="20" y="5.75" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data">
<font face="Courier New" bold="1" size="10" /> <font face="Arial Narrow" bold="1" size="10" />
</field> </field>
<field border="1" y="7" type="Linea" width="132" height="0" pattern="1" /> <field x="30" y="5.75" type="Testo" valign="center" align="center" width="10" pattern="1" text="Protocollo">
<font face="Arial Narrow" bold="1" size="10" />
</field>
<field border="1" y="7" type="Linea" width="170" height="0" pattern="1" />
</section> </section>
<section type="Head" level="1" /> <section type="Head" level="1" pattern="1" />
<section type="Body" /> <section type="Body" pattern="1" />
<section type="Body" level="1"> <section type="Body" level="1" pattern="1">
<field x="1" type="Data" width="10" pattern="1"> <field x="1" type="Data" width="10" pattern="1">
<source>VSDATA</source>
</field>
<field x="12" type="Stringa" width="7" pattern="1">
<source>VSPROT</source>
</field>
<field x="21" type="Data" width="10" pattern="1">
<source>DATAREG</source> <source>DATAREG</source>
</field> </field>
<field x="32" type="Numero" align="right" width="6" pattern="1"> <field x="12" type="Numero" align="right" width="6" pattern="1">
<source>NUMPROT</source> <source>NUMPROT</source>
</field> </field>
<field x="21" type="Data" width="10" pattern="1">
<source>VSDATA</source>
</field>
<field x="32" type="Stringa" align="right" width="7" pattern="1">
<source>VSPROT</source>
</field>
<field x="40" type="Numero" align="right" width="6" pattern="1"> <field x="40" type="Numero" align="right" width="6" pattern="1">
<source>CODCLI</source> <source>CODCLI</source>
</field> </field>
@ -87,17 +89,36 @@ GET_FIRM_DATA</prescript>
<field x="98" type="Stringa" width="12" pattern="1"> <field x="98" type="Stringa" width="12" pattern="1">
<source>CLIFO.PAIV</source> <source>CLIFO.PAIV</source>
</field> </field>
<field x="112.5" type="Numero" align="right" width="3" pattern="1"> <field x="110.5" type="Array" width="15" pattern="1">
<source>154.UFFIVA</source> <source>154.TIPOOP</source>
<list>
<li Value="Singola" Code="1">MESSAGE SHOW,10@|HIDE,20@</li>
<li Value="A concorrenza" Code="2">MESSAGE SHOW,10@|HIDE,20@</li>
<li Value="Nel Periodo" Code="3">MESSAGE SHOW,20@|HIDE,10@</li>
</list>
</field> </field>
<field x="118" type="Stringa" dynamic_height="1" width="15" height="18.5" pattern="1"> <field x="126" type="Data" width="8" pattern="1">
<source>154.NOTE</source> <groups>20</groups>
<source>154.DAL</source>
</field>
<field x="127" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<groups>10</groups>
<source>154.IMPORTO</source>
</field>
<field x="135" type="Data" width="8" pattern="1">
<groups>20</groups>
<source>154.AL</source>
</field>
<field x="145" type="Stringa" width="20" pattern="1">
<source>154.PROTINTF+" - "+154.PROTINTS</source>
</field>
<field x="167" type="Stringa" width="1" pattern="1">
<source>154.CHIUSA</source>
</field> </field>
</section> </section>
<section type="Foot" /> <section type="Foot" pattern="1" />
<section type="Foot" level="1" /> <section type="Foot" level="1" pattern="1" />
<sql>USE 154 <sql>USE 154 SELEC (BETWEEN(154.DATAREG,#DADATA,#ADATA))
SELECT (NUM(ANSI(DATAREG))&#3E;=ANSI(#DADATA))&#26;&#26;(NUM(ANSI(DATAREG))&#3C;=ANSI(#ADATA))
JOIN CLIFO INTO TIPOCF=='C' CODCF==CODCLI JOIN CLIFO INTO TIPOCF=='C' CODCF==CODCLI
FROM ANNO=#ANNO FROM ANNO=#ANNO
TO ANNO=#ANNO</sql> TO ANNO=#ANNO</sql>

25
src/li/li0500a.uml
View File

@ -2,30 +2,12 @@
TOOLBAR "topbar" 0 0 0 2 TOOLBAR "topbar" 0 0 0 2
BUTTON F_RIPRISTINA 10 2
BEGIN
PROMPT -1 -1 "~Ripristina"
END
#include <printbar.h> #include <printbar.h>
ENDPAGE ENDPAGE
PAGE "Stampa dichiarazioni d'intento" 0 2 0 0 PAGE "Stampa dichiarazioni d'intento" 0 2 0 0
BOOLEAN F_DEFINITIVA
BEGIN
PROMPT 1 1 "Definitiva"
MESSAGE FALSE HIDE,2@|SHOW,1@
MESSAGE TRUE SHOW,2@|HIDE,1@
END
NUMBER F_PAGINI 6
BEGIN
PROMPT 20 1 "Ultima pagina "
GROUP 2
END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 1 3 "Anno " PROMPT 1 3 "Anno "
@ -34,13 +16,6 @@ BEGIN
FIELD ANNO FIELD ANNO
END END
LIST F_MESE 2 16
BEGIN
PROMPT 15 3 "Mese "
FLAGS "AM"
GROUP 2
END
DATE F_DAL DATE F_DAL
BEGIN BEGIN
PROMPT 15 3 "Dal " PROMPT 15 3 "Dal "