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

Patch level : xx.282

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Riportata la versione 01.05 patch 282


git-svn-id: svn://10.65.10.50/trunk@8076 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1999-04-22 14:23:18 +00:00
parent fbd1ada076
commit a6bbb2800e
25 changed files with 2732 additions and 148 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
in/f134.dir
View File

@ -1,3 +1,3 @@
134 134
0 0
$rintra|0|0|110|0|Righe movimenti intra||| $rintra|0|0|112|0|Righe movimenti intra|||

2
in/f134.trr
View File

@ -5,13 +5,13 @@ NUMRIG|2|3|0|Numero di riga
AMMLIRE|4|18|2|Ammontare in lire AMMLIRE|4|18|2|Ammontare in lire
AMMVALUTA|4|18|2|Ammontare in valuta AMMVALUTA|4|18|2|Ammontare in valuta
NATURA|2|1|0|Natura della transazione NATURA|2|1|0|Natura della transazione
CONSEGNA|1|3|0|Condizioni di consegna
TRASPORTO|6|1|0|Tipo di trasporto TRASPORTO|6|1|0|Tipo di trasporto
NOMENCL|1|8|0|Nomenclatura NOMENCL|1|8|0|Nomenclatura
MASSAKG|4|13|5|Massa in Kilogrammi MASSAKG|4|13|5|Massa in Kilogrammi
MASSAUMS|4|13|6|Massa nell'unita' di misura specificata MASSAUMS|4|13|6|Massa nell'unita' di misura specificata
UMS|1|2|0|Unita' di misura UMS|1|2|0|Unita' di misura
VALSTAT|4|18|2|Valore statistico VALSTAT|4|18|2|Valore statistico
REGIME|2|1|0|Regime
PAESE|1|2|0|Paese di destinazione/provenineza PAESE|1|2|0|Paese di destinazione/provenineza
PAESEORIG|1|2|0|Paese d'origine PAESEORIG|1|2|0|Paese d'origine
PROV|1|2|0|Provincia d'origine/destinazione PROV|1|2|0|Provincia d'origine/destinazione

2
in/f135.dir
View File

@ -1,3 +1,3 @@
135 135
0 0
$rieprett|0|0|154|0|Riepiloghi e rettifiche INTRA||| $rieprett|0|0|156|0|Riepiloghi e rettifiche INTRA|||

2
in/f135.trr
View File

@ -8,7 +8,7 @@ STATO|1|2|0|Codice ISO dello Stato CEE
PIVA|1|13|0|Partita IVA Cliente/Fornitore PIVA|1|13|0|Partita IVA Cliente/Fornitore
NATURA|7|1|0|Natura della transazione NATURA|7|1|0|Natura della transazione
NOMENCL|3|8|0|Nomenclatura combinata NOMENCL|3|8|0|Nomenclatura combinata
REGIME|6|1|0|Regime [1,6] CONSEGNA|1|3|0|Condizioni di consegna
TRASPORTO|2|1|0|Tipo di trasporto [1,9] TRASPORTO|2|1|0|Tipo di trasporto [1,9]
PAESE|1|2|0|Paese di destinazione/provenienza PAESE|1|2|0|Paese di destinazione/provenienza
PAESEORIG|1|2|0|Paese d'origine (solo Acquisti) PAESEORIG|1|2|0|Paese d'origine (solo Acquisti)

8
in/in0.cpp
View File

@ -7,9 +7,11 @@ int main(int argc, char** argv)
const int n = (argc > 1) ? (argv[1][1]-'0') : 0; const int n = (argc > 1) ? (argv[1][1]-'0') : 0;
switch (n) switch (n)
{ {
case 5 : is0600(argc, argv); break; // riepiloghi case 0 : in0100(argc, argv); break; // stampa
case 6 : is0700(argc, argv); break; // rettifiche case 1 : in0200(argc, argv); break; // dischetti
default: is0500(argc, argv); break; // movimenti case 5 : in0600(argc, argv); break; // riepiloghi
case 6 : in0700(argc, argv); break; // rettifiche
default: in0500(argc, argv); break; // movimenti
} }
exit(0); exit(0);
return 0; return 0;

8
in/in0.h
View File

@ -1,4 +1,6 @@
int is0500(int argc, char* argv[]); int in0100(int argc, char* argv[]);
int is0600(int argc, char* argv[]); int in0200(int argc, char* argv[]);
int is0700(int argc, char* argv[]); int in0500(int argc, char* argv[]);
int in0600(int argc, char* argv[]);
int in0700(int argc, char* argv[]);

335
in/in0100.cpp Executable file
View File

@ -0,0 +1,335 @@
// Programma di stampa riepiloghi INTRA comunitari
//
// A fundament of righteous men, a barrow of ideals, the carriage
// of misjustice crushes all beneath its weels
//
#include <applicat.h>
#include <prefix.h>
#include <printer.h>
#include <recarray.h>
#include <form.h>
#include <nditte.h>
#include "in0.h"
#include "in0100a.h"
#include "inlib01.h"
///////////////////////////////////////////////////////////
// TStampaIntra_form
///////////////////////////////////////////////////////////
class TStampaIntra_form : public TForm
{
TRecord_array *_riepiloghi;
TRecord_array *_rettifiche;
TString16 _tipo, _frequenza, _periodo, _anno;
int _totrow1, _totrow2, _totpag1, _totpag2; // Righe e pagine totali per sezioni...
int _pageno1, _pageno2, _index1, _index2; // Numero di pagina corrente ed indice di accesso ai TRecord_array
real _tot1, _tot2; // Totale ammontare sezione 1 e 2
real _riportoprec1, _riportoprec2; // Riporto pagina prec. per sezioni 1 e 2
real _totaleprog1, _totaleprog2; // Totale progressivo per pagina, sezioni 1 e 2
protected:
void print_page(const pagetype p);
const bool good() const;
public:
void print();
TStampaIntra_form (const char* name, char t, char f, int p, int a);
virtual ~TStampaIntra_form ();
};
TStampaIntra_form::TStampaIntra_form(const char* name, char t, char f, int p, int a) : TForm(name)
{
_tipo << t;
_frequenza << f;
_periodo << p;
_anno << a;
TRectype dep(cursor()->file(LF_RIEPRETT).curr());
dep.zero();
dep.put("TIPO", t); dep.put("ANNO", a);
dep.put("PERIODO", p);
_riepiloghi = new TRecord_array(dep, "NUMRIG");
t++;
dep.put("TIPO", t);
_rettifiche = new TRecord_array(dep, "NUMRIG");
}
TStampaIntra_form::~TStampaIntra_form()
{
if (_riepiloghi)
delete _riepiloghi;
if (_rettifiche)
delete _rettifiche;
}
const bool TStampaIntra_form::good() const
{
return _index1 <= _riepiloghi->rows() || _index2 <= _rettifiche->rows();
}
void TStampaIntra_form::print_page(const pagetype p)
{
TString16 ws;
char secs[] = { "HBF" };
TPrint_section* ps;
TPrinter& pr = printer();
for (int sc = 0; sc < 3; sc++)
if ((ps = exist(secs[sc], p, FALSE)) != NULL)
{
const word r = ps->height();
int iterations = 1;
if (secs[sc] == 'B')
switch(p)
{
case odd_page:
iterations = 10;
break;
case even_page:
iterations = 7;
break;
default:
break;
}
const bool is_odd_page = p == odd_page;
const bool not_first = p != first_page;
int& index = is_odd_page ? _index1 : _index2;
int& max = is_odd_page ? _totrow1 : _totrow2;
// Per le testate ed i footers 1 singola iterazione, per i Body (solo ODD ed EVEN)
// esegue tante iterazioni quante sono le righe per riepiloghi o rettifiche
for (int k = 0; k < iterations; k++)
{
ps->reset();
switch (secs[sc])
{
case 'H': // Testate...
{
if (p == first_page || (not_first && index <= max))
{
ps->find_field(_frequenza == "M" ? 1 : 2).set(_periodo);
ps->find_field(3).set(_anno);
if (p == first_page)
ps->find_field(4).set(_frequenza);
ps->update();
}
}
break;
case 'F': // Footers...
if (p == first_page)
{
ws.format("%d", _totpag1);
ps->find_field(1).set(ws);
ws.format("%d", _totrow1);
ps->find_field(2).set(ws);
ps->find_field(3).set(_tot1.string());
ws.format("%d", _totpag2);
ps->find_field(4).set(ws);
ws.format("%d", _totrow2);
ps->find_field(5).set(ws);
ps->find_field(6).set(_tot2.string());
ps->update();
}
else // Footers ODD/EVEN
{
real & rrip = is_odd_page ? _riportoprec1 : _riportoprec2;
real & rtot = is_odd_page ? _totaleprog1 : _totaleprog2;
int& pgn = is_odd_page ? _pageno1 : _pageno2;
int& totpgn = is_odd_page ? _totpag1 : _totpag2;
if (pgn <= totpgn)
{
ws.format("%d", pgn);
ps->find_field(1).set(rrip.string());
ps->find_field(2).set(rtot.string());
ps->find_field(3).set(ws);
pgn++;
ps->update();
}
rrip = rtot;
}
break;
case 'B': // Body! CDB Infame donato per compiacer alle virtu' delle giovani signore/signorine
{ // Spezza il Totem: riunisce la piu' probabile delle ipotesi in un inutile compendio di
// miserabili ed incomode tentazioni.
if (not_first)
{
TRecord_array* ra = is_odd_page ? _riepiloghi : _rettifiche;
if (index <= max)
{
const TRectype& rec = ra->row(index);
relation()->lfile(LF_RIEPRETT).curr() = rec;
real & rtot = is_odd_page ? _totaleprog1 : _totaleprog2;
rtot += rec.get_real("AMMLIRE");
index++;
ps->update();
}
}
else
ps->update();
}
break;
default:
break;
}
for (word j = 0; j < r; j++)
{
TPrintrow& row = ps->row(j);
pr.print(row);
}
}
}
// No formfeed is needed since Header + n * Body + Footer = 72;
// Where n is the total body size for first_page, 10 for odd_page and 7 for even_page
}
void TStampaIntra_form::print()
{
TPrinter& pr = printer();
// Calcolo degli ammontare complessivi, totale pagine e righe di dettaglio
// per sezione
_totrow1 = _riepiloghi->rows();
_totrow2 = _rettifiche->rows();
_totpag1 = _totrow1 % 10 != 0 ? _totrow1 / 10 + 1 : _totrow1 / 10;
_totpag2 = _totrow2 % 7 != 0 ? _totrow2 / 7 + 1 : _totrow2 / 7;
_pageno1 = _pageno2 = 1;
_index1 = _index2 = 1;
if (_totrow1 + _totrow2 == 0)
{
error_box("Non esistono righe di riepilogo o rettifiche da stampare per il periodo selezionato");
return;
}
for (int i = 1; i <= _totrow1; i++)
_tot1 += _riepiloghi->row(i).get_real("AMMLIRE");
for (i = 1; i <= _totrow2; i++)
{
const TRectype& rec = _rettifiche->row(i);
if (rec.get_char("SEGNORETT") == '-')
_tot2 -= rec.get_real("AMMLIRE");
else
_tot2 += rec.get_real("AMMLIRE");
}
//Posiziona la relazione principale (ditta corrente)
TLocalisamfile& nditte = relation()->lfile(LF_NDITTE);
nditte.put(NDT_CODDITTA, prefix().get_codditta());
if (relation()->read(_isequal) != NOERR && !yesno_box("Errore nel posizionamento sulla ditta corrente. Continuare?"))
return;
pr.formlen(height(1));
pr.open(); // Apriti Sesamo! Granello di nulla... ma assai importante nell'antichita'.
//Posizionamento
if (pr.printtype() == winprinter && pr.is_generic())
arrange_form();
// Ed ecco qui... il Lievito Svi$$ero (sempre per rimanere in tema di Ali' Baba' ed i 40 Kazzoni)
while (good())
{
for (int pagina = 1; pagina <= 4; pagina++)
{
switch (pagina)
{
case 1:
print_page(first_page);
break;
case 2:
case 3:
print_page(odd_page);
break;
case 4:
print_page(even_page);
break;
default:
break;
}
}
}
// Exhausting all the rest:
// I will get, you dear enemy;
// ..See that people are underhand when asking: "how are you?"
// And so the printer was CLOSED!
pr.close(); // Chiuditi Sesamo
}
///////////////////////////////////////////////////////////
// TStampaIntra_mask
///////////////////////////////////////////////////////////
class TStampaIntra_mask : public TIntra_mask
{
protected:
virtual short type_field() const { return R_TIPO; }
virtual short period_field() const { return R_PERIODO_M; }
public:
void print();
TStampaIntra_mask();
virtual ~TStampaIntra_mask() { }
};
TStampaIntra_mask::TStampaIntra_mask()
: TIntra_mask("in0100a")
{ }
void TStampaIntra_mask::print()
{
TStampaIntra_form form(tipo() == 'A' ? "in0100a" : "in0100b", tipo(), frequenza(), periodo(), get_int(R_ANNO));
form.print();
}
///////////////////////////////////////////////////////////
// Applicazione di stampa
///////////////////////////////////////////////////////////
class TStampa_intra : public TSkeleton_application
{
TStampaIntra_mask* _msk;
protected:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
public:
TStampa_intra() {};
virtual ~TStampa_intra() {};
};
bool TStampa_intra::create()
{
open_files(LF_TABCOM, LF_TAB, LF_CLIFO, LF_MOV,
LF_INTRA, LF_RINTRA, 0);
_msk = new TStampaIntra_mask;
return TSkeleton_application::create();
}
bool TStampa_intra::destroy()
{
delete _msk;
return TSkeleton_application::destroy();
}
void TStampa_intra::main_loop()
{
while (_msk->run()!=K_QUIT)
_msk->print();
}
int in0100(int argc, char* argv[])
{
TStampa_intra a;
a.run(argc, argv, "Stampa Riepiloghi");
return 0;
}

