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

Corretta richiesta di creazione dei dati di una nuova ditta

Browse Source 
Disabilitati alcuni campi nella modifica dei form di stampa


git-svn-id: svn://10.65.10.50/trunk@939 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-01-31 16:12:49 +00:00
parent e1ec472777
commit 8b12320a19
8 changed files with 70 additions and 57 deletions

15
ba/ba0.cpp

@ -184,13 +184,12 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
ntrc, codditta);
begin_wait();
const long old_firm = get_firm();
TDir dir, dir1;
TTrec rec;
prefhndl->set("");
dir1.get(LF_DIR, _nolock, _nordir, _sysdirop);
const long maxeod0 = dir1.eod();
const long maxeod0 = dir1.eod();
prefhndl->set_codditta(codditta);
dir.get(LF_DIR, _nolock, _nordir, _sysdirop);
@ -243,7 +242,7 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
}
}
set_firm(old_firm);
set_firm(codditta);
set_autoload_new_files(TRUE);
end_wait();
@ -558,9 +557,13 @@ bool TMenu_application::menu(MENU_TAG)
const TString16 module(cmd2name(option));
if (!_ditta_asked && module.left(2) == "cg" && module != "cg5100")
_ditta_asked = ok = set_firm();
TExternal_app a(option);
if (ok) a.run();
prefhndl->set("DEF"); // Aggiorna prefix se hanno cambiato ditta
if (ok)
{
prefhndl->set(NULL);
TExternal_app a(option);
a.run();
prefhndl->set("DEF"); // Aggiorna prefix se hanno cambiato ditta
}
}
}
}

14
ba/ba2100.cpp

@ -11,6 +11,7 @@
class TForm_editor : public TApplication
{
TForm* _form;
bool _edit;
protected:
virtual bool create();
@ -57,10 +58,13 @@ bool TForm_editor::create()
return error_box("Impossibile copiare %s in %s", (const char*)base, (const char*)form);
}
_edit = argc() > 3;
_form = new TForm(form);
enable_menu_item(M_FILE_PRINT);
if (!_edit) dispatch_e_menu(MENU_ITEM(31));
return TRUE;
}
@ -109,7 +113,7 @@ bool TForm_editor::menu(MENU_TAG tag)
}
edit(sec, pt);
return TRUE;
return _edit;
}
void TForm_editor::print()
@ -230,8 +234,8 @@ bool TForm_editor::edit(char s, pagetype t)
dirty = TRUE;
if (!_form->exist(s, t))
{
const KEY k = yesnocancel_box("La sezione %s non esiste: "
"si desidera ricopiare quella standard",
const KEY k = yesnocancel_box("La sezione %s non esiste:\n"
"si desidera ricopiare quella standard?",
(const char*)caption);
if (k == K_ESC)
dirty = FALSE;
@ -247,7 +251,7 @@ bool TForm_editor::edit(char s, pagetype t)
}
}
if (dirty)
dirty = _form->section(s, t).edit(caption);
dirty = _form->section(s, t).edit(caption, _edit);
}
if (dirty && yesno_box("Salvare le modifiche?"))

47
ba/ba2100f.uml

