From ac7e657bb10babe5dd7d007fcadb8891d8fba626 Mon Sep 17 00:00:00 2001 From: pirro Date: Thu, 9 Mar 1995 11:33:34 +0000 Subject: [PATCH] Tolto codice ditta dal ripristino indici libro unico git-svn-id: svn://10.65.10.50/trunk@1089 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg5400.cpp | 14 ++++-- cg/cg5400b.uml | 132 ++++++++++++++++++++++++------------------------- 2 files changed, 75 insertions(+), 71 deletions(-) diff --git a/cg/cg5400.cpp b/cg/cg5400.cpp index 1d6846d9d..357683ed8 100755 --- a/cg/cg5400.cpp +++ b/cg/cg5400.cpp @@ -237,16 +237,19 @@ bool TRipristina_stampa::create() bool TRipristina_stampa::menu(MENU_TAG) { TMask msk(_op == restore_inl ? "cg5400b" : "cg5400a") ; - msk.set_handler(F_FIRM, firm_handler); + if (_op == restore_reg) msk.set_handler(F_FIRM, firm_handler); while (msk.run() == K_ENTER) { - const long firm = msk.get_long(F_FIRM); + long firm = 0L; const TString16 reg = msk.get(F_REG); - bool giornale = FALSE; + if (_op == restore_reg) + { + firm = msk.get_long(F_FIRM); giornale = msk.get_int(F_TIPO) == 5; + } const int year = msk.get_int(giornale ? F_ESER : F_YEAR); const int month = msk.get_int(F_MESE); @@ -260,8 +263,9 @@ bool TRipristina_stampa::menu(MENU_TAG) mess << (giornale ? "l giornale" : "l registro"); else mess << "gli indici del libro "; - mess << ' ' << reg << "\ndell'" << (giornale ? "esercizio " : "anno ") << year - << " della ditta " << firm << " dal " << day << '-' << month << '-' << year; + mess << ' ' << reg << "\ndell'" << (giornale ? "esercizio " : "anno ") << year; + if (_op == restore_reg) mess << " della ditta " << firm; + mess << " dal " << day << '-' << month << '-' << year; if (yesno_box(mess)) { diff --git a/cg/cg5400b.uml b/cg/cg5400b.uml index 70b9c35f6..c057f71f0 100755 --- a/cg/cg5400b.uml +++ b/cg/cg5400b.uml @@ -1,66 +1,66 @@ -#include "cg5400.h" - -PAGE "Ripristino stampa indici libro unico" -1 -1 78 11 - -NUMBER F_YEAR 4 -BEGIN - PROMPT 4 1 "Anno " - FLAGS "AR" - CHECKTYPE REQUIRED - HELP "Anno IVA" - WARNING "L'anno deve essere specificato" -END - -STRING F_REG 3 -BEGIN - PROMPT 4 3 "Libro unico " - FLAGS "UZ" - USE %LBU - INPUT CODTAB[1,4] F_YEAR - INPUT CODTAB[5,7] F_REG - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Codice" CODTAB[5,7] - DISPLAY "Descrizione @50" S0 - OUTPUT F_YEAR CODTAB[1,4] - OUTPUT F_REG CODTAB[5,7] - OUTPUT F_DREG S0 - CHECKTYPE REQUIRED - HELP "Codice del libro unico di cui ripristinare la stampa" - WARNING "Libro unico assente" -END - -STRING F_DREG 50 -BEGIN - PROMPT 22 5 "" - USE %LBU KEY 2 - INPUT S0 F_DREG - DISPLAY "Descrizione @50" S0 - DISPLAY "Anno" CODTAB[1,4] - DISPLAY "Codice" CODTAB[5,7] - COPY OUTPUT F_REG - CHECKTYPE NORMAL - HELP "Denominazione del libro di cui ripristinare la stampa" - WARNING "Libro unico assente" -END - -LIST F_MESE 10 -BEGIN - PROMPT 4 7 "Mese " - FLAGS "M" - HELP "Mese da cui ripristinare la stampa degli indici" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 9 2 -BEGIN - PROMPT -22 -1 "" - MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -ENDMASK +#include "cg5400.h" + +PAGE "Ripristino stampa indici libro unico" -1 -1 78 9 + +NUMBER F_YEAR 4 +BEGIN + PROMPT 4 1 "Anno " + FLAGS "AR" + CHECKTYPE REQUIRED + HELP "Anno IVA" + WARNING "L'anno deve essere specificato" +END + +STRING F_REG 3 +BEGIN + PROMPT 4 3 "Libro unico " + FLAGS "UZ" + USE %LBU + INPUT CODTAB[1,4] F_YEAR + INPUT CODTAB[5,7] F_REG + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Descrizione @50" S0 + OUTPUT F_YEAR CODTAB[1,4] + OUTPUT F_REG CODTAB[5,7] + OUTPUT F_DREG S0 + CHECKTYPE REQUIRED + HELP "Codice del libro unico di cui ripristinare la stampa" + WARNING "Libro unico assente" +END + +STRING F_DREG 50 +BEGIN + PROMPT 22 3 "" + USE %LBU KEY 2 + INPUT S0 F_DREG + DISPLAY "Descrizione @50" S0 + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + COPY OUTPUT F_REG + CHECKTYPE NORMAL + HELP "Denominazione del libro di cui ripristinare la stampa" + WARNING "Libro unico assente" +END + +LIST F_MESE 10 +BEGIN + PROMPT 4 5 "Mese " + FLAGS "M" + HELP "Mese da cui ripristinare la stampa degli indici" +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 9 2 +BEGIN + PROMPT -22 -1 "" + MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +ENDMASK