789
in/in0100a.frm Executable file
View File

@ -0,0 +1,789 @@
// Form per la stampa riepiloghi INTRA (Acquisti)
USE 9
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 118@ ALIAS 213 INTO STATO=="" COM==COMNASC
JOIN 13 TO 106@ ALIAS 313 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 106@ ALIAS 413 INTO STATO=="" COM==COMRF
JOIN 6 TO 9 ALIAS 206 INTO TIPOA==TIPOSOGDEL CODANAGR==CODSOGDEL
JOIN 13 TO 206@ ALIAS 513 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 206@ ALIAS 613 INTO STATO=="" COM==COMRF
JOIN 135 TO 9 INTO ANNO=CODDITTA
END
DESCRIPTION
BEGIN
END
GENERAL
BEGIN
OFFSET 0 0
CARATTERE "X"
INIZIO_POS 2 4
FINE_POS 76
END
SECTION HEADER FIRST 16
NUMERO 1 4
BEGIN
KEY "Mese"
PROMPT 43 14 ""
PICTURE "@ #"
END
NUMERO 2 1
BEGIN
KEY "Trimestre"
PROMPT 55 14 ""
END
NUMERO 3 5
BEGIN
KEY "Anno"
PROMPT 64 14 ""
PICTURE "^^# #"
END
STRINGA 4 1
BEGIN
KEY "Tipo riepilogo"
PROMPT 39 16 ""
END
END
SECTION BODY FIRST 33
LISTA 99
BEGIN
KEY "Tipo anagrafica"
PROMPT 1 1 ""
FIELD TIPOA
ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "Codice Fiscale"
PROMPT 3 7 ""
FIELD 106@->COFI
END
STRINGA 2
BEGIN
KEY "Partita IVA"
PROMPT 53 7 ""
FIELD 106@->PAIV
END
STRINGA 3
BEGIN
KEY "Cognome"
PROMPT 3 10 ""
FIELD 106@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "Nome"
PROMPT 43 10 ""
FIELD 106@->RAGSOC[31,50]
GROUP 1
END
DATA 5
BEGIN
KEY "Data di nascita"
PROMPT 4 13 ""
FIELD 118@->DATANASC
FORMAT "1442-"
PICTURE "# #^# #^# #"
GROUP 1
END
LISTA 6
BEGIN
KEY "Sesso"
PROMPT 19 13 ""
FIELD 118@->SESSO
ITEM "M|X"
ITEM "F| X"
GROUP 1
END
STRINGA 7 32
BEGIN
KEY "Comune di nascita"
PROMPT 23 13 ""
FIELD 213@->DENCOM
GROUP 1
END
STRINGA 8 2
BEGIN
KEY "Provincia di nascita"
PROMPT 59 13 ""
FIELD 213@->PROVCOM
GROUP 1
END
STRINGA 9 4
BEGIN
KEY "Prefisso telefonico"
PROMPT 64 13 ""
FIELD 106@->PTELRF
GROUP 1
END
STRINGA 10 9
BEGIN
KEY "Numero telefonico"
PROMPT 69 13 ""
FIELD 106@->TELRF
GROUP 1
END
STRINGA 11
BEGIN
KEY "Denominazione o ragione sociale"
PROMPT 3 17 ""
FIELD 106@->RAGSOC
GROUP 2
END
STRINGA 12 4
BEGIN
KEY "Prefisso telefonico"
PROMPT 64 17 ""
FIELD 106@->PTELRF
GROUP 2
END
STRINGA 13 9
BEGIN
KEY "Numero telefonico"
PROMPT 69 17 ""
FIELD 106@->TELRF
GROUP 2
END
STRINGA 14 20
BEGIN
KEY "Comune di residenza fiscale"
PROMPT 52 20 ""
FIELD 413@->DENCOM
MESSAGE EMPTY SHOW,3@|HIDE,4@
MESSAGE SHOW,4@|HIDE,3@
END
STRINGA 15 20
BEGIN
KEY "Comune di residenza"
PROMPT 52 20 ""
FIELD 313@->DENCOM
GROUP 3
END
STRINGA 16
BEGIN
KEY "Provincia di residenza fiscale"
PROMPT 74 20 ""
FIELD 413@->PROVCOM
GROUP 4
END
STRINGA 17
BEGIN
KEY "Provincia di residenza"
PROMPT 74 20 ""
FIELD 313@->PROVCOM
GROUP 3
END
STRINGA 18
BEGIN
KEY "Indirizzo residenza fiscale"
PROMPT 1 20 ""
FIELD 106@->INDRF[1,35]
FLAGS "H"
MESSAGE COPY,20
END
STRINGA 19
BEGIN
KEY "Nr. civico di residenza fiscale"
PROMPT 1 20 ""
FIELD 106@->CIVRF
FLAGS "H"
MESSAGE APPEND,20
END
STRINGA 20 38
BEGIN
KEY "Indirizzo residenza fiscale+nr. civico"
PROMPT 3 20 ""
GROUP 4
END
STRINGA 21
BEGIN
KEY "Indirizzo residenza"
PROMPT 1 20 ""
FIELD 106@->INDRES[1,35]
FLAGS "H"
MESSAGE COPY,23
END
STRINGA 22
BEGIN
KEY "Nr. civico di residenza"
PROMPT 1 20 ""
FIELD 106@->CIVRES
FLAGS "H"
MESSAGE APPEND,23
END
STRINGA 23 38
BEGIN
KEY "Indirizzo residenza+nr. civico"
PROMPT 3 20 ""
GROUP 3
END
STRINGA 24
BEGIN
KEY "CAP residenza fiscale"
PROMPT 42 20 ""
FIELD 106@->CAPRF
GROUP 4
END
STRINGA 25
BEGIN
KEY "CAP residenza"
PROMPT 42 20 ""
FIELD 106@->CAPRES
GROUP 3
END
LISTA 26 1
BEGIN
KEY "Elenchi presentati in precedenza"
PROMPT 7 23 ""
ITEM " | "
ITEM "X|X"
FIELD PRESELEN
END
LISTA 26 1
BEGIN
KEY "Cessazione attivita'"
PROMPT 40 23 ""
ITEM " | "
ITEM "X|X"
FIELD CESSIVA
END
STRINGA 27
BEGIN
KEY "Partita IVA delegato"
PROMPT 11 27 ""
FIELD 206@->PAIV
END
STRINGA 28 50
BEGIN
KEY "Nome e Cognome o Ragione sociale delegato"
PROMPT 3 30 ""
FIELD 206@->RAGSOC
END
STRINGA 29 4
BEGIN
KEY "Prefisso telefonico delegato"
PROMPT 64 30 ""
FIELD 206@->PTELRF
END
STRINGA 30 9
BEGIN
KEY "Numero telefonico delegato"
PROMPT 69 30 ""
FIELD 206@->TELRF
END
STRINGA 31 20
BEGIN
KEY "Comune di residenza fiscale delegato"
PROMPT 52 33 ""
FIELD 613@->DENCOM
MESSAGE EMPTY SHOW,5@|HIDE,6@
MESSAGE SHOW,6@|HIDE,5@
END
STRINGA 32 20
BEGIN
KEY "Comune di residenza delegato"
PROMPT 52 33 ""
FIELD 513@->DENCOM
GROUP 5
END
STRINGA 33
BEGIN
KEY "Provincia di residenza fiscale delegato"
PROMPT 74 33 ""
FIELD 613@->PROVCOM
GROUP 6
END
STRINGA 34
BEGIN
KEY "Provincia di residenza delegato"
PROMPT 74 33 ""
FIELD 513@->PROVCOM
GROUP 5
END
STRINGA 35
BEGIN
KEY "Indirizzo residenza fiscale delegato"
PROMPT 1 33 ""
FIELD 206@->INDRF[1,35]
FLAGS "H"
MESSAGE COPY,37
END
STRINGA 36
BEGIN
KEY "Nr. civico di residenza fiscale delegato"
PROMPT 1 33 ""
FIELD 206@->CIVRF
FLAGS "H"
MESSAGE APPEND,37
END
STRINGA 37 38
BEGIN
KEY "Indirizzo residenza fiscale+nr. civico delegato"
PROMPT 3 33 ""
GROUP 6
END
STRINGA 38
BEGIN
KEY "Indirizzo residenza delegato"
PROMPT 1 33 ""
FIELD 206@->INDRES[1,35]
FLAGS "H"
MESSAGE COPY,40
END
STRINGA 39
BEGIN
KEY "Nr. civico di residenza delegato"
PROMPT 1 33 ""
FIELD 206@->CIVRES
FLAGS "H"
MESSAGE APPEND,40
END
STRINGA 40 38
BEGIN
KEY "Indirizzo residenza+nr. civico delegato"
PROMPT 3 33 ""
GROUP 5
END
STRINGA 41
BEGIN
KEY "CAP residenza fiscale delegato"
PROMPT 42 33 ""
FIELD 206@->CAPRF
GROUP 6
END
STRINGA 42
BEGIN
KEY "CAP residenza delegato"
PROMPT 42 33 ""
FIELD 206@->CAPRES
GROUP 5
END
END
SECTION FOOTER FIRST 23
NUMERO 1 3
BEGIN
KEY "Totale pagine sezione 1"
PROMPT 11 6 ""
END
NUMERO 2 5
BEGIN
KEY "Totale righe dettaglio sezione 1"
PROMPT 18 6 ""
END
NUMERO 3 15
BEGIN
KEY "Ammontare complessivo sezione 1"
PROMPT 25 6 ""
PICTURE "###.###.###.^^^"
END
NUMERO 4 3
BEGIN
KEY "Totale pagine sezione 2"
PROMPT 49 6 ""
END
NUMERO 5 5
BEGIN
KEY "Totale righe dettaglio sezione 2"
PROMPT 56 6 ""
END
NUMERO 6 15
BEGIN
KEY "Ammontare complessivo sezione 2"
PROMPT 64 6 ""
PICTURE "###.###.###.^^^"
END
DATA 7 10
BEGIN
KEY "Data di stampa"
PROMPT 6 10 ""
MESSAGE _TODAY
END
END
SECTION HEADER ODD 21
NUMERO 1 4
BEGIN
KEY "Mese"
PROMPT 16 15 ""
PICTURE "@ #"
END
NUMERO 2 1
BEGIN
KEY "Trimestre"
PROMPT 29 15 ""
END
NUMERO 3 5
BEGIN
KEY "Anno"
PROMPT 37 15 ""
PICTURE "^^# #"
END
STRINGA 4
BEGIN
KEY "Partita IVA"
PROMPT 53 15 ""
FIELD 106@->PAIV
END
END
SECTION BODY ODD 2
NUMERO 1 3
BEGIN
KEY "Progressivo riga"
PROMPT 3 1 ""
FIELD 135->NUMRIG
END
STRINGA 2 2
BEGIN
KEY "Stato"
PROMPT 7 1 ""
FIELD 135->STATO
END
STRINGA 3 11
BEGIN
KEY "Partita IVA"
PROMPT 11 1 ""
FIELD 135->PIVA
END
NUMERO 4 12
BEGIN
KEY "Ammontare operazioni in lire"
PROMPT 25 1 ""
FIELD 135->AMMLIRE
PICTURE "####.###.^^^"
END
NUMERO 5 12
BEGIN
KEY "Ammontare operazioni in valuta"
PROMPT 37 1 ""
FIELD 135->AMMVALUTA
PICTURE "#.###.###,@@"
END
STRINGA 6 1
BEGIN
KEY "Natura della transazione"
PROMPT 50 1 ""
FIELD 135->NATURA
END
STRINGA 7 8
BEGIN
KEY "Nomenclatura combinata"
PROMPT 53 1 ""
FIELD 135->NOMENCL
PICTURE "@@@@@@@@"
END
NUMERO 8 10
BEGIN
KEY "Massa netta in kilogrammi"
PROMPT 62 1 ""
FIELD 135->MASSAKG
PICTURE "######,@@@"
END
NUMERO 9 10
BEGIN
KEY "Massa in unita' supplementare"
PROMPT 73 1 ""
FIELD 135->MASSAUMS
PICTURE "######,@@@"
END
NUMERO 10 12
BEGIN
KEY "Valore statistico"
PROMPT 84 1 ""
FIELD 135->VALSTAT
PICTURE "####.###.^^^"
END
STRINGA 11 1
BEGIN
KEY "Codice consegna"
PROMPT 97 1 ""
FIELD 135->CONSEGNA[1,1]
END
STRINGA 12 1
BEGIN
KEY "Modo di trasporto"
PROMPT 100 1 ""
FIELD 135->TRASPORTO
END
STRINGA 13 2
BEGIN
KEY "Paese destinazione/provenienza"
PROMPT 103 1 ""
FIELD 135->PAESE
END
STRINGA 14 2
BEGIN
KEY "Paese di origine"
PROMPT 107 1 ""
FIELD 135->PAESEORIG
END
STRINGA 15 2
BEGIN
KEY "Provincia di destinazione"
PROMPT 111 1 ""
FIELD 135->PROV
END
END
SECTION FOOTER ODD 31
NUMERO 1 12
BEGIN
KEY "Riporto dalla pagina precedente"
PROMPT 25 1 ""
PICTURE "####.###.^^^"
END
NUMERO 2 12
BEGIN
KEY "Totale"
PROMPT 25 3 ""
PICTURE "####.###.^^^"
END
NUMERO 3 3
BEGIN
KEY "Numero di pagina"
PROMPT 111 3 ""
END
END
SECTION HEADER EVEN 22
NUMERO 1 4
BEGIN
KEY "Mese"
PROMPT 16 15 ""
PICTURE "@ #"
END
NUMERO 2 1
BEGIN
KEY "Trimestre"
PROMPT 29 15 ""
END
NUMERO 3 6
BEGIN
KEY "Anno"
PROMPT 37 15 ""
PICTURE "^^# #"
END
STRINGA 4
BEGIN
KEY "Partita IVA"
PROMPT 53 15 ""
FIELD 106@->PAIV
END
END
// Sezione di stampa rettifiche
SECTION BODY EVEN 2
NUMERO 1 3
BEGIN
KEY "Progressivo riga"
PROMPT 3 1 ""
FIELD 135->NUMRIG
END
NUMERO 2 2
BEGIN
KEY "Mese del periodo di riferimento"
PROMPT 7 1 ""
FIELD 135->PERETT
END
NUMERO 3 2
BEGIN
KEY "Trimestre del periodo di riferimento"
PROMPT 11 1 ""
FIELD 135->PERETT
END
NUMERO 4 4
BEGIN
KEY "Anno del periodo di riferimento"
PROMPT 14 1 ""
FIELD 135->ANNORETT
END
STRINGA 5 2
BEGIN
KEY "Stato"
PROMPT 19 1 ""
FIELD 135->STATO
END
STRINGA 6 11
BEGIN
KEY "Partita IVA"
PROMPT 23 1 ""
FIELD 135->PIVA
END
STRINGA 7 1
BEGIN
KEY "Segno"
PROMPT 37 1 ""
FIELD 135->SEGNORETT
END
NUMERO 8 12
BEGIN
KEY "Ammontare operazioni in lire"
PROMPT 41 1 ""
FIELD 135->AMMLIRE
PICTURE "####.###.^^^"
END
NUMERO 9 12
BEGIN
KEY "Ammontare operazioni in valuta"
PROMPT 52 1 ""
FIELD 135->AMMVALUTA
PICTURE "#.###.###,@@"
END
STRINGA 10 1
BEGIN
KEY "Natura della transazione"
PROMPT 66 1 ""
FIELD 135->NATURA
END
STRINGA 11 8
BEGIN
KEY "Nomenclatura combinata"
PROMPT 69 1 ""
FIELD 135->NOMENCL
PICTURE "@@@@@@@@"
END
NUMERO 12 12
BEGIN
KEY "Valore statistico"
PROMPT 80 1 ""
FIELD 135->VALSTAT
PICTURE "####.###.^^^"
END
END
SECTION FOOTER EVEN 36
NUMERO 1 12
BEGIN
KEY "Riporto dala pagina precedente"
PROMPT 41 1 ""
PICTURE "####.###.^^^"
END
NUMERO 2 12
BEGIN
KEY "Totale"
PROMPT 41 3 ""
PICTURE "####.###.^^^"
END
NUMERO 3 3
BEGIN
KEY "Numero di pagina"
PROMPT 89 4 ""
END
END

