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

132
cg/cg5400b.uml
View File

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