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

Correzioni per XI

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2939 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-05-30 15:51:50 +00:00
parent aace637636
commit 7a14761891
11 changed files with 324 additions and 373 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
cg/cg0100.cpp
View File

@ -162,7 +162,7 @@ bool CG0100_application::protected_record(TRectype &rec)
_saldi->put(PCN_GRUPPO, gruppo); _saldi->put(PCN_GRUPPO, gruppo);
_saldi->put(PCN_CONTO, conto); _saldi->put(PCN_CONTO, conto);
_saldi->put(PCN_SOTTOCONTO, sottoc); _saldi->put(PCN_SOTTOCONTO, sottoc);
_saldi->read(); _saldi->read(_isgteq);
bool ok = FALSE; bool ok = FALSE;
if (_saldi->good()) if (_saldi->good())
@ -172,10 +172,9 @@ bool CG0100_application::protected_record(TRectype &rec)
_saldi->get_real(SLD_SALDOFIN) != ZERO || _saldi->get_real(SLD_SALDOFIN) != ZERO ||
_saldi->get_real(SLD_PDAREPRO) != ZERO || _saldi->get_real(SLD_PDAREPRO) != ZERO ||
_saldi->get_real(SLD_PAVEREPRO) != ZERO; _saldi->get_real(SLD_PAVEREPRO) != ZERO;
ok &= (gruppo ==_saldi->get_int(PCN_GRUPPO) && return ok && gruppo ==_saldi->get_int(PCN_GRUPPO) &&
conto ==_saldi->get_int(PCN_CONTO) && conto ==_saldi->get_int(PCN_CONTO) &&
sottoc ==_saldi->get_long(PCN_SOTTOCONTO)); sottoc ==_saldi->get_long(PCN_SOTTOCONTO);
if (!ok) if (!ok)
{ {
// look for scaricato // look for scaricato
@ -222,7 +221,8 @@ void CG0100_application::init_query_mode(TMask& m)
{ {
m.show(-1); m.show(-1);
m.show(-2); m.show(-2);
m.show(-3); m.show(-3);
m.hide(FLD_CM2_STSOTTAB);
} }
HIDDEN bool tmcf_handler(TMask_field& f, KEY key) HIDDEN bool tmcf_handler(TMask_field& f, KEY key)
@ -242,19 +242,20 @@ HIDDEN bool tmcf_handler(TMask_field& f, KEY key)
void CG0100_application::init_insert_mode(TMask& m) void CG0100_application::init_insert_mode(TMask& m)
{ {
const int gruppo = atoi(m.get(FLD_CM1_GRUPPO)); const int gruppo = atoi(m.get(FLD_CM1_GRUPPO));
const int conto = atoi(m.get(FLD_CM1_CONTO)); const int conto = atoi(m.get(FLD_CM1_CONTO));
const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO)); const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO));
bool ivd_enable = TRUE; bool ivd_enable = TRUE;
if (conto == 0 && sottoc == 0) if (conto == 0 && sottoc == 0)
m.show(-1, FALSE); m.hide(-1);
else else
if (sottoc == 0) if (sottoc == 0)
m.show(-2, FALSE); m.hide(-2);
else else
m.show(-3, FALSE); m.hide(-3);
TLocalisamfile& pconti = _rel->lfile(); TLocalisamfile& pconti = _rel->lfile();
TString s(15), s2(1), s3(8), s4(2); TString s(15), s2(1), s3(8), s4(2);
@ -343,21 +344,6 @@ HIDDEN bool gruppo_handler(TMask_field& f, KEY key)
return f.warning_box ("Il gruppo non esiste"); return f.warning_box ("Il gruppo non esiste");
} }
} }
else
if (m.query_mode() && key == K_TAB)
{
const int next = f.dlg(); // m.next_fld();
bool key_ok = TRUE;
if (sottoc > 0)
key_ok = gruppo > 0 && conto > 0;
else
if (conto > 0)
key_ok = gruppo > 0;
if (key_ok && next != DLG_NULL && next != f.dlg() &&
!m.field(next).in_key(1))
return m.stop_run(K_AUTO_ENTER);
}
return TRUE; return TRUE;
} }
@ -388,21 +374,6 @@ HIDDEN bool conto_handler(TMask_field& f, KEY key)
} }
} }
} }
else
if (m.query_mode() && key == K_TAB)
{
const int next = f.dlg(); // m.next_fld();
bool key_ok = TRUE;
if (sottoc > 0)
key_ok = gruppo > 0 && conto > 0;
else
if (conto > 0)
key_ok = gruppo > 0;
if (key_ok && next != DLG_NULL && next != f.dlg() &&
!m.field(next).in_key(1))
return m.stop_run(K_AUTO_ENTER);
}
return TRUE; return TRUE;
} }
@ -414,13 +385,7 @@ HIDDEN bool sottoc_handler(TMask_field& f, KEY key)
const int gruppo = m.get_int(FLD_CM1_GRUPPO); const int gruppo = m.get_int(FLD_CM1_GRUPPO);
const int conto = m.get_int(FLD_CM1_CONTO); const int conto = m.get_int(FLD_CM1_CONTO);
const long sottoc = m.get_long(FLD_CM1_SOTTOCONTO); const long sottoc = m.get_long(FLD_CM1_SOTTOCONTO);
const int next = f.dlg(); // m.next_fld();
if (gruppo == 0) return TRUE; if (gruppo == 0) return TRUE;
if (sottoc != 0 && conto == 0)
return m.field(FLD_CM1_CONTO).error_box("Manca il conto");
if (next != DLG_NULL && next != f.dlg() && !m.field(next).in_key(1))
return m.stop_run(K_AUTO_ENTER);
} }
return TRUE; return TRUE;
} }
@ -436,9 +401,7 @@ bool CG0100_application::user_create()
_rel = new TRelation(LF_PCON); _rel = new TRelation(LF_PCON);
_saldi = new TLocalisamfile(LF_SALDI); _saldi = new TLocalisamfile(LF_SALDI);
_saldi->setkey(2); _saldi->setkey(2);
set_search_field(FLD_CM1_GRUPPO); set_search_field(FH_SOTTOCONTO);
return TRUE; return TRUE;
} }

1
cg/cg0100.h
View File

@ -43,5 +43,6 @@
#define FLD_CM2_STSOTTABS 205 #define FLD_CM2_STSOTTABS 205
#define FLD_CM1_DESCG 206 #define FLD_CM1_DESCG 206
#define FLD_CM1_DESCC 207 #define FLD_CM1_DESCC 207
#define FH_SOTTOCONTO 208
#endif // __CG0100_H #endif // __CG0100_H

20
cg/cg0100a.uml
View File