6
in/in0100a.h Executable file
View File

@ -0,0 +1,6 @@
#define R_RIEPILOGHI 100
#define R_TIPO 101
#define R_ANNO 102
#define R_PERIODO_M 103
#define R_PERIODO_T 104
#define R_PERIODO_A 105

57
in/in0100a.uml Executable file
View File

@ -0,0 +1,57 @@
#include "in0100a.h"
PAGE "Stampa Riepiloghi" -1 -1 32 6
LIST R_TIPO 1 10
BEGIN
PROMPT 1 1 "Tipo riepilogo "
ITEM "C|Cessioni"
ITEM "A|Acquisti"
END
NUMBER R_ANNO 4
BEGIN
PROMPT 1 2 "Anno "
FLAGS "AU"
END
LIST R_PERIODO_M 2 17
BEGIN
PROMPT 1 3 "Periodo "
FLAGS "AM"
FIELD PERIODO
END
LIST R_PERIODO_T 2 17
BEGIN
PROMPT 1 3 "Periodo "
ITEM "01|Gennaio-Marzo"
MESSAGE COPY,R_PERIODO_M
ITEM "02|Aprile-Giugno"
MESSAGE COPY,R_PERIODO_M
ITEM "03|Luglio-Settembre"
MESSAGE COPY,R_PERIODO_M
ITEM "04|Ottobre-Dicembre"
MESSAGE COPY,R_PERIODO_M
END
LIST R_PERIODO_A 2 17
BEGIN
PROMPT 1 3 "Periodo "
ITEM "01|Annuale"
MESSAGE COPY,R_PERIODO_M
END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

766
in/in0100b.frm Executable file
View File

