jj
git-svn-id: svn://10.65.10.50/trunk@3777 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
27bf18b4da
commit
6306defe26
426
cg/cg6804c.uml
426
cg/cg6804c.uml
@ -1,213 +1,213 @@
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -14 -1 "~Conferma"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 8 2
|
||||
BEGIN
|
||||
PROMPT -24 -1 "~Elimina"
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 8 2
|
||||
BEGIN
|
||||
PROMPT -34 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON 100 8 2
|
||||
BEGIN
|
||||
PROMPT -44 -1 "~Gestione"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
|
||||
|
||||
LIST 101 1 12
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo conto "
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
NUMBER 102 3
|
||||
BEGIN
|
||||
PROMPT 30 1 "Gruppo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 103 3
|
||||
BEGIN
|
||||
PROMPT 43 1 "Conto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 104 6
|
||||
BEGIN
|
||||
PROMPT 56 1 "Sottoconto "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING 105 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bRiferimento partita "
|
||||
END
|
||||
|
||||
NUMBER 106 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "Anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 107 7
|
||||
BEGIN
|
||||
PROMPT 28 4 "Numero "
|
||||
FLAGS "UD"
|
||||
END
|
||||
|
||||
NUMBER 108 4
|
||||
BEGIN
|
||||
PROMPT 56 4 "Numero riga "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE 109
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data documento "
|
||||
END
|
||||
|
||||
STRING 110 7
|
||||
BEGIN
|
||||
PROMPT 50 6 "Numero documento "
|
||||
END
|
||||
|
||||
STRING 111 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Causale "
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS 111
|
||||
DISPLAY "Causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 111 CODCAUS
|
||||
OUTPUT 112 DESCR
|
||||
FLAGS "UZ"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 112 50
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 113 7
|
||||
BEGIN
|
||||
PROMPT 1 8 "Numero operazione "
|
||||
END
|
||||
|
||||
NUMBER 114 3
|
||||
BEGIN
|
||||
PROMPT 30 8 "Numero riga "
|
||||
END
|
||||
|
||||
DATE 115
|
||||
BEGIN
|
||||
PROMPT 49 8 "Data operazione "
|
||||
END
|
||||
|
||||
NUMBER 116 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "Codice conto C/F "
|
||||
USE LF_PCON KEY 1
|
||||
INPUT GRUPPO 116
|
||||
INPUT CONTO 117
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 116 GRUPPO
|
||||
OUTPUT 117 CONTO
|
||||
OUTPUT 118 DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER 117 3
|
||||
BEGIN
|
||||
PROMPT 26 9 ""
|
||||
COPY ALL 116
|
||||
END
|
||||
|
||||
STRING 118 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST 119 20
|
||||
BEGIN
|
||||
PROMPT 1 11 "Tipo movimento "
|
||||
ITEM "1|Fattura"
|
||||
ITEM "2|Nota credito"
|
||||
ITEM "3|Incasso/pagamento"
|
||||
ITEM "5|Insoluto"
|
||||
ITEM "6|Pagamento insoluto"
|
||||
END
|
||||
|
||||
STRING 120 50
|
||||
BEGIN
|
||||
PROMPT 1 12 "Descrizione "
|
||||
END
|
||||
|
||||
LIST 121 7
|
||||
BEGIN
|
||||
PROMPT 1 13 "Sezione "
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
END
|
||||
|
||||
DATE 122
|
||||
BEGIN
|
||||
PROMPT 1 14 "Data pagamento "
|
||||
END
|
||||
|
||||
NUMBER 123 1
|
||||
BEGIN
|
||||
PROMPT 58 14 "Tipo pagamento "
|
||||
END
|
||||
|
||||
STRING 124 3
|
||||
BEGIN
|
||||
PROMPT 1 15 "Codice valuta "
|
||||
USE %VAL
|
||||
INPUT CODTAB 124
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@5" S0
|
||||
OUTPUT 124 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
DATE 125
|
||||
BEGIN
|
||||
PROMPT 1 16 "Data cambio "
|
||||
END
|
||||
|
||||
NUMBER 126 15 5
|
||||
BEGIN
|
||||
PROMPT 53 16 "Cambio "
|
||||
PICTURE ".5"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_OK 8 2
|
||||
BEGIN
|
||||
PROMPT -14 -1 "~Conferma"
|
||||
MESSAGE EXIT,K_SAVE
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 8 2
|
||||
BEGIN
|
||||
PROMPT -24 -1 "~Elimina"
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 8 2
|
||||
BEGIN
|
||||
PROMPT -34 -1 ""
|
||||
MESSAGE EXIT,K_ESC
|
||||
END
|
||||
|
||||
BUTTON 100 8 2
|
||||
BEGIN
|
||||
PROMPT -44 -1 "~Gestione"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
|
||||
|
||||
LIST 101 1 12
|
||||
BEGIN
|
||||
PROMPT 1 1 "Tipo conto "
|
||||
ITEM " |Conto"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
NUMBER 102 3
|
||||
BEGIN
|
||||
PROMPT 30 1 "Gruppo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 103 3
|
||||
BEGIN
|
||||
PROMPT 43 1 "Conto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 104 6
|
||||
BEGIN
|
||||
PROMPT 56 1 "Sottoconto "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
STRING 105 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 3 "@bRiferimento partita "
|
||||
END
|
||||
|
||||
NUMBER 106 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "Anno "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING 107 7
|
||||
BEGIN
|
||||
PROMPT 28 4 "Numero "
|
||||
FLAGS "UD"
|
||||
END
|
||||
|
||||
NUMBER 108 4
|
||||
BEGIN
|
||||
PROMPT 56 4 "Numero riga "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE 109
|
||||
BEGIN
|
||||
PROMPT 1 6 "Data documento "
|
||||
END
|
||||
|
||||
STRING 110 7
|
||||
BEGIN
|
||||
PROMPT 50 6 "Numero documento "
|
||||
END
|
||||
|
||||
STRING 111 3
|
||||
BEGIN
|
||||
PROMPT 1 7 "Causale "
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS 111
|
||||
DISPLAY "Causale" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 111 CODCAUS
|
||||
OUTPUT 112 DESCR
|
||||
FLAGS "UZ"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING 112 50
|
||||
BEGIN
|
||||
PROMPT 25 7 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER 113 7
|
||||
BEGIN
|
||||
PROMPT 1 8 "Numero operazione "
|
||||
END
|
||||
|
||||
NUMBER 114 3
|
||||
BEGIN
|
||||
PROMPT 30 8 "Numero riga "
|
||||
END
|
||||
|
||||
DATE 115
|
||||
BEGIN
|
||||
PROMPT 49 8 "Data operazione "
|
||||
END
|
||||
|
||||
NUMBER 116 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "Codice conto C/F "
|
||||
USE LF_PCON KEY 1
|
||||
INPUT GRUPPO 116
|
||||
INPUT CONTO 117
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT 116 GRUPPO
|
||||
OUTPUT 117 CONTO
|
||||
OUTPUT 118 DESCR
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER 117 3
|
||||
BEGIN
|
||||
PROMPT 26 9 ""
|
||||
COPY ALL 116
|
||||
END
|
||||
|
||||
STRING 118 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST 119 20
|
||||
BEGIN
|
||||
PROMPT 1 11 "Tipo movimento "
|
||||
ITEM "1|Fattura"
|
||||
ITEM "2|Nota credito"
|
||||
ITEM "3|Incasso/pagamento"
|
||||
ITEM "5|Insoluto"
|
||||
ITEM "6|Pagamento insoluto"
|
||||
END
|
||||
|
||||
STRING 120 50
|
||||
BEGIN
|
||||
PROMPT 1 12 "Descrizione "
|
||||
END
|
||||
|
||||
LIST 121 7
|
||||
BEGIN
|
||||
PROMPT 1 13 "Sezione "
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
END
|
||||
|
||||
DATE 122
|
||||
BEGIN
|
||||
PROMPT 1 14 "Data pagamento "
|
||||
END
|
||||
|
||||
NUMBER 123 1
|
||||
BEGIN
|
||||
PROMPT 58 14 "Tipo pagamento "
|
||||
END
|
||||
|
||||
STRING 124 3
|
||||
BEGIN
|
||||
PROMPT 1 15 "Codice valuta "
|
||||
USE %VAL
|
||||
INPUT CODTAB 124
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@5" S0
|
||||
OUTPUT 124 CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
DATE 125
|
||||
BEGIN
|
||||
PROMPT 1 16 "Data cambio "
|
||||
END
|
||||
|
||||
NUMBER 126 15 5
|
||||
BEGIN
|
||||
PROMPT 53 16 "Cambio "
|
||||
PICTURE ".5"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
|
436
cg/cg6901.cpp
436
cg/cg6901.cpp
@ -895,7 +895,443 @@ void TLista_archivi::controlla_PNIVA(char file)
|
||||
|
||||
void TLista_archivi::controlla_fatture(char file)
|
||||
{
|
||||
/*
|
||||
TPrintrow row;
|
||||
TString str;
|
||||
bool errore = FALSE;
|
||||
bool salto = FALSE;
|
||||
bool intesta = TRUE;
|
||||
bool tit_riga = FALSE;
|
||||
TString_array stampa(50);
|
||||
int num;
|
||||
long nreg_p = 0;
|
||||
|
||||
_part->setkey(1);
|
||||
_part->zero();
|
||||
|
||||
for (_part->first(); !_part->eof(); _part->next())
|
||||
{
|
||||
bool inviata = _part->get_bool(PART_INVIATA);
|
||||
|
||||
if (inviata) continue; // Se il movimento e' gia' stato inviato non lo posso piu' inviare
|
||||
// cosi' come le sue rate e i suoi pagamenti.
|
||||
|
||||
TDate datareg (_part->get_date(PART_DATAREG));
|
||||
|
||||
if (datareg > _datalimite) continue;
|
||||
|
||||
char tipo = _part->get_char(PART_TIPOCF);
|
||||
int gruppo = _part->get_int (PART_GRUPPO);
|
||||
int conto = _part->get_int (PART_CONTO);
|
||||
long sottoc = _part->get_long(PART_SOTTOCONTO);
|
||||
int anno = _part->get_int (PART_ANNO);
|
||||
TString numpart = _part->get (PART_NUMPART);
|
||||
int nriga = _part->get_int (PART_NRIGA);
|
||||
long nreg = _part->get_long(PART_NREG);
|
||||
int
|
||||
if (nreg > 999999)
|
||||
{
|
||||
errore = TRUE;
|
||||
stampa.add(" - Rilevato un numero di registrazione composto da 7");
|
||||
}
|
||||
|
||||
TString reg = _mov->get(MOV_REG);
|
||||
if (!controlla_valore(reg,9,1))
|
||||
{
|
||||
errore = TRUE;
|
||||
stampa.add(" - Rilevato un codice registro IVA composto da 2 o piu' cifre");
|
||||
}
|
||||
|
||||
const char* codcaus = _mov->get(MOV_CODCAUS);
|
||||
if (codcaus && *codcaus)
|
||||
if (!real::is_natural(codcaus))
|
||||
{
|
||||
errore = TRUE;
|
||||
stampa.add(" - Rilevato un codice causale alfanumerico");
|
||||
}
|
||||
|
||||
TString codpag = _mov->get(MOV_CODPAG);
|
||||
if (!controlla_valore(codpag,99,2))
|
||||
{
|
||||
errore = TRUE;
|
||||
stampa.add(" - Rilevato un codice di pagamento composto da 3 o piu' cifre");
|
||||
}
|
||||
|
||||
num = 0;
|
||||
|
||||
bool prima = TRUE;
|
||||
|
||||
_rmov->setkey(1);
|
||||
_rmov->zero();
|
||||
_rmov->put(RMV_NUMREG, nreg);
|
||||
|
||||
TRectype rmov (_rmov->curr());
|
||||
|
||||
for (_rmov->read(); !_rmov->eof(); _rmov->next())
|
||||
{
|
||||
|
||||
if (_rmov->curr() > rmov) break;
|
||||
|
||||
tit_riga = FALSE;
|
||||
|
||||
soliva = FALSE;
|
||||
|
||||
num++;
|
||||
|
||||
if (num > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
stampa.add(" - Rilevato movimento di Primanota con numero righe superiore a 99");
|
||||
}
|
||||
|
||||
int nr = _rmov->get_int (RMV_NUMRIG);
|
||||
int g = _rmov->get_int (RMV_GRUPPO);
|
||||
int c = _rmov->get_int (RMV_CONTO);
|
||||
int gc = _rmov->get_int (RMV_GRUPPOC);
|
||||
int cc = _rmov->get_int (RMV_CONTOC);
|
||||
|
||||
if (nr > 99)
|
||||
{
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe primanota");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato numero di riga con piu' di due cifre";
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
|
||||
if (g > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe primanota");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un gruppo di partita composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un gruppo di partita composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
|
||||
if (c > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe primanota");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un conto di partita composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un conto di partita composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
}
|
||||
|
||||
if (gc > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe primanota");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un gruppo di contropartita composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un gruppo di contropartita composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
|
||||
if (cc > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe primanota");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un conto di contropartita composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un conto di contropartita composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
}
|
||||
}
|
||||
|
||||
if (soliva)
|
||||
{
|
||||
TLocalisamfile rcaus (LF_RCAUSALI);
|
||||
int g = 0;
|
||||
int c = 0;
|
||||
bool tit_riga = FALSE;
|
||||
bool prima = TRUE;
|
||||
int nr = 1;
|
||||
|
||||
rcaus.setkey(1);
|
||||
rcaus.zero();
|
||||
rcaus.put(RCA_CODCAUS, codcaus);
|
||||
rcaus.read();
|
||||
TString codcau = rcaus.get(RCA_CODCAUS);
|
||||
if (codcau == codcaus)
|
||||
{
|
||||
g = rcaus.get_int (RCA_GRUPPO);
|
||||
c = rcaus.get_int (RCA_CONTO);
|
||||
}
|
||||
|
||||
|
||||
if (g > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe primanota");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un gruppo di partita composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un gruppo di partita composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
|
||||
if (c > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe primanota");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un conto di partita composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un conto di partita composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
}
|
||||
}
|
||||
|
||||
num = 0;
|
||||
|
||||
if (_files.find('U') != -1)
|
||||
{
|
||||
nreg_p = 0;
|
||||
_rmoviva->setkey(1);
|
||||
_rmoviva->zero();
|
||||
_rmoviva->put(RMI_NUMREG, nreg);
|
||||
|
||||
TRectype rmoviva (_rmoviva->curr());
|
||||
|
||||
prima = TRUE;
|
||||
|
||||
for (_rmoviva->read(); !_rmoviva->eof(); _rmoviva->next())
|
||||
{
|
||||
if (_rmoviva->curr() > rmoviva) break;
|
||||
|
||||
num++;
|
||||
|
||||
if (num > 9)
|
||||
{
|
||||
errore = TRUE;
|
||||
stampa.add(" - Rilevato movimento Iva con numero righe superiore a 9");
|
||||
}
|
||||
|
||||
int nr = _rmoviva->get_int (RMI_NUMRIG);
|
||||
int g = _rmoviva->get_int (RMI_GRUPPO);
|
||||
int c = _rmoviva->get_int (RMI_CONTO);
|
||||
|
||||
if (nr > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe iva");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato numero di riga con piu' di due cifre";
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
|
||||
if (g > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe iva");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un gruppo composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un gruppo composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
|
||||
if (c > 99)
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe iva");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un conto composto da 3 cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un conto composto da 3 cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
}
|
||||
const char* ci = _rmoviva->get (RMI_CODIVA);
|
||||
if ( ci && *ci && !real::is_natural(ci) )
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe iva");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un codice IVA alfanumerico";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un codice IVA alfanumerico";
|
||||
}
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
|
||||
if (!controlla_valore(ci,99,2))
|
||||
{
|
||||
errore = TRUE;
|
||||
TString app;
|
||||
if (prima)
|
||||
{
|
||||
stampa.add(" ");
|
||||
stampa.add("Righe iva");
|
||||
stampa.add(" ");
|
||||
prima = FALSE;
|
||||
}
|
||||
if (tit_riga)
|
||||
app << "@r Rilevato un codice IVA composto da 3 o piu' cifre";
|
||||
else
|
||||
{
|
||||
app.format("%5s%03d", (const char*)"@b - ", nr);
|
||||
app << " " << "@rRilevato un codice IVA composto da 3 o piu' cifre";
|
||||
}
|
||||
stampa.add(app);
|
||||
tit_riga = TRUE;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (errore)
|
||||
{
|
||||
TString app;
|
||||
|
||||
if (intesta)
|
||||
{
|
||||
setta_intestazione(file);
|
||||
intesta = FALSE;
|
||||
}
|
||||
|
||||
app << "@b- Registrazione numero " << nreg;
|
||||
row.put(app,0);
|
||||
printer().print(row);
|
||||
row.reset();
|
||||
|
||||
long items = stampa.items();
|
||||
|
||||
for (int i = 0; i < items; i++)
|
||||
{
|
||||
str = stampa.row(i);
|
||||
row.put(str,0);
|
||||
printer().print(row);
|
||||
row.reset();
|
||||
}
|
||||
|
||||
row.put(" ",0);
|
||||
printer().print(row);
|
||||
row.reset();
|
||||
|
||||
errore = FALSE;
|
||||
salto = TRUE;
|
||||
_risposta = 1;
|
||||
}
|
||||
stampa.destroy();
|
||||
}
|
||||
if (salto)
|
||||
printer().formfeed();
|
||||
*/
|
||||
}
|
||||
|
||||
void TLista_archivi::setta_intestazione(char sigla)
|
||||
|
Loading…
x
Reference in New Issue
Block a user