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

Tolto codice ditta dal ripristino indici libro unico

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1089 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-03-09 11:33:34 +00:00
parent b749c58cf8
commit ac7e657bb1
2 changed files with 75 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cg/cg5400.cpp
View File

@ -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))
{

6
cg/cg5400b.uml
View File

@ -1,6 +1,6 @@
#include "cg5400.h"
PAGE "Ripristino stampa indici libro unico" -1 -1 78 11
PAGE "Ripristino stampa indici libro unico" -1 -1 78 9
NUMBER F_YEAR 4
BEGIN
@ -31,7 +31,7 @@ END
STRING F_DREG 50
BEGIN
PROMPT 22 5 ""
PROMPT 22 3 ""
USE %LBU KEY 2
INPUT S0 F_DREG
DISPLAY "Descrizione @50" S0
@ -45,7 +45,7 @@ END
LIST F_MESE 10
BEGIN
PROMPT 4 7 "Mese "
PROMPT 4 5 "Mese "
FLAGS "M"
HELP "Mese da cui ripristinare la stampa degli indici"
END