From 6306defe26d8a440ac77daab0c5d231bbb06c98e Mon Sep 17 00:00:00 2001 From: ale Date: Tue, 15 Oct 1996 13:36:56 +0000 Subject: [PATCH] jj git-svn-id: svn://10.65.10.50/trunk@3777 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg6804c.uml | 426 +++++++++++++++++++++++------------------------ cg/cg6901.cpp | 436 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 649 insertions(+), 213 deletions(-) diff --git a/cg/cg6804c.uml b/cg/cg6804c.uml index f405a08d7..95766dcf7 100755 --- a/cg/cg6804c.uml +++ b/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 + diff --git a/cg/cg6901.cpp b/cg/cg6901.cpp index 1d6d4867f..88cd8e9b7 100755 --- a/cg/cg6901.cpp +++ b/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)