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

Sistemati errori di cui al fax idel 29/12/94

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@803 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1994-12-30 09:26:20 +00:00
parent ecfe1f34a1
commit 889c9838f4
5 changed files with 8702 additions and 8576 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg1600.cpp
View File

@ -4760,7 +4760,7 @@ void CG1600_application::crea_intestazione()
com=comuni.curr().get(COM_DENCOM);
prov=comuni.curr().get(COM_PROVCOM);
anag.setkey(2);
anag.setkey(1);
anag.curr().zero();
anag.curr().put(ANA_TIPOA,tipoa);
anag.curr().put(ANA_CODANAGR,codanagr);

101
cg/cg3100b.uml
View File

@ -45,20 +45,19 @@ END
DATE F_DATAINI
BEGIN
PROMPT 2 6 "Stampa movimenti dalla data "
PROMPT 2 5 "Stampa movimenti dalla data "
HELP "Data da cui iniziare la stampa"
END
DATE F_DATAFIN
BEGIN
PROMPT 45 6 "alla data "
PROMPT 45 5 "alla data "
HELP "Data fino a cui eseguire la stampa"
END
LIST F_TIPOELENCO 8
LIST F_TIPOELENCO 9
BEGIN
PROMPT 2 7 "Tipo elenco "
PROMPT 2 6 "Tipo elenco "
HELP "Indicare cosa includere nella stampa"
ITEM "C|Clienti"
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
@ -70,84 +69,140 @@ END
NUMBER F_CODICEINI 6
BEGIN
PROMPT 2 8 "Stampa dal codice "
PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 1
USE LF_CLIFO
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEINI
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI CODCF
OUTPUT F_RAGSOCINI RAGSOC
FLAGS "R"
END
STRING F_RAGSOCINI 50
BEGIN
PROMPT 2 8 ""
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCINI
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI RAGSOC
OUTPUT F_CODICEINI CODCF
END
NUMBER F_CODICEFIN 6
BEGIN
PROMPT 45 8 "al codice "
PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 1
COPY USE F_CODICEINI
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT CODCF F_CODICEFIN
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN CODCF
OUTPUT F_RAGSOCFIN RAGSOC
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
WARNING "Limite superiore errato"
FLAGS "R"
END
STRING F_RAGSOCFIN 50
BEGIN
PROMPT 2 10 ""
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOELENCO SELECT
INPUT RAGSOC F_RAGSOCFIN
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN RAGSOC
OUTPUT F_CODICEFIN CODCF
END
NUMBER F_CODICEINI1 6
BEGIN
PROMPT 2 8 "Stampa dal codice "
PROMPT 2 7 "Stampa dal codice "
HELP "Indicare il codice da cui iniziare la stampa"
GROUP 2
COPY USE F_CODICEINI
INPUT TIPOCF F_CODICEINI1
USE LF_CLIFO KEY 1
INPUT TIPOCF "C"
INPUT CODCF F_CODICEINI1
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEINI1 CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
FLAGS "R"
END
STRING F_RAGSOCINI1 50
BEGIN
PROMPT 2 8 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCINI1
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCINI1 RAGSOC
OUTPUT F_CODICEINI1 CODCF
END
NUMBER F_CODICEFIN1 6
BEGIN
PROMPT 45 8 "al codice "
PROMPT 2 9 "al codice "
HELP "Indicare il codice a cui terminare la stampa"
GROUP 2
COPY USE F_CODICEINI
INPUT TIPOCF F_CODICEFIN1
COPY USE F_CODICEINI1
INPUT TIPOCF "F"
INPUT CODCF F_CODICEFIN1
DISPLAY "Tipo" TIPOCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODICEFIN1 CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
WARNING "Limite superiore errato"
FLAGS "R"
END
STRING F_RAGSOCFIN1 50
BEGIN
PROMPT 2 10 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
INPUT RAGSOC F_RAGSOCFIN1
DISPLAY "Tipo" TIPOCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF
OUTPUT F_RAGSOCFIN1 RAGSOC
OUTPUT F_CODICEFIN1 CODCF
END
BOOLEAN F_CAMBIO
BEGIN
//GROUP 2
PROMPT 2 10 "Cambio pagina per cliente/fornitore "
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
END
BOOLEAN F_STAMPAMOVP
BEGIN
PROMPT 2 11 "Stampa movimenti provvisori "
PROMPT 2 13 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori"
END
/*
TEXT DLG_NULL
BEGIN
PROMPT 3 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
END
*/
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 ""

152
cg/cg3200.cpp
View File

