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

15
cg/cg5200.cpp
View File

@ -282,7 +282,7 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key)
pconti.put(PCN_SOTTOCONTO, sottoconto);
ok = stop = pconti.read() == NOERR;
}
else ok = FALSE;
//else ok = FALSE;
}
else
{
@ -355,6 +355,7 @@ bool TSaldibrowse_application::user_destroy()
int TSaldibrowse_application::read(TMask& m)
{
int err = NOERR;
m.autoload(*_rel);
m.set(F_ANNO,_anno);
m.set(F_SCARICATO,_scarongly ? "X" : " ");
@ -364,9 +365,15 @@ int TSaldibrowse_application::read(TMask& m)
//else if (tipo == "F")
// m.set(F_SOTTOC_FORN,_s);
fai_filtro();
compilasheet();
return NOERR;
if (_cur->items() > 0)
compilasheet();
else
{
err = _iskeynotfound;
error_box("Saldi non presenti per il conto specificato.");
}
return err;
}
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 "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESCR_CONTO DESCR
// OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE REQUIRED
VALIDATE CHECK_FIELD F_GRUPPO
MESSAGE CHECK,F_SOTTOCONTO
WARNING "Gruppo inesistente"
END
@ -80,9 +81,10 @@ BEGIN
OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_DESCR_CONTO DESCR
// OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE NORMAL
VALIDATE CHECK_FIELD F_CONTO
MESSAGE CHECK,F_SOTTOCONTO
WARNING "Conto inesistente"
END
@ -106,7 +108,7 @@ BEGIN
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE NORMAL
// CHECKTYPE NORMAL
VALIDATE CHECK_FIELD F_SOTTOCONTO
WARNING "Sottoconto inesistente"
GROUP 1
@ -159,6 +161,7 @@ BEGIN
PROMPT 4 4 "Descrizione conto "
HELP "Descrizione del conto da visualizzare"
FIELD DESCR
KEY 2
USE LF_PCON KEY 2
INPUT DESCR F_DESCR_CONTO
DISPLAY "Descrizione@50" DESCR
@ -170,7 +173,6 @@ BEGIN
OUTPUT F_CONTO CONTO
OUTPUT F_DESCR_CONTO DESCR
CHECKTYPE REQUIRED
KEY 2
GROUP 1
END