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

Patch level : 2.0 594

Browse Source 
Files correlati     : cg3.exe cg3200a.msk cg3600b.msk
Ricompilazione Demo : [ ]
Commento            :

Nuova implementazione:
2
Implemetare nella stampa mastrini la possibilità di avere il saldo a scalare.

Aggiunto bottone Nuovo in visualizzazione mastrini per inserire un nuovo movimento


git-svn-id: svn://10.65.10.50/trunk@11476 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2003-10-09 07:29:57 +00:00
parent c477d3021c
commit 28f61dc059
4 changed files with 184 additions and 163 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

152
cg/cg3200.cpp
View File

@ -1,11 +1,14 @@
#include <currency.h> #include <currency.h>
#include <execp.h>
#include <mailbox.h>
#include <modaut.h> #include <modaut.h>
#include <msksheet.h> #include <msksheet.h>
#include <printapp.h> #include <printapp.h>
#include <utility.h> #include <utility.h>
#include "cg3.h"
#include "cg3200.h"
#include "cglib02.h"
#include "cglib03.h"
#include <clifo.h> #include <clifo.h>
#include <pconti.h> #include <pconti.h>
#include <mov.h> #include <mov.h>
@ -16,11 +19,6 @@
#include <nditte.h> #include <nditte.h>
#include <unloc.h> #include <unloc.h>
#include "cg3.h"
#include "cg3200.h"
#include "cglib02.h"
#include "cglib03.h"
class TMastrini_record : public TRectype class TMastrini_record : public TRectype
{ {
TBill _bill; TBill _bill;
@ -37,11 +35,11 @@ public:
const TString& TMastrini_record::get_str(const char* fieldname) const const TString& TMastrini_record::get_str(const char* fieldname) const
{ {
if (strcmp(fieldname, "DESCR") == 0) if (strcmp(fieldname, RMV_DESCR) == 0)
{ {
const int g = atoi(TRectype::get_str("GRUPPO")); const int g = atoi(TRectype::get_str(RMV_GRUPPO));
const int c = atoi(TRectype::get_str("CONTO")); const int c = atoi(TRectype::get_str(RMV_CONTO));
const long s = atol(TRectype::get_str("SOTTOCONTO")); const long s = atol(TRectype::get_str(RMV_SOTTOCONTO));
((TBill&)_bill).set(g, c, s); ((TBill&)_bill).set(g, c, s);
const TString& descr = _bill.descrizione(); const TString& descr = _bill.descrizione();
return descr; return descr;
@ -51,14 +49,14 @@ const TString& TMastrini_record::get_str(const char* fieldname) const
int TMastrini_record::length(const char* fieldname) const int TMastrini_record::length(const char* fieldname) const
{ {
if (strcmp(fieldname, "DESCR") == 0) if (strcmp(fieldname, RMV_DESCR) == 0)
return 50; return 50;
return TRectype::length(fieldname); return TRectype::length(fieldname);
} }
TFieldtypes TMastrini_record::type(const char* fieldname) const TFieldtypes TMastrini_record::type(const char* fieldname) const
{ {
if (strcmp(fieldname, "DESCR") == 0) if (strcmp(fieldname, RMV_DESCR) == 0)
return _alfafld; return _alfafld;
return TRectype::type(fieldname); return TRectype::type(fieldname);
} }
@ -90,7 +88,7 @@ class TMastrini_application : public TPrintapp
TDate _data_ini,_data_fine,_data_finese,_data_finesesucc,_ultima_data_reg; TDate _data_ini,_data_fine,_data_finese,_data_finesesucc,_ultima_data_reg;
TDate _datareg,_datadoc,_data_inizioese,_datareg_stampa,_inizioes; TDate _datareg,_datadoc,_data_inizioese,_datareg_stampa,_inizioes;
int _cur1,_cur2,_gruppo,_conto,_numcarat,_stampanum,_numivd,_annoiva; int _cur1,_cur2,_gruppo,_conto,_numcarat,_stampanum,_numivd,_annoiva;
int _numrig,_natdoc,_tipo,_tipostampa,_g_prec,_c_prec,_numrivd_int; int _numrig,_natdoc,_tipo,_selez_mastrini,_g_prec,_c_prec,_numrivd_int;
real _progredare,_progreavere,_totprogre_dare_al,_totprogre_avere_al; real _progredare,_progreavere,_totprogre_dare_al,_totprogre_avere_al;
real _totprogre_dare,_totprogre_avere,_importo; real _totprogre_dare,_totprogre_avere,_importo;
real _riporto_dare,_riporto_avere,_riporto_parziale_dare,_riporto_parziale_avere; real _riporto_dare,_riporto_avere,_riporto_parziale_dare,_riporto_parziale_avere;
@ -106,8 +104,9 @@ class TMastrini_application : public TPrintapp
int _gruppocontr,_contocontr,_nummast,_pagina; int _gruppocontr,_contocontr,_nummast,_pagina;
long _sottocontocontr; long _sottocontocontr;
bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov, _stampa_des_contro; bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov;
bool _stampato,_devi_stampare_footer; bool _stampato,_devi_stampare_footer;
int _stampa_saldo_des;
int _annomsk,_annoesmsk,_annoes,_annomsksucc,_tipo_mask,_anno_ghost; int _annomsk,_annoesmsk,_annoes,_annomsksucc,_tipo_mask,_anno_ghost;
int _anno_corrente,_anno_precedente,_indbil,_numero_pag; int _anno_corrente,_anno_precedente,_indbil,_numero_pag;
@ -240,6 +239,11 @@ int TMastrini_application::righe_rimaste_da_stampare()
void TMastrini_application::process_link(int id, const char* txt) void TMastrini_application::process_link(int id, const char* txt)
{ {
TRectype mov(LF_MOV);
mov.put(MOV_NUMREG, txt);
mov.edit();
/* Vecchio modo barbaro ed obsoleto
const char* const app = "cg2 -0"; const char* const app = "cg2 -0";
TToken_string ss(10); TToken_string ss(10);
ss.add("1"); ss.add("1");
@ -250,6 +254,7 @@ void TMastrini_application::process_link(int id, const char* txt)
TExternal_app pn(app); TExternal_app pn(app);
pn.run(); pn.run();
*/
} }
// Visualizzo le commesse se necessario // Visualizzo le commesse se necessario
@ -703,7 +708,7 @@ bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
} }
else else
{ {
if (data == botime) if (!data.ok())
return f.error_box(TR("La data deve essere obbligatoriamente indicata")); return f.error_box(TR("La data deve essere obbligatoriamente indicata"));
if (app().date2esc(data) == 0) if (app().date2esc(data) == 0)
@ -759,8 +764,6 @@ bool TMastrini_application::data_fine(TMask_field& f, KEY k)
f.error_box(TR("La data finale non puo' essere inferiore alla data di partenza")); f.error_box(TR("La data finale non puo' essere inferiore alla data di partenza"));
return FALSE; return FALSE;
} }
} }
return TRUE; return TRUE;
} }
@ -935,7 +938,7 @@ void TMastrini_application::fai_stampa198()
_c_contr = rmov.get(RMV_CONTOC); _c_contr = rmov.get(RMV_CONTOC);
_s_contr = rmov.get(RMV_SOTTOCONTOC); _s_contr = rmov.get(RMV_SOTTOCONTOC);
if (_stampa_des_contro) if (_stampa_saldo_des == 3)
{ {
if (_sottocontocontr > 0) if (_sottocontocontr > 0)
{ {
@ -977,7 +980,7 @@ void TMastrini_application::stampa_totali_commessa()
{ {
set_row (_rw,"@100g%r", &_totale_commessa_dare); set_row (_rw,"@100g%r", &_totale_commessa_dare);
set_row (_rw,"@117g%r", &_totale_commessa_avere); set_row (_rw,"@117g%r", &_totale_commessa_avere);
if (!_stampa_des_contro) if (_stampa_saldo_des < 3)
set_row (_rw,"@135g%r", &_saldo_commessa); set_row (_rw,"@135g%r", &_saldo_commessa);
} }
} }
@ -1197,16 +1200,19 @@ void TMastrini_application::stampa_totali198()
set_row (++_rw,"@32g%s@100g%r", TR("TOTALI PROGRESSIVI"), &_totprogre_dare); set_row (++_rw,"@32g%s@100g%r", TR("TOTALI PROGRESSIVI"), &_totprogre_dare);
set_row (_rw,"@117g%r", &_totprogre_avere); set_row (_rw,"@117g%r", &_totprogre_avere);
set_row (_rw,"@135g%r", &_saldo_progressivi); set_row (_rw,"@135g%r", &_saldo_progressivi);
if (!_stampa_des_contro) // il saldo totale movimenti non viene stampato se stampo le descrizioni delle contropartite
if (_stampa_saldo_des < 3)
set_row (_rw,"@151g%r", &_saldo_movimenti); set_row (_rw,"@151g%r", &_saldo_movimenti);
if (_stampaprogre) //Progressivi attuali if (_stampaprogre) //Progressivi attuali
{ {
_saldo_progre_al = _totprogre_dare_al - _totprogre_avere_al; _saldo_progre_al = _totprogre_dare_al - _totprogre_avere_al;
set_row(++_rw,"@32g%s@55g%s", TR("TOTALI PROGRESSIVI AL"), _ultima_data_reg.string()); set_row(++_rw,"@32g%s@55g%s", TR("TOTALI PROGRESSIVI AL"), _ultima_data_reg.string());
set_row (_rw,"@100g%r", &_totprogre_dare_al); set_row (_rw,"@100g%r", &_totprogre_dare_al);
set_row (_rw,"@117g%r", &_totprogre_avere_al); set_row (_rw,"@117g%r", &_totprogre_avere_al);
if (!_stampa_des_contro) if (_stampa_saldo_des < 3)
set_row (_rw,"@135g%r", &_saldo_progre_al); set_row (_rw,"@135g%r", &_saldo_progre_al);
} }
@ -1238,7 +1244,7 @@ void TMastrini_application::carica_array_totali198()
_totprogre_dare=_progredare+_totale_periodo_dare; _totprogre_dare=_progredare+_totale_periodo_dare;
_totprogre_avere=_progreavere+_totale_periodo_avere; _totprogre_avere=_progreavere+_totale_periodo_avere;
if (_stampa_des_contro) if (_stampa_saldo_des == 3)
r.add("@32g%s@100g%s@117g%s"); r.add("@32g%s@100g%s@117g%s");
else else
r.add("@32g%s@100g%s@117g%s@151g%s"); r.add("@32g%s@100g%s@117g%s@151g%s");
@ -1249,7 +1255,7 @@ void TMastrini_application::carica_array_totali198()
_lista.add(r); _lista.add(r);
r = ""; r = "";
if (_stampa_des_contro) if (_stampa_saldo_des == 3)
r.add("@32g%s@100g%s@117g%s"); r.add("@32g%s@100g%s@117g%s");
else else
r.add("@32g%s@100g%s@117g%s@135g%s"); r.add("@32g%s@100g%s@117g%s@135g%s");
@ -1445,16 +1451,16 @@ bool TMastrini_application::preprocess_page(int file, int counter)
_saldo_movimenti = ZERO; _saldo_movimenti = ZERO;
_saldo_progressivi = ZERO; _saldo_progressivi = ZERO;
_saldo_progre_prec = ZERO; _saldo_progre_prec = ZERO;
if (_tipostampa == 2) if (_selez_mastrini == 2)
{ {
calcola_progressivi(TRUE); calcola_progressivi(TRUE);
_totale_saldo = _saldo_progre_prec; _totale_saldo = _saldo_progre_prec;
} }
if ((_tipostampa == 1) || (_tipostampa == 2)) if ((_selez_mastrini == 1) || (_selez_mastrini == 2))
{ {
if ((_tipostampa == 1 && almeno_un_record()) || if ((_selez_mastrini == 1 && almeno_un_record()) ||
(_tipostampa == 2 && _totale_saldo != ZERO)) (_selez_mastrini == 2 && _totale_saldo != ZERO))
{ {
_puoi_stampare = TRUE; _puoi_stampare = TRUE;
@ -1478,7 +1484,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
} }
} }
else else
if (_tipostampa == 3) if (_selez_mastrini == 3)
{ {
calcola_progressivi(); calcola_progressivi();
if (_progredare == ZERO && _progreavere == ZERO && !almeno_un_record()) if (_progredare == ZERO && _progreavere == ZERO && !almeno_un_record())
@ -1989,8 +1995,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
if (_numcarat == 1) // Stampa 132 caratteri if (_numcarat == 1) // Stampa 132 caratteri
set_row (_rw,"@83g%s", (const char*) _importo_str); set_row (_rw,"@83g%s", (const char*) _importo_str);
else else // Stampa 198 caratteri
if (_numcarat == 2) // Stampa 198 caratteri
{ {
_saldo_progressivi += _importo; _saldo_progressivi += _importo;
_saldo_movimenti += _importo; _saldo_movimenti += _importo;
@ -2006,8 +2011,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
if (_numcarat == 1) // Stampa 132 caratteri if (_numcarat == 1) // Stampa 132 caratteri
set_row (_rw,"@100g%s", (const char*) _importo_str); set_row (_rw,"@100g%s", (const char*) _importo_str);
else else // Stampa 198 caratteri
if (_numcarat == 2) // Stampa 198 caratteri
{ {
_saldo_progressivi -= _importo; _saldo_progressivi -= _importo;
_saldo_movimenti -= _importo; _saldo_movimenti -= _importo;
@ -2043,19 +2047,22 @@ bool TMastrini_application::preprocess_page(int file, int counter)
datasuccstring=datasucc.string(); datasuccstring=datasucc.string();
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 || _stampa_saldo_des == 2)
{ {
if (_flag_del_cazzo) if (_flag_del_cazzo)
{ {
calcola_progressivi(); calcola_progressivi();
_saldo_progressivi += _saldo_progre_prec; _saldo_progressivi += _saldo_progre_prec;
set_row (_rw,"@134g%r", &_saldo_progressivi); set_row (_rw,"@135g%r", &_saldo_progressivi);
_saldo_progressivi -= _saldo_progre_prec; _saldo_progressivi -= _saldo_progre_prec;
_flag_del_cazzo = FALSE; _flag_del_cazzo = FALSE;
} }
if (!_stampa_des_contro) else
{
if (_stampa_saldo_des < 3) // Stampa saldo (non descrizioni)
set_row (_rw,"@135g%r", &_saldo_progressivi); set_row (_rw,"@135g%r", &_saldo_progressivi);
} }
}
rmov.readat(rec); rmov.readat(rec);
} }
@ -2157,7 +2164,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
{ {
if (_nummast == 1 || _nummast == 3) if (_nummast == 1 || _nummast == 3)
{ {
if (_tipostampa == 3) if (_selez_mastrini == 3)
{ {
reset_print(); reset_print();
if (_numcarat == 1) if (_numcarat == 1)
@ -2168,7 +2175,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
if (_stampatotiva) if (_stampatotiva)
stampa_totaliiva(); stampa_totaliiva();
} }
else if (_tipostampa == 2) else if (_selez_mastrini == 2)
{ {
reset_print(); reset_print();
if ((_totale_saldo != 0.0) && (_puoi_stampare)) if ((_totale_saldo != 0.0) && (_puoi_stampare))
@ -2181,7 +2188,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
if (_stampatotiva) if (_stampatotiva)
stampa_totaliiva(); stampa_totaliiva();
} }
else if (_tipostampa == 1) else if (_selez_mastrini == 1)
{ {
reset_print(); reset_print();
if (_puoi_stampare) if (_puoi_stampare)
@ -2207,7 +2214,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
carica_array_totali198(); carica_array_totali198();
} }
if (_tipostampa == 3) if (_selez_mastrini == 3)
{ {
reset_print(); reset_print();
if (_numcarat == 1) if (_numcarat == 1)
@ -2215,7 +2222,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
else else
stampa_totali198_II(); stampa_totali198_II();
} }
else if (_tipostampa == 2) else if (_selez_mastrini == 2)
{ {
reset_print(); reset_print();
if ((_totale_saldo != 0.0) && (_puoi_stampare)) if ((_totale_saldo != 0.0) && (_puoi_stampare))
@ -2224,7 +2231,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
else else
stampa_totali198_II(); stampa_totali198_II();
} }
else if (_tipostampa == 1) else if (_selez_mastrini == 1)
{ {
reset_print(); reset_print();
if (_puoi_stampare) if (_puoi_stampare)
@ -2426,10 +2433,10 @@ bool TMastrini_application::set_print(int m)
_stampatotiva = _msk->get_bool(F_STAMPATOTIVA); _stampatotiva = _msk->get_bool(F_STAMPATOTIVA);
_stampanum = _msk->get_int(F_STAMPANUM); _stampanum = _msk->get_int(F_STAMPANUM);
_stampa_mov_prov = _msk->get_bool(F_STAMPAMOVPROV); _stampa_mov_prov = _msk->get_bool(F_STAMPAMOVPROV);
_tipostampa = _msk->get_int(F_TIPOSTAMPA); _selez_mastrini = _msk->get_int(F_SELEZ_STAMPA);
_numcarat = _msk->get_int(F_NUMCARAT); _numcarat = _msk->get_int(F_NUMCARAT);
_stampa_des_contro = (_numcarat==2) && _msk->get_bool(F_CONTRODES); _stampa_saldo_des = _numcarat==2 ? _msk->get_int(F_SALDO_DES) : 0;
_nummast = _msk->get_int(F_NUMMAST); _nummast = _msk->get_int(F_NUMMAST);
_data_ini = _msk->get_date(F_DATAINI); _data_ini = _msk->get_date(F_DATAINI);
_data_fine = _msk->get_date(F_DATAFINE); _data_fine = _msk->get_date(F_DATAFINE);
@ -2495,7 +2502,7 @@ bool TMastrini_application::set_print(int m)
_riga.destroy(); _riga.destroy();
_lista.destroy(); _lista.destroy();
switch (_tipostampa) switch (_selez_mastrini)
{ {
case 1: _totale_saldo = 1.0; break; case 1: _totale_saldo = 1.0; break;
case 2: _totale_saldo = 0.0; break; case 2: _totale_saldo = 0.0; break;
@ -2579,30 +2586,30 @@ void TMastrini_application::preprocess_header()
{ {
if (_nummast == 1) if (_nummast == 1)
{ {
if (_tipostampa == 3) if (_selez_mastrini == 3) // Tutti
crea_intestazione(); crea_intestazione();
else else
if (_tipostampa == 2) if (_selez_mastrini == 2) // Con saldo non nullo
{ {
if ((_totale_saldo != 0.0) && (_puoi_stampare)) if ((!_totale_saldo.is_zero()) && (_puoi_stampare))
crea_intestazione(); crea_intestazione();
} }
else if (_tipostampa == 1) else if (_selez_mastrini == 1)
if (_puoi_stampare) if (_puoi_stampare)
crea_intestazione(); crea_intestazione();
} }
else else
if (_nummast == 3 && !_gia_stampata_intestazione) if (_nummast == 3 && !_gia_stampata_intestazione)
{ {
if (_tipostampa == 3) if (_selez_mastrini == 3) // Tutti
crea_intestazione(); crea_intestazione();
else else
if (_tipostampa == 2) if (_selez_mastrini == 2) // Con saldo non nullo
{ {
if ((_totale_saldo != 0.0) && (_puoi_stampare)) if ((!_totale_saldo.is_zero()) && (_puoi_stampare))
crea_intestazione(); crea_intestazione();
} }
else if (_tipostampa == 1) else if (_selez_mastrini == 1) // Movimentati nel periodo
if (_puoi_stampare) if (_puoi_stampare)
crea_intestazione(); crea_intestazione();
} }
@ -2726,9 +2733,6 @@ void TMastrini_application::ricerca_dati_ditta()
void TMastrini_application::crea_intestazione() void TMastrini_application::crea_intestazione()
{ {
TString sep(133),sep1(198); TString sep(133),sep1(198);
sep = "";
reset_header(); reset_header();
int np = get_page_number(); int np = get_page_number();
@ -2833,11 +2837,11 @@ void TMastrini_application::crea_intestazione()
sep.fill('_'); sep.fill('_');
set_header (9, (const char *) sep); set_header (9, (const char *) sep);
} }
else if (_numcarat == 2) else
{ {
sep1.fill('_'); //Stampa 198 - (sep1(198)) sep1.fill('_'); //Stampa 198 - (sep1(198))
set_header (6,"@0g%s", (const char*)sep1); set_header (6,"@0g%s", (const char*)sep1);
if (_stampa_des_contro) if (_stampa_saldo_des == 3)
{ {
set_header (7,"%s@23g%s@183g%s@190g%s@197g%s", set_header (7,"%s@23g%s@183g%s@190g%s@197g%s",
TR("Operazione"), TR("Documento"), TR("Operazione"), TR("Documento"),
@ -2855,17 +2859,25 @@ void TMastrini_application::crea_intestazione()
if (_stampanum < 3) if (_stampanum < 3)
set_header (8,"@11g%s", TR("Numero")); set_header (8,"@11g%s", TR("Numero"));
if (_stampa_des_contro) switch (_stampa_saldo_des)
{
set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@183g%s@189g%s@197g%s",
TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"),
TR("Contropartita"), TR("Iva"), TR("Protoc."), TR("C"));
}
else
{ {
case 1:
set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@152g%s@169g%s@183g%s@189g%s@197g%s", set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@152g%s@169g%s@183g%s@189g%s@197g%s",
TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"), TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"),
TR("Saldo progre."), TR("Saldo movim."), TR("Partita"), TR("Iva"), TR("Protoc."), TR("C")); TR("Saldo progre."), TR("Saldo movim."), TR("Partita"), TR("Iva"), TR("Protoc."), TR("C"));
break;
case 2:
set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@152g%s@169g%s@183g%s@189g%s@197g%s",
TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"),
TR("Saldo scalare"), TR("Saldo movim."), TR("Partita"), TR("Iva"), TR("Protoc."), TR("C"));
break;
case 3:
set_header (8,"@23g%s@34g%s@42g%s@70g%s@112g%s@127g%s@135g%s@183g%s@189g%s@197g%s",
TR("Data"), TR("Numero"), TR("Cod.Causale"), TR("Descrizione"), TR("Dare"), TR("Avere"),
TR("Contropartita"), TR("Iva"), TR("Protoc."), TR("C"));
break;
default:
break;
} }
if (_stampa_mov_prov) if (_stampa_mov_prov)
@ -2885,11 +2897,11 @@ void TMastrini_application::crea_intestazione()
set_header (10,"@83g%s", real2str(_progredare)); set_header (10,"@83g%s", real2str(_progredare));
set_header (10,"@100g%s", real2str(_progreavere)); set_header (10,"@100g%s", real2str(_progreavere));
} }
if (_numcarat == 2) else
{ {
set_header (10,"@70g%s@100g%s", TR("PROGRESSIVI PRECEDENTI"), real2str(_progredare)); set_header (10,"@70g%s@100g%s", TR("PROGRESSIVI PRECEDENTI"), real2str(_progredare));
set_header (10,"@117g%s", real2str(_progreavere)); set_header (10,"@117g%s", real2str(_progreavere));
if (!_stampa_des_contro) if (_stampa_saldo_des < 3)
set_header (10,"@135g%s", real2str(_saldo_progre_prec)); set_header (10,"@135g%s", real2str(_saldo_progre_prec));
} }
_riporto_dare = _progredare; _riporto_dare = _progredare;
@ -3039,7 +3051,7 @@ int TMastrini_application::crea_intestazione(int start_riga)
{ {
sep1.fill('_'); //Stampa 198 - (sep1(198)) sep1.fill('_'); //Stampa 198 - (sep1(198))
set_row (r++,"@0g%s", (const char*)sep1); set_row (r++,"@0g%s", (const char*)sep1);
if (_stampa_des_contro) if (_stampa_saldo_des == 2)
set_row (r++,FR("Operazione@23gDocumento@183gReg@190gNumero@197gA")); set_row (r++,FR("Operazione@23gDocumento@183gReg@190gNumero@197gA"));
else else
set_row (r++,FR("Operazione@23gDocumento@169gContro@183gReg@190gNumero@197gA")); set_row (r++,FR("Operazione@23gDocumento@169gContro@183gReg@190gNumero@197gA"));
@ -3049,7 +3061,7 @@ int TMastrini_application::crea_intestazione(int start_riga)
if (_stampanum < 3) if (_stampanum < 3)
set_row (r,"@11gnumero"); set_row (r,"@11gnumero");
set_row (r,FR("@23gData@34gNumero@42gCod.Causale@70gDescrizione@112gDare@127gAvere")); set_row (r,FR("@23gData@34gNumero@42gCod.Causale@70gDescrizione@112gDare@127gAvere"));
if (_stampa_des_contro) if (_stampa_saldo_des == 2)
set_row (r++,FR("@135gContropartita@183gIva@189gProtoc.@197gC")); set_row (r++,FR("@135gContropartita@183gIva@189gProtoc.@197gC"));
else else
set_row (r++,FR("@135gSaldo progre.@152gSaldo movim.@169gPartita@183gIva@189gProtoc.@197gC")); set_row (r++,FR("@135gSaldo progre.@152gSaldo movim.@169gPartita@183gIva@189gProtoc.@197gC"));
@ -3340,7 +3352,7 @@ int TMastrini_application::stampa_progressivi(int start_riga)
{ {
set_row (r,FR("@70gPROGRESSIVI PRECEDENTI@100g%r"), &_progredare); set_row (r,FR("@70gPROGRESSIVI PRECEDENTI@100g%r"), &_progredare);
set_row (r,"@117g%r", &_progreavere); set_row (r,"@117g%r", &_progreavere);
if (!_stampa_des_contro) if (_stampa_saldo_des < 3)
set_row (r++,"@135g%r", &_saldo_progre_prec); set_row (r++,"@135g%r", &_saldo_progre_prec);
} }

4
cg/cg3200.h
View File

@ -34,7 +34,7 @@
#define F_STAMPANUM 112 #define F_STAMPANUM 112
#define F_STAMPAPROGRE 113 #define F_STAMPAPROGRE 113
#define F_STAMPATOTIVA 114 #define F_STAMPATOTIVA 114
#define F_TIPOSTAMPA 115 #define F_SELEZ_STAMPA 115
#define F_STAMPAMOVPROV 116 #define F_STAMPAMOVPROV 116
#define F_DACDC 117 #define F_DACDC 117
#define F_ACDC 118 #define F_ACDC 118
@ -46,7 +46,7 @@
#define F_MEMORIZZA 500 #define F_MEMORIZZA 500
#define F_NUMCARAT 501 #define F_NUMCARAT 501
#define F_NUMMAST 502 #define F_NUMMAST 502
#define F_CONTRODES 503 #define F_SALDO_DES 503
#define F_CODDITTA 504 #define F_CODDITTA 504
#define F_RAGSOC 505 #define F_RAGSOC 505
#define F_SCELTE 506 #define F_SCELTE 506

153
cg/cg3200a.uml
View File

@ -24,7 +24,7 @@ PAGE "Stampa Mastrini" -1 -1 78 20
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 4 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -37,33 +37,24 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 4 2 "Ragione sociale " PROMPT 15 1 ""
FLAGS "D" FLAGS "D"
END END
TEXT 96 LIST F_TIPOCF_INI 25
BEGIN BEGIN
PROMPT 4 11 "Dalla data competenza" PROMPT 1 3 "Ricerca "
END ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
TEXT 97 ITEM "C|Clienti"
BEGIN MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
PROMPT 40 11 "Alla data competenza " ITEM "F|Fornitori"
END MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
TEXT 98
BEGIN
PROMPT 4 11 "Dalla data operazione "
END
TEXT 99
BEGIN
PROMPT 40 11 "Alla data operazione "
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 47 1 "Codice esercizio " PROMPT 56 3 "Esercizio "
USE ESC USE ESC
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
DISPLAY "Codice Esercizio" CODTAB DISPLAY "Codice Esercizio" CODTAB
@ -78,26 +69,15 @@ BEGIN
ADD NONE ADD NONE
END END
LIST F_TIPOCF_INI 25
BEGIN
PROMPT 4 4 "Ricerca "
ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
ITEM "C|Clienti"
MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
ITEM "F|Fornitori"
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
END
NUMBER F_GRUPPOINI 3 NUMBER F_GRUPPOINI 3
BEGIN BEGIN
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto " PROMPT 1 4 "Da Gruppo - Conto - Sottoconto "
GROUP 9 GROUP 9
END END
NUMBER F_CONTOINI_CONTO 3 NUMBER F_CONTOINI_CONTO 3
BEGIN BEGIN
PROMPT 41 5 "" PROMPT 39 4 ""
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO INPUT CONTO F_CONTOINI_CONTO
@ -116,7 +96,7 @@ END
NUMBER F_SOTTOCINI_CONTO 6 NUMBER F_SOTTOCINI_CONTO 6
BEGIN BEGIN
PROMPT 48 5 "" PROMPT 48 4 ""
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOINI INPUT GRUPPO F_GRUPPOINI
INPUT CONTO F_CONTOINI_CONTO INPUT CONTO F_CONTOINI_CONTO
@ -135,7 +115,7 @@ END
STRING F_DESCRINI_CONTO 50 STRING F_DESCRINI_CONTO 50
BEGIN BEGIN
PROMPT 4 6 "Descrizione " PROMPT 1 5 "Descrizione "
USE LF_PCON KEY 2 USE LF_PCON KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT DESCR F_DESCRINI_CONTO INPUT DESCR F_DESCRINI_CONTO
@ -149,7 +129,7 @@ END
NUMBER F_SOTTOCINI_CLIENTE 6 NUMBER F_SOTTOCINI_CLIENTE 6
BEGIN BEGIN
PROMPT 48 5 "" PROMPT 18 4 ""
USE LF_CLIFO USE LF_CLIFO
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -166,7 +146,7 @@ END
STRING F_DESCRINI_CLIENTE 50 STRING F_DESCRINI_CLIENTE 50
BEGIN BEGIN
PROMPT 4 6 "Ragione sociale C " PROMPT 1 5 "Ragione sociale C "
FIELD LF_CLIFO->RAGSOC FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -182,7 +162,7 @@ END
NUMBER F_SOTTOCINI_FORN 6 NUMBER F_SOTTOCINI_FORN 6
BEGIN BEGIN
PROMPT 48 5 "" PROMPT 18 4 ""
USE LF_CLIFO USE LF_CLIFO
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -200,7 +180,7 @@ END
STRING F_DESCRINI_FORN 50 STRING F_DESCRINI_FORN 50
BEGIN BEGIN
PROMPT 4 6 "Ragione Sociale F " PROMPT 1 5 "Ragione Sociale F "
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT RAGSOC F_DESCRINI_FORN INPUT RAGSOC F_DESCRINI_FORN
@ -215,7 +195,7 @@ END
LIST F_TIPOCF_FINE 25 LIST F_TIPOCF_FINE 25
BEGIN BEGIN
PROMPT 4 7 "Ricerca " PROMPT 1 6 "Ricerca "
ITEM " |Gruppo/conto/sottoconto" ITEM " |Gruppo/conto/sottoconto"
MESSAGE HIDE,5@|HIDE,6@|SHOW,4@ MESSAGE HIDE,5@|HIDE,6@|SHOW,4@
ITEM "C|Clienti" ITEM "C|Clienti"
@ -226,13 +206,13 @@ END
NUMBER F_GRUPPOFINE 3 NUMBER F_GRUPPOFINE 3
BEGIN BEGIN
PROMPT 4 8 "A Gruppo - Conto - Sottoconto " PROMPT 1 7 "A Gruppo - Conto - Sottoconto "
GROUP 9 GROUP 9
END END
NUMBER F_CONTOFINE_CONTO 3 NUMBER F_CONTOFINE_CONTO 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 39 7 ""
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") /* &&(TMCF="") */ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") /* &&(TMCF="") */
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO INPUT CONTO F_CONTOFINE_CONTO
@ -254,7 +234,7 @@ END
NUMBER F_CONTOFINE_CLIENTE 3 NUMBER F_CONTOFINE_CLIENTE 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 11 7 ""
USE LF_PCON SELECT TMCF="C" USE LF_PCON SELECT TMCF="C"
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CLIENTE INPUT CONTO F_CONTOFINE_CLIENTE
@ -273,7 +253,7 @@ END
NUMBER F_CONTOFINE_FORN 3 NUMBER F_CONTOFINE_FORN 3
BEGIN BEGIN
PROMPT 41 8 "" PROMPT 11 7 ""
USE LF_PCON SELECT TMCF="F" USE LF_PCON SELECT TMCF="F"
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_FORN INPUT CONTO F_CONTOFINE_FORN
@ -294,7 +274,7 @@ END
NUMBER F_SOTTOCFINE_CONTO 6 NUMBER F_SOTTOCFINE_CONTO 6
BEGIN BEGIN
PROMPT 48 8 "" PROMPT 48 7 ""
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPOFINE INPUT GRUPPO F_GRUPPOFINE
INPUT CONTO F_CONTOFINE_CONTO INPUT CONTO F_CONTOFINE_CONTO
@ -314,7 +294,7 @@ END
STRING F_DESCRFINE_CONTO 50 STRING F_DESCRFINE_CONTO 50
BEGIN BEGIN
PROMPT 4 9 "Descrizione " PROMPT 1 8 "Descrizione "
USE LF_PCON KEY 2 USE LF_PCON KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT DESCR F_DESCRFINE_CONTO INPUT DESCR F_DESCRFINE_CONTO
@ -328,7 +308,7 @@ END
NUMBER F_SOTTOCFINE_CLIENTE 6 NUMBER F_SOTTOCFINE_CLIENTE 6
BEGIN BEGIN
PROMPT 48 8 "" PROMPT 18 7 ""
USE LF_CLIFO USE LF_CLIFO
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Cliente inesistente o mancante" WARNING "Cliente inesistente o mancante"
@ -346,7 +326,7 @@ END
STRING F_DESCRFINE_CLIENTE 50 STRING F_DESCRFINE_CLIENTE 50
BEGIN BEGIN
PROMPT 4 9 "Ragione sociale " PROMPT 1 8 "Ragione sociale "
FIELD LF_CLIFO->RAGSOC FIELD LF_CLIFO->RAGSOC
CHECKTYPE NORMAL CHECKTYPE NORMAL
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
@ -363,7 +343,7 @@ END
NUMBER F_SOTTOCFINE_FORN 6 NUMBER F_SOTTOCFINE_FORN 6
BEGIN BEGIN
PROMPT 48 8 "" PROMPT 18 7 ""
USE LF_CLIFO USE LF_CLIFO
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Fornitore inesistente o mancante" WARNING "Fornitore inesistente o mancante"
@ -381,7 +361,7 @@ END
STRING F_DESCRFINE_FORN 50 STRING F_DESCRFINE_FORN 50
BEGIN BEGIN
PROMPT 4 9 "Ragione Sociale " PROMPT 1 8 "Ragione Sociale "
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -395,67 +375,88 @@ BEGIN
GROUP 6 9 GROUP 6 9
END END
TEXT 96
BEGIN
PROMPT 1 9 "Dalla data competenza"
END
TEXT 97
BEGIN
PROMPT 40 9 "Alla data competenza "
END
TEXT 98
BEGIN
PROMPT 1 9 "Dalla data operazione "
END
TEXT 99
BEGIN
PROMPT 40 9 "Alla data operazione "
END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 26 11 "" PROMPT 26 9 ""
END END
DATE F_DATAFINE DATE F_DATAFINE
BEGIN BEGIN
PROMPT 62 11 "" PROMPT 62 9 ""
END END
BOOLEAN F_STAMPATOTIVA BOOLEAN F_STAMPATOTIVA
BEGIN BEGIN
PROMPT 4 12 "Stampa totali documenti IVA" PROMPT 1 10 "Stampa totali documenti IVA"
GROUP 8 GROUP 8
END END
BOOLEAN F_STAMPAPROGRE BOOLEAN F_STAMPAPROGRE
BEGIN BEGIN
PROMPT 40 12 "Stampa progressivi attuali" PROMPT 40 10 "Stampa progressivi attuali"
GROUP 8 GROUP 8
END END
BOOLEAN F_STAMPAMOVPROV BOOLEAN F_STAMPAMOVPROV
BEGIN BEGIN
PROMPT 4 13 "Stampa movimenti provvisori" PROMPT 1 11 "Stampa movimenti provvisori"
GROUP 8 GROUP 8
END END
BOOLEAN F_SORTDESC BOOLEAN F_SORTDESC
BEGIN BEGIN
PROMPT 40 13 "Stampa ordinata per descrizione" PROMPT 40 11 "Stampa ordinata per descrizione"
GROUP 8 GROUP 8
END END
LIST F_NUMCARAT 20 RADIOBUTTON F_NUMCARAT 1 30
BEGIN BEGIN
PROMPT 4 14 "Tipo di stampa " PROMPT 1 11 ""
ITEM "1|Nomale (132 crt.)" ITEM "1|Stampa Nomale (132 crt.)"
MESSAGE HIDE,F_CONTRODES MESSAGE HIDE,F_SALDO_DES
ITEM "2|Estesa (198 crt.)" ITEM "2|Stampa Estesa (198 crt.)"
MESSAGE SHOW,F_CONTRODES MESSAGE SHOW,F_SALDO_DES
END END
RADIOBUTTON F_CONTRODES 1 38 RADIOBUTTON F_SALDO_DES 1 38
BEGIN BEGIN
PROMPT 42 13 "" PROMPT 40 11 ""
ITEM " |Stampa saldi progressivi" ITEM "1|Stampa saldi progressivi"
ITEM "X|Stampa descrizione contropartite" ITEM "2|Stampa saldo scalare"
ITEM "3|Stampa descrizione contropartite"
END END
LIST F_STAMPANUM 15 LIST F_STAMPANUM 15
BEGIN BEGIN
PROMPT 4 15 "Stampa numerazione " PROMPT 1 15 "Stampa numerazione "
ITEM "1|Operazione" ITEM "1|Operazione"
ITEM "2|Riga giornale" ITEM "2|Riga giornale"
ITEM "3|Nessuna" ITEM "3|Nessuna"
END END
LIST F_TIPOSTAMPA 34 LIST F_SELEZ_STAMPA 34
BEGIN BEGIN
PROMPT 4 16 "Selezione mastrini " PROMPT 1 16 "Selezione mastrini "
ITEM "1|Movimentati nel periodo" ITEM "1|Movimentati nel periodo"
ITEM "2|Con saldo diverso da 0" ITEM "2|Con saldo diverso da 0"
ITEM "3|Tutti" ITEM "3|Tutti"
@ -463,7 +464,7 @@ END
GROUPBOX DLG_NULL 71 5 GROUPBOX DLG_NULL 71 5
BEGIN BEGIN
PROMPT 4 17 "@bCentri di costo / Commesse" PROMPT 1 17 "@bCentri di costo / Commesse"
GROUP 7 GROUP 7
END END
@ -533,13 +534,13 @@ PAGE "Parametri" -1 -1 78 20
BOOLEAN F_SEPARATOR BOOLEAN F_SEPARATOR
BEGIN BEGIN
PROMPT 4 1 "Non stampare il separatore delle migliaia" PROMPT 1 1 "Non stampare il separatore delle migliaia"
GROUP 8 GROUP 8
END END
LIST F_NUMMAST 10 LIST F_NUMMAST 10
BEGIN BEGIN
PROMPT 4 2 "Mastrini per pagina " PROMPT 1 2 "Mastrini per pagina "
ITEM "1|Uno" ITEM "1|Uno"
ITEM "2|Due" ITEM "2|Due"
ITEM "3|Continua" ITEM "3|Continua"
@ -601,7 +602,7 @@ END
NUMBER F_GRUPPOINI 3 NUMBER F_GRUPPOINI 3
BEGIN BEGIN
PROMPT 44 2 "" PROMPT 14 2 ""
END END
NUMBER F_CONTOINI_CLIENTE 3 NUMBER F_CONTOINI_CLIENTE 3
@ -772,7 +773,7 @@ END
NUMBER F_GRUPPOFINE 3 NUMBER F_GRUPPOFINE 3
BEGIN BEGIN
PROMPT 44 4 "" PROMPT 14 4 ""
END END
NUMBER F_CONTOFINE_CLIENTE 3 NUMBER F_CONTOFINE_CLIENTE 3
@ -941,7 +942,7 @@ END
DATE F_DATAFINE DATE F_DATAFINE
BEGIN BEGIN
PROMPT 44 6 "Alla data " PROMPT 14 6 "Alla data "
END END
BOOLEAN F_STAMPATOTIVA BOOLEAN F_STAMPATOTIVA
@ -970,7 +971,7 @@ BEGIN
ITEM "3|Nessuna" ITEM "3|Nessuna"
END END
LIST F_TIPOSTAMPA 34 LIST F_SELEZ_STAMPA 34
BEGIN BEGIN
PROMPT 1 10 "Tipo stampa " PROMPT 1 10 "Tipo stampa "
ITEM "1|Mastrini movimentati nel periodo" ITEM "1|Mastrini movimentati nel periodo"

12
cg/cg3600b.uml
View File

@ -4,13 +4,21 @@ TOOLBAR "" 0 -3 0 3
BUTTON DLG_LINK 10 2 BUTTON DLG_LINK 10 2
BEGIN BEGIN
PROMPT -12 -11 "Colle~ga" PROMPT -13 -11 "Colle~ga"
PICTURE BMP_LINK PICTURE BMP_LINK
END END
BUTTON DLG_NEWREC 10 2
BEGIN
PROMPT -23 -11 "~Nuovo"
PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN
MESSAGE RUN,cg2 -0
END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -11 "" PROMPT -33 -11 ""
END END
ENDPAGE ENDPAGE