@ -31,6 +31,9 @@ class TMastrini_application : public TPrintapp
{
static bool data_inizio (TMask_field& f, KEY k);
static bool data_fine (TMask_field& f, KEY k);
static bool gruppo_hnd (TMask_field& f, KEY k);
static bool conto_hnd (TMask_field& f, KEY k);
static bool sottoc_hnd (TMask_field& f, KEY k);
friend bool sottoc_handler_ini (TMask_field& f, KEY k);
friend bool sottoc_handler_fine (TMask_field& f, KEY k);
@ -86,6 +89,7 @@ protected:
virtual bool preprocess_print(int file, int counter);
virtual bool preprocess_page (int,int);
virtual print_action postprocess_page (int,int);
virtual print_action postprocess_print(int,int);
virtual void preprocess_header();
virtual void set_page(int,int);
virtual void process_link(int id, const char* txt);
@ -185,21 +189,7 @@ bool sottoc_handler_ini(TMask_field& f, KEY key)
clifo.put(CLI_CODCF, sottoconto) ;
clifo.setkey(1);
if (clifo.read(_isequal, _nolock) == NOERR)
{
rs = clifo.get(CLI_RAGSOC);
char tipoa = clifo.get_char("TIPOAPER");
if (tipoa == 'F')
{
TString80 cognome, nome;
cognome = rs.mid(0,30);
nome = rs.mid(30,20);
cognome.trim(); nome.trim();
rs = cognome;
rs << " " << nome;
}
}
else
rs = "";
@ -249,19 +239,6 @@ bool sottoc_handler_fine(TMask_field& f, KEY key)
if ( key == K_TAB )
{
// if (!f.focusdirty() && gruppo == 0 && conto == 0) return TRUE;
/*
if (sottoconto != 0 && conto == 0)
{
f.warning_box("Manca il CONTO");
return FALSE;
}
if (conto != 0 && gruppo == 0)
{
f.warning_box("Manca il GRUPPO");
return FALSE;
}
*/
if (id == F_SOTTOCFINE_CONTO)
{
pconti.zero();
@ -290,21 +267,7 @@ bool sottoc_handler_fine(TMask_field& f, KEY key)
clifo.put(CLI_CODCF, sottoconto) ;
clifo.setkey(1);
if (clifo.read(_isequal, _nolock) == NOERR)
{
rs = clifo.get(CLI_RAGSOC);
char tipoa = clifo.get_char("TIPOAPER");
if (tipoa == 'F')
{
TString80 cognome, nome;
cognome = rs.mid(0,30);
nome = rs.mid(30,20);
cognome.trim(); nome.trim();
rs = cognome;
rs << " " << nome;
}
}
else
rs = "";
@ -333,6 +296,77 @@ bool sottoc_handler_fine(TMask_field& f, KEY key)
return TRUE;
}
bool TMastrini_application::gruppo_hnd (TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
int gruppof = f.mask().get_int(F_GRUPPOFINE);
if (gruppof == 0)
return TRUE;
int gruppoi = f.mask().get_int(F_GRUPPOINI);
if (gruppoi > gruppof)
return f.error_box("Il gruppo di partenza deve essere inferiore o uguale al gruppo di arrivo");
}
return TRUE;
}
bool TMastrini_application::conto_hnd (TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
int gruppof = f.mask().get_int(F_GRUPPOFINE);
if (gruppof == 0)
return TRUE;
int gruppoi = f.mask().get_int(F_GRUPPOINI);
if (gruppoi < gruppof)
return TRUE;
int contof = f.mask().get_int(F_CONTOFINE_CONTO);
int contoi = f.mask().get_int(F_CONTOINI_CONTO);
if (contoi > contof)
return f.error_box("Il conto di partenza deve essere inferiore o uguale al conto di arrivo");
}
return TRUE;
}
bool TMastrini_application::sottoc_hnd (TMask_field& f, KEY k)
{
if (k == K_ENTER)
{
int gruppof = f.mask().get_int(F_GRUPPOFINE);
if (gruppof == 0)
return TRUE;
int gruppoi = f.mask().get_int(F_GRUPPOINI);
if (gruppoi < gruppof)
return TRUE;
int contof = f.mask().get_int(F_CONTOFINE_CONTO);
int contoi = f.mask().get_int(F_CONTOINI_CONTO);
if (contoi < contof)
return TRUE;
long sottocf = f.mask().get_long(F_SOTTOCFINE_CONTO);
long sottoci = f.mask().get_long(F_SOTTOCINI_CONTO);
if (sottoci > sottocf)
return f.error_box("Il sottoconto di partenza deve essere inferiore o uguale al sottoconto di arrivo");
}
return TRUE;
}
int date2esc(const TDate& d, int* prevesc)
{
if (prevesc) *prevesc = 0;
@ -1027,6 +1061,32 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
return NEXT_PAGE;
}
print_action TMastrini_application::postprocess_print(int file, int counter)
{
if (file == LF_SALDI)
{
_msk->reset(F_GRUPPOINI);
_msk->reset(F_CONTOINI_CONTO);
_msk->reset(F_CONTOINI_CLIENTE);
_msk->reset(F_CONTOINI_FORN);
_msk->reset(F_SOTTOCINI_CONTO);
_msk->reset(F_SOTTOCINI_CLIENTE);
_msk->reset(F_SOTTOCINI_FORN);
_msk->reset(F_GRUPPOFINE);
_msk->reset(F_CONTOFINE_CONTO);
_msk->reset(F_CONTOFINE_CLIENTE);
_msk->reset(F_CONTOFINE_FORN);
_msk->reset(F_SOTTOCFINE_CONTO);
_msk->reset(F_SOTTOCFINE_CLIENTE);
_msk->reset(F_SOTTOCFINE_FORN);
}
return NEXT_PAGE;
}
// Stampa dei totali documenti iva se richiesta
void TMastrini_application::stampa_totaliiva()
@ -1129,7 +1189,6 @@ bool TMastrini_application::set_print(int)
_msk->set_handler (F_DATAINI ,data_inizio);
_msk->set_handler (F_DATAFINE ,data_fine);
tasto = _msk->run();
if (tasto == K_ENTER)
@ -1921,6 +1980,15 @@ bool TMastrini_application::user_create()
_msk->set_handler(F_SOTTOCFINE_CLIENTE, sottoc_handler_fine);
_msk->set_handler(F_SOTTOCFINE_FORN, sottoc_handler_fine);
_msk->set_handler (F_GRUPPOFINE ,gruppo_hnd);
_msk->set_handler (F_CONTOFINE_CONTO ,conto_hnd);
_msk->set_handler (F_CONTOFINE_CLIENTE ,conto_hnd);
_msk->set_handler (F_CONTOFINE_FORN ,conto_hnd);
_msk->set_handler (F_SOTTOCFINE_CONTO ,sottoc_hnd);
_msk->set_handler (F_SOTTOCFINE_CLIENTE ,sottoc_hnd);
_msk->set_handler (F_SOTTOCFINE_FORN ,sottoc_hnd);
_inizio_stampa = TRUE;
return TRUE;
}

