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

cg3200.cpp Corretti MI3559, MI3560 sul calcolo progressivi

Browse Source 
Il MI3561 e' corretto in printer.cpp
cg3200a.uml Corretto MI3555 sulle ricerche su LF_PICONE


git-svn-id: svn://10.65.10.50/trunk@5594 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1997-11-11 11:42:40 +00:00
parent d3bc8d6fc8
commit b25c836ed6
2 changed files with 34 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
cg/cg3200.cpp
View File

@ -66,7 +66,7 @@ class TMastrini_application : public TPrintapp
int _gruppocontr,_contocontr,_nummast,_pagina; int _gruppocontr,_contocontr,_nummast,_pagina;
long _sottocontocontr; long _sottocontocontr;
bool _stampaprogre,_stampatotiva,_stampatot,_prima_volta,_stampa_mov_prov; bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov;
bool _stampato,_devi_stampare_footer; bool _stampato,_devi_stampare_footer;
int _annomsk,_annoesmsk,_annoes,_annomsksucc,_tipo_mask,_anno_ghost; int _annomsk,_annoesmsk,_annoes,_annomsksucc,_tipo_mask,_anno_ghost;
@ -76,6 +76,8 @@ class TMastrini_application : public TPrintapp
bool _cambia_mastrino,_gia_stampata_intestazione; bool _cambia_mastrino,_gia_stampata_intestazione;
char _tmcf,_tipo_contr; char _tmcf,_tipo_contr;
bool _flag_del_cazzo;
TDate _dataregrmov; TDate _dataregrmov;
int _gruppof,_contof; int _gruppof,_contof;
long _sottocf; long _sottocf;
@ -232,7 +234,7 @@ bool TMastrini_application::sottoc_handler_ini(TMask_field& f, KEY key)
return f.warning_box("Manca il GRUPPO"); return f.warning_box("Manca il GRUPPO");
} }
if (key == K_F2 /* key == K_TAB */ && f.mask().is_running()) if (key == K_TAB && f.mask().is_running())
{ {
TString ds; TString ds;
if (id == F_SOTTOCINI_CONTO && (gruppo != 0 || conto != 0 || sottoconto != 0L)) if (id == F_SOTTOCINI_CONTO && (gruppo != 0 || conto != 0 || sottoconto != 0L))
@ -420,7 +422,7 @@ bool TMastrini_application::contoi_hnd (TMask_field& f, KEY k)
const int gruppo = m.get_int(F_GRUPPOINI); const int gruppo = m.get_int(F_GRUPPOINI);
const int conto = m.get_int(id); const int conto = m.get_int(id);
if (gruppo != 0 && conto != 0) if (gruppo != 0 && conto != 0 && m.field(F_DESCRINI_CONTO).empty())
{ {
bool warning; bool warning;
@ -506,7 +508,7 @@ bool TMastrini_application::contof_hnd (TMask_field& f, KEY k)
TString ds; TString ds;
int gruppo = f.mask().get_int(F_GRUPPOFINE); int gruppo = f.mask().get_int(F_GRUPPOFINE);
int conto = f.mask().get_int(id); int conto = f.mask().get_int(id);
if (gruppo != 0 && conto != 0) if (gruppo != 0 && conto != 0 && f.mask().field(F_DESCRFINE_CONTO).empty())
{ {
bool warning; bool warning;
@ -1991,7 +1993,19 @@ bool TMastrini_application::preprocess_page(int file, int counter)
if (((gruppof!=_gruppo)||(contof!=_conto)||(sottocf!=_sottoc))||(rmov.eof())) if (((gruppof!=_gruppo)||(contof!=_conto)||(sottocf!=_sottoc))||(rmov.eof()))
datasucc = (""); datasucc = ("");
if (datasucc != _dataregrmov) if (datasucc != _dataregrmov)
set_row (_rw,"@134g#t", &_saldo_progressivi_str); {
if (_flag_del_cazzo)
{
calcola_progressivi();
_saldo_progressivi += _saldo_progre_prec;
set_row (_rw,"@134g%r", &_saldo_progressivi);
_saldo_progressivi -= _saldo_progre_prec;
_flag_del_cazzo = FALSE;
}
else
set_row (_rw,"@134g%r", &_saldo_progressivi);
}
rmov.readat(rec); rmov.readat(rec);
} }
_rw = 1; _rw = 1;
@ -2179,7 +2193,6 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
} }
// _stampa_progressivi_si = TRUE; // _stampa_progressivi_si = TRUE;
_prima_volta = TRUE;
return REPEAT_PAGE; return REPEAT_PAGE;
} }
case LF_RMOV: case LF_RMOV:
@ -2325,7 +2338,7 @@ bool TMastrini_application::preprocess_print(int file, int counter)
_riporto_parziale_avere = ZERO; _riporto_parziale_avere = ZERO;
_protiva = 0; _protiva = 0;
_prima_volta = TRUE; _flag_del_cazzo = _nummast == 1;
_stampa_progressivi_si = TRUE; _stampa_progressivi_si = TRUE;
_stampa_footer_si = TRUE; _stampa_footer_si = TRUE;
@ -2364,13 +2377,7 @@ bool TMastrini_application::set_print(int)
if (_noseparator) if (_noseparator)
_real_picture = "################"; _real_picture = "################";
else else
{
#ifdef DBG
_real_picture = "@@@@.@@@.@@@.@@@";
#else
_real_picture = "####.###.###.###"; _real_picture = "####.###.###.###";
#endif
}
set_real_picture(_real_picture); set_real_picture(_real_picture);
@ -2695,7 +2702,7 @@ void TMastrini_application::crea_intestazione()
set_header (1, "@12g%-.45s", (const char*) _ragsoc); set_header (1, "@12g%-.45s", (const char*) _ragsoc);
set_header (1, "@59g%s", (const char*) _indulc); set_header (1, "@59g%s", (const char*) _indulc);
//set_header (1, "@86g%-.9s", (const char*) _civulc); //set_header (1, "@86g%-.9s", (const char*) _civulc);
set_header (1, "@100g%-.5s", (const char*) _capulc); set_header (1, "@97g%-.5s", (const char*) _capulc);
set_header (1, "@103g%-.18s", (const char*) _com); set_header (1, "@103g%-.18s", (const char*) _com);
set_header (1, "@122g%-.3s", (const char*) _prov); set_header (1, "@122g%-.3s", (const char*) _prov);
} }
@ -2866,7 +2873,7 @@ int TMastrini_application::crea_intestazione(int start_riga)
set_row (r, "@12g%-45s", (const char*) _ragsoc); set_row (r, "@12g%-45s", (const char*) _ragsoc);
set_row (r, "@59g%s", (const char*) _indulc); set_row (r, "@59g%s", (const char*) _indulc);
//set_row (r, "@86g%-9s", (const char*) _civulc); //set_row (r, "@86g%-9s", (const char*) _civulc);
set_row (r, "@100g%-5s", (const char*) _capulc); set_row (r, "@97g%-5s", (const char*) _capulc);
set_row (r, "@103g%-18s", (const char*) _com); set_row (r, "@103g%-18s", (const char*) _com);
set_row (r, "@122g%-3s", (const char*) _prov); set_row (r, "@122g%-3s", (const char*) _prov);
r += 2; r += 2;

