Correzioni per XI
git-svn-id: svn://10.65.10.50/trunk@2939 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
aace637636
commit
7a14761891
@ -162,7 +162,7 @@ bool CG0100_application::protected_record(TRectype &rec)
|
||||
_saldi->put(PCN_GRUPPO, gruppo);
|
||||
_saldi->put(PCN_CONTO, conto);
|
||||
_saldi->put(PCN_SOTTOCONTO, sottoc);
|
||||
_saldi->read();
|
||||
_saldi->read(_isgteq);
|
||||
bool ok = FALSE;
|
||||
|
||||
if (_saldi->good())
|
||||
@ -172,10 +172,9 @@ bool CG0100_application::protected_record(TRectype &rec)
|
||||
_saldi->get_real(SLD_SALDOFIN) != ZERO ||
|
||||
_saldi->get_real(SLD_PDAREPRO) != 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) &&
|
||||
sottoc ==_saldi->get_long(PCN_SOTTOCONTO));
|
||||
|
||||
sottoc ==_saldi->get_long(PCN_SOTTOCONTO);
|
||||
if (!ok)
|
||||
{
|
||||
// look for scaricato
|
||||
@ -222,7 +221,8 @@ void CG0100_application::init_query_mode(TMask& m)
|
||||
{
|
||||
m.show(-1);
|
||||
m.show(-2);
|
||||
m.show(-3);
|
||||
m.show(-3);
|
||||
m.hide(FLD_CM2_STSOTTAB);
|
||||
}
|
||||
|
||||
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)
|
||||
|
||||
{
|
||||
const int gruppo = atoi(m.get(FLD_CM1_GRUPPO));
|
||||
const int conto = atoi(m.get(FLD_CM1_CONTO));
|
||||
const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO));
|
||||
bool ivd_enable = TRUE;
|
||||
|
||||
if (conto == 0 && sottoc == 0)
|
||||
m.show(-1, FALSE);
|
||||
if (conto == 0 && sottoc == 0)
|
||||
m.hide(-1);
|
||||
else
|
||||
if (sottoc == 0)
|
||||
m.show(-2, FALSE);
|
||||
else
|
||||
m.show(-3, FALSE);
|
||||
m.hide(-2);
|
||||
else
|
||||
m.hide(-3);
|
||||
|
||||
TLocalisamfile& pconti = _rel->lfile();
|
||||
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");
|
||||
}
|
||||
}
|
||||
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;
|
||||
}
|
||||
|
||||
@ -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;
|
||||
}
|
||||
|
||||
@ -414,13 +385,7 @@ HIDDEN bool sottoc_handler(TMask_field& f, KEY key)
|
||||
const int gruppo = m.get_int(FLD_CM1_GRUPPO);
|
||||
const int conto = m.get_int(FLD_CM1_CONTO);
|
||||
const long sottoc = m.get_long(FLD_CM1_SOTTOCONTO);
|
||||
const int next = f.dlg(); // m.next_fld();
|
||||
|
||||
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;
|
||||
}
|
||||
@ -436,9 +401,7 @@ bool CG0100_application::user_create()
|
||||
_rel = new TRelation(LF_PCON);
|
||||
_saldi = new TLocalisamfile(LF_SALDI);
|
||||
_saldi->setkey(2);
|
||||
set_search_field(FLD_CM1_GRUPPO);
|
||||
|
||||
|
||||
set_search_field(FH_SOTTOCONTO);
|
||||
return TRUE;
|
||||
|
||||
}
|
||||
|
||||
@ -43,5 +43,6 @@
|
||||
#define FLD_CM2_STSOTTABS 205
|
||||
#define FLD_CM1_DESCG 206
|
||||
#define FLD_CM1_DESCC 207
|
||||
#define FH_SOTTOCONTO 208
|
||||
|
||||
#endif // __CG0100_H
|
||||
|
||||
@ -27,8 +27,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
||||
OUTPUT FLD_CM1_DESCG DESCR
|
||||
// OUTPUT FLD_CM1_DESC DESCR
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING FLD_CM1_DESCG 50
|
||||
@ -53,8 +52,9 @@ BEGIN
|
||||
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
||||
OUTPUT FLD_CM1_CONTO CONTO
|
||||
OUTPUT FLD_CM1_DESCC DESCR
|
||||
// OUTPUT FLD_CM1_DESC DESCR
|
||||
CHECKTYPE NORMAL
|
||||
VALIDATE REQIF_FUNC 1 FLD_CM1_SOTTOCONTO
|
||||
WARNING "Manca il conto"
|
||||
END
|
||||
|
||||
STRING FLD_CM1_DESCC 50
|
||||
@ -82,6 +82,17 @@ BEGIN
|
||||
OUTPUT FLD_CM1_GRUPPO GRUPPO
|
||||
OUTPUT FLD_CM1_CONTO CONTO
|
||||
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
|
||||
|
||||
STRING FLD_CM1_DESC 50
|
||||
@ -310,7 +321,7 @@ END
|
||||
|
||||
LIST FLD_CM1_RICSER 1 18
|
||||
BEGIN
|
||||
PROMPT 1 10 "Ricavi per servizi "
|
||||
PROMPT 1 10 "Ricavi per servizi "
|
||||
FIELD RICSER
|
||||
FLAGS "H"
|
||||
ITEM "0|Altre attivita'"
|
||||
@ -360,6 +371,7 @@ BEGIN
|
||||
PROMPT 1 15 "Stampa dettaglio sottoconti su analisi"
|
||||
HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
|
||||
FIELD LF_PCON->STSOTTAB
|
||||
FLAGS "H"
|
||||
GROUP 1 3
|
||||
MESSAGE COPY,FLD_CM2_STSOTTABS
|
||||
END
|
||||
|
||||
@ -29,7 +29,6 @@ class TClifo_application : public TRelation_application
|
||||
|
||||
bool _lbcn, _gesven;
|
||||
bool _savenew;
|
||||
bool _ignoreven;
|
||||
|
||||
TToken_string _tmp;
|
||||
|
||||
@ -180,52 +179,32 @@ HIDDEN bool no_dup_iva(TMask_field& f, KEY key)
|
||||
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)
|
||||
{
|
||||
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 (f.to_check(key))
|
||||
{
|
||||
if (key == K_TAB && f.focusdirty())
|
||||
{
|
||||
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())
|
||||
if (key == K_TAB)
|
||||
{
|
||||
const TString s1(f.get());
|
||||
|
||||
|
||||
if (s1.not_empty())
|
||||
f.mask().set(F_TIPOPERS, isdigit(s1[0]) ? "G" : "F");
|
||||
}
|
||||
if (f.to_check(key) && f.mask().get(F_ALLEG) != "4")
|
||||
{
|
||||
if (f.dlg() == F_COFI) return no_dup_fis(f, key);
|
||||
else
|
||||
if (f.dlg() == F_PAIV) return no_dup_iva(f, key);
|
||||
}
|
||||
if (f.mask().get(F_ALLEG) != "4")
|
||||
return no_dup_fis(f, key);
|
||||
}
|
||||
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)
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
@ -368,7 +347,7 @@ HIDDEN bool codalleg_handler(TMask_field& f, KEY key)
|
||||
void TClifo_application::on_config_change()
|
||||
{
|
||||
TConfig cnf(CONFIG_DITTA);
|
||||
_gesven = _ignoreven ? FALSE : cnf.get_bool("GesVen");
|
||||
_gesven = cnf.get_bool("GesVen");
|
||||
_lbcn = cnf.get_bool("GsLbCn");
|
||||
init_pages(*_msk);
|
||||
}
|
||||
@ -382,8 +361,7 @@ void TClifo_application::init_pages(TMask& m)
|
||||
|
||||
// Se non e' abilitata la gestione delle vendite disabilita le
|
||||
// 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)
|
||||
@ -572,11 +550,12 @@ bool TClifo_application::indsp_notify(TSheet_field& indsp, int r, KEY key)
|
||||
return FALSE; //Refuse permission
|
||||
}
|
||||
break;
|
||||
case K_ENTER:
|
||||
case K_DEL:
|
||||
indsp_sheet_rebuilder();
|
||||
default:
|
||||
break;
|
||||
}
|
||||
if (key == K_ENTER || key == K_DEL)
|
||||
indsp_sheet_rebuilder();
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -590,24 +569,17 @@ bool TClifo_application::user_create() // initvar e arrmask
|
||||
_pcon = new TLocalisamfile(LF_PCON);
|
||||
_comuni = new TLocalisamfile(LF_COMUNI);
|
||||
|
||||
_ignoreven = argc() > 2;
|
||||
const int max = _ignoreven ? 3 : -1;
|
||||
_msk = new TMask("cg0200a", 0, max) ;
|
||||
_msk = new TMask("cg0200a") ;
|
||||
|
||||
_msk->set_handler(F_OCCASIONALE, occas_handler);
|
||||
_msk->set_handler(F_RAGSOCA, autoexit_rsoc_handler);
|
||||
_msk->set_handler(F_COFI, autoexit_handler);
|
||||
_msk->set_handler(F_PAIV, autoexit_handler);
|
||||
_msk->set_handler(F_RICALT, autoexit_handler);
|
||||
_msk->set_handler(F_COFI, cofi_handler);
|
||||
_msk->set_handler(F_PAIV, paiv_handler);
|
||||
_msk->set_handler(F_CODANAGPER, percip_handler);
|
||||
_msk->set_handler(F_TIPOPERS, tipo_handler);
|
||||
_msk->set_handler(F_ALLEG, alleg_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);
|
||||
|
||||
|
||||
271
cg/cg0200a.uml
271
cg/cg0200a.uml
@ -10,47 +10,47 @@ PAGE "Pag.1" -1 -1 78 19
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 0 "Dati identificativi"
|
||||
PROMPT 1 0 "Dati identificativi"
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 12
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo "
|
||||
FIELD TIPOCF
|
||||
FLAGS "PG"
|
||||
KEY 1 2 4 5 6
|
||||
HELP "Indicare se cliente oppure fornitore"
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE CLEAR,4@|COPY,1@|HIDE,DLG_CST|SHOW,DLG_RIC|ENABLE,7@
|
||||
ITEM "F|Fornitori"
|
||||
MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|DISABLE,7@
|
||||
PROMPT 2 1 "Tipo "
|
||||
FIELD TIPOCF
|
||||
FLAGS "PG"
|
||||
KEY 1 2 4 5 6
|
||||
HELP "Indicare se cliente oppure fornitore"
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE CLEAR,4@|COPY,1@|HIDE,DLG_CST|SHOW,DLG_RIC|ENABLE,7@
|
||||
ITEM "F|Fornitori"
|
||||
MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|DISABLE,7@
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Codice "
|
||||
FIELD CODCF
|
||||
FLAGS "GR"
|
||||
KEY 1
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC[1,30]
|
||||
OUTPUT F_RAGSOCA RAGSOC[31,]
|
||||
OUTPUT F_COFI COFI
|
||||
OUTPUT F_STATOPAIV STATOPAIV
|
||||
OUTPUT F_PAIV PAIV
|
||||
OUTPUT F_RICALT RICALT
|
||||
HELP "Codice relativo al cliente o fornitore"
|
||||
MESSAGE COPY,2@
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 2 2 "Codice "
|
||||
FIELD CODCF
|
||||
FLAGS "GR"
|
||||
KEY 1
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC[1,30]
|
||||
OUTPUT F_RAGSOCA RAGSOC[31,]
|
||||
OUTPUT F_COFI COFI
|
||||
OUTPUT F_STATOPAIV STATOPAIV
|
||||
OUTPUT F_PAIV PAIV
|
||||
OUTPUT F_RICALT RICALT
|
||||
HELP "Codice relativo al cliente o fornitore"
|
||||
MESSAGE COPY,2@
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 30
|
||||
@ -70,110 +70,109 @@ BEGIN
|
||||
HELP "Prima parte della ragione sociale o cognome"
|
||||
MESSAGE COPY,3@
|
||||
WARNING "Manca la ragione sociale"
|
||||
// VALIDATE NOT_EMPTY_FUNC
|
||||
CHECKTYPE REQUIRED // Guy: perche' non cosi'?
|
||||
END
|
||||
|
||||
STRING F_RAGSOCA 20
|
||||
BEGIN
|
||||
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
|
||||
FIELD RAGSOC[31,]
|
||||
KEY 2
|
||||
HELP "Seconda parte della ragione sociale o nome"
|
||||
MESSAGE COPY,6@
|
||||
PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
|
||||
FIELD RAGSOC[31,]
|
||||
KEY 2
|
||||
HELP "Seconda parte della ragione sociale o nome"
|
||||
MESSAGE COPY,6@
|
||||
END
|
||||
|
||||
STRING F_RICALT 30 20
|
||||
BEGIN
|
||||
PROMPT 2 4 "Ricerca Alt. "
|
||||
FIELD RICALT
|
||||
KEY 6
|
||||
USE LF_CLIFO KEY 6
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RICALT F_RICALT
|
||||
DISPLAY "Ricerca alternativa@30" RICALT
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
COPY OUTPUT F_CODCF
|
||||
HELP "Chiave di ricerca alternativa"
|
||||
PROMPT 2 4 "Ricerca Alt. "
|
||||
FIELD RICALT
|
||||
KEY 6
|
||||
USE LF_CLIFO KEY 6
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RICALT F_RICALT
|
||||
DISPLAY "Ricerca alternativa@30" RICALT
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
COPY OUTPUT F_CODCF
|
||||
HELP "Chiave di ricerca alternativa"
|
||||
END
|
||||
|
||||
LIST F_STATOPAIV 2 21
|
||||
BEGIN
|
||||
PROMPT 42 4 "Stato CEE "
|
||||
FIELD STATOPAIV
|
||||
KEY 5
|
||||
HELP "Codice ISO dello stato"
|
||||
ITEM " |Italia o extra CEE"
|
||||
ITEM "BE|Belgio"
|
||||
ITEM "DE|Germania"
|
||||
ITEM "DK|Danimarca"
|
||||
ITEM "EL|Grecia"
|
||||
ITEM "ES|Spagna"
|
||||
ITEM "FR|Francia"
|
||||
ITEM "GB|Gran Bretagna"
|
||||
ITEM "IE|Irlanda"
|
||||
ITEM "IT|Italia"
|
||||
ITEM "LU|Lussemburgo"
|
||||
ITEM "NL|Olanda"
|
||||
ITEM "PT|Portogallo"
|
||||
PROMPT 42 4 "Stato CEE "
|
||||
FIELD STATOPAIV
|
||||
KEY 5
|
||||
HELP "Codice ISO dello stato"
|
||||
ITEM " |Italia o extra CEE"
|
||||
ITEM "BE|Belgio"
|
||||
ITEM "DE|Germania"
|
||||
ITEM "DK|Danimarca"
|
||||
ITEM "EL|Grecia"
|
||||
ITEM "ES|Spagna"
|
||||
ITEM "FR|Francia"
|
||||
ITEM "GB|Gran Bretagna"
|
||||
ITEM "IE|Irlanda"
|
||||
ITEM "IT|Italia"
|
||||
ITEM "LU|Lussemburgo"
|
||||
ITEM "NL|Olanda"
|
||||
ITEM "PT|Portogallo"
|
||||
END
|
||||
|
||||
STRING F_COFI 16
|
||||
BEGIN
|
||||
PROMPT 2 5 "Codice fiscale "
|
||||
FIELD COFI
|
||||
FLAGS "U"
|
||||
KEY 4
|
||||
USE LF_CLIFO KEY 4
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT COFI F_COFI
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
COPY OUTPUT F_CODCF
|
||||
HELP "Codice fiscale del cliente/fornitore"
|
||||
VALIDATE CF_FUNC F_STATOPAIV
|
||||
PROMPT 2 5 "Codice fiscale "
|
||||
FIELD COFI
|
||||
FLAGS "U"
|
||||
KEY 4
|
||||
USE LF_CLIFO KEY 4
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT COFI F_COFI
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
COPY OUTPUT F_CODCF
|
||||
HELP "Codice fiscale del cliente/fornitore"
|
||||
VALIDATE CF_FUNC F_STATOPAIV
|
||||
END
|
||||
|
||||
STRING F_PAIV 12
|
||||
BEGIN
|
||||
PROMPT 42 5 "Partita IVA "
|
||||
FIELD PAIV
|
||||
KEY 5
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT STATOPAIV F_STATOPAIV
|
||||
INPUT PAIV F_PAIV
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
COPY OUTPUT F_CODCF
|
||||
HELP "Partita IVA del cliente/fornitore"
|
||||
VALIDATE PI_FUNC F_STATOPAIV
|
||||
PROMPT 42 5 "Partita IVA "
|
||||
FIELD PAIV
|
||||
KEY 5
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT STATOPAIV F_STATOPAIV
|
||||
INPUT PAIV F_PAIV
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
COPY OUTPUT F_CODCF
|
||||
HELP "Partita IVA del cliente/fornitore"
|
||||
VALIDATE PI_FUNC F_STATOPAIV
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 1 6 "Recapito"
|
||||
PROMPT 1 6 "Recapito"
|
||||
END
|
||||
|
||||
STRING F_INDCF 35
|
||||
BEGIN
|
||||
PROMPT 2 7 "Indirizzo "
|
||||
FIELD INDCF
|
||||
HELP "Indirizzo del recapito"
|
||||
PROMPT 2 7 "Indirizzo "
|
||||
FIELD INDCF
|
||||
HELP "Indirizzo del recapito"
|
||||
END
|
||||
|
||||
STRING F_CIVCF 10
|
||||
BEGIN
|
||||
PROMPT 60 7 "N. "
|
||||
FIELD CIVCF
|
||||
HELP "Numero civico del recapito"
|
||||
PROMPT 60 7 "N. "
|
||||
FIELD CIVCF
|
||||
HELP "Numero civico del recapito"
|
||||
END
|
||||
|
||||
NUMBER F_STATOCF 3
|
||||
@ -300,16 +299,16 @@ END
|
||||
NUMBER F_CODALLEG 6
|
||||
BEGIN
|
||||
PROMPT 32 13 "Codice allegato "
|
||||
FIELD CODALLEG
|
||||
FIELD CODALLEG
|
||||
FLAGS "R"
|
||||
COPY USE F_CODCF
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODALLEG
|
||||
COPY DISPLAY F_CODCF
|
||||
COPY DISPLAY F_CODCF
|
||||
OUTPUT F_CODALLEG CODCF
|
||||
OUTPUT F_RAGSOCALLEG RAGSOC
|
||||
HELP "Codice dell'allegato IVA in cui inserire i progressivi"
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Cliente/Fornitore assente"
|
||||
END
|
||||
|
||||
@ -376,7 +375,7 @@ END
|
||||
GROUPBOX DLG_NULL 76 7
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numeri telefonici"
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_PTEL 10
|
||||
BEGIN
|
||||
@ -618,7 +617,7 @@ PROMPT 56 4 "Codice CAB "
|
||||
FIELD CODCAB
|
||||
FLAGS "Z"
|
||||
COPY USE F_CODABI
|
||||
INPUT CODTAB[1,5] F_CODABI
|
||||
INPUT CODTAB[1,5] F_CODABI
|
||||
INPUT CODTAB[6,10] F_CODBAN
|
||||
COPY DISPLAY F_CODABI
|
||||
COPY OUTPUT F_CODABI
|
||||
@ -666,7 +665,7 @@ STRING F_CODLIN 1
|
||||
BEGIN
|
||||
PROMPT 2 7 "Lingua "
|
||||
FIELD CODLIN
|
||||
USE %LNG
|
||||
USE %LNG
|
||||
FLAGS "U"
|
||||
INPUT CODTAB F_CODLIN
|
||||
DISPLAY "Codice lingua " CODTAB
|
||||
@ -700,7 +699,7 @@ DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODPAG CODTAB
|
||||
OUTPUT F_DESPAG S0
|
||||
HELP "Codice condizione di pagamento concordata"
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ba3 -6
|
||||
END
|
||||
|
||||
@ -998,7 +997,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
NUMBER F_CODINDSP 3
|
||||
BEGIN
|
||||
PROMPT 43 11 "Codice indirizzo spedizione "
|
||||
FIELD LF_CFVEN->CODINDSP
|
||||
FIELD LF_CFVEN->CODINDSP
|
||||
GROUP 7
|
||||
SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35"
|
||||
INPUT F_CODINDSP
|
||||
@ -1307,7 +1306,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
STRING F_NSNRPROT 7
|
||||
BEGIN
|
||||
PROMPT 2 15 "Ns nr. protocollo "
|
||||
FIELD LF_CFVEN->NSNPROT
|
||||
FIELD LF_CFVEN->NSNPROT
|
||||
GROUP 7
|
||||
HELP "Nostro nr. di protocollo della lettera"
|
||||
END
|
||||
@ -1513,6 +1512,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
OUTPUT F_CATVEN CODTAB
|
||||
HELP "Codice della categoria di vendita"
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
@ -1562,7 +1562,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
STRING F_CODSP1 3
|
||||
BEGIN
|
||||
PROMPT 2 5 "Spesa 1 "
|
||||
FIELD LF_CFVEN->CODSP1
|
||||
FIELD LF_CFVEN->CODSP1
|
||||
GROUP 7
|
||||
USE %SAD
|
||||
INPUT CODTAB F_CODSP1
|
||||
@ -1576,7 +1576,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
STRING F_CODSP2 3
|
||||
BEGIN
|
||||
PROMPT 24 5 "Spesa 2 "
|
||||
FIELD LF_CFVEN->CODSP2
|
||||
FIELD LF_CFVEN->CODSP2
|
||||
GROUP 7
|
||||
COPY USE F_CODSP1
|
||||
INPUT CODTAB F_CODSP2
|
||||
@ -1589,7 +1589,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
STRING F_CODSP3 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Spesa 3 "
|
||||
FIELD LF_CFVEN->CODSP3
|
||||
FIELD LF_CFVEN->CODSP3
|
||||
GROUP 7
|
||||
COPY USE F_CODSP1
|
||||
INPUT CODTAB F_CODSP3
|
||||
@ -1602,7 +1602,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
STRING F_CODSP4 3
|
||||
BEGIN
|
||||
PROMPT 24 6 "Spesa 4 "
|
||||
FIELD LF_CFVEN->CODSP4
|
||||
FIELD LF_CFVEN->CODSP4
|
||||
GROUP 7
|
||||
COPY USE F_CODSP1
|
||||
INPUT CODTAB F_CODSP4
|
||||
@ -1615,22 +1615,39 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
STRING F_CODMAG 3
|
||||
BEGIN
|
||||
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"
|
||||
END
|
||||
|
||||
STRING F_CODLIST 5
|
||||
BEGIN
|
||||
STRING F_CODLIST 5
|
||||
BEGIN
|
||||
PROMPT 48 6 "Codice listino "
|
||||
FIELD LF_CFVEN->CODLIST
|
||||
USE %LIS
|
||||
USE LIS
|
||||
INPUT CODTAB F_CODLIST
|
||||
DISPLAY "Codice listino " CODTAB
|
||||
DISPLAY "Codice" COD
|
||||
DISPLAY "Descrizione@50" S0
|
||||
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"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
WARNING "Listino assente"
|
||||
END
|
||||
|
||||
STRING F_CODSCC 2
|
||||
BEGIN
|
||||
@ -1690,7 +1707,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
STRING F_TITOLO 2
|
||||
BEGIN
|
||||
PROMPT 2 13 "Titolo onorifico "
|
||||
FIELD LF_CFVEN->TITOLO
|
||||
FIELD LF_CFVEN->TITOLO
|
||||
GROUP 7
|
||||
USE %TIT
|
||||
INPUT CODTAB F_TITOLO
|
||||
@ -1703,7 +1720,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
LIST F_RAGGOR 1 16
|
||||
BEGIN
|
||||
PROMPT 2 15 "Raggruppamento ordine "
|
||||
FIELD LF_CFVEN->RAGGOR
|
||||
FIELD LF_CFVEN->RAGGOR
|
||||
GROUP 7
|
||||
HELP "Indicare il tipo di raggruppamento dell'ordine"
|
||||
ITEM "O|Intero ordine"
|
||||
@ -1730,7 +1747,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
NUMBER F_MINORD 15
|
||||
BEGIN
|
||||
PROMPT 40 16 "Importo minimo "
|
||||
FIELD LF_CFVEN->MINORD
|
||||
FIELD LF_CFVEN->MINORD
|
||||
GROUP 7
|
||||
PICTURE "."
|
||||
HELP "Importo minimo dell'ordine"
|
||||
@ -1739,7 +1756,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
|
||||
NUMBER F_MAXORD 15
|
||||
BEGIN
|
||||
PROMPT 40 17 "Importo massimo "
|
||||
FIELD LF_CFVEN->MAXORD
|
||||
FIELD LF_CFVEN->MAXORD
|
||||
GROUP 7
|
||||
PICTURE "."
|
||||
HELP "Importo massimo dell'ordine"
|
||||
|
||||
@ -18,6 +18,8 @@ class CG0300_application : public TRelation_application
|
||||
virtual TRelation* get_relation() const {return _rel;}
|
||||
virtual void init_query_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:
|
||||
CG0300_application() {}
|
||||
@ -27,37 +29,29 @@ void CG0300_application::init_query_mode(TMask& m)
|
||||
|
||||
{
|
||||
disable_menu_item(M_FILE_NEW);
|
||||
m.send_key(K_SHIFT + K_CTRL + 's', -1);
|
||||
m.send_key(K_SHIFT + K_CTRL + 'h', -2);
|
||||
m.show(-1);
|
||||
m.hide(-2);
|
||||
}
|
||||
|
||||
void CG0300_application::init_query_insert_mode(TMask& m)
|
||||
|
||||
{
|
||||
disable_menu_item(M_FILE_NEW);
|
||||
m.send_key(K_SHIFT + K_CTRL + 'h', -1);
|
||||
m.send_key(K_SHIFT + K_CTRL + 's', -2);
|
||||
m.hide(-1);
|
||||
m.show(-2);
|
||||
m.enable(-3);
|
||||
}
|
||||
|
||||
|
||||
HIDDEN bool key_handler (TMask_field& f, KEY k)
|
||||
void CG0300_application::init_modify_mode(TMask& m)
|
||||
|
||||
{
|
||||
if (k == K_TAB)
|
||||
{
|
||||
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;
|
||||
m.disable(-3);
|
||||
}
|
||||
|
||||
|
||||
bool CG0300_application::user_create()
|
||||
{
|
||||
_msk = new TMask("cg0300a") ;
|
||||
_msk->set_handler (F_IMMESSO, key_handler);
|
||||
_rel = new TRelation(LF_ALLEG);
|
||||
_ditte = new TLocalisamfile(LF_NDITTE);
|
||||
_attiv = new TLocalisamfile(LF_ATTIV);
|
||||
|
||||
59
cg/cg0300.h
59
cg/cg0300.h
@ -9,36 +9,43 @@
|
||||
#define N_CODCF "CODCF"
|
||||
|
||||
#define F_ANNO 101
|
||||
#define F_CODATT 102
|
||||
#define F_TIPOCF 103
|
||||
#define F_CODATT 102
|
||||
#define F_TIPOCF 103
|
||||
#define F_CODCF 104
|
||||
#define F_IMMESSO 105
|
||||
#define F_IMPESC 106
|
||||
#define F_IVAESC 107
|
||||
#define F_NIESC 108
|
||||
#define F_E8ESC 109
|
||||
#define F_IMMESSO 105
|
||||
#define F_IMPESC 106
|
||||
#define F_IVAESC 107
|
||||
#define F_NIESC 108
|
||||
#define F_E8ESC 109
|
||||
#define F_NDOCESC 110
|
||||
#define F_IMPESP 111
|
||||
#define F_IMPESP 111
|
||||
#define F_IVAESP 112
|
||||
#define F_NIESP 113
|
||||
#define F_E8ESP 114
|
||||
#define F_NDOCESP 115
|
||||
#define F_PROG101102 116
|
||||
#define F_CODDITTA 117
|
||||
#define F_RAGSOC 118
|
||||
#define F_COFI 119
|
||||
#define F_PAIV 120
|
||||
#define F_TOTALE 121
|
||||
#define F_TOTALE1 122
|
||||
#define F_TOTALE2 123
|
||||
#define F_TOTALE3 124
|
||||
#define F_TOTALE4 125
|
||||
#define F_TOTALE5 126
|
||||
#define F_TOTALE6 127
|
||||
#define F_PROMPT 128
|
||||
#define F_RAGSOC_D 129
|
||||
#define F_DENATT 130
|
||||
#define F_CODATTH 131
|
||||
#define F_CODCFH 132
|
||||
#define F_NDOCESP 115
|
||||
#define F_PROG101102 116
|
||||
#define F_CODDITTA 117
|
||||
#define F_RAGSOC 118
|
||||
#define F_COFI 119
|
||||
#define F_PAIV 120
|
||||
#define F_TOTALE 121
|
||||
#define F_TOTALE1 122
|
||||
#define F_TOTALE2 123
|
||||
#define F_TOTALE3 124
|
||||
#define F_TOTALE4 125
|
||||
#define F_TOTALE5 126
|
||||
#define F_TOTALE6 127
|
||||
#define F_PROMPT 128
|
||||
#define F_RAGSOC_D 129
|
||||
#define F_DENATT 130
|
||||
#define F_CODATTH 131
|
||||
#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
|
||||
|
||||
120
cg/cg0300a.uml
120
cg/cg0300a.uml
@ -41,6 +41,7 @@ BEGIN
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_IMMESSO IMMESSO
|
||||
WARNING "Registrazione assente"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
@ -48,6 +49,8 @@ BEGIN
|
||||
PROMPT 2 2 "Ditta "
|
||||
HELP "Ditta di cui si vogliono visualizzare i saldi"
|
||||
FLAGS "RPDG"
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
@ -69,11 +72,11 @@ BEGIN
|
||||
FIELD LF_ALLEG->CODATT
|
||||
FLAGS "PRZ"
|
||||
KEY 1
|
||||
COPY ALL F_ANNO
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Registrazione assente"
|
||||
MESSAGE COPY,F_CODATTH
|
||||
GROUP 1
|
||||
MESSAGE COPY,F_CODATTH
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_CODATTH 5
|
||||
@ -94,10 +97,10 @@ BEGIN
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_DENATT LF_ATTIV->DESCR
|
||||
HELP "Inserire il codice dell'attivita'"
|
||||
MESSAGE COPY,F_CODATTH
|
||||
MESSAGE COPY,F_CODATTH
|
||||
MESSAGE COPY,3@
|
||||
WARNING "Attivita' assente"
|
||||
GROUP 2
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_DENATT 50
|
||||
@ -113,17 +116,11 @@ BEGIN
|
||||
KEY 1
|
||||
HELP "Indicare se cliente, fornitore oppure bolletta doganale"
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE "Op. non imp. ed esenti ",99
|
||||
MESSAGE "Operazioni non imponibili (mod 101) ",F_PROMPT
|
||||
MESSAGE ENABLE,F_CODCF|HIDE,6@
|
||||
MESSAGE SHOW,F_T1|HIDE,F_T2|HIDE,F_T3|SHOW,F_T5|HIDE,F_T6
|
||||
ITEM "F|Fornitori"
|
||||
MESSAGE "Op. senza appl. d'imp. ",99
|
||||
MESSAGE "Operazioni non imponibili (mod 102) ",F_PROMPT
|
||||
MESSAGE ENABLE,F_CODCF|SHOW,6@
|
||||
MESSAGE HIDE,F_T1|SHOW,F_T2|HIDE,F_T3|HIDE,F_T5|SHOW,F_T6|ENABLE,F_CODCF|SHOW,6@
|
||||
ITEM "B|Boll.doganali"
|
||||
MESSAGE "Operazioni senza appl. d'imposta ",99
|
||||
MESSAGE "Operazioni non imponibili (mod 102) ",F_PROMPT
|
||||
MESSAGE DISABLE,F_CODCF|SHOW,6@
|
||||
MESSAGE HIDE,F_T1|HIDE,F_T2|SHOW,F_T3|HIDE,F_T5|SHOW,F_T6|DISABLE,F_CODCF|SHOW,6@
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
@ -132,12 +129,13 @@ BEGIN
|
||||
FIELD LF_ALLEG->CODCF
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
COPY ALL F_ANNO
|
||||
COPY ALL F_ANNO
|
||||
HELP "Codice relativo al cliente o fornitore"
|
||||
ADD RUN cg0 -1
|
||||
WARNING "Registrazione assente"
|
||||
GROUP 1
|
||||
MESSAGE COPY,F_CODCFH
|
||||
WARNING "Registrazione assente"
|
||||
GROUP 1
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,F_CODCFH
|
||||
END
|
||||
|
||||
NUMBER F_CODCFH 6
|
||||
@ -159,9 +157,10 @@ BEGIN
|
||||
OUTPUT F_PAIV PAIV
|
||||
HELP "Codice relativo al cliente o fornitore"
|
||||
ADD RUN cg0 -1
|
||||
WARNING "Cliente assente"
|
||||
GROUP 2
|
||||
MESSAGE COPY,F_CODCF
|
||||
WARNING "Cliente assente"
|
||||
GROUP 2
|
||||
MESSAGE COPY,F_CODCF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN F_IMMESSO
|
||||
@ -176,22 +175,23 @@ STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Rag.sociale "
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
KEY 2
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CODCFH
|
||||
COPY OUTPUT F_CODCFH
|
||||
HELP "Ragione sociale del cliente o fornitore"
|
||||
WARNING "Ragione sociale assente"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING F_COFI 16
|
||||
BEGIN
|
||||
PROMPT 2 6 "Cod.fiscale "
|
||||
KEY 1
|
||||
KEY 3
|
||||
USE LF_CLIFO KEY 4
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT COFI F_COFI
|
||||
@ -199,16 +199,17 @@ BEGIN
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
COPY OUTPUT F_CODCFH
|
||||
COPY OUTPUT F_CODCFH
|
||||
HELP "Codice fiscale del cliente o fornitore"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Codice fiscale assente"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING F_PAIV 12
|
||||
BEGIN
|
||||
PROMPT 36 6 "Partita IVA "
|
||||
KEY 1
|
||||
KEY 4
|
||||
USE LF_CLIFO KEY 5
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT PAIV F_PAIV
|
||||
@ -217,10 +218,11 @@ BEGIN
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale " COFI
|
||||
COPY OUTPUT F_CODCFH
|
||||
COPY OUTPUT F_CODCFH
|
||||
HELP "Partita IVA del cliente o fornitore"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Partita IVA assente"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
@ -250,7 +252,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->IMPESC
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5
|
||||
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5
|
||||
END
|
||||
|
||||
NUMBER F_IMPESP 15
|
||||
@ -260,7 +262,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->IMPESP
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6
|
||||
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6
|
||||
END
|
||||
|
||||
NUMBER F_TOTALE1 15
|
||||
@ -268,7 +270,7 @@ BEGIN
|
||||
PROMPT 60 9 ""
|
||||
FLAGS "RD"
|
||||
PICTURE "."
|
||||
NUM_CALC {#F_IMPESP+#F_IMPESC}
|
||||
NUM_CALC {#F_IMPESP+#F_IMPESC}
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
@ -283,7 +285,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->IVAESC
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5
|
||||
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5
|
||||
END
|
||||
|
||||
NUMBER F_IVAESP 15
|
||||
@ -293,7 +295,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->IVAESP
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6
|
||||
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6
|
||||
END
|
||||
|
||||
NUMBER F_TOTALE2 15
|
||||
@ -301,12 +303,25 @@ BEGIN
|
||||
PROMPT 60 10 ""
|
||||
FLAGS "RD"
|
||||
PICTURE "."
|
||||
NUM_CALC {#F_IVAESP+#F_IVAESC}
|
||||
NUM_CALC {#F_IVAESP+#F_IVAESC}
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
TEXT F_T1
|
||||
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
|
||||
|
||||
NUMBER F_NIESC 15
|
||||
@ -316,7 +331,7 @@ BEGIN
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
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
|
||||
|
||||
NUMBER F_NIESP 15
|
||||
@ -326,7 +341,7 @@ BEGIN
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
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
|
||||
|
||||
NUMBER F_TOTALE3 15
|
||||
@ -334,10 +349,10 @@ BEGIN
|
||||
PROMPT 60 11 ""
|
||||
FLAGS "RD"
|
||||
PICTURE "."
|
||||
NUM_CALC {#F_NIESP+#F_NIESC}
|
||||
NUM_CALC {#F_NIESP+#F_NIESC}
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
TEXT F_T4
|
||||
BEGIN
|
||||
PROMPT 2 12 "Op. non imp.(Art.8 2^c)"
|
||||
GROUP 6
|
||||
@ -351,7 +366,7 @@ BEGIN
|
||||
GROUP 6
|
||||
PICTURE "."
|
||||
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
|
||||
|
||||
NUMBER F_E8ESP 15
|
||||
@ -362,7 +377,7 @@ BEGIN
|
||||
GROUP 6
|
||||
PICTURE "."
|
||||
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
|
||||
|
||||
NUMBER F_TOTALE4 15
|
||||
@ -371,7 +386,7 @@ BEGIN
|
||||
FLAGS "RD"
|
||||
GROUP 6
|
||||
PICTURE "."
|
||||
NUM_CALC {#F_E8ESP+#F_E8ESC}
|
||||
NUM_CALC {#F_E8ESP+#F_E8ESC}
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
@ -384,7 +399,7 @@ BEGIN
|
||||
PROMPT 25 13 ""
|
||||
FLAGS "RD"
|
||||
PICTURE "."
|
||||
NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC}
|
||||
NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC}
|
||||
END
|
||||
|
||||
NUMBER F_TOTALE6 15
|
||||
@ -392,10 +407,10 @@ BEGIN
|
||||
PROMPT 42 13 ""
|
||||
FLAGS "RD"
|
||||
PICTURE "."
|
||||
NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP}
|
||||
NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP}
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
TEXT F_T7
|
||||
BEGIN
|
||||
PROMPT 2 15 "Numero fatture "
|
||||
GROUP 6
|
||||
@ -408,7 +423,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->NDOCESC
|
||||
FLAGS "R"
|
||||
GROUP 6
|
||||
MESSAGE K_TAB,F_TOTALE
|
||||
MESSAGE K_TAB,F_TOTALE
|
||||
END
|
||||
|
||||
NUMBER F_NDOCESP 4
|
||||
@ -418,7 +433,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->NDOCESP
|
||||
FLAGS "R"
|
||||
GROUP 6
|
||||
MESSAGE K_TAB,F_TOTALE
|
||||
MESSAGE K_TAB,F_TOTALE
|
||||
END
|
||||
|
||||
NUMBER F_TOTALE 5
|
||||
@ -426,12 +441,19 @@ BEGIN
|
||||
PROMPT 60 15 ""
|
||||
FLAGS "RD"
|
||||
GROUP 6
|
||||
NUM_CALC {#F_NDOCESP+#F_NDOCESC}
|
||||
NUM_CALC {#F_NDOCESP+#F_NDOCESC}
|
||||
END
|
||||
|
||||
TEXT F_PROMPT
|
||||
TEXT F_T5
|
||||
BEGIN
|
||||
PROMPT 2 17 "Operazioni non imponibili (mod 101) "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
TEXT F_T6
|
||||
BEGIN
|
||||
PROMPT 2 17 "Operazioni non imponibili (mod 102) "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_PROG101102 15
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#include "cg0400.h"
|
||||
|
||||
PAGE "Riepilogo progressivi IVA" -1 -1 78 19
|
||||
PAGE "Riepilogo progressivi IVA" -1 -1 80 19
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
#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
|
||||
BEGIN
|
||||
@ -16,7 +16,7 @@ BEGIN
|
||||
DISPLAY "Ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
@ -46,13 +46,13 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LISTBOX F_MESE 9
|
||||
LISTBOX F_MESE 11
|
||||
BEGIN
|
||||
PROMPT 2 7 "Mese riepilogo "
|
||||
FLAGS "AM"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa progressivi da inizio anno "
|
||||
END
|
||||
@ -60,18 +60,18 @@ END
|
||||
/*
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
END
|
||||
*/
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -79,8 +79,8 @@ protected:
|
||||
void init_mask(TMask&);
|
||||
virtual void on_config_change();
|
||||
virtual void init_query_mode(TMask&);
|
||||
virtual void init_insert_mode(TMask&);
|
||||
virtual void init_modify_mode(TMask&);
|
||||
virtual void init_insert_mode(TMask& m) { init_query_mode(m); }
|
||||
virtual void init_modify_mode(TMask& m) { init_query_mode(m); }
|
||||
virtual int rewrite(const TMask& m);
|
||||
virtual int write(const 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++)
|
||||
set_descr(i, "");
|
||||
if (_last_descr != _tipo_des)
|
||||
{
|
||||
ss().force_update();
|
||||
{
|
||||
if (curr_mask().is_running())
|
||||
ss().force_update();
|
||||
_last_descr = _tipo_des;
|
||||
}
|
||||
}
|
||||
@ -378,30 +379,6 @@ bool TCaus_app::tipomov_hndl (TMask_field& f, KEY k)
|
||||
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()
|
||||
{
|
||||
TMask& m = curr_mask();
|
||||
@ -812,21 +789,9 @@ void TCaus_app::init_mask(TMask& m)
|
||||
|
||||
void TCaus_app::init_query_mode(TMask& m)
|
||||
{
|
||||
ss().reset();
|
||||
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()
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA);
|
||||
@ -857,7 +822,6 @@ void TCaus_app::on_config_change()
|
||||
bool TCaus_app::user_create()
|
||||
{
|
||||
_rel = new TRelation (LF_CAUSALI);
|
||||
// _rel->add(LF_RCAUSALI, "CODCAUS=CODCAUS");
|
||||
_rcaus = new TLocalisamfile(LF_RCAUSALI);
|
||||
|
||||
_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_COD_REG, cod_reg_hndl);
|
||||
_msk->set_handler(F_M_770, m770_hndl);
|
||||
// _msk->set_handler(F_COD_CAUS_IM, codcausim_hndl);
|
||||
|
||||
TSheet_field& cs = ss();
|
||||
cs.set_notify(ss_notify);
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user