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

5
ba/ba3600.cpp
View File

@ -285,7 +285,8 @@ void BA3600_application::intestatario(TString& cofi,TString& paiv,TString& ragso
bool BA3600_application::set_print(int)
{
KEY tasto;
// _msk->set_mode(MODE_QUERY);
tasto = _msk->run();
if (tasto == K_ENTER)
@ -298,7 +299,7 @@ bool BA3600_application::set_print(int)
_datastampa = (_msk->get(F_DATA_STAMPA));
_meseda = _msk->get_int(F_MESEDA);
_mesea = _msk->get_int(F_MESEA);
_anno = _msk->get_long(F_ANNOA);
_anno = _msk->get_long(F_ANNO);
}
else if (_tipo_stampa == 2)
{

58
ba/ba3600a.uml
View File

@ -48,6 +48,23 @@ END
NUMBER F_ANNO 4
BEGIN
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
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO1
@ -57,15 +74,8 @@ BEGIN
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
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
FLAGS "UZ"
END
GROUPBOX F_GRUPPO 71 4
@ -104,6 +114,25 @@ NUMBER F_STAMPA_ANNO 4
BEGIN
PROMPT 4 8 "Anno "
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
INPUT CODTAB[1,4] F_STAMPA_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO2
@ -115,15 +144,8 @@ BEGIN
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
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
FLAGS "UZ"
END