@ -0,0 +1,766 @@
// Form per la stampa riepiloghi INTRA (Cessioni)
USE 9
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO 118@ ALIAS 213 INTO STATO=="" COM==COMNASC
JOIN 13 TO 106@ ALIAS 313 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 106@ ALIAS 413 INTO STATO=="" COM==COMRF
JOIN 6 TO 9 ALIAS 206 INTO TIPOA==TIPOSOGDEL CODANAGR==CODSOGDEL
JOIN 13 TO 206@ ALIAS 513 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 206@ ALIAS 613 INTO STATO=="" COM==COMRF
JOIN 135 TO 9 INTO ANNO=CODDITTA
END
DESCRIPTION
BEGIN
END
GENERAL
BEGIN
OFFSET 0 0
CARATTERE "X"
INIZIO_POS 2 4
FINE_POS 76
END
SECTION HEADER FIRST 16
NUMERO 1 4
BEGIN
KEY "Mese"
PROMPT 43 14 ""
PICTURE "@ #"
END
NUMERO 2 1
BEGIN
KEY "Trimestre"
PROMPT 55 14 ""
END
NUMERO 3 5
BEGIN
KEY "Anno"
PROMPT 64 14 ""
PICTURE "^^# #"
END
STRINGA 4 1
BEGIN
KEY "Tipo riepilogo"
PROMPT 39 16 ""
END
END
SECTION BODY FIRST 33
LISTA 99
BEGIN
KEY "Tipo anagrafica"
PROMPT 1 1 ""
FIELD TIPOA
ITEM "F| " MESSAGE SHOW,1@|HIDE,2@
ITEM "G| " MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 1
BEGIN
KEY "Codice Fiscale"
PROMPT 3 7 ""
FIELD 106@->COFI
END
STRINGA 2
BEGIN
KEY "Partita IVA"
PROMPT 53 7 ""
FIELD 106@->PAIV
END
STRINGA 3
BEGIN
KEY "Cognome"
PROMPT 3 10 ""
FIELD 106@->RAGSOC[1,30]
GROUP 1
END
STRINGA 4
BEGIN
KEY "Nome"
PROMPT 43 10 ""
FIELD 106@->RAGSOC[31,50]
GROUP 1
END
DATA 5
BEGIN
KEY "Data di nascita"
PROMPT 4 13 ""
FIELD 118@->DATANASC
FORMAT "1442-"
PICTURE "# #^# #^# #"
GROUP 1
END
LISTA 6
BEGIN
KEY "Sesso"
PROMPT 19 13 ""
FIELD 118@->SESSO
ITEM "M|X"
ITEM "F| X"
GROUP 1
END
STRINGA 7 32
BEGIN
KEY "Comune di nascita"
PROMPT 23 13 ""
FIELD 213@->DENCOM
GROUP 1
END
STRINGA 8 2
BEGIN
KEY "Provincia di nascita"
PROMPT 59 13 ""
FIELD 213@->PROVCOM
GROUP 1
END
STRINGA 9 4
BEGIN
KEY "Prefisso telefonico"
PROMPT 64 13 ""
FIELD 106@->PTELRF
GROUP 1
END
STRINGA 10 9
BEGIN
KEY "Numero telefonico"
PROMPT 69 13 ""
FIELD 106@->TELRF
GROUP 1
END
STRINGA 11
BEGIN
KEY "Denominazione o ragione sociale"
PROMPT 3 17 ""
FIELD 106@->RAGSOC
GROUP 2
END
STRINGA 12 4
BEGIN
KEY "Prefisso telefonico"
PROMPT 64 17 ""
FIELD 106@->PTELRF
GROUP 2
END
STRINGA 13 9
BEGIN
KEY "Numero telefonico"
PROMPT 69 17 ""
FIELD 106@->TELRF
GROUP 2
END
STRINGA 14 20
BEGIN
KEY "Comune di residenza fiscale"
PROMPT 52 20 ""
FIELD 413@->DENCOM
MESSAGE EMPTY SHOW,3@|HIDE,4@
MESSAGE SHOW,4@|HIDE,3@
END
STRINGA 15 20
BEGIN
KEY "Comune di residenza"
PROMPT 52 20 ""
FIELD 313@->DENCOM
GROUP 3
END
STRINGA 16
BEGIN
KEY "Provincia di residenza fiscale"
PROMPT 74 20 ""
FIELD 413@->PROVCOM
GROUP 4
END
STRINGA 17
BEGIN
KEY "Provincia di residenza"
PROMPT 74 20 ""
FIELD 313@->PROVCOM
GROUP 3
END
STRINGA 18
BEGIN
KEY "Indirizzo residenza fiscale"
PROMPT 1 20 ""
FIELD 106@->INDRF[1,35]
FLAGS "H"
MESSAGE COPY,20
END
STRINGA 19
BEGIN
KEY "Nr. civico di residenza fiscale"
PROMPT 1 20 ""
FIELD 106@->CIVRF
FLAGS "H"
MESSAGE APPEND,20
END
STRINGA 20 38
BEGIN
KEY "Indirizzo residenza fiscale+nr. civico"
PROMPT 3 20 ""
GROUP 4
END
STRINGA 21
BEGIN
KEY "Indirizzo residenza"
PROMPT 1 20 ""
FIELD 106@->INDRES[1,35]
FLAGS "H"
MESSAGE COPY,23
END
STRINGA 22
BEGIN
KEY "Nr. civico di residenza"
PROMPT 1 20 ""
FIELD 106@->CIVRES
FLAGS "H"
MESSAGE APPEND,23
END
STRINGA 23 38
BEGIN
KEY "Indirizzo residenza+nr. civico"
PROMPT 3 20 ""
GROUP 3
END
STRINGA 24
BEGIN
KEY "CAP residenza fiscale"
PROMPT 42 20 ""
FIELD 106@->CAPRF
GROUP 4
END
STRINGA 25
BEGIN
KEY "CAP residenza"
PROMPT 42 20 ""
FIELD 106@->CAPRES
GROUP 3
END
LISTA 26 1
BEGIN
KEY "Elenchi presentati in precedenza"
PROMPT 7 23 ""
ITEM " | "
ITEM "X|X"
FIELD PRESELEN
END
LISTA 26 1
BEGIN
KEY "Cessazione attivita'"
PROMPT 40 23 ""
ITEM " | "
ITEM "X|X"
FIELD CESSIVA
END
STRINGA 27
BEGIN
KEY "Partita IVA delegato"
PROMPT 11 27 ""
FIELD 206@->PAIV
END
STRINGA 28 50
BEGIN
KEY "Nome e Cognome o Ragione sociale delegato"
PROMPT 3 30 ""
FIELD 206@->RAGSOC
END
STRINGA 29 4
BEGIN
KEY "Prefisso telefonico delegato"
PROMPT 64 30 ""
FIELD 206@->PTELRF
END
STRINGA 30 9
BEGIN
KEY "Numero telefonico delegato"
PROMPT 69 30 ""
FIELD 206@->TELRF
END
STRINGA 31 20
BEGIN
KEY "Comune di residenza fiscale delegato"
PROMPT 52 33 ""
FIELD 613@->DENCOM
MESSAGE EMPTY SHOW,5@|HIDE,6@
MESSAGE SHOW,6@|HIDE,5@
END
STRINGA 32 20
BEGIN
KEY "Comune di residenza delegato"
PROMPT 52 33 ""
FIELD 513@->DENCOM
GROUP 5
END
STRINGA 33
BEGIN
KEY "Provincia di residenza fiscale delegato"
PROMPT 74 33 ""
FIELD 613@->PROVCOM
GROUP 6
END
STRINGA 34
BEGIN
KEY "Provincia di residenza delegato"
PROMPT 74 33 ""
FIELD 513@->PROVCOM
GROUP 5
END
STRINGA 35
BEGIN
KEY "Indirizzo residenza fiscale delegato"
PROMPT 1 33 ""
FIELD 206@->INDRF[1,35]
FLAGS "H"
MESSAGE COPY,37
END
STRINGA 36
BEGIN
KEY "Nr. civico di residenza fiscale delegato"
PROMPT 1 33 ""
FIELD 206@->CIVRF
FLAGS "H"
MESSAGE APPEND,37
END
STRINGA 37 38
BEGIN
KEY "Indirizzo residenza fiscale+nr. civico delegato"
PROMPT 3 33 ""
GROUP 6
END
STRINGA 38
BEGIN
KEY "Indirizzo residenza delegato"
PROMPT 1 33 ""
FIELD 206@->INDRES[1,35]
FLAGS "H"
MESSAGE COPY,40
END
STRINGA 39
BEGIN
KEY "Nr. civico di residenza delegato"
PROMPT 1 33 ""
FIELD 206@->CIVRES
FLAGS "H"
MESSAGE APPEND,40
END
STRINGA 40 38
BEGIN
KEY "Indirizzo residenza+nr. civico delegato"
PROMPT 3 33 ""
GROUP 5
END
STRINGA 41
BEGIN
KEY "CAP residenza fiscale delegato"
PROMPT 42 33 ""
FIELD 206@->CAPRF
GROUP 6
END
STRINGA 42
BEGIN
KEY "CAP residenza delegato"
PROMPT 42 33 ""
FIELD 206@->CAPRES
GROUP 5
END
END
SECTION FOOTER FIRST 23
NUMERO 1 3
BEGIN
KEY "Totale pagine sezione 1"
PROMPT 11 6 ""
END
NUMERO 2 5
BEGIN
KEY "Totale righe dettaglio sezione 1"
PROMPT 18 6 ""
END
NUMERO 3 15
BEGIN
KEY "Ammontare complessivo sezione 1"
PROMPT 25 6 ""
PICTURE "###.###.###.^^^"
END
NUMERO 4 3
BEGIN
KEY "Totale pagine sezione 2"
PROMPT 49 6 ""
END
NUMERO 5 5
BEGIN
KEY "Totale righe dettaglio sezione 2"
PROMPT 56 6 ""
END
NUMERO 6 15
BEGIN
KEY "Ammontare complessivo sezione 2"
PROMPT 64 6 ""
PICTURE "###.###.###.^^^"
END
DATA 7 10
BEGIN
KEY "Data di stampa"
PROMPT 6 10 ""
MESSAGE _TODAY
END
END
SECTION HEADER ODD 21
NUMERO 1 4
BEGIN
KEY "Mese"
PROMPT 16 15 ""
PICTURE "@ #"
END
NUMERO 2 1
BEGIN
KEY "Trimestre"
PROMPT 29 15 ""
END
NUMERO 3 5
BEGIN
KEY "Anno"
PROMPT 37 15 ""
PICTURE "^^# #"
END
STRINGA 4
BEGIN
KEY "Partita IVA"
PROMPT 53 15 ""
FIELD 106@->PAIV
END
END
SECTION BODY ODD 2
NUMERO 1 3
BEGIN
KEY "Progressivo riga"
PROMPT 3 1 ""
FIELD 135->NUMRIG
END
STRINGA 2 2
BEGIN
KEY "Stato"
PROMPT 7 1 ""
FIELD 135->STATO
END
STRINGA 3 11
BEGIN
KEY "Partita IVA"
PROMPT 11 1 ""
FIELD 135->PIVA
END
NUMERO 4 12
BEGIN
KEY "Ammontare operazioni in lire"
PROMPT 25 1 ""
FIELD 135->AMMLIRE
PICTURE "####.###.^^^"
END
STRINGA 6 1
BEGIN
KEY "Natura della transazione"
PROMPT 37 1 ""
FIELD 135->NATURA
END
STRINGA 7 8
BEGIN
KEY "Nomenclatura combinata"
PROMPT 39 1 ""
FIELD 135->NOMENCL
PICTURE "@@@@@@@@"
END
NUMERO 8 10
BEGIN
KEY "Massa netta in kilogrammi"
PROMPT 49 1 ""
FIELD 135->MASSAKG
PICTURE "######,@@@"
END
NUMERO 9 10
BEGIN
KEY "Massa in unita' supplementare"
PROMPT 60 1 ""
FIELD 135->MASSAUMS
PICTURE "######,@@@"
END
NUMERO 10 12
BEGIN
KEY "Valore statistico"
PROMPT 71 1 ""
FIELD 135->VALSTAT
PICTURE "####.###.^^^"
END
STRINGA 11 1
BEGIN
KEY "Codice consegna"
PROMPT 84 1 ""
FIELD 135->CONSEGNA[1,1]
END
STRINGA 12 1
BEGIN
KEY "Modo di trasporto"
PROMPT 87 1 ""
FIELD 135->TRASPORTO
END
STRINGA 13 2
BEGIN
KEY "Paese destinazione"
PROMPT 90 1 ""
FIELD 135->PAESE
END
STRINGA 14 2
BEGIN
KEY "Provincia Origine"
PROMPT 94 1 ""
FIELD 135->PROV
END
END
SECTION FOOTER ODD 31
NUMERO 1 12
BEGIN
KEY "Riporto dalla pagina precedente"
PROMPT 25 1 ""
PICTURE "####.###.^^^"
END
NUMERO 2 12
BEGIN
KEY "Totale"
PROMPT 25 3 ""
PICTURE "####.###.^^^"
END
NUMERO 3 3
BEGIN
KEY "Numero di pagina"
PROMPT 95 3 ""
END
END
SECTION HEADER EVEN 22
NUMERO 1 4
BEGIN
KEY "Mese"
PROMPT 16 15 ""
PICTURE "@ #"
END
NUMERO 2 1
BEGIN
KEY "Trimestre"
PROMPT 29 15 ""
END
NUMERO 3 6
BEGIN
KEY "Anno"
PROMPT 37 15 ""
PICTURE "^^# #"
END
STRINGA 4
BEGIN
KEY "Partita IVA"
PROMPT 53 15 ""
FIELD 106@->PAIV
END
END
// Sezione di stampa rettifiche
SECTION BODY EVEN 2
NUMERO 1 3
BEGIN
KEY "Progressivo riga"
PROMPT 3 1 ""
FIELD 135->NUMRIG
END
NUMERO 2 2
BEGIN
KEY "Mese del periodo di riferimento"
PROMPT 7 1 ""
FIELD 135->PERETT
END
NUMERO 3 2
BEGIN
KEY "Trimestre del periodo di riferimento"
PROMPT 11 1 ""
FIELD 135->PERETT
END
NUMERO 4 4
BEGIN
KEY "Anno del periodo di riferimento"
PROMPT 14 1 ""
FIELD 135->ANNORETT
END
STRINGA 5 2
BEGIN
KEY "Stato"
PROMPT 19 1 ""
FIELD 135->STATO
END
STRINGA 6 11
BEGIN
KEY "Partita IVA"
PROMPT 23 1 ""
FIELD 135->PIVA
END
STRINGA 7 1
BEGIN
KEY "Segno"
PROMPT 37 1 ""
FIELD 135->SEGNORETT
END
NUMERO 8 12
BEGIN
KEY "Ammontare operazioni in lire"
PROMPT 41 1 ""
FIELD 135->AMMLIRE
PICTURE "####.###.^^^"
END
STRINGA 10 1
BEGIN
KEY "Natura della transazione"
PROMPT 53 1 ""
FIELD 135->NATURA
END
STRINGA 11 8
BEGIN
KEY "Nomenclatura combinata"
PROMPT 56 1 ""
FIELD 135->NOMENCL
PICTURE "@@@@@@@@"
END
NUMERO 12 12
BEGIN
KEY "Valore statistico"
PROMPT 67 1 ""
FIELD 135->VALSTAT
PICTURE "####.###.^^^"
END
END
SECTION FOOTER EVEN 36
NUMERO 1 12
BEGIN
KEY "Riporto dala pagina precedente"
PROMPT 41 1 ""
PICTURE "####.###.^^^"
END
NUMERO 2 12
BEGIN
KEY "Totale"
PROMPT 41 3 ""
PICTURE "####.###.^^^"
END
NUMERO 3 3
BEGIN
KEY "Numero di pagina"
PROMPT 75 4 ""
END
END

