Patch level : 12.0 344
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
parent
c912b7e7b0
commit
49e80ec1c6
@ -202,14 +202,14 @@ STRING F_PROTINTF 17
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero di protocollo di invio:"
|
||||
FIELD PROTINTF
|
||||
CHECKTYPE REQUIRED
|
||||
//CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_PROTINTS 6
|
||||
BEGIN
|
||||
PROMPT 50 12 " - "
|
||||
FIELD PROTINTS
|
||||
CHECKTYPE REQUIRED
|
||||
//CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 6
|
||||
|
||||
@ -22,7 +22,7 @@ class TPrint_letint_mask : public TAutomask
|
||||
TDate _last_data;
|
||||
protected:
|
||||
bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
bool ask_service_pwd();
|
||||
//bool ask_service_pwd();
|
||||
|
||||
public:
|
||||
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');
|
||||
|
||||
_last_data = botime;
|
||||
o.mask().set(F_PAGINI, "");
|
||||
//o.mask().set(F_PAGINI, "");
|
||||
reg.put("CODTAB", s);
|
||||
|
||||
for (int err = reg.read(_isgteq); s == reg.get("CODTAB").left(4) && err == NOERR; err = reg.next())
|
||||
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");
|
||||
}
|
||||
|
||||
}
|
||||
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:
|
||||
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 if(e==fe_button)
|
||||
break;
|
||||
*/
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
/*
|
||||
bool TPrint_letint_mask::ask_service_pwd()
|
||||
{
|
||||
bool ok = false;
|
||||
@ -174,6 +168,7 @@ bool TPrint_letint_mask::ask_service_pwd()
|
||||
|
||||
return ok;
|
||||
}
|
||||
*/
|
||||
|
||||
//---------------------------------------------------------------
|
||||
// REPORT
|
||||
@ -270,25 +265,13 @@ void TPrint_letint::main_loop()
|
||||
TReport_book book;
|
||||
word last_page = 0;
|
||||
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);
|
||||
if (!_da_data.ok())
|
||||
_da_data = TDate(1, 1, anno);
|
||||
_a_data = m.get_date(F_AL);
|
||||
if (!_a_data.ok())
|
||||
_a_data = TDate(31, 12, anno);
|
||||
}
|
||||
|
||||
TLetint_report rep(last_page);
|
||||
|
||||
@ -304,10 +287,6 @@ void TPrint_letint::main_loop()
|
||||
|
||||
book.add(rep);
|
||||
book.print_or_preview();
|
||||
|
||||
//in caso di stampa definitiva...
|
||||
if (definitiva && yesno_box(TR("La stampa e' corretta?")))
|
||||
setta_stampato(m, (long)rep.page());
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
@ -2,10 +2,10 @@
|
||||
// definizione campi per maschera li0500a
|
||||
|
||||
#define F_ANNO 101
|
||||
#define F_MESE 102
|
||||
#define F_DEFINITIVA 103
|
||||
//#define F_MESE 102
|
||||
//#define F_DEFINITIVA 103
|
||||
#define F_DAL 105
|
||||
#define F_AL 106
|
||||
#define F_RIPRISTINA 107
|
||||
//#define F_RIPRISTINA 107
|
||||
#define F_REPORT 108
|
||||
#define F_PAGINI 109
|
||||
//#define F_PAGINI 109
|
||||
|
||||
@ -1,83 +1,85 @@
|
||||
|
||||
<report libraries="li0500" name="li0500a" lpi="6">
|
||||
<?xml version="1.0" encoding="UTF-8" ?>
|
||||
<report name="li0500a" orientation="2" lpi="6">
|
||||
<description>registro dichiarazioni d'intento</description>
|
||||
<font face="Courier New" size="10" />
|
||||
<section type="Head">
|
||||
<font face="Arial" size="8" />
|
||||
<section type="Head" 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"
|
||||
GET_FIRM_DATA</prescript>
|
||||
</field>
|
||||
<field x="121" type="Testo" width="4" pattern="1" text="Pag." />
|
||||
<field x="125" type="Numero" align="right" width="5" pattern="1">
|
||||
<field x="161" type="Testo" width="4" pattern="1" text="Pag." />
|
||||
<field x="165" type="Numero" align="right" width="5" pattern="1">
|
||||
<source>#PAGE</source>
|
||||
<prescript description="H0.0 PRESCRIPT">#REPORT.PAGE</prescript>
|
||||
</field>
|
||||
<field x="20" y="1" type="Testo" valign="center" align="center" width="56" height="2" pattern="1" text="Registro Dichiarazioni d'intento">
|
||||
<font face="Courier New" bold="1" size="14" />
|
||||
<field y="1" type="Stringa" valign="center" align="center" width="170" height="2" pattern="1">
|
||||
<font face="Arial" bold="1" size="14" />
|
||||
<source>"Registro Dichiarazioni d'intento " +#ANNO</source>
|
||||
</field>
|
||||
<field x="74" y="1" type="Numero" valign="center" align="right" width="8" height="2" pattern="1">
|
||||
<font face="Courier New" bold="1" size="14" />
|
||||
<source>#ANNO</source>
|
||||
<field y="4" type="Testo" valign="center" align="center" width="20" height="2" pattern="1" text="Ricevimento dichiarazione">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</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 x="1" y="4" type="Testo" valign="center" align="center" width="18" height="2" pattern="1" text="Emissione dichiarazione">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="20" y="4" type="Testo" valign="center" align="center" width="20" height="2" pattern="1" text="Emissione dichiarazione">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</field>
|
||||
<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="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="117.5" y="4" type="Linea" height="3" pattern="1" />
|
||||
<field border="1" x="132" 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">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field border="1" x="109.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="143.5" y="4" type="Linea" height="3" pattern="1" />
|
||||
<field border="1" x="164.5" y="4" type="Linea" height="3" pattern="1" />
|
||||
<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 x="112" y="4.5" type="Testo" valign="center" align="center" width="4" height="2" pattern="1" text="Uff. IVA">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="125" y="4.5" type="Testo" valign="center" align="center" width="18" height="2" pattern="1" text="Limiti dichiarazione">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</field>
|
||||
<field x="40" y="5" type="Testo" valign="center" align="center" width="57" pattern="1" text="Dichiarante o fornitore F; prestatore">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="145" y="4.5" type="Testo" valign="center" align="center" width="19" height="2" pattern="1" text="Protocollo invio">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</field>
|
||||
<field x="98" y="5" type="Testo" valign="center" align="center" width="12" pattern="1" text="Partita IVA">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="165" y="4.5" type="Testo" valign="center" align="center" width="4.5" height="2" pattern="1" text="Chiusa">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</field>
|
||||
<field x="123" y="5" type="Testo" valign="center" align="center" width="6" pattern="1" text="Note">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="40" y="4.75" type="Testo" valign="center" align="center" width="57" height="1.25" pattern="1" text="Dichiarante o fornitore F; prestatore">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</field>
|
||||
<field y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="97" y="5" type="Testo" valign="center" align="center" width="11" pattern="1" text="Partita IVA">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</field>
|
||||
<field x="10" y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Protocollo">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field y="5.75" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</field>
|
||||
<field x="20" y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="10" 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 x="30" y="6" type="Testo" valign="center" align="center" width="10" pattern="1" text="Protocollo">
|
||||
<font face="Courier New" bold="1" size="10" />
|
||||
<field x="20" y="5.75" type="Testo" valign="center" align="center" width="10" pattern="1" text="Data">
|
||||
<font face="Arial Narrow" bold="1" size="10" />
|
||||
</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 type="Head" level="1" />
|
||||
<section type="Body" />
|
||||
<section type="Body" level="1">
|
||||
<section type="Head" level="1" pattern="1" />
|
||||
<section type="Body" pattern="1" />
|
||||
<section type="Body" level="1" 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>
|
||||
</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>
|
||||
</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">
|
||||
<source>CODCLI</source>
|
||||
</field>
|
||||
@ -87,17 +89,36 @@ GET_FIRM_DATA</prescript>
|
||||
<field x="98" type="Stringa" width="12" pattern="1">
|
||||
<source>CLIFO.PAIV</source>
|
||||
</field>
|
||||
<field x="112.5" type="Numero" align="right" width="3" pattern="1">
|
||||
<source>154.UFFIVA</source>
|
||||
<field x="110.5" type="Array" width="15" pattern="1">
|
||||
<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 x="118" type="Stringa" dynamic_height="1" width="15" height="18.5" pattern="1">
|
||||
<source>154.NOTE</source>
|
||||
<field x="126" type="Data" width="8" pattern="1">
|
||||
<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>
|
||||
</section>
|
||||
<section type="Foot" />
|
||||
<section type="Foot" level="1" />
|
||||
<sql>USE 154
|
||||
SELECT (NUM(ANSI(DATAREG))E;=ANSI(#DADATA))(NUM(ANSI(DATAREG))C;=ANSI(#ADATA))
|
||||
<section type="Foot" pattern="1" />
|
||||
<section type="Foot" level="1" pattern="1" />
|
||||
<sql>USE 154 SELEC (BETWEEN(154.DATAREG,#DADATA,#ADATA))
|
||||
JOIN CLIFO INTO TIPOCF=='C' CODCF==CODCLI
|
||||
FROM ANNO=#ANNO
|
||||
TO ANNO=#ANNO</sql>
|
||||
|
||||
@ -2,30 +2,12 @@
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
|
||||
BUTTON F_RIPRISTINA 10 2
|
||||
BEGIN
|
||||
PROMPT -1 -1 "~Ripristina"
|
||||
END
|
||||
|
||||
#include <printbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
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
|
||||
BEGIN
|
||||
PROMPT 1 3 "Anno "
|
||||
@ -34,13 +16,6 @@ BEGIN
|
||||
FIELD ANNO
|
||||
END
|
||||
|
||||
LIST F_MESE 2 16
|
||||
BEGIN
|
||||
PROMPT 15 3 "Mese "
|
||||
FLAGS "AM"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
DATE F_DAL
|
||||
BEGIN
|
||||
PROMPT 15 3 "Dal "
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user