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

Patch level : 10.0

Browse Source 
Files correlati     : cg3.exe cg3500a.msk
Ricompilazione Demo : [ ]
Commento            :
0001142: maschera old
la maschera di richiesta parametri dei stampa riepiloghi è ancora modello 3.2


git-svn-id: svn://10.65.10.50/trunk@18187 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-02-03 11:14:02 +00:00
parent a6768fda51
commit 4dec30617b
2 changed files with 28 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
cg/cg3500.cpp
View File

@ -41,7 +41,6 @@ typedef enum {stampagruppo, stampaconto, stampasottoconto, fine} tipo;
class TStampa_riepilogo : public TPrintapp
{
TProgind * _prog;
TSaldi_list* _lista;
TIsamtempfile * _tmp_saldi;
tipo _tp;
@ -55,10 +54,9 @@ class TStampa_riepilogo : public TPrintapp
public:
bool menu (MENU_TAG m) { return TPrintapp::menu(m) ; }
bool user_create() ;
bool user_destroy();
bool set_print(int);
virtual bool user_create() ;
virtual bool user_destroy();
virtual bool set_print(int);
virtual bool preprocess_print(int,int);
virtual void preprocess_header();
@ -100,11 +98,17 @@ bool TStampa_riepilogo::riepilogo()
cp=-1;
_udata_max = 0l;
TLocalisamfile pcn(LF_PCON);
TRelation rel(LF_PCON);
TCursor cur(&rel);
cur.freeze();
const TRectype& pcn = rel.curr();
const TRecnotype items = cur.items();
TProgind prog(items, TR("Elaborazione in corso..."), true, true);
for (pcn.first(); !pcn.eof(); pcn.next())
for (cur = 0L; cur.pos() < items; ++cur)
{
_prog->addstatus(1);
if (!prog.addstatus(1))
break;
g = pcn.get_int (PCN_GRUPPO);
c = pcn.get_int (PCN_CONTO);
s = pcn.get_long(PCN_SOTTOCONTO);
@ -182,9 +186,7 @@ bool TStampa_riepilogo::riepilogo()
gp = conto.gruppo();
cp = conto.conto();
}
TRecnotype recnum = pcn.recno();
pcn.next();
if (pcn.eof())
if (cur.pos() == items-1)
{
saldo_conto = prg_conto_dare - prg_conto_avere;
prg_gruppo_dare += prg_conto_dare;
@ -236,7 +238,6 @@ bool TStampa_riepilogo::riepilogo()
_tmp_saldi->write();
}
}
pcn.readat(recnum);
continue;
}
@ -298,9 +299,7 @@ bool TStampa_riepilogo::riepilogo()
cp = conto.conto();
}
TRecnotype recnum = pcn.recno();
pcn.next();
if (pcn.eof())
if (cur.pos() == items-1)
{
saldo_conto = prg_conto_dare - prg_conto_avere;
prg_gruppo_dare += prg_conto_dare;
@ -344,15 +343,15 @@ bool TStampa_riepilogo::riepilogo()
//_tmp_saldi->put(SLD_PDARESCA,saldo_gruppo);
else
{
saldo_gruppo = saldo_gruppo * (-1.00);
saldo_gruppo = -saldo_gruppo;
_tmp_saldi->put(SLD_PAVEREPRO,saldo_gruppo); // W96SALDI del 10-06-96
//_tmp_saldi->put(SLD_PAVERESCA,saldo_gruppo);
}
_tmp_saldi->write();
}
}
pcn.readat(recnum);
}
return TRUE;
}
@ -372,7 +371,6 @@ bool TStampa_riepilogo::ricerca_cf(TConto& conto,int indbil,real& prg_conto_dare
prg_conto_avere = 0.00;
for (int i = 0; i < items; i++)
{
_prog->addstatus(1);
const TRectype* r = _lista->saldi();
s = r->get_long(SLD_SOTTOCONTO);
prg_dare = 0.00;
@ -831,13 +829,8 @@ bool TStampa_riepilogo::set_print(int)
_scelta = m.get_int(F_STAMPA);
_richiesta = m.get_int(F_RICHIESTA);
_data = m.get(F_DATASTAMPA);
TLocalisamfile pcn(LF_PCON);
_prog = new TProgind(pcn.items(), TR("Elaborazione in corso..."), FALSE);
riepilogo();
delete _prog;
return TRUE;
}
return FALSE;

20
cg/cg3500a.uml
View File

@ -6,7 +6,7 @@ NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
USE LF_NDITTE
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
@ -30,7 +30,7 @@ END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Cod. esercizio "
PROMPT 2 3 "Esercizio "
HELP "Codice esercizio di cui effettuare la stampa"
FLAGS "RZ"
USE ESC
@ -44,7 +44,7 @@ BEGIN
ADD RUN cg0 -5 esc
END
RADIOBUTTON F_STAMPA 30
RADIOBUTTON F_STAMPA 1 30
BEGIN
PROMPT 2 5 "Scelta stampa "
HELP "Indicare il grado di riepilogo"
@ -52,7 +52,7 @@ BEGIN
ITEM "2|Stampa riepilogo gruppi"
END
RADIOBUTTON F_RICHIESTA 44
RADIOBUTTON F_RICHIESTA 1 44
BEGIN
PROMPT 2 9 "Richiesta stampa "
HELP "Indicare il tipo di movimenti da stampare"
@ -60,16 +60,10 @@ BEGIN
ITEM "2|Stampa progressivi movimenti eliminati"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE
ENDMASK