479
in/in0200.cpp Executable file
View File

@ -0,0 +1,479 @@
#include <applicat.h>
#include <os_dep.h>
#include <progind.h>
#include <recarray.h>
#include <relation.h>
#include "in0.h"
#include "in0200a.h"
#include "inlib01.h"
#include <nditte.h>
#include <anagr.h>
///////////////////////////////////////////////////////////
// TRecord_intra
///////////////////////////////////////////////////////////
struct TIntra_context
{
char _tipo;
long _progr;
char _freq;
int _anno;
int _periodo;
long _righe_riep;
real _totale_riep;
long _righe_rett;
real _totale_rett;
unsigned long _written;
unsigned long _disksize;
TIntra_context();
};
TIntra_context::TIntra_context()
{
_tipo = 'C'; _freq = 'T'; _anno = 1999; _periodo = 1;
_progr = _righe_riep = _righe_rett = 0L;
_written = _disksize = 0L;
}
class TRecord_intra : public TString
{
protected:
virtual void print_on(ostream& o) const;
public:
void reset(const TIntra_context& ic);
void reset_data();
void put(const char* str, int pos, int dim, const char* flags = "");
void put(real num, int pos, int dim, int dec = 0);
void put(long num, int pos, int dim);
void put(char chr, int pos);
void genera_testata(const TIntra_context& ic);
void put(const TRectype& rec, TIntra_context& ic);
TRecord_intra();
virtual ~TRecord_intra() { }
};
// Scrive un campo generico sul record di invio
void TRecord_intra::put(const char* str, int pos, int dim, const char* flags)
{
CHECKD(pos > 0 && pos < size(), "Invalid field position:", pos);
CHECKD(dim > 0 && dim <= 50, "Invalid field dimension:", dim);
TString256 val(str);
if (val.len() < dim)
{
const bool rj = strchr(flags, 'R') != NULL;
const bool zf = strchr(flags, 'Z') != NULL;
if (rj)
val.right_just(dim, zf ? '0' : ' ');
else
val.left_just(dim, zf ? '0' : ' ');
}
else
val.cut(dim);
overwrite(val, pos-1);
}
// Scrive un campo numerico sul record di invio
void TRecord_intra::put(real num, int pos, int dim, int dec)
{
TString80 str;
if (!num.is_zero())
{
num.round(dec);
const bool negativo = num < ZERO;
if (negativo) num *= -1.0;
if (dec < 0)
{
str = num.string(dim-dec, 0, '0');
str.rtrim(-dec);
}
else
{
str = num.string(dim, dec, '0');
}
if (negativo)
str[dim-1] += 64;
}
put(str, pos, dim, "RZ");
}
// Scrive un campo intero sul record di invio
void TRecord_intra::put(long num, int pos, int dim)
{
TString16 str;
str.format("%0*ld", dim, num);
put(str, pos, dim, "RZ");
}
// Scrive un campo carattere sul record di invio
void TRecord_intra::put(char chr, int pos)
{
const char str[2] = { chr, '\0' };
put(str, pos, 1);
}
// Azzera il record
void TRecord_intra::reset(const TIntra_context& ic)
{
spaces();
put("INTRA", 1, 5);
const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm());
TString16 cod;
cod << ditta.get_char(NDT_TIPOA) << '|';
cod << ditta.get(NDT_CODANAGR);
const TRectype& anagr = cache().get(LF_ANAG, cod);
put(anagr.get(ANA_PAIV), 6, 11);
put(ic._progr, 17, 6);
}
void TRecord_intra::reset_data()
{
const TString80 key = left(22);
spaces();
overwrite(key, 0);
}
// Scrive la testata con le informazioni della ditta
void TRecord_intra::genera_testata(const TIntra_context& ic)
{
reset(ic);
put('0', 23); // Tipo record frontespizio
put("", 24, 5, "RZ"); // Numero riga (0 per frontespizio)
put(ic._tipo, 29); // Tipo riepilogo
put(ic._anno % 100, 30, 2);
put(ic._freq, 32);
put(ic._periodo, 33, 2);
TString16 cod = mid(5, 11); // Ricopia la parita iva della ditta
put(cod, 35, 11);
const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm());
put(ditta.get_bool("PRESELEN") ? '1' : '0', 46);
put(ditta.get_bool("CESSIVA") ? '1' : '0', 47);
cod.cut(0);
cod << ditta.get_char("TIPOSOGDEL") << '|';
cod << ditta.get("CODSOGDEL");
if (cod.len() > 8)
{
const TRectype& sogdel = cache().get(LF_ANAG, cod);
put(sogdel.get(ANA_PAIV), 48, 11);
}
else
put("", 48, 11, "Z");
put(ic._righe_riep, 59, 5);
put(ic._totale_riep, 64, 13, -3);
put(ic._righe_rett, 77, 5);
put(ic._totale_rett, 82, 13, -3);
}
// Scrive un intero record del file riepiloghi/rettifiche
void TRecord_intra::put(const TRectype& rec, TIntra_context& ic)
{
reset_data();
put(rec.get_long("NUMRIG"), 24, 5);
const char tipo = rec.get_char("TIPO");
switch (tipo)
{
case 'A':
put('1', 23);
put(rec.get("STATO"), 29, 2);
put(rec.get("PIVA"), 31, 12);
put(rec.get_real("AMMLIRE"), 43, 13, -3);
put(rec.get_real("AMMVALUTA"), 56, 13);
put(rec.get_char("NATURA"), 69);
put(rec.get("NOMENCL"), 70, 8, "RZ");
if (ic._freq == 'M')
{
put(rec.get_real("MASSAKG"), 78, 10, 0);
put(rec.get_real("MASSAUMS"), 88, 10, 0);
put(rec.get_real("VALSTAT"), 98, 13, -3);
put(rec.get_char("CONSEGNA"), 111);
put(rec.get_char("TRASPORTO"), 112);
put(rec.get("PAESE"), 113, 2);
put(rec.get("PAESEORIG"), 115, 2);
put(rec.get("PROV"), 117, 2);
}
else
put("", 78, 100);
break;
case 'B':
{
put('2', 23);
if (ic._freq == 'M')
put(rec.get("PERETT"), 29, 2, "RZ");
else
put("", 29, 2, "RZ");
if (ic._freq == 'T')
put(rec.get("PERETT")[1], 31);
else
put('0', 31);
put(rec.get("ANNORETT").right(2), 32, 2, "RZ");
put(rec.get("STATO"), 34, 2);
put(rec.get("PIVA"), 36, 12);
put(rec.get("SEGNORETT"), 48, 1);
put(rec.get_real("AMMLIRE"), 49, 13, -3);
put(rec.get_real("AMMVALUTA"), 62, 13);
put(rec.get_char("NATURA"), 75);
put(rec.get("NOMENCL"), 76, 8, "RZ");
if (ic._freq == 'M')
put(rec.get_real("VALSTAT"), 84, 13, -3);
else
put("", 84, 13);
}
break;
case 'C':
put('1', 23);
put(rec.get("STATO"), 29, 2);
put(rec.get("PIVA"), 31, 12);
put(rec.get_real("AMMLIRE"), 43, 13, -3);
put(rec.get_char("NATURA"), 56);
put(rec.get("NOMENCL"), 57, 8, "RZ");
if (ic._freq == 'M')
{
put(rec.get_real("MASSAKG"), 65, 10);
put(rec.get_real("MASSAUMS"), 75, 10);
put(rec.get_real("VALSTAT"), 85, 13, -3);
put(rec.get_char("CONSEGNA"), 98);
put(rec.get_char("TRASPORTO"), 99);
put(rec.get("PAESE"), 100, 2);
put(rec.get("PROV"), 102, 2);
}
else
put("", 65, 100);
break;
case 'D':
{
put('2', 23);
if (ic._freq == 'M')
put(rec.get("PERETT"), 29, 2, "RZ");
else
put("", 29, 2, "RZ");
if (ic._freq == 'T')
put(rec.get("PERETT")[1], 31);
else
put('0', 31);
put(rec.get("ANNORETT").right(2), 32, 2, "RZ");
put(rec.get("STATO"), 34, 2);
put(rec.get("PIVA"), 36, 12);
put(rec.get("SEGNORETT"), 48, 1);
put(rec.get_real("AMMLIRE"), 49, 13, -3);
put(rec.get("NATURA"), 62, 1);
put(rec.get("NOMENCL"), 63, 8, "RZ");
if (ic._freq == 'M')
put(rec.get_real("VALSTAT"), 71, 13, -3);
else
put("", 71, 13);
}
break;
default:
NFCHECK("Record di tipo sconosciuto: %c", tipo);
break;
}
}
// Scrive su file il record
void TRecord_intra::print_on(ostream& o) const
{
((TRecord_intra*)this)->rtrim();
TString::print_on(o);
o << endl;
}
TRecord_intra::TRecord_intra() : TString(132)
{ }
///////////////////////////////////////////////////////////
// TDischetto_mask
///////////////////////////////////////////////////////////
class TDischetto_mask : public TIntra_mask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
virtual short type_field() const { return F_TIPO; }
virtual short period_field() const { return F_PERIODO_M; }
long calcola_totale(TCursor& cur, real& tot) const;
bool write_record(ofstream& out, const TRecord_intra& rec, TIntra_context& ic);
public:
void genera_dischetto();
TDischetto_mask();
};
bool TDischetto_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
{
case F_RIEPILOGHI:
if (e == fe_button)
::genera_riepiloghi(tipo(), get_int(F_ANNO), periodo());
break;
default:break;
}
return TIntra_mask::on_field_event(o, e, jolly);
}
long TDischetto_mask::calcola_totale(TCursor& cur, real& tot) const
{
TWait_cursor arrow;
const long items = cur.items();
cur.freeze();
tot = ZERO;
const TRectype& rec = cur.curr();
for (cur = 0L; cur.pos() < items; ++cur)
{
const char tipo = rec.get_char("TIPO");
const real val = rec.get_real("AMMLIRE");
// Da chiarire: come sommare le rettifiche negative!
if ((tipo == 'B' || tipo == 'D') && rec.get_char("SEGNORETT") == '-')
tot -= val; // Rettifiche negative
else
tot += val;
}
return items;
}
bool TDischetto_mask::write_record(ofstream& out, const TRecord_intra& rec, TIntra_context& ic)
{
out << rec;
bool good = out.good() != 0;
if (good)
ic._written += rec.len()+2;
if (ic._written >= ic._disksize)
{
out.close();
TFilename name;
name = get(F_DISCO); name.add("scambi.cee");
message_box("Inserire un nuovo dischetto prima di continuare.");
out.open(name);
if (out)
{
ic._written = 0;
good = TRUE;
}
}
if (!good)
error_box("Errore di scrittura su disco: ripetere l'operazione.");
return good;
}
void TDischetto_mask::genera_dischetto()
{
TIntra_context ic;
ic._tipo = tipo();
ic._freq = frequenza();
ic._anno = get_int(F_ANNO);
ic._periodo = periodo();
ic._progr = get_long(F_NUMERO);
TRelation rel(LF_RIEPRETT);
TRectype filter(LF_RIEPRETT);
filter.put("TIPO", ic._tipo);
filter.put("ANNO", ic._anno);
filter.put("PERIODO", periodo_str());
TCursor riep(&rel, "", 1, &filter, &filter);
ic._righe_riep = calcola_totale(riep, ic._totale_riep);
filter.put("TIPO", char(ic._tipo+1));
TCursor rett(&rel, "", 1, &filter, &filter);
ic._righe_rett = calcola_totale(rett, ic._totale_rett);
TFilename name;
name = get(F_DISCO); name.add("scambi.cee");
if (name.exist())
{
if (yesno_box("Il file %s, esiste gia': si desiderla eliminarlo?",
(const char*)name))
::remove(name);
}
ofstream out(name, ios::out | ios::app);
if (!out)
{
error_box("Impossibile creare il file %s\n"
"Assicurarsi di avere inserito un dischetto\n"
"formattato e ripetere nuovamente l'operazione.",
(const char*)name);
return;
}
ic._disksize = os_get_disk_size(name) - (64L*1024L);
ic._written = 0;
const long total = ic._righe_riep + ic._righe_rett;
TProgind pi(total, "Generazione scambi.cee", FALSE, TRUE);
TRecord_intra rec;
rec.genera_testata(ic);
out << rec;
rec.reset_data();
for (riep = 0L; riep.pos() < ic._righe_riep; ++riep)
{
pi.addstatus(1);
rec.put(riep.curr(), ic);
if (!write_record(out, rec, ic))
return;
}
rec.reset_data();
for (rett = 0L; rett.pos() < ic._righe_rett; ++rett)
{
pi.addstatus(1);
rec.put(riep.curr(), ic);
if (!write_record(out, rec, ic))
return;
}
}
TDischetto_mask::TDischetto_mask()
: TIntra_mask("in0200a")
{ }
///////////////////////////////////////////////////////////
// TDischetto_app
///////////////////////////////////////////////////////////
class TDischetto_app : public TSkeleton_application
{
protected:
virtual void main_loop();
};
void TDischetto_app::main_loop()
{
TDischetto_mask m;
while (m.run() == K_ENTER)
m.genera_dischetto();
}
int in0200(int argc, char* argv[])
{
TDischetto_app a;
a.run(argc, argv, "Generazione dischetti INTRA");
return 0;
}

