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;
long _sottocontocontr;
bool _stampaprogre,_stampatotiva,_stampatot,_prima_volta,_stampa_mov_prov;
bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov;
bool _stampato,_devi_stampare_footer;
int _annomsk,_annoesmsk,_annoes,_annomsksucc,_tipo_mask,_anno_ghost;
@ -75,6 +75,8 @@ class TMastrini_application : public TPrintapp
bool _stampa_progressivi_si,_competenza,/*_inizio_stampa,*/_puoi_stampare,_stampa_footer_si;
bool _cambia_mastrino,_gia_stampata_intestazione;
char _tmcf,_tipo_contr;
bool _flag_del_cazzo;
TDate _dataregrmov;
int _gruppof,_contof;
@ -232,7 +234,7 @@ bool TMastrini_application::sottoc_handler_ini(TMask_field& f, KEY key)
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;
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 conto = m.get_int(id);
if (gruppo != 0 && conto != 0)
if (gruppo != 0 && conto != 0 && m.field(F_DESCRINI_CONTO).empty())
{
bool warning;
@ -506,7 +508,7 @@ bool TMastrini_application::contof_hnd (TMask_field& f, KEY k)
TString ds;
int gruppo = f.mask().get_int(F_GRUPPOFINE);
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;
@ -1991,7 +1993,19 @@ bool TMastrini_application::preprocess_page(int file, int counter)
if (((gruppof!=_gruppo)||(contof!=_conto)||(sottocf!=_sottoc))||(rmov.eof()))
datasucc = ("");
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);
}
_rw = 1;
@ -2179,7 +2193,6 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
}
// _stampa_progressivi_si = TRUE;
_prima_volta = TRUE;
return REPEAT_PAGE;
}
case LF_RMOV:
@ -2325,7 +2338,7 @@ bool TMastrini_application::preprocess_print(int file, int counter)
_riporto_parziale_avere = ZERO;
_protiva = 0;
_prima_volta = TRUE;
_flag_del_cazzo = _nummast == 1;
_stampa_progressivi_si = TRUE;
_stampa_footer_si = TRUE;
@ -2364,13 +2377,7 @@ bool TMastrini_application::set_print(int)
if (_noseparator)
_real_picture = "################";
else
{
#ifdef DBG
_real_picture = "@@@@.@@@.@@@.@@@";
#else
_real_picture = "####.###.###.###";
#endif
}
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, "@59g%s", (const char*) _indulc);
//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, "@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, "@59g%s", (const char*) _indulc);
//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, "@122g%-3s", (const char*) _prov);
r += 2;

22
cg/cg3200a.uml
View File

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