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

Prima versione 770 2013

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22851 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-05-06 08:53:11 +00:00
parent 3070c2a72c
commit 3048dced97
1 changed files with 21 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
m770/777100.cpp
View File

@ -28,7 +28,7 @@
// Codice fiscale di Sirio spa
#define CF_PRODUTTORE "00909290355"
const int ANNO_DIC = 2011;
const int ANNO_DIC = 2012;
///////////////////////////////////////////////////////////
// TForm770
@ -778,39 +778,37 @@ TTracciato770::TTracciato770(char tipo) : _tipo(tipo)
add_field("Situazioni particolari", NU,1180,2, 100); // 100
add_field("Codice fiscale del rappresentante", CF,1396,16,110); // 110
add_field("Codice fiscale del rappresentante", CF,1396,16,126); // 126
add_field("Codice carica del rappresentante", NU,1412, 2);
add_field("Data carica del rappresentante", DT,1414, 8);
add_field("Cognome", AN,1493,24, 115); // 115
add_field("Cognome", AN,1493,24, 131); // 131
add_field("Nome", AN,1517,20);
add_field("Sesso", AN,1537, 1);
add_field("Data di nascita rappresentante", DT,1538, 8);
add_field("Comune di nascita", AN,1546,40); // 119
add_field("Comune di nascita", AN,1546,40); // 135
add_field("Provincia di nascita", PN,1586, 2);
add_field("Codice stato estero", NU,1588, 3); // 121
add_field("Codice stato estero", NU,1588, 3); // 137
add_field("Stato federato, provincia, contea", AN,1591,24);
add_field("Localitá di residenza", AN,1615,24);
add_field("Indirizzo estero", AN,1639,35); // 124
add_field("Località di residenza", AN,1615,24);
add_field("Indirizzo estero", AN,1639,35); // 140
add_field("Data apertura fallimento", DT,1686, 8, 126); // 126
add_field("Data apertura fallimento", DT,1686, 8, 142); // 142
add_field("Codice fiscale societa o dichiarante", NU,1694,11);
add_field("Invio avviso telematico", CB,1715, 1, 131); // 131
add_field("Invio avviso telematico", CB,1715, 1, 147); // 147
add_field("Ricezione avviso telematico", CB,1716, 1);
add_field("Codice fiscale intermediario", CF,1717,16);
add_field("Numero iscrizione C.A.F.", NU,1733, 5);
add_field("Impegno a trasmettere la dichiaraz.", NU,1738, 1); // 135
add_field("Impegno a trasmettere la dichiaraz.", NU,1738, 1); // 151
add_field("Data dell'impegno", DT,1739, 8);
add_field("Firma dell'intermediario", CB,1747, 1);
add_field("Codice fiscale responsabile C.A.F.", CF,1748,16);
add_field("Codice fiscale C.A.F.", CN,1764,11);
add_field("Codice fiscale professionista", CF,1775,16); // 140
add_field("Codice fiscale professionista", CF,1775,16); // 156
add_field("Firma", CB,1791, 1);
add_field("Importi < 1 Euro", CB,1878, 1, 152); // 152 (NU ma vale 1 o 0)
} else
if (tipo == 'E' || tipo == 'F')
{
add_field("Codice fiscale del dichiarante", CF, 2, 16); // 2
@ -1184,7 +1182,7 @@ TRecord770::~TRecord770()
///////////////////////////////////////////////////////////
const char* TTrasferimento770::default_name() const
{ return "MOD77012"; }
{ return "MOD77013"; }
bool TTrasferimento770::open(const char* path, char mode, int volume)
{
@ -1377,14 +1375,14 @@ bool TTrasferimento770::append_record_b()
const TRectype& rec_com_nas = _cache770.get(LF_COMUNI, key);
key.cut(0) << "|" << rec_rap.get(ANA_COMRES);
const TRectype& rec_com_res = _cache770.get(LF_COMUNI, key);
rec.set(110, rec_rap.get(ANA_COFI));
rec.set(111, rec_nditte.get(NDT_CARRAPP));
rec.set(115, rec_rap.get(ANA_RAGSOC).left(24));
rec.set(116, rec_rap.get(ANA_RAGSOC).mid(30, 20));
rec.set(117, rec_rap_fis.get(ANF_SESSO));
rec.set(118, rec_rap_fis.get_date(ANF_DATANASC));
rec.set(119, rec_com_nas.get(COM_DENCOM));
rec.set(120, rec_com_nas.get(COM_PROVCOM));
rec.set(126, rec_rap.get(ANA_COFI));
rec.set(127, rec_nditte.get(NDT_CARRAPP));
rec.set(131, rec_rap.get(ANA_RAGSOC).left(24));
rec.set(132, rec_rap.get(ANA_RAGSOC).mid(30, 20));
rec.set(133, rec_rap_fis.get(ANF_SESSO));
rec.set(134, rec_rap_fis.get_date(ANF_DATANASC));
rec.set(135, rec_com_nas.get(COM_DENCOM));
rec.set(136, rec_com_nas.get(COM_PROVCOM));
// Ignoro la parte "estera"
@ -1494,7 +1492,7 @@ bool TTrasferimento770::split(const char* path)
if (_save_headers)
{
rec.tipo_record('A'); // Compila record di testata A
rec.set(3, "77S12"); // Codice fornitura
rec.set(3, "77S13"); // Codice fornitura
rec.set(4, 1); // Tipo fornitore 01 = Soggetto che invia la propria dichiarazione
rec.set(5, cod_fis_dic()); // Codice fiscale del fornitore
if (volumes > 1)
@ -1635,7 +1633,6 @@ protected:
public:
TTransfer770_msk();
virtual ~TTransfer770_msk() { }
};
bool TTransfer770_msk::on_field_event(TOperable_field& of, TField_event fe, long jolly)