@ -27,8 +27,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_GRUPPO GRUPPO
OUTPUT FLD_CM1_DESCG DESCR OUTPUT FLD_CM1_DESCG DESCR
// OUTPUT FLD_CM1_DESC DESCR CHECKTYPE REQUIRED
CHECKTYPE NORMAL
END END
STRING FLD_CM1_DESCG 50 STRING FLD_CM1_DESCG 50
@ -53,8 +52,9 @@ BEGIN
OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_GRUPPO GRUPPO
OUTPUT FLD_CM1_CONTO CONTO OUTPUT FLD_CM1_CONTO CONTO
OUTPUT FLD_CM1_DESCC DESCR OUTPUT FLD_CM1_DESCC DESCR
// OUTPUT FLD_CM1_DESC DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE REQIF_FUNC 1 FLD_CM1_SOTTOCONTO
WARNING "Manca il conto"
END END
STRING FLD_CM1_DESCC 50 STRING FLD_CM1_DESCC 50
@ -82,6 +82,17 @@ BEGIN
OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_GRUPPO GRUPPO
OUTPUT FLD_CM1_CONTO CONTO OUTPUT FLD_CM1_CONTO CONTO
OUTPUT FLD_CM1_DESC DESCR OUTPUT FLD_CM1_DESC DESCR
CHECKTYPE NORMAL
END
NUMBER FH_SOTTOCONTO 6
BEGIN
PROMPT 60 1 ""
FLAGS "HG"
USE LF_PCON KEY 1
COPY INPUT FLD_CM1_SOTTOCONTO
COPY DISPLAY FLD_CM1_SOTTOCONTO
COPY OUTPUT FLD_CM1_SOTTOCONTO
END END
STRING FLD_CM1_DESC 50 STRING FLD_CM1_DESC 50
@ -310,7 +321,7 @@ END
LIST FLD_CM1_RICSER 1 18 LIST FLD_CM1_RICSER 1 18
BEGIN BEGIN
PROMPT 1 10 "Ricavi per servizi " PROMPT 1 10 "Ricavi per servizi "
FIELD RICSER FIELD RICSER
FLAGS "H" FLAGS "H"
ITEM "0|Altre attivita'" ITEM "0|Altre attivita'"
@ -360,6 +371,7 @@ BEGIN
PROMPT 1 15 "Stampa dettaglio sottoconti su analisi" PROMPT 1 15 "Stampa dettaglio sottoconti su analisi"
HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio" HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
FIELD LF_PCON->STSOTTAB FIELD LF_PCON->STSOTTAB
FLAGS "H"
GROUP 1 3 GROUP 1 3
MESSAGE COPY,FLD_CM2_STSOTTABS MESSAGE COPY,FLD_CM2_STSOTTABS
END END

76
cg/cg0200.cpp
View File

@ -29,7 +29,6 @@ class TClifo_application : public TRelation_application
bool _lbcn, _gesven; bool _lbcn, _gesven;
bool _savenew; bool _savenew;
bool _ignoreven;
TToken_string _tmp; TToken_string _tmp;
@ -180,52 +179,32 @@ HIDDEN bool no_dup_iva(TMask_field& f, KEY key)
return TRUE ; return TRUE ;
} }
HIDDEN bool autoexit_rsoc_handler(TMask_field& f, KEY key) HIDDEN bool cofi_handler(TMask_field& f, KEY key)
{ {
if (f.mask().query_mode() && key == K_TAB) if (f.to_check(key))
{
TString16 tmp;
TArray parms;
parms.add(tmp.format("%d", F_RAGSOC));
parms.add(tmp.format("%d", F_RAGSOCA));
::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
}
return TRUE;
}
HIDDEN bool autoexit_handler(TMask_field& f, KEY key)
{
if (f.mask().query_mode())
{ {
if (key == K_TAB && f.focusdirty()) if (key == K_TAB)
{
TString16 tmp;
TArray parms;
parms.add(tmp.format("%d", f.dlg()));
::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
}
}
else
{
if (f.dlg() == F_COFI && key == K_TAB && f.focusdirty())
{ {
const TString s1(f.get()); const TString s1(f.get());
if (s1.not_empty()) if (s1.not_empty())
f.mask().set(F_TIPOPERS, isdigit(s1[0]) ? "G" : "F"); f.mask().set(F_TIPOPERS, isdigit(s1[0]) ? "G" : "F");
} }
if (f.to_check(key) && f.mask().get(F_ALLEG) != "4") if (f.mask().get(F_ALLEG) != "4")
{ return no_dup_fis(f, key);
if (f.dlg() == F_COFI) return no_dup_fis(f, key);
else
if (f.dlg() == F_PAIV) return no_dup_iva(f, key);
}
} }
return TRUE; return TRUE;
} }
HIDDEN bool paiv_handler(TMask_field& f, KEY key)
{
if (f.to_check(key) && f.mask().get(F_ALLEG) != "4")
return no_dup_iva(f, key);
return TRUE;
}
bool TClifo_application::tipo_handler(TMask_field& f, KEY key) bool TClifo_application::tipo_handler(TMask_field& f, KEY key)
{ {
TMask& m = f.mask(); TMask& m = f.mask();
@ -368,7 +347,7 @@ HIDDEN bool codalleg_handler(TMask_field& f, KEY key)
void TClifo_application::on_config_change() void TClifo_application::on_config_change()
{ {
TConfig cnf(CONFIG_DITTA); TConfig cnf(CONFIG_DITTA);
_gesven = _ignoreven ? FALSE : cnf.get_bool("GesVen"); _gesven = cnf.get_bool("GesVen");
_lbcn = cnf.get_bool("GsLbCn"); _lbcn = cnf.get_bool("GsLbCn");
init_pages(*_msk); init_pages(*_msk);
} }
@ -382,8 +361,7 @@ void TClifo_application::init_pages(TMask& m)
// Se non e' abilitata la gestione delle vendite disabilita le // Se non e' abilitata la gestione delle vendite disabilita le
// maschere dalla 4 in poi // maschere dalla 4 in poi
if (!_ignoreven) m.enable_page(3, _gesven);
m.enable_page(3, _gesven);
} }
void TClifo_application::init_query_mode(TMask& m) void TClifo_application::init_query_mode(TMask& m)
@ -572,11 +550,12 @@ bool TClifo_application::indsp_notify(TSheet_field& indsp, int r, KEY key)
return FALSE; //Refuse permission return FALSE; //Refuse permission
} }
break; break;
case K_ENTER:
case K_DEL:
indsp_sheet_rebuilder();
default: default:
break; break;
} }
if (key == K_ENTER || key == K_DEL)
indsp_sheet_rebuilder();
return TRUE; return TRUE;
} }
@ -590,24 +569,17 @@ bool TClifo_application::user_create() // initvar e arrmask
_pcon = new TLocalisamfile(LF_PCON); _pcon = new TLocalisamfile(LF_PCON);
_comuni = new TLocalisamfile(LF_COMUNI); _comuni = new TLocalisamfile(LF_COMUNI);
_ignoreven = argc() > 2; _msk = new TMask("cg0200a") ;
const int max = _ignoreven ? 3 : -1;
_msk = new TMask("cg0200a", 0, max) ;
_msk->set_handler(F_OCCASIONALE, occas_handler); _msk->set_handler(F_OCCASIONALE, occas_handler);
_msk->set_handler(F_RAGSOCA, autoexit_rsoc_handler); _msk->set_handler(F_COFI, cofi_handler);
_msk->set_handler(F_COFI, autoexit_handler); _msk->set_handler(F_PAIV, paiv_handler);
_msk->set_handler(F_PAIV, autoexit_handler);
_msk->set_handler(F_RICALT, autoexit_handler);
_msk->set_handler(F_CODANAGPER, percip_handler); _msk->set_handler(F_CODANAGPER, percip_handler);
_msk->set_handler(F_TIPOPERS, tipo_handler); _msk->set_handler(F_TIPOPERS, tipo_handler);
_msk->set_handler(F_ALLEG, alleg_handler); _msk->set_handler(F_ALLEG, alleg_handler);
_msk->set_handler(F_CODALLEG, codalleg_handler); _msk->set_handler(F_CODALLEG, codalleg_handler);
if (!_ignoreven) TSheet_field& ind = (TSheet_field&) _msk->field(F_SHEET_G_VEN);
{ ind.set_notify(indsp_notify);
TSheet_field& ind = (TSheet_field&) _msk->field(F_SHEET_G_VEN);
ind.set_notify(indsp_notify);
}
_mov->setkey(3); _mov->setkey(3);