4
cg/cg3200a.uml
View File

@ -246,7 +246,7 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF
COPY OUTPUT F_DESCRINI_CONTO
COPY OUTPUT F_SOTTOCINI_FORN
MESSAGE COPY,F_DESCRINI_CONTO
CHECKTYPE NORMAL
GROUP 3
@ -438,7 +438,7 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Codice" CODCF
COPY OUTPUT F_DESCRFINE_CONTO
COPY OUTPUT F_SOTTOCFINE_FORN
MESSAGE COPY,F_DESCRFINE_CONTO
GROUP 6
END

11
cg/cg3500.cpp
View File

@ -656,7 +656,8 @@ void CG3500_application::setta_riga_sottoconto()
{
TString udata = _ultima_data.string();
set_row(1,"%06ld", _scorr);
//set_row(1,"%06ld", _scorr);
set_row(1,"%6ld", _scorr);
//set_row(1,"@i %.32s@r",(const char*) _descr);
set_row(1," %.32s@r",(const char*) _descr);
set_row(1,"@42g%s",(const char*) udata);
@ -675,14 +676,15 @@ void CG3500_application::setta_riga_conto()
if (_scelta == 1)
{
set_row(r++,"%s",(const char*)riga);
set_row(r,"**** Totali conto %03d.%03d",_gconto,_cconto);
//set_row(r,"**** Totali conto %03d.%03d",_gconto,_cconto);
set_row(r,"**** Totali conto %3d %3d",_gconto,_cconto);
// set_row(r,"@i %.27s@r",(const char*)_descrconto);
set_row(r," %.27s@r",(const char*)_descrconto);
}
if (_scelta == 2)
{
set_row(r,"%03d", _ccorr);
set_row(r,"%3d", _ccorr);
//set_row(r,"@i %.32s@r",(const char*)_descrconto);
set_row(r," %.32s@r",(const char*)_descrconto);
set_row(r,"@42g%s",(const char*)udata);
@ -704,7 +706,8 @@ void CG3500_application::setta_riga_gruppo()
if (_scelta == 2)
if (_tp == fine) r = 3;
else r = 2;
set_row(r,"**** TOTALI GRUPPO %03d-",_ggruppo);
//set_row(r,"**** TOTALI GRUPPO %3d-",_ggruppo);
set_row(r,"**** TOTALI GRUPPO %3d ",_ggruppo);
//set_row(r,"@i %.30s@r",(const char*)_descrgruppo);
set_row(r," %.30s@r",(const char*)_descrgruppo);
set_row(r++,"@57g%r@77g%r@97g%r@117g%r",&_prg_dare_gruppo,&_prg_avere_gruppo,&_saldo_dare_gruppo,&_saldo_avere_gruppo);