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

Aggiunto caricamento opzionale dei file standard

Browse Source 
Corretta maschera registri


git-svn-id: svn://10.65.10.50/trunk@684 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-11-22 15:39:32 +00:00
parent 6f39cd2f4e
commit e9faf774af
2 changed files with 45 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba0.cpp
View File

@ -162,8 +162,9 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
}
if (exist)
return message_box("Direttorio dati danneggiato, impossibile attivare la ditta %ld", codditta);
if (!yesno_box("I dati della ditta %ld non esistono: si desidera generarli?", codditta))
if (!yesno_box("Gli archivi della ditta %ld non esistono: si desidera generarli?", codditta))
return FALSE;
set_autoload_new_files(yesno_box("Si desidera precaricare gli archivi standard"));
s = s.path();
#if XVT_OS == XVT_OS_SCOUNIX
if (mkdir(s, 0777) == -1)
@ -245,6 +246,7 @@ 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);
return TRUE;
}

83
ba/batbreg.uml
View File

@ -38,11 +38,12 @@ BEGIN
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
MESSAGE COPY,20@
MESSAGE FALSE COPY,20@
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice registro "
PROMPT 51 1 "Codice registro "
Help "Codice del registro"
FIELD CODTAB[5,7]
FLAGS "U"
@ -220,58 +221,25 @@ PAGE "Registri pag.2" -1 -1 78 18
NUMBER DLG_NULL 4
BEGIN
PROMPT 2 1 "Anno/Registro "
FLAGS "D"
PROMPT 4 1 "Anno "
FLAGS "DP"
GROUP 20
END
STRING DLG_NULL 3
BEGIN
PROMPT 22 1 ""
PROMPT 51 1 "Codice registro "
FLAGS "D"
GROUP 21
END
STRING DLG_NULL 50
BEGIN
PROMPT 27 1 ""
PROMPT 4 3 "Descrizione "
GROUP 22
FLAGS "D"
END
BOOLEAN F_STAMPA_COSTI_RICAVI
BEGIN
PROMPT 2 3 "Stampa costi/ricavi su libro cronologico "
FIELD B2
GROUP 5
END
LIST F_FREQUENZA_STAMPA 1 16
BEGIN
PROMPT 2 3 "Stampa reg.riepilogativo "
HELP "Intervallo per fare il riepilogo"
FIELD S9
GROUP 4
ITEM "M|Mensile"
ITEM "T|Trimestrale"
END
BOOLEAN F_VENTIL
BEGIN
PROMPT 2 3 "Attivita' con ventilazione"
HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
FIELD B3
GROUP 3
END
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
BEGIN
PROMPT 2 3 "Stampa sullo stesso registro"
HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
FIELD B8
GROUP 6
END
BOOLEAN F_REGSOSP
BEGIN
PROMPT 2 5 "Registro in sospensione "
@ -325,7 +293,7 @@ END
NUMBER F_PROG_DARE 15
BEGIN
PROMPT 2 7 "Progressivo dare "
PROMPT 2 7 "Progressivo dare "
HELP "Progressivo dare del giornale"
FIELD R1
PICTURE "."
@ -373,7 +341,7 @@ END
NUMBER F_PROG_AVERE 15
BEGIN
PROMPT 2 9 "Progressivo avere "
PROMPT 2 9 "Progressivo avere "
HELP "Progressivo avere del giornale"
FIELD R2
FLAGS "R"
@ -381,9 +349,42 @@ BEGIN
GROUP 6
END
BOOLEAN F_STAMPA_COSTI_RICAVI
BEGIN
PROMPT 42 9 "Stampa costi/ricavi su libro cronologico "
FIELD B2
GROUP 5
END
LIST F_FREQUENZA_STAMPA 1 16
BEGIN
PROMPT 42 9 "Stampa reg.riepilogativo "
HELP "Intervallo per fare il riepilogo"
FIELD S9
GROUP 4
ITEM "M|Mensile"
ITEM "T|Trimestrale"
END
BOOLEAN F_VENTIL
BEGIN
PROMPT 46 9 "Attivita' con ventilazione"
HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
FIELD B3
GROUP 3
END
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
BEGIN
PROMPT 42 9 "Stampa sullo stesso registro"
HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
FIELD B8
GROUP 6
END
LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN
PROMPT 2 11 "Mese stampa ultima liquidazione "
PROMPT 2 11 "Mese stampa ultima liquidaz. "
HELP "Mese in cui e' stata stampata l'ultima liquidazione"
FIELD I4
FLAGS "M"