271
cg/cg0200a.uml
View File

@ -10,47 +10,47 @@ PAGE "Pag.1" -1 -1 78 19
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
PROMPT 1 0 "Dati identificativi" PROMPT 1 0 "Dati identificativi"
END END
LIST F_TIPOCF 1 12 LIST F_TIPOCF 1 12
BEGIN BEGIN
PROMPT 2 1 "Tipo " PROMPT 2 1 "Tipo "
FIELD TIPOCF FIELD TIPOCF
FLAGS "PG" FLAGS "PG"
KEY 1 2 4 5 6 KEY 1 2 4 5 6
HELP "Indicare se cliente oppure fornitore" HELP "Indicare se cliente oppure fornitore"
ITEM "C|Clienti" ITEM "C|Clienti"
MESSAGE CLEAR,4@|COPY,1@|HIDE,DLG_CST|SHOW,DLG_RIC|ENABLE,7@ MESSAGE CLEAR,4@|COPY,1@|HIDE,DLG_CST|SHOW,DLG_RIC|ENABLE,7@
ITEM "F|Fornitori" ITEM "F|Fornitori"
MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|DISABLE,7@ MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|DISABLE,7@
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 2 2 "Codice " PROMPT 2 2 "Codice "
FIELD CODCF FIELD CODCF
FLAGS "GR" FLAGS "GR"
KEY 1 KEY 1
USE LF_CLIFO KEY 1 USE LF_CLIFO KEY 1
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
OUTPUT F_TIPOCF TIPOCF OUTPUT F_TIPOCF TIPOCF
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOC RAGSOC[1,30] OUTPUT F_RAGSOC RAGSOC[1,30]
OUTPUT F_RAGSOCA RAGSOC[31,] OUTPUT F_RAGSOCA RAGSOC[31,]
OUTPUT F_COFI COFI OUTPUT F_COFI COFI
OUTPUT F_STATOPAIV STATOPAIV OUTPUT F_STATOPAIV STATOPAIV
OUTPUT F_PAIV PAIV OUTPUT F_PAIV PAIV
OUTPUT F_RICALT RICALT OUTPUT F_RICALT RICALT
HELP "Codice relativo al cliente o fornitore" HELP "Codice relativo al cliente o fornitore"
MESSAGE COPY,2@ MESSAGE COPY,2@
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 30 STRING F_RAGSOC 30
@ -70,110 +70,109 @@ BEGIN
HELP "Prima parte della ragione sociale o cognome" HELP "Prima parte della ragione sociale o cognome"
MESSAGE COPY,3@ MESSAGE COPY,3@
WARNING "Manca la ragione sociale" WARNING "Manca la ragione sociale"
// VALIDATE NOT_EMPTY_FUNC
CHECKTYPE REQUIRED // Guy: perche' non cosi'? CHECKTYPE REQUIRED // Guy: perche' non cosi'?
END END
STRING F_RAGSOCA 20 STRING F_RAGSOCA 20
BEGIN BEGIN
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
FIELD RAGSOC[31,] FIELD RAGSOC[31,]
KEY 2 KEY 2
HELP "Seconda parte della ragione sociale o nome" HELP "Seconda parte della ragione sociale o nome"
MESSAGE COPY,6@ MESSAGE COPY,6@
END END
STRING F_RICALT 30 20 STRING F_RICALT 30 20
BEGIN BEGIN
PROMPT 2 4 "Ricerca Alt. " PROMPT 2 4 "Ricerca Alt. "
FIELD RICALT FIELD RICALT
KEY 6 KEY 6
USE LF_CLIFO KEY 6 USE LF_CLIFO KEY 6
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT RICALT F_RICALT INPUT RICALT F_RICALT
DISPLAY "Ricerca alternativa@30" RICALT DISPLAY "Ricerca alternativa@30" RICALT
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
HELP "Chiave di ricerca alternativa" HELP "Chiave di ricerca alternativa"
END END
LIST F_STATOPAIV 2 21 LIST F_STATOPAIV 2 21
BEGIN BEGIN
PROMPT 42 4 "Stato CEE " PROMPT 42 4 "Stato CEE "
FIELD STATOPAIV FIELD STATOPAIV
KEY 5 KEY 5
HELP "Codice ISO dello stato" HELP "Codice ISO dello stato"
ITEM " |Italia o extra CEE" ITEM " |Italia o extra CEE"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
ITEM "EL|Grecia" ITEM "EL|Grecia"
ITEM "ES|Spagna" ITEM "ES|Spagna"
ITEM "FR|Francia" ITEM "FR|Francia"
ITEM "GB|Gran Bretagna" ITEM "GB|Gran Bretagna"
ITEM "IE|Irlanda" ITEM "IE|Irlanda"
ITEM "IT|Italia" ITEM "IT|Italia"
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 2 5 "Codice fiscale " PROMPT 2 5 "Codice fiscale "
FIELD COFI FIELD COFI
FLAGS "U" FLAGS "U"
KEY 4 KEY 4
USE LF_CLIFO KEY 4 USE LF_CLIFO KEY 4
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT COFI F_COFI INPUT COFI F_COFI
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
HELP "Codice fiscale del cliente/fornitore" HELP "Codice fiscale del cliente/fornitore"
VALIDATE CF_FUNC F_STATOPAIV VALIDATE CF_FUNC F_STATOPAIV
END END
STRING F_PAIV 12 STRING F_PAIV 12
BEGIN BEGIN
PROMPT 42 5 "Partita IVA " PROMPT 42 5 "Partita IVA "
FIELD PAIV FIELD PAIV
KEY 5 KEY 5
USE LF_CLIFO KEY 5 USE LF_CLIFO KEY 5
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT STATOPAIV F_STATOPAIV INPUT STATOPAIV F_STATOPAIV
INPUT PAIV F_PAIV INPUT PAIV F_PAIV
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
HELP "Partita IVA del cliente/fornitore" HELP "Partita IVA del cliente/fornitore"
VALIDATE PI_FUNC F_STATOPAIV VALIDATE PI_FUNC F_STATOPAIV
END END
GROUPBOX DLG_NULL 76 6 GROUPBOX DLG_NULL 76 6
BEGIN BEGIN
PROMPT 1 6 "Recapito" PROMPT 1 6 "Recapito"
END END
STRING F_INDCF 35 STRING F_INDCF 35
BEGIN BEGIN
PROMPT 2 7 "Indirizzo " PROMPT 2 7 "Indirizzo "
FIELD INDCF FIELD INDCF
HELP "Indirizzo del recapito" HELP "Indirizzo del recapito"
END END
STRING F_CIVCF 10 STRING F_CIVCF 10
BEGIN BEGIN
PROMPT 60 7 "N. " PROMPT 60 7 "N. "
FIELD CIVCF FIELD CIVCF
HELP "Numero civico del recapito" HELP "Numero civico del recapito"
END END
NUMBER F_STATOCF 3 NUMBER F_STATOCF 3
@ -300,16 +299,16 @@ END
NUMBER F_CODALLEG 6 NUMBER F_CODALLEG 6
BEGIN BEGIN
PROMPT 32 13 "Codice allegato " PROMPT 32 13 "Codice allegato "
FIELD CODALLEG FIELD CODALLEG
FLAGS "R" FLAGS "R"
COPY USE F_CODCF COPY USE F_CODCF
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODALLEG INPUT CODCF F_CODALLEG
COPY DISPLAY F_CODCF COPY DISPLAY F_CODCF
OUTPUT F_CODALLEG CODCF OUTPUT F_CODALLEG CODCF
OUTPUT F_RAGSOCALLEG RAGSOC OUTPUT F_RAGSOCALLEG RAGSOC
HELP "Codice dell'allegato IVA in cui inserire i progressivi" HELP "Codice dell'allegato IVA in cui inserire i progressivi"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Cliente/Fornitore assente" WARNING "Cliente/Fornitore assente"
END END
@ -376,7 +375,7 @@ END
GROUPBOX DLG_NULL 76 7 GROUPBOX DLG_NULL 76 7
BEGIN BEGIN
PROMPT 1 4 "Numeri telefonici" PROMPT 1 4 "Numeri telefonici"
END END
STRING F_PTEL 10 STRING F_PTEL 10
BEGIN BEGIN
@ -618,7 +617,7 @@ PROMPT 56 4 "Codice CAB "
FIELD CODCAB FIELD CODCAB
FLAGS "Z" FLAGS "Z"
COPY USE F_CODABI COPY USE F_CODABI
INPUT CODTAB[1,5] F_CODABI INPUT CODTAB[1,5] F_CODABI
INPUT CODTAB[6,10] F_CODBAN INPUT CODTAB[6,10] F_CODBAN
COPY DISPLAY F_CODABI COPY DISPLAY F_CODABI
COPY OUTPUT F_CODABI COPY OUTPUT F_CODABI
@ -666,7 +665,7 @@ STRING F_CODLIN 1
BEGIN BEGIN
PROMPT 2 7 "Lingua " PROMPT 2 7 "Lingua "
FIELD CODLIN FIELD CODLIN
USE %LNG USE %LNG
FLAGS "U" FLAGS "U"
INPUT CODTAB F_CODLIN INPUT CODTAB F_CODLIN
DISPLAY "Codice lingua " CODTAB DISPLAY "Codice lingua " CODTAB
@ -700,7 +699,7 @@ DISPLAY "Descrizione@50" S0
OUTPUT F_CODPAG CODTAB OUTPUT F_CODPAG CODTAB
OUTPUT F_DESPAG S0 OUTPUT F_DESPAG S0
HELP "Codice condizione di pagamento concordata" HELP "Codice condizione di pagamento concordata"
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN ba3 -6 ADD RUN ba3 -6
END END
@ -998,7 +997,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
NUMBER F_CODINDSP 3 NUMBER F_CODINDSP 3
BEGIN BEGIN
PROMPT 43 11 "Codice indirizzo spedizione " PROMPT 43 11 "Codice indirizzo spedizione "
FIELD LF_CFVEN->CODINDSP FIELD LF_CFVEN->CODINDSP
GROUP 7 GROUP 7
SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35" SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35"
INPUT F_CODINDSP INPUT F_CODINDSP
@ -1307,7 +1306,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_NSNRPROT 7 STRING F_NSNRPROT 7
BEGIN BEGIN
PROMPT 2 15 "Ns nr. protocollo " PROMPT 2 15 "Ns nr. protocollo "
FIELD LF_CFVEN->NSNPROT FIELD LF_CFVEN->NSNPROT
GROUP 7 GROUP 7
HELP "Nostro nr. di protocollo della lettera" HELP "Nostro nr. di protocollo della lettera"
END END
@ -1513,6 +1512,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
OUTPUT F_CATVEN CODTAB OUTPUT F_CATVEN CODTAB
HELP "Codice della categoria di vendita" HELP "Codice della categoria di vendita"
CHECKTYPE NORMAL CHECKTYPE NORMAL
FLAGS "U"
END END
ENDPAGE ENDPAGE
@ -1562,7 +1562,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_CODSP1 3 STRING F_CODSP1 3
BEGIN BEGIN
PROMPT 2 5 "Spesa 1 " PROMPT 2 5 "Spesa 1 "
FIELD LF_CFVEN->CODSP1 FIELD LF_CFVEN->CODSP1
GROUP 7 GROUP 7
USE %SAD USE %SAD
INPUT CODTAB F_CODSP1 INPUT CODTAB F_CODSP1
@ -1576,7 +1576,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_CODSP2 3 STRING F_CODSP2 3
BEGIN BEGIN
PROMPT 24 5 "Spesa 2 " PROMPT 24 5 "Spesa 2 "
FIELD LF_CFVEN->CODSP2 FIELD LF_CFVEN->CODSP2
GROUP 7 GROUP 7
COPY USE F_CODSP1 COPY USE F_CODSP1
INPUT CODTAB F_CODSP2 INPUT CODTAB F_CODSP2
@ -1589,7 +1589,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_CODSP3 3 STRING F_CODSP3 3
BEGIN BEGIN
PROMPT 2 6 "Spesa 3 " PROMPT 2 6 "Spesa 3 "
FIELD LF_CFVEN->CODSP3 FIELD LF_CFVEN->CODSP3
GROUP 7 GROUP 7
COPY USE F_CODSP1 COPY USE F_CODSP1
INPUT CODTAB F_CODSP3 INPUT CODTAB F_CODSP3
@ -1602,7 +1602,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_CODSP4 3 STRING F_CODSP4 3
BEGIN BEGIN
PROMPT 24 6 "Spesa 4 " PROMPT 24 6 "Spesa 4 "
FIELD LF_CFVEN->CODSP4 FIELD LF_CFVEN->CODSP4
GROUP 7 GROUP 7
COPY USE F_CODSP1 COPY USE F_CODSP1
INPUT CODTAB F_CODSP4 INPUT CODTAB F_CODSP4
@ -1615,22 +1615,39 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_CODMAG 3 STRING F_CODMAG 3
BEGIN BEGIN
PROMPT 48 5 "Codice magazzino " PROMPT 48 5 "Codice magazzino "
FIELD LF_CFVEN->CODMAG FIELD LF_CFVEN->CODMAG
USE MAG SELECT CODTAB ? "???"
INPUT CODTAB[1,3] F_CODMAG
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODMAG CODTAB[1,3]
HELP "Codice del magazzino movimentato" HELP "Codice del magazzino movimentato"
END END
STRING F_CODLIST 5 STRING F_CODLIST 5
BEGIN BEGIN
PROMPT 48 6 "Codice listino " PROMPT 48 6 "Codice listino "
FIELD LF_CFVEN->CODLIST FIELD LF_CFVEN->CODLIST
USE %LIS USE LIS
INPUT CODTAB F_CODLIST INPUT CODTAB F_CODLIST
DISPLAY "Codice listino " CODTAB DISPLAY "Codice" COD
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODLIST CODTAB OUTPUT F_CODLIST CODTAB
// USE LF_CONDV
// JOIN %CVE TO LF_CONDV INTO CODTAB=CATVEN
// INPUT TIPO "L"
// INPUT CATVEN F_CATVEN SELECT
// INPUT COD F_CODLIST
// DISPLAY "Cat.Ven." CATVEN
// DISPLAY "Codice" COD
// DISPLAY "Descrizione@50" DESCR
// OUTPUT F_CODLIST COD
// OUTPUT F_CATVEN CATVEN
// ADD RUN ve2 -1 l
HELP "Codice listino utilizzato" HELP "Codice listino utilizzato"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END WARNING "Listino assente"
END
STRING F_CODSCC 2 STRING F_CODSCC 2
BEGIN BEGIN
@ -1690,7 +1707,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
STRING F_TITOLO 2 STRING F_TITOLO 2
BEGIN BEGIN
PROMPT 2 13 "Titolo onorifico " PROMPT 2 13 "Titolo onorifico "
FIELD LF_CFVEN->TITOLO FIELD LF_CFVEN->TITOLO
GROUP 7 GROUP 7
USE %TIT USE %TIT
INPUT CODTAB F_TITOLO INPUT CODTAB F_TITOLO
@ -1703,7 +1720,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
LIST F_RAGGOR 1 16 LIST F_RAGGOR 1 16
BEGIN BEGIN
PROMPT 2 15 "Raggruppamento ordine " PROMPT 2 15 "Raggruppamento ordine "
FIELD LF_CFVEN->RAGGOR FIELD LF_CFVEN->RAGGOR
GROUP 7 GROUP 7
HELP "Indicare il tipo di raggruppamento dell'ordine" HELP "Indicare il tipo di raggruppamento dell'ordine"
ITEM "O|Intero ordine" ITEM "O|Intero ordine"
@ -1730,7 +1747,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
NUMBER F_MINORD 15 NUMBER F_MINORD 15
BEGIN BEGIN
PROMPT 40 16 "Importo minimo " PROMPT 40 16 "Importo minimo "
FIELD LF_CFVEN->MINORD FIELD LF_CFVEN->MINORD
GROUP 7 GROUP 7
PICTURE "." PICTURE "."
HELP "Importo minimo dell'ordine" HELP "Importo minimo dell'ordine"
@ -1739,7 +1756,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
NUMBER F_MAXORD 15 NUMBER F_MAXORD 15
BEGIN BEGIN
PROMPT 40 17 "Importo massimo " PROMPT 40 17 "Importo massimo "
FIELD LF_CFVEN->MAXORD FIELD LF_CFVEN->MAXORD
GROUP 7 GROUP 7
PICTURE "." PICTURE "."
HELP "Importo massimo dell'ordine" HELP "Importo massimo dell'ordine"

