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

jj

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3777 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-10-15 13:36:56 +00:00
parent 27bf18b4da
commit 6306defe26
2 changed files with 649 additions and 213 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

426
cg/cg6804c.uml
View File

@ -1,213 +1,213 @@
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -14 -1 "~Conferma" PROMPT -14 -1 "~Conferma"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
END END
BUTTON DLG_DELREC 8 2 BUTTON DLG_DELREC 8 2
BEGIN BEGIN
PROMPT -24 -1 "~Elimina" PROMPT -24 -1 "~Elimina"
MESSAGE EXIT,K_DEL MESSAGE EXIT,K_DEL
END END
BUTTON DLG_CANCEL 8 2 BUTTON DLG_CANCEL 8 2
BEGIN BEGIN
PROMPT -34 -1 "" PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON 100 8 2 BUTTON 100 8 2
BEGIN BEGIN
PROMPT -44 -1 "~Gestione" PROMPT -44 -1 "~Gestione"
END END
ENDPAGE ENDPAGE
PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20 PAGE "Variazione Movimenti Saldaconto" -1 -1 78 20
LIST 101 1 12 LIST 101 1 12
BEGIN BEGIN
PROMPT 1 1 "Tipo conto " PROMPT 1 1 "Tipo conto "
ITEM " |Conto" ITEM " |Conto"
ITEM "C|Cliente" ITEM "C|Cliente"
ITEM "F|Fornitore" ITEM "F|Fornitore"
FLAGS "DG" FLAGS "DG"
END END
NUMBER 102 3 NUMBER 102 3
BEGIN BEGIN
PROMPT 30 1 "Gruppo " PROMPT 30 1 "Gruppo "
FLAGS "D" FLAGS "D"
END END
NUMBER 103 3 NUMBER 103 3
BEGIN BEGIN
PROMPT 43 1 "Conto " PROMPT 43 1 "Conto "
FLAGS "D" FLAGS "D"
END END
NUMBER 104 6 NUMBER 104 6
BEGIN BEGIN
PROMPT 56 1 "Sottoconto " PROMPT 56 1 "Sottoconto "
FLAGS "DG" FLAGS "DG"
END END
STRING 105 50 STRING 105 50
BEGIN BEGIN
PROMPT 1 2 "Descrizione " PROMPT 1 2 "Descrizione "
FLAGS "D" FLAGS "D"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 3 "@bRiferimento partita " PROMPT 1 3 "@bRiferimento partita "
END END
NUMBER 106 4 NUMBER 106 4
BEGIN BEGIN
PROMPT 1 4 "Anno " PROMPT 1 4 "Anno "
FLAGS "D" FLAGS "D"
END END
STRING 107 7 STRING 107 7
BEGIN BEGIN
PROMPT 28 4 "Numero " PROMPT 28 4 "Numero "
FLAGS "UD" FLAGS "UD"
END END
NUMBER 108 4 NUMBER 108 4
BEGIN BEGIN
PROMPT 56 4 "Numero riga " PROMPT 56 4 "Numero riga "
FLAGS "D" FLAGS "D"
END END
DATE 109 DATE 109
BEGIN BEGIN
PROMPT 1 6 "Data documento " PROMPT 1 6 "Data documento "
END END
STRING 110 7 STRING 110 7
BEGIN BEGIN
PROMPT 50 6 "Numero documento " PROMPT 50 6 "Numero documento "
END END
STRING 111 3 STRING 111 3
BEGIN BEGIN
PROMPT 1 7 "Causale " PROMPT 1 7 "Causale "
USE LF_CAUSALI KEY 1 USE LF_CAUSALI KEY 1
INPUT CODCAUS 111 INPUT CODCAUS 111
DISPLAY "Causale" CODCAUS DISPLAY "Causale" CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT 111 CODCAUS OUTPUT 111 CODCAUS
OUTPUT 112 DESCR OUTPUT 112 DESCR
FLAGS "UZ" FLAGS "UZ"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING 112 50 STRING 112 50
BEGIN BEGIN
PROMPT 25 7 "" PROMPT 25 7 ""
FLAGS "D" FLAGS "D"
END END
NUMBER 113 7 NUMBER 113 7
BEGIN BEGIN
PROMPT 1 8 "Numero operazione " PROMPT 1 8 "Numero operazione "
END END
NUMBER 114 3 NUMBER 114 3
BEGIN BEGIN
PROMPT 30 8 "Numero riga " PROMPT 30 8 "Numero riga "
END END
DATE 115 DATE 115
BEGIN BEGIN
PROMPT 49 8 "Data operazione " PROMPT 49 8 "Data operazione "
END END
NUMBER 116 3 NUMBER 116 3
BEGIN BEGIN
PROMPT 1 9 "Codice conto C/F " PROMPT 1 9 "Codice conto C/F "
USE LF_PCON KEY 1 USE LF_PCON KEY 1
INPUT GRUPPO 116 INPUT GRUPPO 116
INPUT CONTO 117 INPUT CONTO 117
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT 116 GRUPPO OUTPUT 116 GRUPPO
OUTPUT 117 CONTO OUTPUT 117 CONTO
OUTPUT 118 DESCR OUTPUT 118 DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER 117 3 NUMBER 117 3
BEGIN BEGIN
PROMPT 26 9 "" PROMPT 26 9 ""
COPY ALL 116 COPY ALL 116
END END
STRING 118 50 STRING 118 50
BEGIN BEGIN
PROMPT 1 10 "Descrizione " PROMPT 1 10 "Descrizione "
FLAGS "D" FLAGS "D"
END END
LIST 119 20 LIST 119 20
BEGIN BEGIN
PROMPT 1 11 "Tipo movimento " PROMPT 1 11 "Tipo movimento "
ITEM "1|Fattura" ITEM "1|Fattura"
ITEM "2|Nota credito" ITEM "2|Nota credito"
ITEM "3|Incasso/pagamento" ITEM "3|Incasso/pagamento"
ITEM "5|Insoluto" ITEM "5|Insoluto"
ITEM "6|Pagamento insoluto" ITEM "6|Pagamento insoluto"
END END
STRING 120 50 STRING 120 50
BEGIN BEGIN
PROMPT 1 12 "Descrizione " PROMPT 1 12 "Descrizione "
END END
LIST 121 7 LIST 121 7
BEGIN BEGIN
PROMPT 1 13 "Sezione " PROMPT 1 13 "Sezione "
ITEM "D|Dare" ITEM "D|Dare"
ITEM "A|Avere" ITEM "A|Avere"
END END
DATE 122 DATE 122
BEGIN BEGIN
PROMPT 1 14 "Data pagamento " PROMPT 1 14 "Data pagamento "
END END
NUMBER 123 1 NUMBER 123 1
BEGIN BEGIN
PROMPT 58 14 "Tipo pagamento " PROMPT 58 14 "Tipo pagamento "
END END
STRING 124 3 STRING 124 3
BEGIN BEGIN
PROMPT 1 15 "Codice valuta " PROMPT 1 15 "Codice valuta "
USE %VAL USE %VAL
INPUT CODTAB 124 INPUT CODTAB 124
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@5" S0 DISPLAY "Descrizione@5" S0
OUTPUT 124 CODTAB OUTPUT 124 CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
FLAGS "U" FLAGS "U"
END END
DATE 125 DATE 125
BEGIN BEGIN
PROMPT 1 16 "Data cambio " PROMPT 1 16 "Data cambio "
END END
NUMBER 126 15 5 NUMBER 126 15 5
BEGIN BEGIN
PROMPT 53 16 "Cambio " PROMPT 53 16 "Cambio "
PICTURE ".5" PICTURE ".5"
END END
ENDPAGE ENDPAGE

436
cg/cg6901.cpp
View File

@ -895,7 +895,443 @@ void TLista_archivi::controlla_PNIVA(char file)
void TLista_archivi::controlla_fatture(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) void TLista_archivi::setta_intestazione(char sigla)