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

Correzione errore MI2274.(???) La maledetta visualizzazione saldi

Browse Source 
ha oramai le ore contate: presto subira' una rifondazione nel
fuoco.


git-svn-id: svn://10.65.10.50/trunk@4116 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-02-06 15:47:43 +00:00
parent 77507a7d0e
commit 72565bbcbe
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cg/cg5200.cpp
View File

@ -282,7 +282,7 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
pconti.put(PCN_SOTTOCONTO, sottoconto); pconti.put(PCN_SOTTOCONTO, sottoconto);
ok = stop = pconti.read() == NOERR; ok = stop = pconti.read() == NOERR;
} }
else ok = FALSE; //else ok = FALSE;
} }
else else
{ {
@ -355,6 +355,7 @@ bool TSaldibrowse_application::user_destroy()
int TSaldibrowse_application::read(TMask& m) int TSaldibrowse_application::read(TMask& m)
{ {
int err = NOERR;
m.autoload(*_rel); m.autoload(*_rel);
m.set(F_ANNO,_anno); m.set(F_ANNO,_anno);
m.set(F_SCARICATO,_scarongly ? "X" : " "); m.set(F_SCARICATO,_scarongly ? "X" : " ");
@ -364,9 +365,15 @@ int TSaldibrowse_application::read(TMask& m)
//else if (tipo == "F") //else if (tipo == "F")
// m.set(F_SOTTOC_FORN,_s); // m.set(F_SOTTOC_FORN,_s);
fai_filtro(); fai_filtro();
if (_cur->items() > 0)
compilasheet(); compilasheet();
else
{
err = _iskeynotfound;
error_box("Saldi non presenti per il conto specificato.");
}
return NOERR; return err;
} }
void TSaldibrowse_application::add_r(int numrig,int a,real& slf,char sff,real& sc,char f,real& si, void TSaldibrowse_application::add_r(int numrig,int a,real& slf,char sff,real& sc,char f,real& si,

10
cg/cg5200a.uml
View File

@ -56,9 +56,10 @@ BEGIN
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESCR_CONTO DESCR // OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE CHECK_FIELD F_GRUPPO VALIDATE CHECK_FIELD F_GRUPPO
MESSAGE CHECK,F_SOTTOCONTO
WARNING "Gruppo inesistente" WARNING "Gruppo inesistente"
END END
@ -80,9 +81,10 @@ BEGIN
OUTPUT F_TIPOCF TMCF OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPO GRUPPO OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_DESCR_CONTO DESCR // OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE CHECK_FIELD F_CONTO VALIDATE CHECK_FIELD F_CONTO
MESSAGE CHECK,F_SOTTOCONTO
WARNING "Conto inesistente" WARNING "Conto inesistente"
END END
@ -106,7 +108,7 @@ BEGIN
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCR_CONTO DESCR OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE NORMAL // CHECKTYPE NORMAL
VALIDATE CHECK_FIELD F_SOTTOCONTO VALIDATE CHECK_FIELD F_SOTTOCONTO
WARNING "Sottoconto inesistente" WARNING "Sottoconto inesistente"
GROUP 1 GROUP 1
@ -159,6 +161,7 @@ BEGIN
PROMPT 4 4 "Descrizione conto " PROMPT 4 4 "Descrizione conto "
HELP "Descrizione del conto da visualizzare" HELP "Descrizione del conto da visualizzare"
FIELD DESCR FIELD DESCR
KEY 2
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR F_DESCR_CONTO INPUT DESCR F_DESCR_CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -170,7 +173,6 @@ BEGIN
OUTPUT F_CONTO CONTO OUTPUT F_CONTO CONTO
OUTPUT F_DESCR_CONTO DESCR OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 2
GROUP 1 GROUP 1
END END