From 9d3369e983241139741550b69915b4daad6984c6 Mon Sep 17 00:00:00 2001 From: nik Date: Thu, 18 May 1995 09:13:22 +0000 Subject: [PATCH] Correzioni stampa registri git-svn-id: svn://10.65.10.50/trunk@1373 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg2100s.uml | 738 ++++++++++++++++++++++++------------------------- cg/cg4400.cpp | 224 +++++++-------- 2 files changed, 471 insertions(+), 491 deletions(-) diff --git a/cg/cg2100s.uml b/cg/cg2100s.uml index 889a2ce82..a08183d6a 100755 --- a/cg/cg2100s.uml +++ b/cg/cg2100s.uml @@ -1,369 +1,369 @@ -#include "cg2100.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_OK 10 2 -BEGIN - PROMPT -13 -1 "" -END - -BUTTON DLG_DELREC 10 2 -BEGIN - PROMPT -23 -1 "~Elimina" - MESSAGE EXIT,K_DEL -END - -BUTTON DLG_CANCEL 10 2 -BEGIN - PROMPT -33 -1 "" -END - -ENDPAGE - - -PAGE "Pagamento" -1 -1 77 20 - -GROUPBOX DLG_NULL 78 7 -BEGIN - PROMPT 1 0 "@BPartita" -END - -NUMBER S_ANNO 4 -BEGIN - PROMPT 2 1 "Anno " - FLAGS "D" - FIELD ANNO -END - -STRING S_NUM 7 -BEGIN - PROMPT 19 1 "Numero " - FLAGS "DR" - FIELD NUMPART -END - -STRING S_RIGA 4 -BEGIN - PROMPT 40 1 "Riga " - FLAGS "DR" - FIELD NRIGA -END - -STRING S_NUMDOC 7 -BEGIN - PROMPT 2 2 "Numero Documento " - FLAGS "D" -END - -DATE S_DATADOC -BEGIN - PROMPT 28 2 "Data documento " - FLAGS "D" -END - -NUMBER S_NUMPROT 5 -BEGIN - PROMPT 56 2 "Protocollo IVA " - FLAGS "DR" -END - -STRING S_DESCR 50 -BEGIN - PROMPT 2 3 "Descrizione " - FLAGS "D" -END - -NUMBER S_RATA 4 -BEGIN - PROMPT 2 4 "Rata " - FLAGS "DR" -END - -DATE S_DATASCAD -BEGIN - PROMPT 21 4 "Data " - FLAGS "D" -END - -NUMBER S_RESIDUO 15 -BEGIN - PROMPT 44 4 "Residuo " - PICTURE "." - FLAGS "DR" -END - -NUMBER S_IMPORTOVAL 15 2 -BEGIN - PROMPT 2 5 "Importo in valuta " - PICTURE ".2" - FLAGS "DR" -END - -NUMBER S_IMPORTO 15 -BEGIN - PROMPT 38 5 "Importo " - PICTURE "." - FLAGS "DR" -END - -LIST S_SEZIONE 6 -BEGIN - PROMPT 68 5 "" - ITEM "A|Avere" - ITEM "D|Dare" - FLAGS "D" -END - - - -GROUPBOX DLG_NULL 78 12 -BEGIN - PROMPT 1 7 "@BPagamento" -END - -NUMBER S_IMPORTOPAG 15 -BEGIN - PROMPT 2 8 "Importo pagamento " - PICTURE "." - FIELD IMPORTO - FLAGS "UR" - WARNING "Inserire un importo inferiore al residuo" -END - -NUMBER S_RITENUTE 15 -BEGIN - PROMPT 38 8 "Ritenute professionali " - PICTURE "." - FLAGS "UR" - FIELD RITENUTE -END - -LIST S_SALDOACC 1 12 -BEGIN - PROMPT 2 9 "Saldo " - ITEM "A|Acconto" - ITEM "S|Saldo" - FIELD SALACC -END - -DATE S_DATAPAG -BEGIN - PROMPT 38 9 "Data pagamento " - FIELD DATAREG -END - -STRING S_CODPAG 4 -BEGIN - PROMPT 2 10 "Pagamento " - FLAGS "UZ" - USE %CPG - INPUT CODTAB S_CODPAG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Tipo" I0 - OUTPUT S_CODPAG CODTAB - OUTPUT S_DESPAG S0 - OUTPUT S_TIPOPAG I0 - FIELD CODPAG - CHECKTYPE REQUIRED -END - -STRING S_DESPAG 50 -BEGIN - PROMPT 24 10 "" - USE CPG KEY 2 - INPUT S0 S_DESPAG - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - DISPLAY "Tipo" I0 - COPY OUTPUT S_CODPAG - CHECKTYPE REQUIRED -END - -LIST S_TIPOPAG 2 35 -BEGIN - PROMPT 2 11 "Tipo pagamento " - ITEM "1|Rimessa Diretta" - ITEM "2|Tratta" - ITEM "3|Ricevuta Bancaria" - ITEM "4|Cessione" - ITEM "5|Paghero'" - ITEM "6|Lettera di credito" - ITEM "7|Tratta accettata" - ITEM "8|Rapporti interbancari diretti" - ITEM "9|Bonifico" - ITEM "10|Altro" - FIELD TIPOPAG -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 12 "@bContropartita" -END - -LIST S_TIPO 1 12 -BEGIN - PROMPT 2 12 "Tipo " - ITEM " |Conto" - ITEM "C|Cliente" - ITEM "F|Fornitore" - FIELD TIPOC - FLAGS "H" -END - -NUMBER S_GRUPPO 3 -BEGIN - PROMPT 24 12 "Gruppo " - FIELD GRUPPOC - CHECKTYPE REQUIRED - FLAGS "R" -END - -NUMBER S_CONTO 3 -BEGIN - PROMPT 42 12 "Conto " - FIELD CONTOC - CHECKTYPE REQUIRED - FLAGS "R" -END - -NUMBER S_SOTTOCONTO 6 -BEGIN - PROMPT 57 12 "Sottoconto " - FIELD SOTTOCONTC - USE LF_PCON - INPUT GRUPPO S_GRUPPO - INPUT CONTO S_CONTO - INPUT SOTTOCONTO S_SOTTOCONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT S_GRUPPO GRUPPO - OUTPUT S_CONTO CONTO - OUTPUT S_SOTTOCONTO SOTTOCONTO - OUTPUT S_DESCRCONTO DESCR - CHECKTYPE REQUIRED - FLAGS "R" -END - -STRING S_DESCRCONTO 50 -BEGIN - PROMPT 2 13 "Descrizione conto " - USE LF_PCON KEY 2 - INPUT DESCR S_DESCRCONTO - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT S_SOTTOCONTO - CHECKTYPE REQUIRED -END - -STRING S_DESCAGG 50 -BEGIN - PROMPT 2 14 "Descrizione agg. " - FIELD DESCR -END - -NUMBER S_VSABI 5 -BEGIN - PROMPT 2 15 "Vs. Banca ABI " - FLAGS "Z" - USE %BAN - INPUT CODTAB[1,5] S_VSABI - INPUT CODTAB[6,10] S_VSCAB - DISPLAY "ABI@5" CODTAB[1,5] - DISPLAY "CAB@5" CODTAB[6,10] - DISPLAY "Denominazione@50" S0 - OUTPUT S_VSABI CODTAB[1,5] - OUTPUT S_VSCAB CODTAB[6,10] - OUTPUT S_DESCVSABI S0 - CHECKTYPE REQUIRED - FIELD CODABI -END - -NUMBER S_VSCAB 5 -BEGIN - PROMPT 25 15 "CAB " - FLAGS "Z" - COPY ALL S_VSABI - CHECKTYPE REQUIRED - FIELD CODCAB -END - -STRING S_DESCVSABI 50 37 -BEGIN - PROMPT 37 15 "" - USE %BAN KEY 2 - INPUT S0 S_DESCVSABI - DISPLAY "Denominazione@50" S0 - DISPLAY "ABI@5" CODTAB[1,5] - DISPLAY "CAB@5" CODTAB[6,10] - COPY OUTPUT S_VSABI - CHECKTYPE REQUIRED -END - -STRING S_AGENTE 5 -BEGIN - PROMPT 2 16 "Agente " - FLAGS "UZ" - USE AGE - INPUT CODTAB S_AGENTE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @50" S0 - OUTPUT S_AGENTE CODTAB - OUTPUT S_DESCAGENTE S0 - CHECKTYPE NORMAL - FIELD CODAG -END - -STRING S_DESCAGENTE 50 -BEGIN - PROMPT 24 16 "" - USE AGE KEY 2 - INPUT S0 S_DESCAGENTE - DISPLAY "Descrizione @50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_AGENTE - CHECKTYPE NORMAL -END - - -NUMBER S_NSABI 5 -BEGIN - PROMPT 2 17 "Ns. Banca ABI " - FLAGS "Z" - COPY USE S_VSABI - INPUT CODTAB[1,5] S_NSABI - INPUT CODTAB[6,10] S_NSCAB - COPY DISPLAY S_VSABI - OUTPUT S_NSABI CODTAB[1,5] - OUTPUT S_NSCAB CODTAB[6,10] - OUTPUT S_DESCNSABI S0 - FIELD CODABIPR - CHECKTYPE REQUIRED -END - -NUMBER S_NSCAB 5 -BEGIN - PROMPT 25 17 "CAB " - FLAGS "Z" - COPY ALL S_NSABI - FIELD CODCABPR - CHECKTYPE REQUIRED -END - -STRING S_DESCNSABI 50 37 -BEGIN - PROMPT 37 17 "" - COPY USE S_DESCVSABI - INPUT S0 S_DESCNSABI - COPY DISPLAY S_DESCVSABI - COPY OUTPUT S_NSABI - CHECKTYPE REQUIRED -END - -ENDPAGE - -ENDMASK +#include "cg2100.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -13 -1 "" +END + +BUTTON DLG_DELREC 10 2 +BEGIN + PROMPT -23 -1 "~Elimina" + MESSAGE EXIT,K_DEL +END + +BUTTON DLG_CANCEL 10 2 +BEGIN + PROMPT -33 -1 "" +END + +ENDPAGE + + +PAGE "Pagamento" -1 -1 77 20 + +GROUPBOX DLG_NULL 78 7 +BEGIN + PROMPT 1 0 "@BPartita" +END + +NUMBER S_ANNO 4 +BEGIN + PROMPT 2 1 "Anno " + FLAGS "D" + FIELD ANNO +END + +STRING S_NUM 7 +BEGIN + PROMPT 19 1 "Numero " + FLAGS "DR" + FIELD NUMPART +END + +STRING S_RIGA 4 +BEGIN + PROMPT 40 1 "Riga " + FLAGS "DR" + FIELD NRIGA +END + +STRING S_NUMDOC 7 +BEGIN + PROMPT 2 2 "Numero Documento " + FLAGS "D" +END + +DATE S_DATADOC +BEGIN + PROMPT 28 2 "Data documento " + FLAGS "D" +END + +NUMBER S_NUMPROT 5 +BEGIN + PROMPT 56 2 "Protocollo IVA " + FLAGS "DR" +END + +STRING S_DESCR 50 +BEGIN + PROMPT 2 3 "Descrizione " + FLAGS "D" +END + +NUMBER S_RATA 4 +BEGIN + PROMPT 2 4 "Rata " + FLAGS "DR" +END + +DATE S_DATASCAD +BEGIN + PROMPT 21 4 "Data " + FLAGS "D" +END + +NUMBER S_RESIDUO 15 +BEGIN + PROMPT 44 4 "Residuo " + PICTURE "." + FLAGS "DR" +END + +NUMBER S_IMPORTOVAL 15 2 +BEGIN + PROMPT 2 5 "Importo in valuta " + PICTURE ".2" + FLAGS "DR" +END + +NUMBER S_IMPORTO 15 +BEGIN + PROMPT 38 5 "Importo " + PICTURE "." + FLAGS "DR" +END + +LIST S_SEZIONE 6 +BEGIN + PROMPT 68 5 "" + ITEM "A|Avere" + ITEM "D|Dare" + FLAGS "D" +END + + + +GROUPBOX DLG_NULL 78 12 +BEGIN + PROMPT 1 7 "@BPagamento" +END + +NUMBER S_IMPORTOPAG 15 +BEGIN + PROMPT 2 8 "Importo pagamento " + PICTURE "." + FIELD IMPORTO + FLAGS "UR" + WARNING "Inserire un importo inferiore al residuo" +END + +NUMBER S_RITENUTE 15 +BEGIN + PROMPT 38 8 "Ritenute professionali " + PICTURE "." + FLAGS "UR" + FIELD RITENUTE +END + +LIST S_SALDOACC 1 12 +BEGIN + PROMPT 2 9 "Saldo " + ITEM "A|Acconto" + ITEM "S|Saldo" + FIELD SALACC +END + +DATE S_DATAPAG +BEGIN + PROMPT 38 9 "Data pagamento " + FIELD DATAREG +END + +STRING S_CODPAG 4 +BEGIN + PROMPT 2 10 "Pagamento " + FLAGS "UZ" + USE %CPG + INPUT CODTAB S_CODPAG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Tipo" I0 + OUTPUT S_CODPAG CODTAB + OUTPUT S_DESPAG S0 + OUTPUT S_TIPOPAG I0 + FIELD CODPAG + CHECKTYPE REQUIRED +END + +STRING S_DESPAG 50 +BEGIN + PROMPT 24 10 "" + USE CPG KEY 2 + INPUT S0 S_DESPAG + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Tipo" I0 + COPY OUTPUT S_CODPAG + CHECKTYPE REQUIRED +END + +LIST S_TIPOPAG 2 35 +BEGIN + PROMPT 2 11 "Tipo pagamento " + ITEM "1|Rimessa Diretta" + ITEM "2|Tratta" + ITEM "3|Ricevuta Bancaria" + ITEM "4|Cessione" + ITEM "5|Paghero'" + ITEM "6|Lettera di credito" + ITEM "7|Tratta accettata" + ITEM "8|Rapporti interbancari diretti" + ITEM "9|Bonifico" + ITEM "10|Altro" + FIELD TIPOPAG +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 12 "@bContropartita" +END + +LIST S_TIPO 1 12 +BEGIN + PROMPT 2 12 "Tipo " + ITEM " |Conto" + ITEM "C|Cliente" + ITEM "F|Fornitore" + FIELD TIPOC + FLAGS "H" +END + +NUMBER S_GRUPPO 3 +BEGIN + PROMPT 24 12 "Gruppo " + FIELD GRUPPOC + CHECKTYPE REQUIRED + FLAGS "R" +END + +NUMBER S_CONTO 3 +BEGIN + PROMPT 42 12 "Conto " + FIELD CONTOC + CHECKTYPE REQUIRED + FLAGS "R" +END + +NUMBER S_SOTTOCONTO 6 +BEGIN + PROMPT 57 12 "Sottoconto " + FIELD SOTTOCONTC + USE LF_PCON + INPUT GRUPPO S_GRUPPO + INPUT CONTO S_CONTO + INPUT SOTTOCONTO S_SOTTOCONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT S_GRUPPO GRUPPO + OUTPUT S_CONTO CONTO + OUTPUT S_SOTTOCONTO SOTTOCONTO + OUTPUT S_DESCRCONTO DESCR + CHECKTYPE REQUIRED + FLAGS "R" +END + +STRING S_DESCRCONTO 50 +BEGIN + PROMPT 2 13 "Descrizione conto " + USE LF_PCON KEY 2 + INPUT DESCR S_DESCRCONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT S_SOTTOCONTO + CHECKTYPE REQUIRED +END + +STRING S_DESCAGG 50 +BEGIN + PROMPT 2 14 "Descrizione agg. " + FIELD DESCR +END + +NUMBER S_VSABI 5 +BEGIN + PROMPT 2 15 "Vs. Banca ABI " + FLAGS "Z" + USE %BAN + INPUT CODTAB[1,5] S_VSABI + INPUT CODTAB[6,10] S_VSCAB + DISPLAY "ABI@5" CODTAB[1,5] + DISPLAY "CAB@5" CODTAB[6,10] + DISPLAY "Denominazione@50" S0 + OUTPUT S_VSABI CODTAB[1,5] + OUTPUT S_VSCAB CODTAB[6,10] + OUTPUT S_DESCVSABI S0 + CHECKTYPE REQUIRED + FIELD CODABI +END + +NUMBER S_VSCAB 5 +BEGIN + PROMPT 25 15 "CAB " + FLAGS "Z" + COPY ALL S_VSABI + CHECKTYPE REQUIRED + FIELD CODCAB +END + +STRING S_DESCVSABI 50 37 +BEGIN + PROMPT 37 15 "" + USE %BAN KEY 2 + INPUT S0 S_DESCVSABI + DISPLAY "Denominazione@50" S0 + DISPLAY "ABI@5" CODTAB[1,5] + DISPLAY "CAB@5" CODTAB[6,10] + COPY OUTPUT S_VSABI + CHECKTYPE REQUIRED +END + +STRING S_AGENTE 5 +BEGIN + PROMPT 2 16 "Agente " + FLAGS "UZ" + USE AGE + INPUT CODTAB S_AGENTE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @50" S0 + OUTPUT S_AGENTE CODTAB + OUTPUT S_DESCAGENTE S0 + CHECKTYPE NORMAL + FIELD CODAG +END + +STRING S_DESCAGENTE 50 +BEGIN + PROMPT 24 16 "" + USE AGE KEY 2 + INPUT S0 S_DESCAGENTE + DISPLAY "Descrizione @50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_AGENTE + CHECKTYPE NORMAL +END + + +NUMBER S_NSABI 5 +BEGIN + PROMPT 2 17 "Ns. Banca ABI " + FLAGS "Z" + COPY USE S_VSABI + INPUT CODTAB[1,5] S_NSABI + INPUT CODTAB[6,10] S_NSCAB + COPY DISPLAY S_VSABI + OUTPUT S_NSABI CODTAB[1,5] + OUTPUT S_NSCAB CODTAB[6,10] + OUTPUT S_DESCNSABI S0 + FIELD CODABIPR + CHECKTYPE REQUIRED +END + +NUMBER S_NSCAB 5 +BEGIN + PROMPT 25 17 "CAB " + FLAGS "Z" + COPY ALL S_NSABI + FIELD CODCABPR + CHECKTYPE REQUIRED +END + +STRING S_DESCNSABI 50 37 +BEGIN + PROMPT 37 17 "" + COPY USE S_DESCVSABI + INPUT S0 S_DESCNSABI + COPY DISPLAY S_DESCVSABI + COPY OUTPUT S_NSABI + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg4400.cpp b/cg/cg4400.cpp index 276895f0d..3c1573a20 100755 --- a/cg/cg4400.cpp +++ b/cg/cg4400.cpp @@ -131,7 +131,11 @@ bool CG4400_application::mask_tipo_stampa(TMask_field& f, KEY k) { int tipo_stampa = m.get_int(TIPO_STAMPA); if (tipo_stampa == 3) //stampa su libro unico + { m.enable_page(1); + TMask_field& cc = f.mask().field(CODICE_LIB_UN); + cc.set_dirty(); + } else m.disable_page(1); } @@ -160,7 +164,7 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k) f.mask().hide (TIPO_RIEPILOGATIVO); f.mask().hide (RIF_VID); } - //TMask_field& cc = f.mask().field(CODICE_LIBRO_IVA); + //TMask_field& cc = f.mask().field(CODICE_LIB_UN); //cc.set_dirty(); } if (id == FINO_A_MESE) @@ -174,8 +178,8 @@ bool CG4400_application::mask_mese (TMask_field& f, KEY k) { const short id = f.dlg(); if (id == MESE) - f.mask().send_key(K_TAB, CODICE_LIBRO_IVA); - } + f.mask().send_key(K_TAB, CODICE_LIBRO_IVA); + } return TRUE; } @@ -197,12 +201,16 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const TDate sca_vid = _tabreg->get_date("D1"); if (codlib != cod_lib_un) { - if (_selected[i]) message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta); + if (_selected.ones() == 1L) + if (_selected[i]) + message_box("Ditta %ld: il codice libro unico del registro non e' uguale al codice libro unico indicato", ditta); return FALSE; } if (m < *umese) { - if (_selected[i]) message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta); + if (_selected.ones() == 1L) + if (_selected[i]) + message_box("Ditta %ld: il mese indicato e' inferiore al mese dell'ultima data di stampa del registro", ditta); return FALSE; } if (u_data.ok()) @@ -212,7 +220,9 @@ bool CG4400_application::look_reg(int i, int anno, TString& codlib, int m, const if (sca_vid.ok()) if (sca_vid.month() < m) { - if (_selected[i]) message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta); + if (_selected.ones() == 1L) + if (_selected[i]) + message_box("Ditta %ld: la data scadenza di vidimazione del registro non deve essere inferiore al mese indicato", ditta); return FALSE; } } @@ -251,13 +261,16 @@ bool CG4400_application::look_regs(int anno, TString& codlib, int m, int* umese, if (sca_vid.ok()) if (sca_vid.month() < m) continue; - if (u_data.ok()) - if (u_data.month() < m - 1) - { - app().set_firm(__firm); - *st = FALSE; - return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta); - } + int month; + if (!u_data.ok()) + month = 0; + else month = u_data.month(); + if (month < m - 1) + { + app().set_firm(__firm); + *st = FALSE; + return error_box("Ditta %ld: Stampare i registri dei mesi precedenti", ditta); + } ok = TRUE; } } @@ -274,7 +287,13 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k) { TString16 cod(f.mask().get(CODICE_LIBRO_IVA)); TString16 codlib(f.mask().get(CODICE_LIB_UN)); - + //modifica del 26/04/1995 + if (codlib.empty()) + { + app()._test = TRUE; + return f.error_box("Inserire il codice del libro unico"); + } + //fine modifica int fino_a_mese = f.mask().get_int(MESE); int anno = f.mask().get_int(ANNO); bool ok = FALSE; @@ -297,11 +316,12 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k) { //modifica del 21/04/1995 suggerita da Cinzia!!! if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio - //if (app()._selected[i]) f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod); - f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod); - else continue; + if (app()._selected[i]) + f.message_box("Ditta %ld: il registro %s non soddisfa i parametri indicati", ditta, (const char*)cod); + continue; } - if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no + //if (mese != 0 && mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no + if (mese < fino_a_mese - 1) //indipendentemente se si tratta di una ditta selezionata oppure no { app().set_firm(app().__firm); can_print = FALSE; @@ -316,9 +336,9 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k) { if (!can_print) return FALSE; - //if ( app()._selected[i]) if (app()._selected.ones() == 1L) //solo se ho selezionato 1 ditta devo dare il messaggio - f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta); + if (app()._selected[i]) + f.message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", ditta); continue; } } @@ -339,23 +359,15 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k) bool CG4400_application::mask_cod (TMask_field& f, KEY k) { - TTable TabLbu ("%LBU"); - TString codtab; - int anno; - - if (k == K_ENTER) - { - TString16 codlib(f.get()); - if (codlib.empty()) - return f.warning_box("Inserire il codice del libro unico"); - } - //if (k == K_TAB || f.focusdirty()) if (k == K_TAB) { - TString16 codlib(f.mask().get(CODICE_LIB_UN)); - anno = f.mask().get_int(ANNO); + TTable TabLbu ("%LBU"); + TString codtab; + int anno; + TString16 codlib(f.get()); + anno = f.mask().get_int(ANNO); TabLbu.zero(); codtab.format ("%04d%-3s", anno, (const char*)codlib); TabLbu.put ("CODTAB", codtab); @@ -366,6 +378,13 @@ bool CG4400_application::mask_cod (TMask_field& f, KEY k) f.mask().set(ULTIMA_PAGINA,TabLbu.get_long("I1")); app()._codice_vidi = TabLbu.get("S4"); } + //modifica del 26/04/1995 + if (app()._test) + { + f.mask().send_key(K_TAB, CODICE_LIBRO_IVA); + app()._test = FALSE; + } + //fine modifica } return TRUE; } @@ -643,16 +662,16 @@ void CG4400_application::build_nomiditte(TProgind* pnd) _nomiditte.add(d); } - if (pnd) pnd->addstatus(1); + //if (pnd) pnd->addstatus(1); //TApplication::set_firm(__firm); } bool CG4400_application::user_create() { - TProgind* pnd = NULL; + //TProgind* pnd = NULL; - pnd = new TProgind (2,"Preparazione archivi\nPrego attendere", - FALSE, TRUE, 30); + //pnd = new TProgind (2,"Preparazione archivi\nPrego attendere", + // FALSE, TRUE, 30); _com = new TLocalisamfile(LF_COMUNI); _anag = new TLocalisamfile(LF_ANAG); @@ -684,7 +703,7 @@ bool CG4400_application::user_create() _ditte = new TArray_sheet(-1, -1, 0, 0, "Selezione Ditte", "@1|Cod.@5R|Ragione Sociale@50|Vers."); - if (pnd) pnd->addstatus(1); + //if (pnd) pnd->addstatus(1); _n_ditte = 0l; __firm = TApplication::get_firm(); @@ -692,16 +711,14 @@ bool CG4400_application::user_create() TDate oggi(TODAY); _annoes = oggi.year(); - build_nomiditte(pnd); + build_nomiditte(); build_ditte_sheet(); - //if (pnd) pnd->addstatus(1); - add_cursor(_cur); add_file(LF_MOV); add_file(LF_RMOVIVA); - delete pnd; + //delete pnd; return TRUE; } @@ -1165,9 +1182,9 @@ int CG4400_application::stampa_prospetto() { TTipodoc& doc = (TTipodoc&)_doc_array[j]; rr = r+j; - set_row(rr, "%2s", (const char*) doc._tipodoc); - set_row(rr, "@3g%s", (const char*) doc._descrdoc); - set_row(rr, "@54g%r", &doc._totdoc); + set_row(rr, "%2s", (const char*) doc._tipodoc); + set_row(rr, "@3g%s", (const char*) doc._descrdoc); + set_row(rr, "@54g%r", &doc._totdoc); } _doc_array.destroy(); } @@ -1861,40 +1878,6 @@ bool CG4400_application::preprocess_page(int file, int counter) _datareg = mov.get_date(MOV_DATAREG); - /* - if (_tipo_stampa != 3 && _liquidazione) - { - int da; - if (_tipo_stampa == 1) - da = _data_da.month(); - else da = 1; - int a = _datareg.month(); - for (int m = da; m < a; m++) - { - if (!_st_liq[m]) - if (stampo_liquidazione(m)) - { - _datareg = format("01/%02d/%4d", m, _annoes); //serve per la preprocess_header (intestazione per la stampa liquidazione) - TFilename t; - t.temp("reg"); - if (_tipo_stampa == 1) - send_message('S', t, m); - else send_message('s', t, m); - TString80 nomef; nomef = t.path(); nomef << "\\" << t.name(); - if (fexist(nomef)) - { - _intesta_liq = TRUE; - merge_export_file(t,FALSE,TRUE); - printer().formfeed(); - _intesta_liq = FALSE; - reset_print(); - } - } - _st_liq[m] = TRUE; - } - } - */ - if (_tipo_stampa != 3 && _liquidazione) { int da; @@ -1932,10 +1915,7 @@ bool CG4400_application::preprocess_page(int file, int counter) printer().formfeed(); _intesta_liq = FALSE; reset_print(); -<<<<<<< cg4400.cpp -======= - remove(t); ->>>>>>> 1.57 + fremove(t); } } _st_liq[m] = TRUE; @@ -2021,7 +2001,7 @@ bool CG4400_application::preprocess_page(int file, int counter) _tipodoc = mov.get(MOV_TIPODOC); _descr_doc = descr_doc(); - TString app = datadoc.string(2, '/'); + TString app(datadoc.string(brief, '/')); if (stampa_totali_finali()) _doc_array.add_riga(_tipodoc,_descr_doc,totdoc); @@ -2029,7 +2009,7 @@ bool CG4400_application::preprocess_page(int file, int counter) //setto le righe di stampa _r = 1; if (!_stampa_data_reg) - set_row(_r, "%s", (const char*) _datareg.string(2, '/')); + set_row(_r, "%s", (const char* ) _datareg.string(brief, '/')); set_row(_r, "@9g%5ld", protiva); if (datadoc.ok()) set_row(_r, "@15g%s", (const char*) app); @@ -2437,21 +2417,28 @@ void CG4400_application::liq_b0_settato() printer().footerlen(0); merge_export_file(f,FALSE,TRUE); _intesta_liq = FALSE; -<<<<<<< cg4400.cpp -======= - remove(f); ->>>>>>> 1.57 + fremove(f); } } void CG4400_application::liq_other_case() { - if (_scelta == prosegui_cal_stampa) + if (_scelta == prosegui_cal_stampa) { - _t.temp("reg"); - if (_tipo_stampa == 1) - send_message('L', _t, _datareg.month()); - else send_message('l', _t, _datareg.month()); + if (stampo_liquidazione(_datareg.month())) + { + _t.temp("reg"); + if (_tipo_stampa == 1) + send_message('L', _t, _datareg.month()); + else send_message('l', _t, _datareg.month()); + } + else //se chiamo la liquidazione con L o l mi calcola anche i progressivi + if (_tipo_stampa != 1) + { + TFilename app; + app.temp(); + send_message('C', app, _datareg.month()); + } } if (_scelta == prosegui_stampa) { @@ -2462,11 +2449,14 @@ void CG4400_application::liq_other_case() send_message('S', _t, _datareg.month()); else send_message('s', _t, _datareg.month()); } - TFilename app; - app.temp(); - send_message('C', app, _datareg.month()); + if (_tipo_stampa != 1) //in stampa di prova i progressivi me li calcolo io!!! + { //Why??? + TFilename app; + app.temp(); + send_message('C', app, _datareg.month()); + } } - if (_scelta == no_liquidazione) + if (_scelta == no_liquidazione && _tipo_stampa != 1) { TFilename app; app.temp(); @@ -2496,12 +2486,9 @@ print_action CG4400_application::postprocess_page (int file, int counter) printer().footerlen(0); merge_export_file(_t,FALSE,TRUE); _intesta_liq = FALSE; -<<<<<<< cg4400.cpp -======= - remove(_t); ->>>>>>> 1.57 + fremove(_t); } - _t = NULL; + //_t = NULL; Come ho potuto scrivere cio?! } } } @@ -2752,18 +2739,14 @@ void CG4400_application::no_movimenti() printer().footerlen(0); merge_export_file(f,FALSE,TRUE); printer().formfeed(); -<<<<<<< cg4400.cpp - _intesta_liq = FALSE; -======= _intesta_liq = FALSE; - remove(f); ->>>>>>> 1.57 + fremove(f); } } } if (printer().isopen()) printer().close(); } - scrivi_reg(); //aggiorno il registro anche se non ho stampato proprio nulla per quel mese! + if (_tipo_stampa != 1) scrivi_reg(); //aggiorno il registro anche se non ho stampato proprio nulla per quel mese! } bool CG4400_application::stampa_registri_IVA(const TMask& m) @@ -2895,7 +2878,8 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m) _ok_vidi = FALSE; _stampa_mese = 13; _scelta = controlla_b0(); //sul registro non va stampata la liq. ma comunque - //va richiamata per il calcolo progressivi (a seconda di b0) + //va richiamata per il calcolo progressivi (a seconda di b0) + //se non e' stampa di prova ok = setta_mask(i); if (!ok) continue; @@ -2936,8 +2920,8 @@ bool CG4400_application::stampa_registri_IVA(const TMask& m) } } //for if (msg) - //if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1) ) //il messaggio seguente, nel caso di stampa su libro unico, - if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1 && _selected.ones() == 1L) ) //il messaggio seguente, nel caso di stampa su libro unico, + //if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1) ) + if ( (_tipo_stampa != 3) || (_tipo_stampa == 3 && _fino_a_mese == 1 && _selected.ones() == 1L) ) //il messaggio seguente, nel caso di stampa su libro unico, message_box("Ditta %ld: nessun registro soddisfa i parametri indicati", _ditta); //viene gia' dato nell'handler (che scatta pero' se il mese di } //stampa e' diverso da gennaio } @@ -2961,8 +2945,8 @@ void CG4400_application::stampa_liq_mesi_succ() TFilename t; t.temp("iva"); if (_tipo_stampa == 1) - send_message('S',t, m); - else send_message('s',t,m); + send_message('L',t, m); //prima era S ma non andava bene! + else send_message('l',t,m); //prima era s //TString80 nomef; nomef = t.path(); nomef << "\\" << t.name(); //if (fexist(nomef)) if (fexist(t)) @@ -2971,12 +2955,8 @@ void CG4400_application::stampa_liq_mesi_succ() if (m > da) printer().formfeed(); printer().footerlen(0); merge_export_file(t,FALSE,TRUE); -<<<<<<< cg4400.cpp - _intesta_liq = FALSE; -======= _intesta_liq = FALSE; - remove(t); ->>>>>>> 1.57 + fremove(t); } } } @@ -2988,10 +2968,10 @@ void CG4400_application::send_message(char tipo, const TFilename& nome, int mese const char* app; if (tipo == 'S' || tipo == 's') - app = "cg4 -2 -S"; + app = "cg4a -2 -S"; else if (tipo == 'C') - app = "cg4 -2 -C"; - else app = "cg4 -2"; + app = "cg4a -2 -C"; + else app = "cg4a -2"; TToken_string ss(10);