@ -20,11 +20,11 @@ LIST F_CLASS 10
BEGIN
PROMPT 1 1 "Tipo "
FLAGS "DG"
ITEM "STRINGA|Testo" MESSAGE HIDE,2@|SHOW,F_HEIGHT|HIDE,F_ITEMS
ITEM "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "DATA|Data" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "LISTA|Lista" MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS
ITEM "GRUPPO|Gruppo" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "STRINGA|Testo" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|HIDE,F_ITEMS
ITEM "NUMERO|Numero" MESSAGE SHOW,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "DATA|Data" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "LISTA|Lista" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS
ITEM "GRUPPO|Gruppo" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS
END
STRING F_KEY 80 60
@ -32,6 +32,7 @@ BEGIN
PROMPT 1 2 "Descrizione "
HELP "Descrizione del campo da configurare"
CHECKTYPE REQUIRED
GROUP 7
END
NUMBER F_Y 3
@ -46,16 +47,24 @@ BEGIN
HELP "Colonna in cui stampare"
END
BOOLEAN F_HIDDEN
BEGIN
PROMPT 60 3 "Nascosto"
HELP "Il campo va elaborato ma non stampato"
END
NUMBER F_WIDTH 3
BEGIN
PROMPT 1 4 "Larghezza "
HELP "Lunghezza massima da stampare"
GROUP 7
END
NUMBER F_HEIGHT 2
BEGIN
PROMPT 24 4 "Altezza "
HELP "Righe massime su cui stampare"
GROUP 7
END
NUMBER F_DECIMALS 2
@ -63,114 +72,127 @@ BEGIN
PROMPT 24 4 "Decimali "
HELP "Numero di decimali"
MESSAGE COPY,F_HEIGHT
GROUP 2
GROUP 7
END
STRING F_PROMPT 80 60
BEGIN
PROMPT 1 5 "Testo "
HELP "Eventuale testo fisso da stampare"
GROUP 7
END
STRING F_PICTURE 80 40
BEGIN
PROMPT 1 6 "Formato "
HELP "Formato di stampa (vedere codici sul manuale)"
GROUP 7
END
STRING F_FIELD 40
BEGIN
PROMPT 1 7 "Campo su file "
HELP "Nome del campo su file"
GROUP 7
END
STRING F_FIELD2 40
BEGIN
PROMPT 1 8 "II campo "
HELP "Nome del campo su file da utilizzare se il primo e' vuoto"
END
BOOLEAN F_HIDDEN
BEGIN
PROMPT 60 6 "Nascosto"
HELP "Il campo va elaborato ma non stampato"
GROUP 7
END
BOOLEAN F_DISABLED
BEGIN
PROMPT 60 7 "Disabilitato"
HELP "Il campo viene completamente ignorato e quindi nemmeno stampato"
GROUP 7
END
BOOLEAN F_AUTOMAGIC
BEGIN
PROMPT 60 8 "Automatico"
HELP "Il campo viene calcolato automaticamente"
GROUP 7
END
GROUPBOX F_GROUP 78 3
BEGIN
PROMPT 1 9 "Gruppi di stampa"
GROUP 7
END
BOOLEAN F_GROUP1
BEGIN
PROMPT 4 10 "1"
GROUP 7
END
BOOLEAN F_GROUP2
BEGIN
PROMPT 10 10 "2"
GROUP 7
END
BOOLEAN F_GROUP3
BEGIN
PROMPT 16 10 "3"
GROUP 7
END
BOOLEAN F_GROUP4
BEGIN
PROMPT 22 10 "4"
GROUP 7
END
BOOLEAN F_GROUP5
BEGIN
PROMPT 28 10 "5"
GROUP 7
END
BOOLEAN F_GROUP6
BEGIN
PROMPT 34 10 "6"
GROUP 7
END
BOOLEAN F_GROUP7
BEGIN
PROMPT 40 10 "7"
GROUP 7
END
BOOLEAN F_GROUP8
BEGIN
PROMPT 46 10 "8"
GROUP 7
END
BOOLEAN F_GROUP9
BEGIN
PROMPT 52 10 "9"
GROUP 7
END
BOOLEAN F_GROUP10
BEGIN
PROMPT 58 10 "10"
GROUP 7
END
BOOLEAN F_GROUP11
BEGIN
PROMPT 64 10 "11"
GROUP 7
END
BOOLEAN F_GROUP12
BEGIN
PROMPT 70 10 "12"
GROUP 7
END
SPREADSHEET F_ITEMS
@ -179,6 +201,7 @@ BEGIN
ITEM "Codice@8"
ITEM "Testo@32"
ITEM "Messaggio@80"
GROUP 7
END
ENDPAGE

8
ba/ba3200.cpp

@ -283,9 +283,11 @@ void BA3200_application::set_footers()
line = rpt.line();
footer_len = line.get_int();
if (footer_len) printer().footerlen (footer_len);
line = rpt.line();
if (footer_len != 0)
{
printer().footerlen(footer_len);
line = rpt.line();
}
while ( (line != "") && (line[0] != '[') )
{
riga = line.get_int();

3
ba/ba4200c.uml

@ -339,7 +339,8 @@ BEGIN
PROMPT 2 13 "Comune : Codice "
FIELD LF_ANAG->COMRF
FLAGS "U"
USE LF_COMUNI KEY 2 SELECT STATO==""
USE LF_COMUNI
INPUT STATO ""
INPUT COM FLD_AG1_COMRF
COPY DISPLAY FLD_AG2_COMRES
OUTPUT FLD_AG1_COMRF COM

25
ba/ba4600a.uml

@ -333,30 +333,9 @@ BEGIN
HELP "Indicare se il socio partecipa alle assemblee sociali"
END
GROUPBOX DLG_NULL 26 4
BEGIN
PROMPT 0 8 ""
END
DATE FLD_SC1_PARTECDAL
BEGIN
PROMPT 1 9 "Data inizio "
FIELD LF_SOCI->PARTECDAL
HELP "Data di inizio partecipazione alle assemblee"
END
DATE FLD_SC2_PARTECAL
BEGIN
PROMPT 1 10 "Data fine "
FIELD LF_SOCI->PARTECAL
HELP "Data di fine partecipazione alle assemblee"
WARNING "Data non corretta"
VALIDATE DATE_CMP_FUNC >= FLD_SC1_PARTECDAL
END
LIST LST_SC2_QUATTPREV 10
BEGIN
PROMPT 27 9 "Quadro 750 "
PROMPT 1 9 "Quadro 750 "
FIELD LF_SOCI->QUATTPREV
HELP "Quadro in cui compare il socio sul 750"
ITEM " |Nessuno"
@ -367,7 +346,7 @@ END
LIST LST_SC2_Q740 10
BEGIN
PROMPT 27 10 "Quadro 740 "
PROMPT 1 10 "Quadro 740 "
FIELD LF_SOCI->Q740
HELP "Quadro in cui compare il socio sul modello 740"
ITEM " |Nessuno"

12
ba/batbiva.rpt

@ -2,7 +2,7 @@
132
Tabella dei codici IVA
1|%s|Codice
1|@14g%s|Descrizione
1|@9g%s|Descrizione
1|@60g%s|Tipo codice
1|@84g%s|%
1|@88g%s|Cod.
@ -10,7 +10,7 @@ Tabella dei codici IVA
1|@109g%s|101
1|@113g%s|102
1|@117g%s|Sospeso
2|@14g%s|Vendite IVA11
2|@9g%s|Vendite IVA11
2|@28g%s|Acquisti IVA11
2|@44g%s|Gestione plafond
2|@62g%s|Regime agricolo
@ -18,16 +18,16 @@ Tabella dei codici IVA
2|@100g%s|Codice per calcolo rimborso infrannuale
[Rows]
1|CODTAB|@2g@10,cs
1|S0|@14g@50,ls
1|CODTAB|@2g@8,cs
1|S0|@9g@50,ls
1|S1|@60g@20t
1|R0|@84g@2n
1|S6|@88g@2s
1|S7|@92g@15t
1|B0|@110g@f
1|B1|@114g@f
1|B2|@119g@f
2|I3|@14g@2n
1|B2|@118g@f
2|I3|@9g@2n
2|I4|@28g@2n
2|S3|@44g@10s
2|S4|@62g@10s

3
ba/prassi.mnu

@ -4,7 +4,7 @@
0|Terreni e fabbricati|tefa -t
0|Modello 740|740 -t
0|Modello 770|17|4
0|Manutenzione|15
0|Manutenzione|15|P
1|Gestione Anagrafiche|1
1|Persone fisiche|ba4 -1 F
1|Persone giuridiche|ba4 -1 G
@ -135,6 +135,7 @@
15|Archivi|ba1
15|Utenti|ba1 -3
15|Attivazione|ba1 -4
15|Salvataggi|ba2 -1
16|Servizio|
16|Copia Archivi|cg4 -1
16|Ripristino stampa registri|cg5 -4