9
in/in0200a.h Executable file
View File

@ -0,0 +1,9 @@
#define F_RIEPILOGHI 100
#define F_TIPO 101
#define F_ANNO 102
#define F_PERIODO_M 103
#define F_PERIODO_T 104
#define F_PERIODO_A 105
#define F_DISCO 106
#define F_NUMERO 107

76
in/in0200a.uml Executable file
View File

@ -0,0 +1,76 @@
#include "in0200a.h"
PAGE "Generazione Dischetti INTRA" -1 -1 30 8
LIST F_TIPO 1 10
BEGIN
PROMPT 1 1 "Tipo riepilogo "
ITEM "C|Cessioni"
ITEM "A|Acquisti"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 1 2 "Anno "
FLAGS "AU"
END
NUMBER F_NUMERO 6
BEGIN
PROMPT 15 2 "Numero "
CHECKTYPE REQUIRED
END
LIST F_PERIODO_M 2 17
BEGIN
PROMPT 1 3 "Periodo "
FLAGS "AM"
FIELD PERIODO
END
LIST F_PERIODO_T 2 17
BEGIN
PROMPT 1 3 "Periodo "
ITEM "01|Gennaio-Marzo"
MESSAGE COPY,F_PERIODO_M
ITEM "02|Aprile-Giugno"
MESSAGE COPY,F_PERIODO_M
ITEM "03|Luglio-Settembre"
MESSAGE COPY,F_PERIODO_M
ITEM "04|Ottobre-Dicembre"
MESSAGE COPY,F_PERIODO_M
END
LIST F_PERIODO_A 2 17
BEGIN
PROMPT 1 3 "Periodo "
ITEM "01|Annuale"
MESSAGE COPY,F_PERIODO_M
END
LIST F_DISCO 2
BEGIN
PROMPT 1 4 "Disco destinazione "
ITEM "A:|A:"
ITEM "B:|B:"
ITEM "C:|C:"
END
BUTTON F_RIEPILOGHI 26 1
BEGIN
PROMPT -11 -3 "~Generazione Riepiloghi"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

19
in/in0500.cpp
View File