18
cg/cg3200a.uml
View File

@ -116,12 +116,13 @@ END
NUMBER F_CONTOINI_CLIENTE 3 NUMBER F_CONTOINI_CLIENTE 3
BEGIN BEGIN
PROMPT 41 5 "" PROMPT 41 5 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C") USE LF_PCON SELECT (TMCF="C") // && (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CLIENTE INPUT CONTO F_CONTOINI_CLIENTE
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Tipo" TMCF
OUTPUT F_GRUPPOINI GRUPPO OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CLIENTE CONTO OUTPUT F_CONTOINI_CLIENTE CONTO
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -135,7 +136,7 @@ END
NUMBER F_CONTOINI_FORN 3 NUMBER F_CONTOINI_FORN 3
BEGIN BEGIN
PROMPT 41 5 "" PROMPT 41 5 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F") USE LF_PCON SELECT (TMCF="F") // && (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_FORN INPUT CONTO F_CONTOINI_FORN
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -290,7 +291,7 @@ END
NUMBER F_CONTOFINE_CLIENTE 3 NUMBER F_CONTOFINE_CLIENTE 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 41 8 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C") USE LF_PCON SELECT (TMCF="C") // && (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CLIENTE INPUT CONTO F_CONTOFINE_CLIENTE
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -309,7 +310,7 @@ END
NUMBER F_CONTOFINE_FORN 3 NUMBER F_CONTOFINE_FORN 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 41 8 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F") USE LF_PCON SELECT (TMCF="F") // && (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_FORN INPUT CONTO F_CONTOFINE_FORN
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -560,11 +561,12 @@ END
NUMBER F_CONTOINI_CLIENTE 3 NUMBER F_CONTOINI_CLIENTE 3
BEGIN BEGIN
PROMPT 50 2 "" PROMPT 50 2 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C") USE LF_PCON SELECT (TMCF=="C") // && (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CLIENTE INPUT CONTO F_CONTOINI_CLIENTE
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Tipo" TMCF
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPOINI GRUPPO OUTPUT F_GRUPPOINI GRUPPO
OUTPUT F_CONTOINI_CLIENTE CONTO OUTPUT F_CONTOINI_CLIENTE CONTO
@ -579,7 +581,7 @@ END
NUMBER F_CONTOINI_FORN 3 NUMBER F_CONTOINI_FORN 3
BEGIN BEGIN
PROMPT 50 2 "" PROMPT 50 2 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F") USE LF_PCON SELECT (TMCF="F") // && (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_FORN INPUT CONTO F_CONTOINI_FORN
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -736,7 +738,7 @@ END
NUMBER F_CONTOFINE_CLIENTE 3 NUMBER F_CONTOFINE_CLIENTE 3
BEGIN BEGIN
PROMPT 50 4 "" PROMPT 50 4 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C") USE LF_PCON SELECT (TMCF="C") // (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CLIENTE INPUT CONTO F_CONTOFINE_CLIENTE
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -755,7 +757,7 @@ END
NUMBER F_CONTOFINE_FORN 3 NUMBER F_CONTOFINE_FORN 3
BEGIN BEGIN
PROMPT 50 4 "" PROMPT 50 4 ""
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="F") USE LF_PCON SELECT (TMCF="F") // && (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_FORN INPUT CONTO F_CONTOFINE_FORN
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO