Corretta la visualizzazione saldi:
corretto il caricamento del record, l'update multiplo dello sheet e la maschera di visualizzazione del rigo. git-svn-id: svn://10.65.10.50/trunk@3088 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
55a413543f
commit
c3fc22741e
@ -109,7 +109,6 @@ class TSaldibrowse_application : public TBrowse_application
|
||||
{
|
||||
|
||||
TMask* _msk;
|
||||
TLocalisamfile* _clifo;
|
||||
TCursor * _cur;
|
||||
TRelation * _rel,* _rel1;
|
||||
TRiga_array _riga;
|
||||
@ -150,11 +149,57 @@ bool TSaldibrowse_application::sheet_action(TSheet_field& s, int r, KEY k)
|
||||
void TSaldibrowse_application::init_query_mode(TMask& m)
|
||||
{
|
||||
m.disable(DLG_FINDREC);
|
||||
TString t(m.get(F_TIPOCF));
|
||||
if (t == "C")
|
||||
{
|
||||
m.show(F_DESCR_CLIENTE);
|
||||
m.enable(F_DESCR_CLIENTE);
|
||||
m.hide(F_DESCR_FORN);
|
||||
m.hide(F_DESCR_CONTO);
|
||||
}
|
||||
else
|
||||
if (t == "F")
|
||||
{
|
||||
m.hide(F_DESCR_CLIENTE);
|
||||
m.show(F_DESCR_FORN);
|
||||
m.enable(F_DESCR_FORN);
|
||||
m.hide(F_DESCR_CONTO);
|
||||
}
|
||||
else
|
||||
{
|
||||
m.hide(F_DESCR_CLIENTE);
|
||||
m.hide(F_DESCR_FORN);
|
||||
m.show(F_DESCR_CONTO);
|
||||
m.enable(F_DESCR_CONTO);
|
||||
}
|
||||
}
|
||||
|
||||
void TSaldibrowse_application::init_modify_mode(TMask& m)
|
||||
{
|
||||
TString t(m.get(F_TIPOCF));
|
||||
m.disable(DLG_FINDREC);
|
||||
if (t == "C")
|
||||
{
|
||||
m.show(F_DESCR_CLIENTE);
|
||||
m.disable(F_DESCR_CLIENTE);
|
||||
m.hide(F_DESCR_FORN);
|
||||
m.hide(F_DESCR_CONTO);
|
||||
}
|
||||
else
|
||||
if (t == "F")
|
||||
{
|
||||
m.hide(F_DESCR_CLIENTE);
|
||||
m.show(F_DESCR_FORN);
|
||||
m.disable(F_DESCR_FORN);
|
||||
m.hide(F_DESCR_CONTO);
|
||||
}
|
||||
else
|
||||
{
|
||||
m.hide(F_DESCR_CLIENTE);
|
||||
m.hide(F_DESCR_FORN);
|
||||
m.show(F_DESCR_CONTO);
|
||||
m.disable(F_DESCR_CONTO);
|
||||
}
|
||||
}
|
||||
|
||||
bool TSaldibrowse_application::fai_filtro()
|
||||
@ -236,9 +281,9 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
|
||||
int gruppo = m.get_int(F_GRUPPO);
|
||||
int conto = m.get_int(F_CONTO);
|
||||
const long sottoconto = atol(f.get());
|
||||
TLocalisamfile pconti(LF_PCON);
|
||||
|
||||
const short id = f.dlg();
|
||||
TLocalisamfile& pconti = app().get_relation()->lfile();
|
||||
|
||||
if (sottoconto != 0)
|
||||
{
|
||||
@ -283,12 +328,8 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
|
||||
else
|
||||
m.reset(F_DESCR_CONTO);
|
||||
}
|
||||
if (stop)
|
||||
{
|
||||
f.set_focusdirty(FALSE);
|
||||
return m.stop_run(K_AUTO_ENTER);
|
||||
}
|
||||
if (!ok) error_box("Conto errato o incompleto");
|
||||
if (!ok)
|
||||
f.error_box("Conto errato o incompleto");
|
||||
}
|
||||
|
||||
return ok;
|
||||
@ -296,8 +337,7 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
|
||||
|
||||
bool TSaldibrowse_application::user_create()
|
||||
{
|
||||
_clifo = new TLocalisamfile(LF_CLIFO);
|
||||
_rel = new TRelation(LF_PCON);
|
||||
_rel = new TRelation(LF_SALDI);
|
||||
_rel1 = new TRelation(LF_SALDI);
|
||||
_cur = new TCursor(_rel1, "", 2);
|
||||
|
||||
@ -316,7 +356,6 @@ bool TSaldibrowse_application::user_create()
|
||||
bool TSaldibrowse_application::user_destroy()
|
||||
{
|
||||
delete _msk;
|
||||
delete _clifo;
|
||||
delete _rel;
|
||||
delete _rel1;
|
||||
delete _cur;
|
||||
@ -329,7 +368,6 @@ int TSaldibrowse_application::read(TMask& m)
|
||||
m.autoload(*_rel);
|
||||
fai_filtro();
|
||||
compilasheet();
|
||||
ss().force_update();
|
||||
|
||||
return NOERR;
|
||||
}
|
||||
|
||||
@ -13,21 +13,23 @@ BEGIN
|
||||
PROMPT 4 1 "Cod. esercizio "
|
||||
HELP "Codice esercizio a cui si riferiscono i saldi"
|
||||
WARNING "Codice esercizio inesistente"
|
||||
FIELD LF_SALDI->ANNOES
|
||||
KEY 1
|
||||
USE ESC
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
DISPLAY "Codice" CODTAB[1,4]
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
VALIDATE CHECK_FIELD F_ANNO
|
||||
CHECKTYPE FORCED
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
BOOLEAN F_SCARICATO
|
||||
BEGIN
|
||||
PROMPT 40 1 "Solo saldi dei movimenti scaricati"
|
||||
PROMPT 40 1 "Solo saldi dei movimenti scaricati"
|
||||
KEY 1
|
||||
FIELD LF_SALDI->FLSCA
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 73 4
|
||||
@ -43,7 +45,7 @@ BEGIN
|
||||
ITEM " |Conto" MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
|
||||
ITEM "C|Cliente" MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
|
||||
ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
|
||||
KEY 1
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 3
|
||||
@ -52,7 +54,7 @@ BEGIN
|
||||
HELP "Codice del conto da visualizzare"
|
||||
WARNING "Gruppo inesistente"
|
||||
USE LF_PCON KEY 1 SELECT CONTO=""
|
||||
FIELD LF_PCON->GRUPPO
|
||||
FIELD LF_SALDI->GRUPPO
|
||||
KEY 1
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
@ -70,7 +72,7 @@ BEGIN
|
||||
HELP "Codice del conto da visualizzare"
|
||||
WARNING "Conto inesistente"
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||
FIELD LF_PCON->CONTO
|
||||
FIELD LF_SALDI->CONTO
|
||||
KEY 1
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
@ -94,7 +96,7 @@ BEGIN
|
||||
HELP "Codice del conto da visualizzare"
|
||||
WARNING "Sottoconto inesistente"
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
FIELD LF_PCON->SOTTOCONTO
|
||||
FIELD LF_SALDI->SOTTOCONTO
|
||||
KEY 1
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
@ -119,6 +121,7 @@ BEGIN
|
||||
PROMPT 54 3 "Cliente "
|
||||
HELP "Codice del conto da visualizzare"
|
||||
WARNING "Cliente inesistente"
|
||||
FIELD LF_SALDI->SOTTOCONTO
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_SOTTOC_CLIENTE
|
||||
@ -141,6 +144,7 @@ BEGIN
|
||||
PROMPT 54 3 "Fornitore "
|
||||
HELP "Codice del conto da visualizzare"
|
||||
WARNING "Fornitore inesistente"
|
||||
FIELD LF_SALDI->SOTTOCONTO
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_SOTTOC_FORN
|
||||
@ -161,7 +165,6 @@ END
|
||||
STRING F_DESCR_CONTO 50
|
||||
BEGIN
|
||||
PROMPT 4 4 "Descrizione "
|
||||
FIELD DESCR
|
||||
HELP "Descrizione del conto da visualizzare"
|
||||
USE LF_PCON KEY 2
|
||||
INPUT DESCR F_DESCR_CONTO
|
||||
@ -170,8 +173,8 @@ BEGIN
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_SOTTOCONTO
|
||||
KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 2
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -186,9 +189,9 @@ BEGIN
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_SOTTOC_CLIENTE
|
||||
KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
COPY OUTPUT F_SOTTOC_CLIENTE
|
||||
KEY 3
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
@ -204,8 +207,8 @@ BEGIN
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_SOTTOC_FORN
|
||||
KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
KEY 4
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
@ -273,7 +276,7 @@ END
|
||||
|
||||
NUMBER 105 15
|
||||
BEGIN
|
||||
PROMPT 45 4 "Avere "
|
||||
PROMPT 47 4 "Avere "
|
||||
HELP "Progressivo avere attuale del conto da visualizzare"
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -305,7 +308,7 @@ END
|
||||
|
||||
NUMBER 109 15
|
||||
BEGIN
|
||||
PROMPT 45 6 "Avere "
|
||||
PROMPT 47 6 "Avere "
|
||||
HELP "Progressivi avere attuali dei movimenti eliminati"
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -366,7 +369,7 @@ END
|
||||
|
||||
NUMBER 115 15
|
||||
BEGIN
|
||||
PROMPT 45 10 "Avere "
|
||||
PROMPT 47 10 "Avere "
|
||||
HELP "Progressivi avere attuali dei movimenti provvisori del conto"
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -389,7 +392,7 @@ END
|
||||
|
||||
NUMBER 118 15
|
||||
BEGIN
|
||||
PROMPT 1 6 "Progr.Mov.Eliminati: Dare "
|
||||
PROMPT 1 12 "Progr.Mov.Eliminati: Dare "
|
||||
HELP "Progressivi dare attuali dei movimenti eliminati"
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -397,7 +400,7 @@ END
|
||||
|
||||
NUMBER 119 15
|
||||
BEGIN
|
||||
PROMPT 45 6 "Avere "
|
||||
PROMPT 47 12 "Avere "
|
||||
HELP "Progressivi avere attuali dei movimenti eliminati"
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user