@ -53,7 +53,7 @@ bool TImmissione_mask::on_field_event(TOperable_field& o, TField_event e, long j
const bool acq = tipo() == 'A'; const bool acq = tipo() == 'A';
m.show(-GR_ACQUISTI, acq); // Mostra i gruppi di campi m.show(-GR_ACQUISTI, acq); // Mostra i gruppi di campi
m.show(-GR_CESSIONI, !acq); // consoni al tipo movimento m.show(-GR_CESSIONI, !acq); // consoni al tipo movimento
/*
const bool req = frequenza() == 'M'; const bool req = frequenza() == 'M';
for (int i = m.fields()-1; i >= 0; i--) for (int i = m.fields()-1; i >= 0; i--)
{ {
@ -63,17 +63,24 @@ bool TImmissione_mask::on_field_event(TOperable_field& o, TField_event e, long j
if (f.is_edit()) if (f.is_edit())
f.check_type(req ? CHECK_REQUIRED : CHECK_NORMAL); f.check_type(req ? CHECK_REQUIRED : CHECK_NORMAL);
} }
*/
} }
break; break;
break;
case F_VALUTA: case F_VALUTA:
if (e == fe_modify) if (e == fe_modify)
{ {
TEdit_field& cambio = efield(F_CAMBIO); TEdit_field& cambio = efield(F_CAMBIO);
if (cambio.empty()) if (cambio.empty())
{ {
TCursor* cur = efield(F_VALUTA).browse()->cursor(); const TRectype& curr = efield(F_VALUTA).browse()->cursor()->curr();
cambio.set(cur->curr().get("S4")); const TString& s = curr.get("S4");
if (s.not_empty())
cambio.set(s);
else
{
const TString& r = curr.get("R0");
cambio.set(r);
}
} }
} }
break; break;
@ -105,7 +112,7 @@ bool TImmissione_mask::on_field_event(TOperable_field& o, TField_event e, long j
return on_sheet_event((TSheet_field&)o, e, int(jolly)); return on_sheet_event((TSheet_field&)o, e, int(jolly));
case R_RIEPILOGHI: case R_RIEPILOGHI:
if (e == fe_button) if (e == fe_button)
genera_riepiloghi(); ::genera_riepiloghi(tipo());
break; break;
default: default:
if (id < F_DITTA && jolly == 1) if (id < F_DITTA && jolly == 1)
@ -195,7 +202,7 @@ bool TImmissione_intra::user_destroy()
return TRUE; return TRUE;
} }
int is0500(int argc, char* argv[]) int in0500(int argc, char* argv[])
{ {
TImmissione_intra a; TImmissione_intra a;
a.run(argc, argv, "Movimenti INTRA"); a.run(argc, argv, "Movimenti INTRA");

3
in/in0500a.h
View File

@ -32,8 +32,7 @@
#define F_MASSA_UMS 106 #define F_MASSA_UMS 106
#define F_UMS 107 #define F_UMS 107
#define F_VALORE_STAT 108 #define F_VALORE_STAT 108
#define F_REGIME_C 109 #define F_CONSEGNA 109
#define F_REGIME_A 209
#define F_TRASPORTO 110 #define F_TRASPORTO 110
#define F_PAESE 111 #define F_PAESE 111
#define F_PAESE_ORIG 112 #define F_PAESE_ORIG 112

83
in/in0500a.uml
View File

@ -126,6 +126,7 @@ LIST F_STATO 2 14
BEGIN BEGIN
PROMPT 1 6 "Stato CEE " PROMPT 1 6 "Stato CEE "
ITEM " |" ITEM " |"
ITEM "AT|Austria"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
@ -138,6 +139,7 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
ITEM "SE|Svezia"
FLAGS "D" FLAGS "D"
END END
@ -201,8 +203,8 @@ BEGIN
ITEM "Massa Ums@13" ITEM "Massa Ums@13"
ITEM "U.M." ITEM "U.M."
ITEM "Valore\nStatistico@15" ITEM "Valore\nStatistico@15"
ITEM "Reg.@3"
ITEM "Modo\nTrasp.@5" ITEM "Modo\nTrasp.@5"
ITEM "Condiz.\nCons.@6"
ITEM "Paese@6" ITEM "Paese@6"
ITEM "Paese\nOrig.@6" ITEM "Paese\nOrig.@6"
ITEM "Provincia" ITEM "Provincia"
@ -298,29 +300,31 @@ BEGIN
FIELD VALSTAT FIELD VALSTAT
END END
LIST F_REGIME_C 1 24 STRING F_CONSEGNA 3
BEGIN BEGIN
PROMPT 36 5 "Regime " PROMPT 43 5 "Condizioni consegna "
ITEM "1|Spedizione definitiva" SHEET "Codice|Descrizione@45"
ITEM "2|Spedizione temporanea" INPUT F_CONSEGNA
ITEM "3|Rispedizione" ITEM "EXW|Franco fabbrica"
FIELD REGIME ITEM "FCA|Franco vettore"
GROUP GR_CESSIONI ITEM "FAS|Franco sotto bordo"
END ITEM "FOB|Franco a bordo"
ITEM "CFR|Costo e nolo"
LIST F_REGIME_A 1 24 ITEM "CIF|Costo, assicurazione, nolo"
BEGIN ITEM "CPT|Nolo/porto pagato fino a ..."
PROMPT 36 5 "Regime " ITEM "CIP|Nolo/porto e assicurazione pagati fino a ..."
ITEM "4|Introduzione definitiva" ITEM "DAF|Reso frontiera"
ITEM "5|Introduzione temporanea" ITEM "DES|Reso franco bordo nave a destino"
ITEM "6|Reintroduzione" ITEM "DEQ|Reso franco banchina"
FIELD REGIME ITEM "DDU|Reso non sdoganato"
GROUP GR_ACQUISTI ITEM "DDP|Reso sdoganato"
OUTPUT F_CONSEGNA
FIELD CONSEGNA
END END
LIST F_TRASPORTO 1 20 LIST F_TRASPORTO 1 20
BEGIN BEGIN
PROMPT 1 6 "Modo di trasporto " PROMPT 1 6 "Modo di trasporto "
ITEM "1|Marittimo" ITEM "1|Marittimo"
ITEM "2|Ferroviario" ITEM "2|Ferroviario"
ITEM "3|Stradale" ITEM "3|Stradale"
@ -334,20 +338,21 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "Pase di destinazione" PROMPT 1 7 "Pase destinazione"
GROUP GR_CESSIONI GROUP GR_CESSIONI
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "Pase di provenienza" PROMPT 1 7 "Pase provenienza"
GROUP GR_ACQUISTI GROUP GR_ACQUISTI
END END
LIST F_PAESE 2 20 LIST F_PAESE 2 20
BEGIN BEGIN
PROMPT 22 7 "" PROMPT 19 7 ""
ITEM " |" ITEM " |"
ITEM "AT|Austria"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
@ -360,25 +365,13 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
ITEM "SE|Svezia"
FIELD PAESE FIELD PAESE
END END
LIST F_PAESE_ORIG 2 20 STRING F_PAESE_ORIG 2
BEGIN BEGIN
PROMPT 1 8 "Pase di origine " PROMPT 1 8 "Pase di origine "
ITEM " |"
ITEM "BE|Belgio"
ITEM "DE|Germania"
ITEM "DK|Danimarca"
ITEM "EL|Grecia"
ITEM "ES|Spagna"
ITEM "FR|Francia"
ITEM "GB|Gran Bretagna"
ITEM "IE|Irlanda"
ITEM "IT|Italia"
ITEM "LU|Lussemburgo"
ITEM "NL|Olanda"
ITEM "PT|Portogallo"
FIELD PAESEORIG FIELD PAESEORIG
GROUP GR_ACQUISTI GROUP GR_ACQUISTI
END END
@ -386,25 +379,25 @@ END
STRING F_PAESE_DUMMY 2 STRING F_PAESE_DUMMY 2
BEGIN BEGIN
PROMPT 81 8 "Pase anti NFCHECK " PROMPT 81 8 "Pase anti NFCHECK "
GROUP GR_CESSIONI
FLAGS "D" FLAGS "D"
END
TEXT DLG_NULL
BEGIN
PROMPT 46 7 "Provincia d'origine "
GROUP GR_CESSIONI GROUP GR_CESSIONI
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 46 7 "Prov. destinazione " PROMPT 43 7 "Provincia d'origine"
GROUP GR_CESSIONI
END
TEXT DLG_NULL
BEGIN
PROMPT 43 7 "Prov. destinazione"
GROUP GR_ACQUISTI GROUP GR_ACQUISTI
END END
STRING F_PROV 2 STRING F_PROV 2
BEGIN BEGIN
PROMPT 66 7 "" PROMPT 64 7 ""
FLAGS "U" FLAGS "U"
FIELD PROV FIELD PROV
END END

7
in/in0600.cpp
View File

@ -35,7 +35,7 @@ bool TRiepiloghi_mask::on_field_event(TOperable_field& o, TField_event e, long j
break; break;
case F_RIEPILOGHI: case F_RIEPILOGHI:
if (e == fe_button) if (e == fe_button)
genera_riepiloghi(); ::genera_riepiloghi(tipo(), get_int(F_ANNO));
break; break;
default: default:
break; break;
@ -112,7 +112,8 @@ void TRiepiloghi_intra::init_query_mode(TMask& m)
{ {
TEdit_field& numrig = m.efield(F_NUM_RIG); TEdit_field& numrig = m.efield(F_NUM_RIG);
TCursor& cur = *numrig.browse()->cursor(); TCursor& cur = *numrig.browse()->cursor();
cur.last_item(); if (cur.items() > 0L)
cur.last_item();
const TRectype& curr = cur.curr(); const TRectype& curr = cur.curr();
m.set(F_ANNO, curr.get("ANNO")); m.set(F_ANNO, curr.get("ANNO"));
m.set(F_TIPO, curr.get("TIPO"), TRUE); m.set(F_TIPO, curr.get("TIPO"), TRUE);
@ -120,7 +121,7 @@ void TRiepiloghi_intra::init_query_mode(TMask& m)
m.set(F_PERIODO_T, curr.get("PERIODO")); m.set(F_PERIODO_T, curr.get("PERIODO"));
} }
int is0600(int argc, char* argv[]) int in0600(int argc, char* argv[])
{ {
TRiepiloghi_intra a; TRiepiloghi_intra a;
a.run(argc, argv, "Riepiloghi INTRA"); a.run(argc, argv, "Riepiloghi INTRA");

58
in/in0600a.h
View File

@ -1,34 +1,34 @@
#define F_DITTA 301 #define F_DITTA 301
#define F_DITTA_DESCR 302 #define F_DITTA_DESCR 302
#define F_TIPO 303 #define F_TIPO 303
#define F_ANNO 304 #define F_ANNO 304
#define F_PERIODO_M 305 #define F_PERIODO_M 305
#define F_PERIODO_T 306 #define F_PERIODO_T 306
#define F_PERIODO_A 307 #define F_PERIODO_A 307
#define F_STATO 308 #define F_STATO 308
#define F_TIPO_CF 309 #define F_TIPO_CF 309
#define F_PARTITA_IVA 310 #define F_PARTITA_IVA 310
#define F_PARTITA_DESC 311 #define F_PARTITA_DESC 311
#define F_NUM_RIG 312 #define F_NUM_RIG 312
#define F_RIEPILOGHI 313 #define F_RIEPILOGHI 313
#define F_NATURA_TRANS 321 #define F_NATURA_TRANS 321
#define F_NATURA_DESCR 322 #define F_NATURA_DESCR 322
#define F_NOMENCLATURA 323 #define F_NOMENCLATURA 323
#define F_NOMENCL_DESC 324 #define F_NOMENCL_DESC 324
#define F_REGIME_C 325 #define F_CONSEGNA 325
#define F_REGIME_A 326 #define F_CONSEGNA_DESC 326
#define F_TRASPORTO 327 #define F_TRASPORTO 327
#define F_PAESE 328 #define F_PAESE 340
#define F_PAESE_ORIG 329 #define F_PAESE_ORIG 341
#define F_PROV 330 #define F_PROV 342
#define F_AMM_LIRE 331 #define F_AMM_LIRE 350
#define F_AMM_VALUTA 332 #define F_AMM_VALUTA 351
#define F_VALUTA 333 #define F_VALUTA 352
#define F_VALORE_STAT 334 #define F_VALORE_STAT 353
#define F_MASSA_KG 335 #define F_MASSA_KG 354
#define F_MASSA_UMS 336 #define F_MASSA_UMS 355
#define GR_CESSIONI 1 #define GR_CESSIONI 1
#define GR_ACQUISTI 2 #define GR_ACQUISTI 2

74
in/in0600a.uml
View File

@ -101,7 +101,7 @@ BEGIN
DISPLAY "Partita IVA" PIVA DISPLAY "Partita IVA" PIVA
DISPLAY "Natura" NATURA DISPLAY "Natura" NATURA
DISPLAY "Nomenclatura" NOMENCL DISPLAY "Nomenclatura" NOMENCL
DISPLAY "Regime" REGIME DISPLAY "Consegna" CONSEGNA
DISPLAY "Trasporto" TRASPORTO DISPLAY "Trasporto" TRASPORTO
DISPLAY "Paese" PAESE DISPLAY "Paese" PAESE
OUTPUT F_PERIODO_M PERIODO OUTPUT F_PERIODO_M PERIODO
@ -115,6 +115,7 @@ END
LIST F_STATO 2 16 LIST F_STATO 2 16
BEGIN BEGIN
PROMPT 1 5 "Stato CEE " PROMPT 1 5 "Stato CEE "
ITEM "AT|Austria"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
@ -127,6 +128,7 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
ITEM "SE|Svezia"
FIELD STATO FIELD STATO
END END
@ -215,29 +217,38 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
LIST F_REGIME_C 1 24 STRING F_CONSEGNA 3
BEGIN BEGIN
PROMPT 1 11 "Regime " PROMPT 1 11 "Condiz. consegna "
ITEM "1|Spedizione definitiva" SHEET "Codice|Descrizione@45"
ITEM "2|Spedizione temporanea" INPUT F_CONSEGNA
ITEM "3|Rispedizione" ITEM "EXW|Franco fabbrica"
GROUP GR_CESSIONI ITEM "FCA|Franco vettore"
FIELD REGIME ITEM "FAS|Franco sotto bordo"
ITEM "FOB|Franco a bordo"
ITEM "CFR|Costo e nolo"
ITEM "CIF|Costo, assicurazione, nolo"
ITEM "CPT|Nolo/porto pagato fino a ..."
ITEM "CIP|Nolo/porto e assicurazione pagati fino a ..."
ITEM "DAF|Reso frontiera"
ITEM "DES|Reso franco bordo nave a destino"
ITEM "DEQ|Reso franco banchina"
ITEM "DDU|Reso non sdoganato"
ITEM "DDP|Reso sdoganato"
OUTPUT F_CONSEGNA
OUTPUT F_CONSEGNA_DESC
FIELD CONSEGNA
END END
LIST F_REGIME_A 1 24 STRING F_CONSEGNA_DESC 50
BEGIN BEGIN
PROMPT 1 11 "Regime " PROMPT 26 11 ""
ITEM "4|Introduzione definitiva" FLAGS "D"
ITEM "5|Introduzione temporanea"
ITEM "6|Reintroduzione"
GROUP GR_ACQUISTI
FIELD REGIME
END END
LIST F_TRASPORTO 1 20 LIST F_TRASPORTO 1 20
BEGIN BEGIN
PROMPT 44 11 "Trasporto " PROMPT 1 12 "Modo di trasporto "
ITEM "1|Marittimo" ITEM "1|Marittimo"
ITEM "2|Ferroviario" ITEM "2|Ferroviario"
ITEM "3|Stradale" ITEM "3|Stradale"
@ -252,20 +263,21 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 12 "Pase di destinazione" PROMPT 1 13 "Pase di destinazione"
GROUP GR_CESSIONI GROUP GR_CESSIONI
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 12 "Pase di provenienza" PROMPT 1 13 "Pase di provenienza"
GROUP GR_ACQUISTI GROUP GR_ACQUISTI
END END
LIST F_PAESE 2 20 LIST F_PAESE 2 20
BEGIN BEGIN
PROMPT 22 12 "" PROMPT 22 13 ""
ITEM " |" ITEM " |"
ITEM "AT|Austria"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
@ -278,44 +290,32 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
ITEM "SE|Svezia"
FIELD PAESE FIELD PAESE
END END
LIST F_PAESE_ORIG 2 20 STRING F_PAESE_ORIG 2
BEGIN BEGIN
PROMPT 1 13 "Pase di origine " PROMPT 1 14 "Pase di origine "
ITEM " |"
ITEM "BE|Belgio"
ITEM "DE|Germania"
ITEM "DK|Danimarca"
ITEM "EL|Grecia"
ITEM "ES|Spagna"
ITEM "FR|Francia"
ITEM "GB|Gran Bretagna"
ITEM "IE|Irlanda"
ITEM "IT|Italia"
ITEM "LU|Lussemburgo"
ITEM "NL|Olanda"
ITEM "PT|Portogallo"
GROUP GR_ACQUISTI GROUP GR_ACQUISTI
FIELD PAESEORIG FIELD PAESEORIG
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 46 12 "Provincia d'origine " PROMPT 46 13 "Provincia d'origine "
GROUP GR_CESSIONI GROUP GR_CESSIONI
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 46 12 "Prov. destinazione " PROMPT 46 13 "Prov. destinazione "
GROUP GR_ACQUISTI GROUP GR_ACQUISTI
END END
STRING F_PROV 2 STRING F_PROV 2
BEGIN BEGIN
PROMPT 66 12 "" PROMPT 66 13 ""
FLAGS "U" FLAGS "U"
FIELD PROV FIELD PROV
END END

2
in/in0700.cpp
View File

@ -101,7 +101,7 @@ bool TRettifiche_intra::user_destroy()
return TRUE; return TRUE;
} }
int is0700(int argc, char* argv[]) int in0700(int argc, char* argv[])
{ {
TRettifiche_intra a; TRettifiche_intra a;
a.run(argc, argv, "Rettifiche INTRA"); a.run(argc, argv, "Rettifiche INTRA");

6
in/in0700a.uml
View File

@ -102,7 +102,7 @@ BEGIN
DISPLAY "Partita IVA" PIVA DISPLAY "Partita IVA" PIVA
DISPLAY "Natura" NATURA DISPLAY "Natura" NATURA
DISPLAY "Nomenclatura" NOMENCL DISPLAY "Nomenclatura" NOMENCL
DISPLAY "Regime" REGIME DISPLAY "Consegna" CONSEGNA
DISPLAY "Trasporto" TRASPORTO DISPLAY "Trasporto" TRASPORTO
DISPLAY "Paese" PAESE DISPLAY "Paese" PAESE
OUTPUT O_PERIODO_M PERIODO OUTPUT O_PERIODO_M PERIODO
@ -124,6 +124,7 @@ END
LIST O_STATO 2 16 LIST O_STATO 2 16
BEGIN BEGIN
PROMPT 2 5 "Stato CEE " PROMPT 2 5 "Stato CEE "
ITEM "AT|Austria"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
@ -136,6 +137,7 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
ITEM "SE|Svezia"
GROUP GR_ORIGINAL GROUP GR_ORIGINAL
END END
@ -312,6 +314,7 @@ END
LIST F_STATO 2 16 LIST F_STATO 2 16
BEGIN BEGIN
PROMPT 2 13 "Stato CEE " PROMPT 2 13 "Stato CEE "
ITEM "AT|Austria"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
@ -324,6 +327,7 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
ITEM "SE|Svezia"
FIELD STATO FIELD STATO
END END

73
in/inlib01.cpp
View File

@ -47,17 +47,17 @@ char TIntra_mask::frequenza() const
return (t == 'A' || t == 'B') ? _freq_acq : _freq_ces; return (t == 'A' || t == 'B') ? _freq_acq : _freq_ces;
} }
int TIntra_mask::periodo() const const char* TIntra_mask::periodo_str() const
{ {
const short id = period_field(); const short id = period_field();
int pe = 1; const char* pe = "01";
if (id != DLG_NULL) if (id != DLG_NULL)
{ {
switch(frequenza()) switch(frequenza())
{ {
case 'T': pe = get_int(id+1); break; case 'M': pe = get(id); break;
case 'A': pe = 1; break; case 'T': pe = get(id+1); break;
default : pe = get_int(id); break; default : break;
} }
} }
else else
@ -65,6 +65,11 @@ int TIntra_mask::periodo() const
return pe; return pe;
} }
int TIntra_mask::periodo() const
{
return atoi(periodo_str());
}
bool TIntra_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) bool TIntra_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{ {
if (jolly == 0 && o.dlg() == type_field()) if (jolly == 0 && o.dlg() == type_field())
@ -96,7 +101,7 @@ TIntra_mask::TIntra_mask(const char* name)
class TDati_riepilogo : public TSortable class TDati_riepilogo : public TSortable
{ {
TString _key; TToken_string _key;
TCurrency _ammlire, _ammvaluta; TCurrency _ammlire, _ammvaluta;
real _valstat, _massakg, _massaums; real _valstat, _massakg, _massaums;
@ -108,8 +113,18 @@ public:
TDati_riepilogo& operator +=(const TDati_riepilogo& r); TDati_riepilogo& operator +=(const TDati_riepilogo& r);
void write(TRectype& rec) const; void write(TRectype& rec) const;
const TString& stato(TString& c) const { _key.get(0, c); return c; }
const TString& partita_iva(TString& c) const { _key.get(1, c); return c; }
const TString& natura(TString& c) const { _key.get(3, c); return c; }
const TString& nomenclatura(TString& c) const { _key.get(4, c); return c; }
const TString& consegna(TString& c) const { _key.get(5, c); return c; }
const TString& trasporto(TString& c) const { _key.get(6, c); return c; }
const TString& paese(TString& c) const { _key.get(7, c); return c; }
const TString& paese_orig(TString& c) const { _key.get(8, c); return c; }
const TString& provincia(TString& c) const { _key.get(9, c); return c; }
TDati_riepilogo(const TDati_riepilogo& r); TDati_riepilogo(const TDati_riepilogo& r);
TDati_riepilogo(const TString& key, const TRectype& rec, const TString& codval); TDati_riepilogo(const TToken_string& key, const TRectype& rec, const TString& codval);
virtual ~TDati_riepilogo() { } virtual ~TDati_riepilogo() { }
}; };
@ -131,12 +146,24 @@ TDati_riepilogo& TDati_riepilogo::operator +=(const TDati_riepilogo& r)
void TDati_riepilogo::write(TRectype& rec) const void TDati_riepilogo::write(TRectype& rec) const
{ {
TString str;
rec.put("STATO", stato(str));
rec.put("PIVA", partita_iva(str));
rec.put("NATURA", natura(str));
rec.put("NOMENCL", nomenclatura(str));
rec.put("CONSEGNA", consegna(str));
rec.put("TRASPORTO", trasporto(str));
rec.put("PAESE", paese(str));
rec.put("PAESEORIG", paese_orig(str));
rec.put("PROV", provincia(str));
rec.put("AMMLIRE", _ammlire.get_num()); rec.put("AMMLIRE", _ammlire.get_num());
rec.put("AMMVALUTA", _ammvaluta.get_num()); rec.put("AMMVALUTA", _ammvaluta.get_num());
rec.put("CODVAL", _ammvaluta.get_value()); rec.put("CODVAL", _ammvaluta.get_value());
rec.put("VALSTAT", _valstat); rec.put("VALSTAT", _valstat);
rec.put("MASSAKG", _massakg); rec.put("MASSAKG", _massakg);
rec.put("MASSAUMS", _massaums); rec.put("MASSAUMS", _massaums);
} }
TDati_riepilogo::TDati_riepilogo(const TDati_riepilogo& r) TDati_riepilogo::TDati_riepilogo(const TDati_riepilogo& r)
@ -145,7 +172,7 @@ TDati_riepilogo::TDati_riepilogo(const TDati_riepilogo& r)
_massakg(r._massakg), _massaums(r._massaums) _massakg(r._massakg), _massaums(r._massaums)
{ } { }
TDati_riepilogo::TDati_riepilogo(const TString& key, TDati_riepilogo::TDati_riepilogo(const TToken_string& key,
const TRectype& rec, const TRectype& rec,
const TString& codval) const TString& codval)
: _key(key), _ammlire(rec.get_real("AMMLIRE"), "_FIRM"), : _key(key), _ammlire(rec.get_real("AMMLIRE"), "_FIRM"),
@ -178,7 +205,8 @@ public:
void TRiepiloghi::add(const TRectype& rec, const TRectype& mov) void TRiepiloghi::add(const TRectype& rec, const TRectype& mov)
{ {
TString16 cod; TString16 cod;
cod << mov.get_char("TIPOCF") << '|' << mov.get_long("CODCF"); const char tipocf = mov.get_char("TIPOCF");
cod << tipocf << '|' << mov.get_long("CODCF");
const TRectype& clifo = cache().get(LF_CLIFO, cod); const TRectype& clifo = cache().get(LF_CLIFO, cod);
cod = mov.get("CODVAL"); cod = mov.get("CODVAL");
@ -189,10 +217,10 @@ void TRiepiloghi::add(const TRectype& rec, const TRectype& mov)
key.add(cod); // Non e' chiaro se raggruppare per valuta! key.add(cod); // Non e' chiaro se raggruppare per valuta!
key.add(rec.get("NATURA")); key.add(rec.get("NATURA"));
key.add(rec.get("NOMENCL")); key.add(rec.get("NOMENCL"));
key.add(rec.get("REGIME")); key.add(rec.get("CONSEGNA"));
key.add(rec.get("TRASPORTO")); key.add(rec.get("TRASPORTO"));
key.add(rec.get("PAESE")); key.add(rec.get("PAESE"));
key.add(rec.get("PAESEORIG")); key.add(rec.get("PAESEORIG")); // Campo solo per Acquisti
key.add(rec.get("PROV")); key.add(rec.get("PROV"));
TDati_riepilogo* data = (TDati_riepilogo*)_ass.objptr(key); TDati_riepilogo* data = (TDati_riepilogo*)_ass.objptr(key);
@ -331,9 +359,28 @@ TGenerazione_mask::TGenerazione_mask()
// Generazione riepiloghi // Generazione riepiloghi
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
void genera_riepiloghi() void genera_riepiloghi(char tipo, int anno, int periodo)
{ {
TGenerazione_mask m; TGenerazione_mask m;
if (m.run() == K_ENTER)
int num_fields = 0;
if (tipo > ' ' )
{
m.set(R_TIPO, tipo);
num_fields++;
}
if (anno > 0)
{
m.set(R_ANNO, anno);
num_fields++;
}
if (periodo > 0)
{
m.set(R_PERIODO_M, periodo);
m.set(R_PERIODO_T, periodo);
num_fields++;
}
if (num_fields == 3 || m.run() == K_ENTER)
m.genera_riepiloghi(); m.genera_riepiloghi();
} }

3
in/inlib01.h
View File

@ -20,11 +20,12 @@ public:
char tipo() const; char tipo() const;
char frequenza() const; char frequenza() const;
int periodo() const; int periodo() const;
const char* periodo_str() const;
TIntra_mask(const char* name); TIntra_mask(const char* name);
virtual ~TIntra_mask() { } virtual ~TIntra_mask() { }
}; };
void genera_riepiloghi(); void genera_riepiloghi(char tipo = ' ', int anno = 0, int periodo = 0);
#endif #endif

11
in/inprassi.men Executable file
View File

@ -0,0 +1,11 @@
[PRASSIEF_001]
Caption = "Elenchi INTRA comunitari"
Picture = <ba00.bmp>
Module = 34
Flags = ""
Item_01 = "Stampa riepiloghi", "in0 -0", "F"
Item_02 = "Generazione dischetti", "in0 -1", "F"
Item_03 = "Gestione movimenti", "in0 -4", "F"
Item_04 = "Gestione riepiloghi", "in0 -5", "F"
Item_05 = "Gestione rettifiche", "in0 -6", "F"