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) bool TRipristina_stampa::menu(MENU_TAG)
{ {
TMask msk(_op == restore_inl ? "cg5400b" : "cg5400a") ; 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) while (msk.run() == K_ENTER)
{ {
const long firm = msk.get_long(F_FIRM); long firm = 0L;
const TString16 reg = msk.get(F_REG); const TString16 reg = msk.get(F_REG);
bool giornale = FALSE; bool giornale = FALSE;
if (_op == restore_reg) if (_op == restore_reg)
{
firm = msk.get_long(F_FIRM);
giornale = msk.get_int(F_TIPO) == 5; giornale = msk.get_int(F_TIPO) == 5;
}
const int year = msk.get_int(giornale ? F_ESER : F_YEAR); const int year = msk.get_int(giornale ? F_ESER : F_YEAR);
const int month = msk.get_int(F_MESE); const int month = msk.get_int(F_MESE);
@ -260,8 +263,9 @@ bool TRipristina_stampa::menu(MENU_TAG)
mess << (giornale ? "l giornale" : "l registro"); mess << (giornale ? "l giornale" : "l registro");
else else
mess << "gli indici del libro "; mess << "gli indici del libro ";
mess << ' ' << reg << "\ndell'" << (giornale ? "esercizio " : "anno ") << year mess << ' ' << reg << "\ndell'" << (giornale ? "esercizio " : "anno ") << year;
<< " della ditta " << firm << " dal " << day << '-' << month << '-' << year; if (_op == restore_reg) mess << " della ditta " << firm;
mess << " dal " << day << '-' << month << '-' << year;
if (yesno_box(mess)) if (yesno_box(mess))
{ {

132
cg/cg5400b.uml
View File

@ -1,66 +1,66 @@
#include "cg5400.h" #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 NUMBER F_YEAR 4
BEGIN BEGIN
PROMPT 4 1 "Anno " PROMPT 4 1 "Anno "
FLAGS "AR" FLAGS "AR"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Anno IVA" HELP "Anno IVA"
WARNING "L'anno deve essere specificato" WARNING "L'anno deve essere specificato"
END END
STRING F_REG 3 STRING F_REG 3
BEGIN BEGIN
PROMPT 4 3 "Libro unico " PROMPT 4 3 "Libro unico "
FLAGS "UZ" FLAGS "UZ"
USE %LBU USE %LBU
INPUT CODTAB[1,4] F_YEAR INPUT CODTAB[1,4] F_YEAR
INPUT CODTAB[5,7] F_REG INPUT CODTAB[5,7] F_REG
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_YEAR CODTAB[1,4] OUTPUT F_YEAR CODTAB[1,4]
OUTPUT F_REG CODTAB[5,7] OUTPUT F_REG CODTAB[5,7]
OUTPUT F_DREG S0 OUTPUT F_DREG S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Codice del libro unico di cui ripristinare la stampa" HELP "Codice del libro unico di cui ripristinare la stampa"
WARNING "Libro unico assente" WARNING "Libro unico assente"
END END
STRING F_DREG 50 STRING F_DREG 50
BEGIN BEGIN
PROMPT 22 5 "" PROMPT 22 3 ""
USE %LBU KEY 2 USE %LBU KEY 2
INPUT S0 F_DREG INPUT S0 F_DREG
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]
COPY OUTPUT F_REG COPY OUTPUT F_REG
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Denominazione del libro di cui ripristinare la stampa" HELP "Denominazione del libro di cui ripristinare la stampa"
WARNING "Libro unico assente" WARNING "Libro unico assente"
END END
LIST F_MESE 10 LIST F_MESE 10
BEGIN BEGIN
PROMPT 4 7 "Mese " PROMPT 4 5 "Mese "
FLAGS "M" FLAGS "M"
HELP "Mese da cui ripristinare la stampa degli indici" HELP "Mese da cui ripristinare la stampa degli indici"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK