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

Minimi ritocchi di carnevale

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@686 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-22 18:06:28 +00:00
parent 07270981d6
commit 545d10bdd9
3 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ba/ba0.cpp
View File

@ -221,7 +221,7 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
prefhndl->set_codditta(codditta); prefhndl->set_codditta(codditta);
const char* name = dir.name(); const char* name = dir.name();
dir.flags() = 0L; dir.flags() = 0L;
const bool valid_file = *name != '\0' && dir.len() > 0; const bool valid_file = *name > ' ' && dir.len() > 0;
const bool create_now = flagcom ? *name == '%' : *name != '%'; const bool create_now = flagcom ? *name == '%' : *name != '%';
if (valid_file && create_now) if (valid_file && create_now)
@ -229,7 +229,6 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
dir.put(i, _nordir, _sysdirop); dir.put(i, _nordir, _sysdirop);
rec.put(i); rec.put(i);
TSystemisamfile f(i); TSystemisamfile f(i);
f.build(30); f.build(30);
} }
else else
@ -566,9 +565,8 @@ bool TMenu_application::menu(MENU_TAG)
{ {
TExternal_app a(option); TExternal_app a(option);
const TString& module = option.left(2); const TString& module = option.left(2);
if (module == "ba") _ditta_asked = FALSE; else if (module == "cg" && !_ditta_asked)
if (module == "cg" && !_ditta_asked) _ditta_asked = ok = set_firm();
_ditta_asked = ok = set_firm();
if (ok) a.run(); if (ok) a.run();
prefhndl->set("DEF"); // Aggiorna prefix se hanno cambiato ditta prefhndl->set("DEF"); // Aggiorna prefix se hanno cambiato ditta
} }

2
ba/ba0100a.uml
View File

@ -9,7 +9,7 @@ BEGIN
FLAGS "U" FLAGS "U"
USE LF_USER USE LF_USER
INPUT USERNAME F_USER INPUT USERNAME F_USER
DISPLAY "Utente" USERNAME DISPLAY "Utente@8" USERNAME
DISPLAY "Descrizione@50" USERDESC DISPLAY "Descrizione@50" USERDESC
OUTPUT F_USER USERNAME OUTPUT F_USER USERNAME
END END

10
ba/ba4300a.uml
View File

@ -319,7 +319,7 @@ END
STRING FLD_GD1_COMAA_COMUNI_DESCR 50 STRING FLD_GD1_COMAA_COMUNI_DESCR 50
BEGIN BEGIN
PROMPT 8 12 ": Nome " PROMPT 8 12 ": Nome "
HELP "Nome del comune in cui Š iscritta all'albo" HELP "Nome del comune in cui e' iscritta all'albo"
USE LF_COMUNI KEY 2 SELECT STATO="" USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_GD1_COMAA_COMUNI_DESCR INPUT DENCOM FLD_GD1_COMAA_COMUNI_DESCR
#include <comdden.h> #include <comdden.h>
@ -332,7 +332,7 @@ END
BOOLEAN CHK_GD1_CONTORD BOOLEAN CHK_GD1_CONTORD
BEGIN BEGIN
PROMPT 1 14 "Contabilit… ordinaria" PROMPT 1 14 "Contabilita' ordinaria"
FIELD LF_NDITTE->CONTORD FIELD LF_NDITTE->CONTORD
HELP "Dire se la ditta tiene una contabilita' ordinaria" HELP "Dire se la ditta tiene una contabilita' ordinaria"
END END
@ -470,12 +470,12 @@ END
NUMBER LST_GD2_SITSOC 1 NUMBER LST_GD2_SITSOC 1
BEGIN BEGIN
PROMPT 45 9 "Situazione societ… " PROMPT 45 9 "Situazione societa' "
FIELD LF_NDITTE->SITSOC FIELD LF_NDITTE->SITSOC
SHEET "Codice|Situazione@70" SHEET "Codice|Situazione@70"
INPUT LST_GD2_SITSOC INPUT LST_GD2_SITSOC
OUTPUT LST_GD2_SITSOC OUTPUT LST_GD2_SITSOC
HELP "Codice della situazione della societ…" HELP "Codice della situazione della societa'"
ITEM " |Sconosciuta" ITEM " |Sconosciuta"
ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione" ITEM "1|Periodo d'imposta in cui ha avuto inizio la liquidazione"
ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione" ITEM "2|Periodi d'imposta successivi a quello in cui ha avuto inizio la liquidazione"
@ -631,7 +631,7 @@ BOOLEAN CHK_GD3_ESILOR
BEGIN BEGIN
PROMPT 1 6 "Esenzione ILOR" PROMPT 1 6 "Esenzione ILOR"
FIELD LF_NDITTE->ESILOR FIELD LF_NDITTE->ESILOR
HELP "Indicare se la ditta Š soggetta ad esenzione ILOR" HELP "Indicare se la ditta e' soggetta ad esenzione ILOR"
END END
BOOLEAN CHK_GD3_REGSTATSP BOOLEAN CHK_GD3_REGSTATSP