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

Correzioni al libro unico

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@964 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-02-03 18:29:00 +00:00
parent 1aa8061360
commit ac405a66e7
2 changed files with 43 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ba/ba3600.cpp
View File

@ -286,6 +286,7 @@ bool BA3600_application::set_print(int)
{ {
KEY tasto; KEY tasto;
// _msk->set_mode(MODE_QUERY);
tasto = _msk->run(); tasto = _msk->run();
if (tasto == K_ENTER) if (tasto == K_ENTER)
@ -298,7 +299,7 @@ bool BA3600_application::set_print(int)
_datastampa = (_msk->get(F_DATA_STAMPA)); _datastampa = (_msk->get(F_DATA_STAMPA));
_meseda = _msk->get_int(F_MESEDA); _meseda = _msk->get_int(F_MESEDA);
_mesea = _msk->get_int(F_MESEA); _mesea = _msk->get_int(F_MESEA);
_anno = _msk->get_long(F_ANNOA); _anno = _msk->get_long(F_ANNO);
} }
else if (_tipo_stampa == 2) else if (_tipo_stampa == 2)
{ {

54
ba/ba3600a.uml
View File

@ -48,6 +48,23 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 10 "Anno " PROMPT 4 10 "Anno "
/* USE %LBU
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO1
DISPLAY "Anno riferimento" CODTAB[1,4]
DISPLAY "Codice libro unico" CODTAB[5,7]
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_LIBRO_UNICO1 CODTAB[5,7]
OUTPUT F_ANNODA CODTAB[1,4]
OUTPUT F_ANNOA CODTAB[1,4] */
CHECKTYPE REQUIRED
END
STRING F_LIBRO_UNICO1 3
BEGIN
PROMPT 4 11 "Codice libro unico "
HELP "Codice del libro da stampare"
// COPY ALL F_ANNO
USE %LBU USE %LBU
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO1 INPUT CODTAB[5,7] F_LIBRO_UNICO1
@ -58,14 +75,7 @@ BEGIN
OUTPUT F_ANNODA CODTAB[1,4] OUTPUT F_ANNODA CODTAB[1,4]
OUTPUT F_ANNOA CODTAB[1,4] OUTPUT F_ANNOA CODTAB[1,4]
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END FLAGS "UZ"
STRING F_LIBRO_UNICO1 3
BEGIN
PROMPT 4 11 "Codice libro unico "
HELP "Codice del libro da stampare"
COPY ALL F_ANNO
CHECKTYPE REQUIRED
END END
GROUPBOX F_GRUPPO 71 4 GROUPBOX F_GRUPPO 71 4
@ -104,6 +114,25 @@ NUMBER F_STAMPA_ANNO 4
BEGIN BEGIN
PROMPT 4 8 "Anno " PROMPT 4 8 "Anno "
FLAGS "R" FLAGS "R"
/* USE %LBU
INPUT CODTAB[1,4] F_STAMPA_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO2
DISPLAY "Codice libro" CODTAB[5,7]
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Ult.mese stampa" I0
DISPLAY "Ult.pagina stampa" I1
OUTPUT F_LIBRO_UNICO2 CODTAB[5,7]
OUTPUT F_STAMPA_MESEG I0
OUTPUT F_STAMPA_ANNO CODTAB[1,4]
OUTPUT F_PAGFINALE I1 */
CHECKTYPE REQUIRED
END
STRING F_LIBRO_UNICO2 3
BEGIN
PROMPT 4 9 "Codice libro unico di studio "
HELP "Codice del libro da stampare"
// COPY ALL F_STAMPA_ANNO
USE %LBU USE %LBU
INPUT CODTAB[1,4] F_STAMPA_ANNO INPUT CODTAB[1,4] F_STAMPA_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO2 INPUT CODTAB[5,7] F_LIBRO_UNICO2
@ -116,14 +145,7 @@ BEGIN
OUTPUT F_STAMPA_ANNO CODTAB[1,4] OUTPUT F_STAMPA_ANNO CODTAB[1,4]
OUTPUT F_PAGFINALE I1 OUTPUT F_PAGFINALE I1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END FLAGS "UZ"
STRING F_LIBRO_UNICO2 3
BEGIN
PROMPT 4 9 "Codice libro unico di studio "
HELP "Codice del libro da stampare"
COPY ALL F_STAMPA_ANNO
CHECKTYPE REQUIRED
END END