26
cg/cg0300.cpp
View File

@ -18,6 +18,8 @@ class CG0300_application : public TRelation_application
virtual TRelation* get_relation() const {return _rel;} virtual TRelation* get_relation() const {return _rel;}
virtual void init_query_mode(TMask& m); virtual void init_query_mode(TMask& m);
virtual void init_query_insert_mode(TMask& m); virtual void init_query_insert_mode(TMask& m);
virtual void init_modify_mode(TMask& m);
virtual void init_insert_mode(TMask& m) { init_modify_mode(m); }
public: public:
CG0300_application() {} CG0300_application() {}
@ -27,37 +29,29 @@ void CG0300_application::init_query_mode(TMask& m)
{ {
disable_menu_item(M_FILE_NEW); disable_menu_item(M_FILE_NEW);
m.send_key(K_SHIFT + K_CTRL + 's', -1); m.show(-1);
m.send_key(K_SHIFT + K_CTRL + 'h', -2); m.hide(-2);
} }
void CG0300_application::init_query_insert_mode(TMask& m) void CG0300_application::init_query_insert_mode(TMask& m)
{ {
disable_menu_item(M_FILE_NEW); disable_menu_item(M_FILE_NEW);
m.send_key(K_SHIFT + K_CTRL + 'h', -1); m.hide(-1);
m.send_key(K_SHIFT + K_CTRL + 's', -2); m.show(-2);
m.enable(-3);
} }
void CG0300_application::init_modify_mode(TMask& m)
HIDDEN bool key_handler (TMask_field& f, KEY k)
{ {
if (k == K_TAB) m.disable(-3);
{
TMask& m = f.mask();
if (m.get(F_ANNO).not_empty() && m.get(F_CODATT).not_empty() &&
m.get(F_CODCF).not_empty())
m.stop_run(K_AUTO_ENTER);
}
return TRUE;
} }
bool CG0300_application::user_create() bool CG0300_application::user_create()
{ {
_msk = new TMask("cg0300a") ; _msk = new TMask("cg0300a") ;
_msk->set_handler (F_IMMESSO, key_handler);
_rel = new TRelation(LF_ALLEG); _rel = new TRelation(LF_ALLEG);
_ditte = new TLocalisamfile(LF_NDITTE); _ditte = new TLocalisamfile(LF_NDITTE);
_attiv = new TLocalisamfile(LF_ATTIV); _attiv = new TLocalisamfile(LF_ATTIV);

59
cg/cg0300.h
View File

@ -9,36 +9,43 @@
#define N_CODCF "CODCF" #define N_CODCF "CODCF"
#define F_ANNO 101 #define F_ANNO 101
#define F_CODATT 102 #define F_CODATT 102
#define F_TIPOCF 103 #define F_TIPOCF 103
#define F_CODCF 104 #define F_CODCF 104
#define F_IMMESSO 105 #define F_IMMESSO 105
#define F_IMPESC 106 #define F_IMPESC 106
#define F_IVAESC 107 #define F_IVAESC 107
#define F_NIESC 108 #define F_NIESC 108
#define F_E8ESC 109 #define F_E8ESC 109
#define F_NDOCESC 110 #define F_NDOCESC 110
#define F_IMPESP 111 #define F_IMPESP 111
#define F_IVAESP 112 #define F_IVAESP 112
#define F_NIESP 113 #define F_NIESP 113
#define F_E8ESP 114 #define F_E8ESP 114
#define F_NDOCESP 115 #define F_NDOCESP 115
#define F_PROG101102 116 #define F_PROG101102 116
#define F_CODDITTA 117 #define F_CODDITTA 117
#define F_RAGSOC 118 #define F_RAGSOC 118
#define F_COFI 119 #define F_COFI 119
#define F_PAIV 120 #define F_PAIV 120
#define F_TOTALE 121 #define F_TOTALE 121
#define F_TOTALE1 122 #define F_TOTALE1 122
#define F_TOTALE2 123 #define F_TOTALE2 123
#define F_TOTALE3 124 #define F_TOTALE3 124
#define F_TOTALE4 125 #define F_TOTALE4 125
#define F_TOTALE5 126 #define F_TOTALE5 126
#define F_TOTALE6 127 #define F_TOTALE6 127
#define F_PROMPT 128 #define F_PROMPT 128
#define F_RAGSOC_D 129 #define F_RAGSOC_D 129
#define F_DENATT 130 #define F_DENATT 130
#define F_CODATTH 131 #define F_CODATTH 131
#define F_CODCFH 132 #define F_CODCFH 132
#define F_T1 133
#define F_T2 134
#define F_T3 135
#define F_T4 136
#define F_T5 137
#define F_T6 138
#define F_T7 139
#endif // __CG0300_H #endif // __CG0300_H

120
cg/cg0300a.uml
View File

@ -41,6 +41,7 @@ BEGIN
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_IMMESSO IMMESSO OUTPUT F_IMMESSO IMMESSO
WARNING "Registrazione assente" WARNING "Registrazione assente"
CHECKTYPE REQUIRED
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
@ -48,6 +49,8 @@ BEGIN
PROMPT 2 2 "Ditta " PROMPT 2 2 "Ditta "
HELP "Ditta di cui si vogliono visualizzare i saldi" HELP "Ditta di cui si vogliono visualizzare i saldi"
FLAGS "RPDG" FLAGS "RPDG"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
@ -69,11 +72,11 @@ BEGIN
FIELD LF_ALLEG->CODATT FIELD LF_ALLEG->CODATT
FLAGS "PRZ" FLAGS "PRZ"
KEY 1 KEY 1
COPY ALL F_ANNO COPY ALL F_ANNO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Registrazione assente" WARNING "Registrazione assente"
MESSAGE COPY,F_CODATTH MESSAGE COPY,F_CODATTH
GROUP 1 GROUP 1
END END
STRING F_CODATTH 5 STRING F_CODATTH 5
@ -94,10 +97,10 @@ BEGIN
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_DENATT LF_ATTIV->DESCR OUTPUT F_DENATT LF_ATTIV->DESCR
HELP "Inserire il codice dell'attivita'" HELP "Inserire il codice dell'attivita'"
MESSAGE COPY,F_CODATTH MESSAGE COPY,F_CODATTH
MESSAGE COPY,3@ MESSAGE COPY,3@
WARNING "Attivita' assente" WARNING "Attivita' assente"
GROUP 2 GROUP 2
END END
STRING F_DENATT 50 STRING F_DENATT 50
@ -113,17 +116,11 @@ BEGIN
KEY 1 KEY 1
HELP "Indicare se cliente, fornitore oppure bolletta doganale" HELP "Indicare se cliente, fornitore oppure bolletta doganale"
ITEM "C|Clienti" ITEM "C|Clienti"
MESSAGE "Op. non imp. ed esenti ",99 MESSAGE SHOW,F_T1|HIDE,F_T2|HIDE,F_T3|SHOW,F_T5|HIDE,F_T6
MESSAGE "Operazioni non imponibili (mod 101) ",F_PROMPT
MESSAGE ENABLE,F_CODCF|HIDE,6@
ITEM "F|Fornitori" ITEM "F|Fornitori"
MESSAGE "Op. senza appl. d'imp. ",99 MESSAGE HIDE,F_T1|SHOW,F_T2|HIDE,F_T3|HIDE,F_T5|SHOW,F_T6|ENABLE,F_CODCF|SHOW,6@
MESSAGE "Operazioni non imponibili (mod 102) ",F_PROMPT
MESSAGE ENABLE,F_CODCF|SHOW,6@
ITEM "B|Boll.doganali" ITEM "B|Boll.doganali"
MESSAGE "Operazioni senza appl. d'imposta ",99 MESSAGE HIDE,F_T1|HIDE,F_T2|SHOW,F_T3|HIDE,F_T5|SHOW,F_T6|DISABLE,F_CODCF|SHOW,6@
MESSAGE "Operazioni non imponibili (mod 102) ",F_PROMPT
MESSAGE DISABLE,F_CODCF|SHOW,6@
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
@ -132,12 +129,13 @@ BEGIN
FIELD LF_ALLEG->CODCF FIELD LF_ALLEG->CODCF
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
COPY ALL F_ANNO COPY ALL F_ANNO
HELP "Codice relativo al cliente o fornitore" HELP "Codice relativo al cliente o fornitore"
ADD RUN cg0 -1 ADD RUN cg0 -1
WARNING "Registrazione assente" WARNING "Registrazione assente"
GROUP 1 GROUP 1
MESSAGE COPY,F_CODCFH CHECKTYPE REQUIRED
MESSAGE COPY,F_CODCFH
END END
NUMBER F_CODCFH 6 NUMBER F_CODCFH 6
@ -159,9 +157,10 @@ BEGIN
OUTPUT F_PAIV PAIV OUTPUT F_PAIV PAIV
HELP "Codice relativo al cliente o fornitore" HELP "Codice relativo al cliente o fornitore"
ADD RUN cg0 -1 ADD RUN cg0 -1
WARNING "Cliente assente" WARNING "Cliente assente"
GROUP 2 GROUP 2
MESSAGE COPY,F_CODCF MESSAGE COPY,F_CODCF
CHECKTYPE NORMAL
END END
BOOLEAN F_IMMESSO BOOLEAN F_IMMESSO
@ -176,22 +175,23 @@ STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 5 "Rag.sociale " PROMPT 2 5 "Rag.sociale "
FLAGS "U" FLAGS "U"
KEY 1 KEY 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_RAGSOC INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_CODCFH COPY OUTPUT F_CODCFH
HELP "Ragione sociale del cliente o fornitore" HELP "Ragione sociale del cliente o fornitore"
WARNING "Ragione sociale assente" WARNING "Ragione sociale assente"
GROUP 3
END END
STRING F_COFI 16 STRING F_COFI 16
BEGIN BEGIN
PROMPT 2 6 "Cod.fiscale " PROMPT 2 6 "Cod.fiscale "
KEY 1 KEY 3
USE LF_CLIFO KEY 4 USE LF_CLIFO KEY 4
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT COFI F_COFI INPUT COFI F_COFI
@ -199,16 +199,17 @@ BEGIN
DISPLAY "Tipo" TIPOCF DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
COPY OUTPUT F_CODCFH COPY OUTPUT F_CODCFH
HELP "Codice fiscale del cliente o fornitore" HELP "Codice fiscale del cliente o fornitore"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Codice fiscale assente" WARNING "Codice fiscale assente"
GROUP 3
END END
STRING F_PAIV 12 STRING F_PAIV 12
BEGIN BEGIN
PROMPT 36 6 "Partita IVA " PROMPT 36 6 "Partita IVA "
KEY 1 KEY 4
USE LF_CLIFO KEY 5 USE LF_CLIFO KEY 5
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT PAIV F_PAIV INPUT PAIV F_PAIV
@ -217,10 +218,11 @@ BEGIN
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale " COFI DISPLAY "Codice fiscale " COFI
COPY OUTPUT F_CODCFH COPY OUTPUT F_CODCFH
HELP "Partita IVA del cliente o fornitore" HELP "Partita IVA del cliente o fornitore"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Partita IVA assente" WARNING "Partita IVA assente"
GROUP 3
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -250,7 +252,7 @@ BEGIN
FIELD LF_ALLEG->IMPESC FIELD LF_ALLEG->IMPESC
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5 MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5
END END
NUMBER F_IMPESP 15 NUMBER F_IMPESP 15
@ -260,7 +262,7 @@ BEGIN
FIELD LF_ALLEG->IMPESP FIELD LF_ALLEG->IMPESP
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6 MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6
END END
NUMBER F_TOTALE1 15 NUMBER F_TOTALE1 15
@ -268,7 +270,7 @@ BEGIN
PROMPT 60 9 "" PROMPT 60 9 ""
FLAGS "RD" FLAGS "RD"
PICTURE "." PICTURE "."
NUM_CALC {#F_IMPESP+#F_IMPESC} NUM_CALC {#F_IMPESP+#F_IMPESC}
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -283,7 +285,7 @@ BEGIN
FIELD LF_ALLEG->IVAESC FIELD LF_ALLEG->IVAESC
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5 MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5
END END
NUMBER F_IVAESP 15 NUMBER F_IVAESP 15
@ -293,7 +295,7 @@ BEGIN
FIELD LF_ALLEG->IVAESP FIELD LF_ALLEG->IVAESP
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6 MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6
END END
NUMBER F_TOTALE2 15 NUMBER F_TOTALE2 15
@ -301,12 +303,25 @@ BEGIN
PROMPT 60 10 "" PROMPT 60 10 ""
FLAGS "RD" FLAGS "RD"
PICTURE "." PICTURE "."
NUM_CALC {#F_IVAESP+#F_IVAESC} NUM_CALC {#F_IVAESP+#F_IVAESC}
END END
TEXT 99 TEXT F_T1
BEGIN BEGIN
PROMPT 2 11 "Op. non imp. ed esenti " PROMPT 2 11 "Op. non imp. ed esenti "
FLAGS "H"
END
TEXT F_T2
BEGIN
PROMPT 2 11 "Op. senza appl. d'imp. "
FLAGS "H"
END
TEXT F_T3
BEGIN
PROMPT 2 11 "Operazioni senza appl. d'imposta "
FLAGS "H"
END END
NUMBER F_NIESC 15 NUMBER F_NIESC 15
@ -316,7 +331,7 @@ BEGIN
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
HELP "Totale operazioni non imponibili ed esenti dell'anno corrente" HELP "Totale operazioni non imponibili ed esenti dell'anno corrente"
MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE5 MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE5
END END
NUMBER F_NIESP 15 NUMBER F_NIESP 15
@ -326,7 +341,7 @@ BEGIN
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
HELP "Totale operazioni non imponibili ed esenti dell'anno precedente" HELP "Totale operazioni non imponibili ed esenti dell'anno precedente"
MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE6 MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE6
END END
NUMBER F_TOTALE3 15 NUMBER F_TOTALE3 15
@ -334,10 +349,10 @@ BEGIN
PROMPT 60 11 "" PROMPT 60 11 ""
FLAGS "RD" FLAGS "RD"
PICTURE "." PICTURE "."
NUM_CALC {#F_NIESP+#F_NIESC} NUM_CALC {#F_NIESP+#F_NIESC}
END END
TEXT 98 TEXT F_T4
BEGIN BEGIN
PROMPT 2 12 "Op. non imp.(Art.8 2^c)" PROMPT 2 12 "Op. non imp.(Art.8 2^c)"
GROUP 6 GROUP 6
@ -351,7 +366,7 @@ BEGIN
GROUP 6 GROUP 6
PICTURE "." PICTURE "."
HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno corrente" HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno corrente"
MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE5 MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE5
END END
NUMBER F_E8ESP 15 NUMBER F_E8ESP 15
@ -362,7 +377,7 @@ BEGIN
GROUP 6 GROUP 6
PICTURE "." PICTURE "."
HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno precedente" HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno precedente"
MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE6 MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE6
END END
NUMBER F_TOTALE4 15 NUMBER F_TOTALE4 15
@ -371,7 +386,7 @@ BEGIN
FLAGS "RD" FLAGS "RD"
GROUP 6 GROUP 6
PICTURE "." PICTURE "."
NUM_CALC {#F_E8ESP+#F_E8ESC} NUM_CALC {#F_E8ESP+#F_E8ESC}
END END
TEXT DLG_NULL TEXT DLG_NULL
@ -384,7 +399,7 @@ BEGIN
PROMPT 25 13 "" PROMPT 25 13 ""
FLAGS "RD" FLAGS "RD"
PICTURE "." PICTURE "."
NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC} NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC}
END END
NUMBER F_TOTALE6 15 NUMBER F_TOTALE6 15
@ -392,10 +407,10 @@ BEGIN
PROMPT 42 13 "" PROMPT 42 13 ""
FLAGS "RD" FLAGS "RD"
PICTURE "." PICTURE "."
NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP} NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP}
END END
TEXT 97 TEXT F_T7
BEGIN BEGIN
PROMPT 2 15 "Numero fatture " PROMPT 2 15 "Numero fatture "
GROUP 6 GROUP 6
@ -408,7 +423,7 @@ BEGIN
FIELD LF_ALLEG->NDOCESC FIELD LF_ALLEG->NDOCESC
FLAGS "R" FLAGS "R"
GROUP 6 GROUP 6
MESSAGE K_TAB,F_TOTALE MESSAGE K_TAB,F_TOTALE
END END
NUMBER F_NDOCESP 4 NUMBER F_NDOCESP 4
@ -418,7 +433,7 @@ BEGIN
FIELD LF_ALLEG->NDOCESP FIELD LF_ALLEG->NDOCESP
FLAGS "R" FLAGS "R"
GROUP 6 GROUP 6
MESSAGE K_TAB,F_TOTALE MESSAGE K_TAB,F_TOTALE
END END
NUMBER F_TOTALE 5 NUMBER F_TOTALE 5
@ -426,12 +441,19 @@ BEGIN
PROMPT 60 15 "" PROMPT 60 15 ""
FLAGS "RD" FLAGS "RD"
GROUP 6 GROUP 6
NUM_CALC {#F_NDOCESP+#F_NDOCESC} NUM_CALC {#F_NDOCESP+#F_NDOCESC}
END END
TEXT F_PROMPT TEXT F_T5
BEGIN
PROMPT 2 17 "Operazioni non imponibili (mod 101) "
FLAGS "H"
END
TEXT F_T6
BEGIN BEGIN
PROMPT 2 17 "Operazioni non imponibili (mod 102) " PROMPT 2 17 "Operazioni non imponibili (mod 102) "
FLAGS "H"
END END
NUMBER F_PROG101102 15 NUMBER F_PROG101102 15

2
cg/cg0400a.uml
View File

@ -1,6 +1,6 @@
#include "cg0400.h" #include "cg0400.h"
PAGE "Riepilogo progressivi IVA" -1 -1 78 19 PAGE "Riepilogo progressivi IVA" -1 -1 80 19
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN

14
cg/cg0400b.uml
View File

@ -1,6 +1,6 @@
#include "cg0400.h" #include "cg0400.h"
PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16 PAGE "Stampa riepilogo progressivi IVA" -1 -1 80 16
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -16,7 +16,7 @@ BEGIN
DISPLAY "Ditta" CODDITTA DISPLAY "Ditta" CODDITTA
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Ditta assente" WARNING "Ditta assente"
END END
@ -46,13 +46,13 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
LISTBOX F_MESE 9 LISTBOX F_MESE 11
BEGIN BEGIN
PROMPT 2 7 "Mese riepilogo " PROMPT 2 7 "Mese riepilogo "
FLAGS "AM" FLAGS "AM"
END END
BOOLEAN F_STAMPA BOOLEAN F_STAMPA
BEGIN BEGIN
PROMPT 2 9 "Stampa progressivi da inizio anno " PROMPT 2 9 "Stampa progressivi da inizio anno "
END END
@ -60,18 +60,18 @@ END
/* /*
BUTTON DLG_PRINT 10 2 BUTTON DLG_PRINT 10 2
BEGIN BEGIN
PROMPT -12 -1 "~Stampa" PROMPT -12 -1 "~Stampa"
END END
*/ */
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

47
cg/cg0500.cpp
View File

@ -79,8 +79,8 @@ protected:
void init_mask(TMask&); void init_mask(TMask&);
virtual void on_config_change(); virtual void on_config_change();
virtual void init_query_mode(TMask&); virtual void init_query_mode(TMask&);
virtual void init_insert_mode(TMask&); virtual void init_insert_mode(TMask& m) { init_query_mode(m); }
virtual void init_modify_mode(TMask&); virtual void init_modify_mode(TMask& m) { init_query_mode(m); }
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
virtual int write(const TMask& m); virtual int write(const TMask& m);
virtual int read(TMask& m); virtual int read(TMask& m);
@ -162,8 +162,9 @@ void TCaus_app::carica_righe_libere(int from)
for (int i = from; i < 20; i++) for (int i = from; i < 20; i++)
set_descr(i, ""); set_descr(i, "");
if (_last_descr != _tipo_des) if (_last_descr != _tipo_des)
{ {
ss().force_update(); if (curr_mask().is_running())
ss().force_update();
_last_descr = _tipo_des; _last_descr = _tipo_des;
} }
} }
@ -378,30 +379,6 @@ bool TCaus_app::tipomov_hndl (TMask_field& f, KEY k)
return TRUE; return TRUE;
} }
/*
// Il codice causale per incasso immediato, se specificato, deve
// essere puramente contabile (= codreg vuoto e tpm = Nessuno
bool TCaus_app::codcausim_hndl (TMask_field& f, KEY k)
{
if (f.to_check(k))
{
TEdit_field& e = (TEdit_field&)f;
const TString& causim = e.get();
TLocalisamfile& caus = e.browse()->cursor()->file();
caus.zero();
caus.put(CAU_CODCAUS, causim);
if (caus.read() == NOERR)
{
const TString& codreg = caus.get(CAU_REG);
if (codreg.not_empty())
return f.warning_box("La causale per l'incasso/pagamento immediato deve essere puramente contabile");
}
}
return TRUE;
}
*/
bool TCaus_app::mostra_campi() bool TCaus_app::mostra_campi()
{ {
TMask& m = curr_mask(); TMask& m = curr_mask();
@ -812,21 +789,9 @@ void TCaus_app::init_mask(TMask& m)
void TCaus_app::init_query_mode(TMask& m) void TCaus_app::init_query_mode(TMask& m)
{ {
ss().reset();
init_mask(m); init_mask(m);
} }
void TCaus_app::init_insert_mode(TMask& m)
{
init_mask(m);
}
void TCaus_app::init_modify_mode(TMask& m)
{
init_mask(m);
}
void TCaus_app::on_config_change() void TCaus_app::on_config_change()
{ {
TConfig conf(CONFIG_DITTA); TConfig conf(CONFIG_DITTA);
@ -857,7 +822,6 @@ void TCaus_app::on_config_change()
bool TCaus_app::user_create() bool TCaus_app::user_create()
{ {
_rel = new TRelation (LF_CAUSALI); _rel = new TRelation (LF_CAUSALI);
// _rel->add(LF_RCAUSALI, "CODCAUS=CODCAUS");
_rcaus = new TLocalisamfile(LF_RCAUSALI); _rcaus = new TLocalisamfile(LF_RCAUSALI);
_rcaus_rec = new TRecord_array(LF_RCAUSALI, RCA_NRIGA); _rcaus_rec = new TRecord_array(LF_RCAUSALI, RCA_NRIGA);
@ -868,7 +832,6 @@ bool TCaus_app::user_create()
_msk->set_handler(F_TIPO_DOC, tipodoc_hndl); _msk->set_handler(F_TIPO_DOC, tipodoc_hndl);
_msk->set_handler(F_COD_REG, cod_reg_hndl); _msk->set_handler(F_COD_REG, cod_reg_hndl);
_msk->set_handler(F_M_770, m770_hndl); _msk->set_handler(F_M_770, m770_hndl);
// _msk->set_handler(F_COD_CAUS_IM, codcausim_hndl);
TSheet_field& cs = ss(); TSheet_field& cs = ss();
cs.set_notify(ss_notify); cs.set_notify(ss_notify);