Aggiunta tabella indici libro unico
git-svn-id: svn://10.65.10.50/trunk@814 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
1071675ff5
commit
99d3339570
@ -147,8 +147,8 @@ bool TMenu_application::_find_button = FALSE;
|
||||
inline TMenu_application& app()
|
||||
{ return (TMenu_application&)main_app(); }
|
||||
|
||||
bool TMenu_application::build_firm_data(long codditta, bool flagcom)
|
||||
|
||||
bool TMenu_application::build_firm_data(long codditta, bool flagcom)
|
||||
{
|
||||
const char * const ndir = "/dir.gen";
|
||||
const char * const ntrc = "/trc.gen";
|
||||
@ -183,7 +183,7 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
|
||||
return error_box("Impossibile copiare il file %s della ditta %ld",
|
||||
ntrc, codditta);
|
||||
|
||||
set_cursor(TASK_WIN, CURSOR_WAIT);
|
||||
begin_wait();
|
||||
const long old_firm = get_firm();
|
||||
TDir dir, dir1;
|
||||
TTrec rec;
|
||||
@ -209,7 +209,7 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
|
||||
dir.put(LF_DIR, _nordir, _sysdirop);
|
||||
rec.zero();
|
||||
}
|
||||
TString mess("Generazione archivi della ditta "); mess << codditta;
|
||||
TString80 mess("Generazione archivi della ditta "); mess << codditta;
|
||||
TProgind p(maxeod0 ? maxeod0 : 1, mess, TRUE, TRUE, 70);
|
||||
|
||||
for (int i = LF_DIR + 1; i <= maxeod0; i++)
|
||||
@ -244,8 +244,9 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
|
||||
}
|
||||
|
||||
set_firm(old_firm);
|
||||
set_cursor(TASK_WIN, CURSOR_ARROW);
|
||||
set_autoload_new_files(TRUE);
|
||||
end_wait();
|
||||
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
16
ba/batbinl.h
Executable file
16
ba/batbinl.h
Executable file
@ -0,0 +1,16 @@
|
||||
#define F_ANNOREG 101
|
||||
#define F_MESE 102
|
||||
#define F_PINI_LU 103
|
||||
#define F_PFIN_LU 104
|
||||
#define F_DITTA 105
|
||||
#define F_RAGSOC 106
|
||||
#define F_CODREG 107
|
||||
#define F_DESCREG 108
|
||||
#define F_PINI_RU 109
|
||||
#define F_PFIN_RU 110
|
||||
#define F_CODVID 111
|
||||
#define F_STAMPATO 112
|
||||
#define F_PANN_LU 113
|
||||
#define F_ANNO 114
|
||||
#define F_CODLIB 115
|
||||
#define F_INDEX 116
|
156
ba/batbinl.uml
Executable file
156
ba/batbinl.uml
Executable file
@ -0,0 +1,156 @@
|
||||
#include "batbinl.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 4 1 "Anno esercizio "
|
||||
FLAGS "AZ"
|
||||
FIELD %INL->CODTAB[1,4]
|
||||
USE %LBU
|
||||
INPUT F_ANNO CODTAB[1,4]
|
||||
INPUT F_CODLIB CODTAB[5,7]
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLIB CODTAB[5,7]
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_CODLIB 3
|
||||
BEGIN
|
||||
PROMPT 34 1 "Codice libro unico "
|
||||
FLAGS "U"
|
||||
FIELD %INL->CODTAB[5,7]
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_INDEX 7
|
||||
BEGIN
|
||||
PROMPT 54 1 "Indice "
|
||||
FLAGS "Z"
|
||||
FIELD %INL->CODTAB[8,14]
|
||||
USE %INL
|
||||
COPY INPUT F_ANNO
|
||||
INPUT CODTAB[8,14] F_INDEX
|
||||
COPY DISPLAY F_ANNO
|
||||
DISPLAY "Indice@7" CODTAB[8,14]
|
||||
COPY OUTPUT F_ANNO
|
||||
OUTPUT F_INDEX CODTAB[8,14]
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_ANNOREG 4
|
||||
BEGIN
|
||||
PROMPT 1 2 "Anno registrazione "
|
||||
FIELD %INL->I0
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
END
|
||||
|
||||
LIST F_MESE 2 10
|
||||
BEGIN
|
||||
PROMPT 38 2 "Mese registrazione "
|
||||
FIELD %INL->I1
|
||||
ITEMS " |Nessuno"
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
STRING F_PINI_LU 5 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Numero iniziale pagina registro unico "
|
||||
FIELD %INL->I2
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_PFIN_LU 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero finale pagina registro unico "
|
||||
FIELD %INL->I3
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD %INL->I4
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_DITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD %INL->S0
|
||||
USE REG
|
||||
FLAGS "UZ"
|
||||
INPUT CODTAB[5,7] F_CODREG
|
||||
DISPLAY "Codice registro" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
OUTPUT 113 S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCREG 50 50
|
||||
BEGIN
|
||||
PROMPT 1 9 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_PINI_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||
FIELD %INL->I5
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_PFIN_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||
FIELD %INL->I6
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODVID 3 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Codice vidimazione "
|
||||
FIELD %INL->S1
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATO
|
||||
BEGIN
|
||||
PROMPT 1 16 "Stampato su bollato "
|
||||
FIELD %INL->B0
|
||||
END
|
||||
|
||||
BOOLEAN F_PANN_LU
|
||||
BEGIN
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD %INL->B1
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
Loading…
x
Reference in New Issue
Block a user