Patch level : 2.0 594
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:
parent
c477d3021c
commit
28f61dc059
178
cg/cg3200.cpp
178
cg/cg3200.cpp
@ -1,11 +1,14 @@
|
||||
#include <currency.h>
|
||||
#include <execp.h>
|
||||
#include <mailbox.h>
|
||||
#include <modaut.h>
|
||||
#include <msksheet.h>
|
||||
#include <printapp.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "cg3.h"
|
||||
#include "cg3200.h"
|
||||
#include "cglib02.h"
|
||||
#include "cglib03.h"
|
||||
|
||||
#include <clifo.h>
|
||||
#include <pconti.h>
|
||||
#include <mov.h>
|
||||
@ -16,11 +19,6 @@
|
||||
#include <nditte.h>
|
||||
#include <unloc.h>
|
||||
|
||||
#include "cg3.h"
|
||||
#include "cg3200.h"
|
||||
#include "cglib02.h"
|
||||
#include "cglib03.h"
|
||||
|
||||
class TMastrini_record : public TRectype
|
||||
{
|
||||
TBill _bill;
|
||||
@ -37,11 +35,11 @@ public:
|
||||
|
||||
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 c = atoi(TRectype::get_str("CONTO"));
|
||||
const long s = atol(TRectype::get_str("SOTTOCONTO"));
|
||||
const int g = atoi(TRectype::get_str(RMV_GRUPPO));
|
||||
const int c = atoi(TRectype::get_str(RMV_CONTO));
|
||||
const long s = atol(TRectype::get_str(RMV_SOTTOCONTO));
|
||||
((TBill&)_bill).set(g, c, s);
|
||||
const TString& descr = _bill.descrizione();
|
||||
return descr;
|
||||
@ -51,14 +49,14 @@ const TString& TMastrini_record::get_str(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 TRectype::length(fieldname);
|
||||
}
|
||||
|
||||
TFieldtypes TMastrini_record::type(const char* fieldname) const
|
||||
{
|
||||
if (strcmp(fieldname, "DESCR") == 0)
|
||||
if (strcmp(fieldname, RMV_DESCR) == 0)
|
||||
return _alfafld;
|
||||
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 _datareg,_datadoc,_data_inizioese,_datareg_stampa,_inizioes;
|
||||
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 _totprogre_dare,_totprogre_avere,_importo;
|
||||
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;
|
||||
long _sottocontocontr;
|
||||
|
||||
bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov, _stampa_des_contro;
|
||||
bool _stampaprogre,_stampatotiva,_stampatot,_stampa_mov_prov;
|
||||
bool _stampato,_devi_stampare_footer;
|
||||
int _stampa_saldo_des;
|
||||
|
||||
int _annomsk,_annoesmsk,_annoes,_annomsksucc,_tipo_mask,_anno_ghost;
|
||||
int _anno_corrente,_anno_precedente,_indbil,_numero_pag;
|
||||
@ -240,16 +239,22 @@ int TMastrini_application::righe_rimaste_da_stampare()
|
||||
|
||||
void TMastrini_application::process_link(int id, const char* txt)
|
||||
{
|
||||
const char* const app = "cg2 -0";
|
||||
TRectype mov(LF_MOV);
|
||||
mov.put(MOV_NUMREG, txt);
|
||||
mov.edit();
|
||||
|
||||
/* Vecchio modo barbaro ed obsoleto
|
||||
const char* const app = "cg2 -0";
|
||||
TToken_string ss(10);
|
||||
ss.add("1");
|
||||
ss.add(txt);
|
||||
|
||||
|
||||
TMessage fs(cmd2name(app), MSG_LN, ss);
|
||||
fs.send();
|
||||
|
||||
TExternal_app pn(app);
|
||||
pn.run();
|
||||
*/
|
||||
}
|
||||
|
||||
// Visualizzo le commesse se necessario
|
||||
@ -703,7 +708,7 @@ bool TMastrini_application::data_inizio(TMask_field& f, KEY k)
|
||||
}
|
||||
else
|
||||
{
|
||||
if (data == botime)
|
||||
if (!data.ok())
|
||||
return f.error_box(TR("La data deve essere obbligatoriamente indicata"));
|
||||
|
||||
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"));
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
@ -935,7 +938,7 @@ void TMastrini_application::fai_stampa198()
|
||||
_c_contr = rmov.get(RMV_CONTOC);
|
||||
_s_contr = rmov.get(RMV_SOTTOCONTOC);
|
||||
|
||||
if (_stampa_des_contro)
|
||||
if (_stampa_saldo_des == 3)
|
||||
{
|
||||
if (_sottocontocontr > 0)
|
||||
{
|
||||
@ -977,7 +980,7 @@ void TMastrini_application::stampa_totali_commessa()
|
||||
{
|
||||
set_row (_rw,"@100g%r", &_totale_commessa_dare);
|
||||
set_row (_rw,"@117g%r", &_totale_commessa_avere);
|
||||
if (!_stampa_des_contro)
|
||||
if (_stampa_saldo_des < 3)
|
||||
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,"@117g%r", &_totprogre_avere);
|
||||
|
||||
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);
|
||||
|
||||
if (_stampaprogre) //Progressivi attuali
|
||||
{
|
||||
_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,"@100g%r", &_totprogre_dare_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);
|
||||
}
|
||||
|
||||
@ -1238,7 +1244,7 @@ void TMastrini_application::carica_array_totali198()
|
||||
_totprogre_dare=_progredare+_totale_periodo_dare;
|
||||
_totprogre_avere=_progreavere+_totale_periodo_avere;
|
||||
|
||||
if (_stampa_des_contro)
|
||||
if (_stampa_saldo_des == 3)
|
||||
r.add("@32g%s@100g%s@117g%s");
|
||||
else
|
||||
r.add("@32g%s@100g%s@117g%s@151g%s");
|
||||
@ -1249,7 +1255,7 @@ void TMastrini_application::carica_array_totali198()
|
||||
_lista.add(r);
|
||||
r = "";
|
||||
|
||||
if (_stampa_des_contro)
|
||||
if (_stampa_saldo_des == 3)
|
||||
r.add("@32g%s@100g%s@117g%s");
|
||||
else
|
||||
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_progressivi = ZERO;
|
||||
_saldo_progre_prec = ZERO;
|
||||
if (_tipostampa == 2)
|
||||
if (_selez_mastrini == 2)
|
||||
{
|
||||
calcola_progressivi(TRUE);
|
||||
_totale_saldo = _saldo_progre_prec;
|
||||
}
|
||||
|
||||
if ((_tipostampa == 1) || (_tipostampa == 2))
|
||||
if ((_selez_mastrini == 1) || (_selez_mastrini == 2))
|
||||
{
|
||||
if ((_tipostampa == 1 && almeno_un_record()) ||
|
||||
(_tipostampa == 2 && _totale_saldo != ZERO))
|
||||
if ((_selez_mastrini == 1 && almeno_un_record()) ||
|
||||
(_selez_mastrini == 2 && _totale_saldo != ZERO))
|
||||
{
|
||||
_puoi_stampare = TRUE;
|
||||
|
||||
@ -1478,7 +1484,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
|
||||
}
|
||||
}
|
||||
else
|
||||
if (_tipostampa == 3)
|
||||
if (_selez_mastrini == 3)
|
||||
{
|
||||
calcola_progressivi();
|
||||
if (_progredare == ZERO && _progreavere == ZERO && !almeno_un_record())
|
||||
@ -1989,13 +1995,12 @@ bool TMastrini_application::preprocess_page(int file, int counter)
|
||||
|
||||
if (_numcarat == 1) // Stampa 132 caratteri
|
||||
set_row (_rw,"@83g%s", (const char*) _importo_str);
|
||||
else
|
||||
if (_numcarat == 2) // Stampa 198 caratteri
|
||||
{
|
||||
_saldo_progressivi += _importo;
|
||||
_saldo_movimenti += _importo;
|
||||
set_row (_rw,"@100g%s", (const char*) _importo_str);
|
||||
}
|
||||
else // Stampa 198 caratteri
|
||||
{
|
||||
_saldo_progressivi += _importo;
|
||||
_saldo_movimenti += _importo;
|
||||
set_row (_rw,"@100g%s", (const char*) _importo_str);
|
||||
}
|
||||
}
|
||||
else if (_sezione == "A")
|
||||
{
|
||||
@ -2006,13 +2011,12 @@ bool TMastrini_application::preprocess_page(int file, int counter)
|
||||
|
||||
if (_numcarat == 1) // Stampa 132 caratteri
|
||||
set_row (_rw,"@100g%s", (const char*) _importo_str);
|
||||
else
|
||||
if (_numcarat == 2) // Stampa 198 caratteri
|
||||
{
|
||||
_saldo_progressivi -= _importo;
|
||||
_saldo_movimenti -= _importo;
|
||||
set_row (_rw,"@117g%s", (const char*) _importo_str);
|
||||
}
|
||||
else // Stampa 198 caratteri
|
||||
{
|
||||
_saldo_progressivi -= _importo;
|
||||
_saldo_movimenti -= _importo;
|
||||
set_row (_rw,"@117g%s", (const char*) _importo_str);
|
||||
}
|
||||
}
|
||||
|
||||
const int righe_rimaste = printer().rows_left();
|
||||
@ -2043,18 +2047,21 @@ bool TMastrini_application::preprocess_page(int file, int counter)
|
||||
datasuccstring=datasucc.string();
|
||||
if (((gruppof!=_gruppo)||(contof!=_conto)||(sottocf!=_sottoc))||(rmov.eof()))
|
||||
datasucc = ("");
|
||||
if (datasucc != _dataregrmov)
|
||||
if (datasucc != _dataregrmov || _stampa_saldo_des == 2)
|
||||
{
|
||||
if (_flag_del_cazzo)
|
||||
{
|
||||
calcola_progressivi();
|
||||
_saldo_progressivi += _saldo_progre_prec;
|
||||
set_row (_rw,"@134g%r", &_saldo_progressivi);
|
||||
set_row (_rw,"@135g%r", &_saldo_progressivi);
|
||||
_saldo_progressivi -= _saldo_progre_prec;
|
||||
_flag_del_cazzo = FALSE;
|
||||
}
|
||||
if (!_stampa_des_contro)
|
||||
set_row (_rw,"@135g%r", &_saldo_progressivi);
|
||||
else
|
||||
{
|
||||
if (_stampa_saldo_des < 3) // Stampa saldo (non descrizioni)
|
||||
set_row (_rw,"@135g%r", &_saldo_progressivi);
|
||||
}
|
||||
}
|
||||
|
||||
rmov.readat(rec);
|
||||
@ -2157,7 +2164,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
|
||||
{
|
||||
if (_nummast == 1 || _nummast == 3)
|
||||
{
|
||||
if (_tipostampa == 3)
|
||||
if (_selez_mastrini == 3)
|
||||
{
|
||||
reset_print();
|
||||
if (_numcarat == 1)
|
||||
@ -2168,7 +2175,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
|
||||
if (_stampatotiva)
|
||||
stampa_totaliiva();
|
||||
}
|
||||
else if (_tipostampa == 2)
|
||||
else if (_selez_mastrini == 2)
|
||||
{
|
||||
reset_print();
|
||||
if ((_totale_saldo != 0.0) && (_puoi_stampare))
|
||||
@ -2181,7 +2188,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
|
||||
if (_stampatotiva)
|
||||
stampa_totaliiva();
|
||||
}
|
||||
else if (_tipostampa == 1)
|
||||
else if (_selez_mastrini == 1)
|
||||
{
|
||||
reset_print();
|
||||
if (_puoi_stampare)
|
||||
@ -2207,7 +2214,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
|
||||
carica_array_totali198();
|
||||
}
|
||||
|
||||
if (_tipostampa == 3)
|
||||
if (_selez_mastrini == 3)
|
||||
{
|
||||
reset_print();
|
||||
if (_numcarat == 1)
|
||||
@ -2215,7 +2222,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
|
||||
else
|
||||
stampa_totali198_II();
|
||||
}
|
||||
else if (_tipostampa == 2)
|
||||
else if (_selez_mastrini == 2)
|
||||
{
|
||||
reset_print();
|
||||
if ((_totale_saldo != 0.0) && (_puoi_stampare))
|
||||
@ -2224,7 +2231,7 @@ print_action TMastrini_application::postprocess_page(int file, int counter)
|
||||
else
|
||||
stampa_totali198_II();
|
||||
}
|
||||
else if (_tipostampa == 1)
|
||||
else if (_selez_mastrini == 1)
|
||||
{
|
||||
reset_print();
|
||||
if (_puoi_stampare)
|
||||
@ -2426,10 +2433,10 @@ bool TMastrini_application::set_print(int m)
|
||||
_stampatotiva = _msk->get_bool(F_STAMPATOTIVA);
|
||||
_stampanum = _msk->get_int(F_STAMPANUM);
|
||||
_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);
|
||||
_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);
|
||||
_data_ini = _msk->get_date(F_DATAINI);
|
||||
_data_fine = _msk->get_date(F_DATAFINE);
|
||||
@ -2495,7 +2502,7 @@ bool TMastrini_application::set_print(int m)
|
||||
_riga.destroy();
|
||||
_lista.destroy();
|
||||
|
||||
switch (_tipostampa)
|
||||
switch (_selez_mastrini)
|
||||
{
|
||||
case 1: _totale_saldo = 1.0; break;
|
||||
case 2: _totale_saldo = 0.0; break;
|
||||
@ -2579,30 +2586,30 @@ void TMastrini_application::preprocess_header()
|
||||
{
|
||||
if (_nummast == 1)
|
||||
{
|
||||
if (_tipostampa == 3)
|
||||
if (_selez_mastrini == 3) // Tutti
|
||||
crea_intestazione();
|
||||
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();
|
||||
}
|
||||
else if (_tipostampa == 1)
|
||||
else if (_selez_mastrini == 1)
|
||||
if (_puoi_stampare)
|
||||
crea_intestazione();
|
||||
}
|
||||
else
|
||||
if (_nummast == 3 && !_gia_stampata_intestazione)
|
||||
{
|
||||
if (_tipostampa == 3)
|
||||
if (_selez_mastrini == 3) // Tutti
|
||||
crea_intestazione();
|
||||
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();
|
||||
}
|
||||
else if (_tipostampa == 1)
|
||||
else if (_selez_mastrini == 1) // Movimentati nel periodo
|
||||
if (_puoi_stampare)
|
||||
crea_intestazione();
|
||||
}
|
||||
@ -2726,9 +2733,6 @@ void TMastrini_application::ricerca_dati_ditta()
|
||||
void TMastrini_application::crea_intestazione()
|
||||
{
|
||||
TString sep(133),sep1(198);
|
||||
sep = "";
|
||||
|
||||
|
||||
reset_header();
|
||||
|
||||
int np = get_page_number();
|
||||
@ -2833,11 +2837,11 @@ void TMastrini_application::crea_intestazione()
|
||||
sep.fill('_');
|
||||
set_header (9, (const char *) sep);
|
||||
}
|
||||
else if (_numcarat == 2)
|
||||
else
|
||||
{
|
||||
sep1.fill('_'); //Stampa 198 - (sep1(198))
|
||||
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",
|
||||
TR("Operazione"), TR("Documento"),
|
||||
@ -2855,17 +2859,25 @@ void TMastrini_application::crea_intestazione()
|
||||
if (_stampanum < 3)
|
||||
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",
|
||||
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"));
|
||||
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)
|
||||
@ -2885,11 +2897,11 @@ void TMastrini_application::crea_intestazione()
|
||||
set_header (10,"@83g%s", real2str(_progredare));
|
||||
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,"@117g%s", real2str(_progreavere));
|
||||
if (!_stampa_des_contro)
|
||||
if (_stampa_saldo_des < 3)
|
||||
set_header (10,"@135g%s", real2str(_saldo_progre_prec));
|
||||
}
|
||||
_riporto_dare = _progredare;
|
||||
@ -3039,7 +3051,7 @@ int TMastrini_application::crea_intestazione(int start_riga)
|
||||
{
|
||||
sep1.fill('_'); //Stampa 198 - (sep1(198))
|
||||
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"));
|
||||
else
|
||||
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)
|
||||
set_row (r,"@11gnumero");
|
||||
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"));
|
||||
else
|
||||
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,"@117g%r", &_progreavere);
|
||||
if (!_stampa_des_contro)
|
||||
if (_stampa_saldo_des < 3)
|
||||
set_row (r++,"@135g%r", &_saldo_progre_prec);
|
||||
}
|
||||
|
||||
|
@ -34,7 +34,7 @@
|
||||
#define F_STAMPANUM 112
|
||||
#define F_STAMPAPROGRE 113
|
||||
#define F_STAMPATOTIVA 114
|
||||
#define F_TIPOSTAMPA 115
|
||||
#define F_SELEZ_STAMPA 115
|
||||
#define F_STAMPAMOVPROV 116
|
||||
#define F_DACDC 117
|
||||
#define F_ACDC 118
|
||||
@ -46,7 +46,7 @@
|
||||
#define F_MEMORIZZA 500
|
||||
#define F_NUMCARAT 501
|
||||
#define F_NUMMAST 502
|
||||
#define F_CONTRODES 503
|
||||
#define F_SALDO_DES 503
|
||||
#define F_CODDITTA 504
|
||||
#define F_RAGSOC 505
|
||||
#define F_SCELTE 506
|
||||
|
153
cg/cg3200a.uml
153
cg/cg3200a.uml
@ -24,7 +24,7 @@ PAGE "Stampa Mastrini" -1 -1 78 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 4 1 "Ditta "
|
||||
PROMPT 1 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
@ -37,33 +37,24 @@ END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 4 2 "Ragione sociale "
|
||||
PROMPT 15 1 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
LIST F_TIPOCF_INI 25
|
||||
BEGIN
|
||||
PROMPT 4 11 "Dalla data competenza"
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 40 11 "Alla data competenza "
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 4 11 "Dalla data operazione "
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 40 11 "Alla data operazione "
|
||||
PROMPT 1 3 "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_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 47 1 "Codice esercizio "
|
||||
PROMPT 56 3 "Esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Codice Esercizio" CODTAB
|
||||
@ -78,26 +69,15 @@ BEGIN
|
||||
ADD NONE
|
||||
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
|
||||
BEGIN
|
||||
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
|
||||
PROMPT 1 4 "Da Gruppo - Conto - Sottoconto "
|
||||
GROUP 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOINI_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 41 5 ""
|
||||
PROMPT 39 4 ""
|
||||
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
||||
INPUT GRUPPO F_GRUPPOINI
|
||||
INPUT CONTO F_CONTOINI_CONTO
|
||||
@ -116,7 +96,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCINI_CONTO 6
|
||||
BEGIN
|
||||
PROMPT 48 5 ""
|
||||
PROMPT 48 4 ""
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
INPUT GRUPPO F_GRUPPOINI
|
||||
INPUT CONTO F_CONTOINI_CONTO
|
||||
@ -135,7 +115,7 @@ END
|
||||
|
||||
STRING F_DESCRINI_CONTO 50
|
||||
BEGIN
|
||||
PROMPT 4 6 "Descrizione "
|
||||
PROMPT 1 5 "Descrizione "
|
||||
USE LF_PCON KEY 2
|
||||
CHECKTYPE NORMAL
|
||||
INPUT DESCR F_DESCRINI_CONTO
|
||||
@ -149,7 +129,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCINI_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 48 5 ""
|
||||
PROMPT 18 4 ""
|
||||
USE LF_CLIFO
|
||||
CHECKTYPE NORMAL
|
||||
INPUT TIPOCF "C"
|
||||
@ -166,7 +146,7 @@ END
|
||||
|
||||
STRING F_DESCRINI_CLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 4 6 "Ragione sociale C "
|
||||
PROMPT 1 5 "Ragione sociale C "
|
||||
FIELD LF_CLIFO->RAGSOC
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
@ -182,7 +162,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCINI_FORN 6
|
||||
BEGIN
|
||||
PROMPT 48 5 ""
|
||||
PROMPT 18 4 ""
|
||||
USE LF_CLIFO
|
||||
CHECKTYPE NORMAL
|
||||
INPUT TIPOCF "F"
|
||||
@ -200,7 +180,7 @@ END
|
||||
|
||||
STRING F_DESCRINI_FORN 50
|
||||
BEGIN
|
||||
PROMPT 4 6 "Ragione Sociale F "
|
||||
PROMPT 1 5 "Ragione Sociale F "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_DESCRINI_FORN
|
||||
@ -215,7 +195,7 @@ END
|
||||
|
||||
LIST F_TIPOCF_FINE 25
|
||||
BEGIN
|
||||
PROMPT 4 7 "Ricerca "
|
||||
PROMPT 1 6 "Ricerca "
|
||||
ITEM " |Gruppo/conto/sottoconto"
|
||||
MESSAGE HIDE,5@|HIDE,6@|SHOW,4@
|
||||
ITEM "C|Clienti"
|
||||
@ -226,13 +206,13 @@ END
|
||||
|
||||
NUMBER F_GRUPPOFINE 3
|
||||
BEGIN
|
||||
PROMPT 4 8 "A Gruppo - Conto - Sottoconto "
|
||||
PROMPT 1 7 "A Gruppo - Conto - Sottoconto "
|
||||
GROUP 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOFINE_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 41 8 ""
|
||||
PROMPT 39 7 ""
|
||||
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") /* &&(TMCF="") */
|
||||
INPUT GRUPPO F_GRUPPOFINE
|
||||
INPUT CONTO F_CONTOFINE_CONTO
|
||||
@ -254,7 +234,7 @@ END
|
||||
|
||||
NUMBER F_CONTOFINE_CLIENTE 3
|
||||
BEGIN
|
||||
PROMPT 41 8 ""
|
||||
PROMPT 11 7 ""
|
||||
USE LF_PCON SELECT TMCF="C"
|
||||
INPUT GRUPPO F_GRUPPOFINE
|
||||
INPUT CONTO F_CONTOFINE_CLIENTE
|
||||
@ -273,7 +253,7 @@ END
|
||||
|
||||
NUMBER F_CONTOFINE_FORN 3
|
||||
BEGIN
|
||||
PROMPT 41 8 ""
|
||||
PROMPT 11 7 ""
|
||||
USE LF_PCON SELECT TMCF="F"
|
||||
INPUT GRUPPO F_GRUPPOFINE
|
||||
INPUT CONTO F_CONTOFINE_FORN
|
||||
@ -294,7 +274,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCFINE_CONTO 6
|
||||
BEGIN
|
||||
PROMPT 48 8 ""
|
||||
PROMPT 48 7 ""
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
INPUT GRUPPO F_GRUPPOFINE
|
||||
INPUT CONTO F_CONTOFINE_CONTO
|
||||
@ -314,7 +294,7 @@ END
|
||||
|
||||
STRING F_DESCRFINE_CONTO 50
|
||||
BEGIN
|
||||
PROMPT 4 9 "Descrizione "
|
||||
PROMPT 1 8 "Descrizione "
|
||||
USE LF_PCON KEY 2
|
||||
CHECKTYPE NORMAL
|
||||
INPUT DESCR F_DESCRFINE_CONTO
|
||||
@ -328,7 +308,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCFINE_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 48 8 ""
|
||||
PROMPT 18 7 ""
|
||||
USE LF_CLIFO
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Cliente inesistente o mancante"
|
||||
@ -346,7 +326,7 @@ END
|
||||
|
||||
STRING F_DESCRFINE_CLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 4 9 "Ragione sociale "
|
||||
PROMPT 1 8 "Ragione sociale "
|
||||
FIELD LF_CLIFO->RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
USE LF_CLIFO KEY 2
|
||||
@ -363,7 +343,7 @@ END
|
||||
|
||||
NUMBER F_SOTTOCFINE_FORN 6
|
||||
BEGIN
|
||||
PROMPT 48 8 ""
|
||||
PROMPT 18 7 ""
|
||||
USE LF_CLIFO
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Fornitore inesistente o mancante"
|
||||
@ -381,7 +361,7 @@ END
|
||||
|
||||
STRING F_DESCRFINE_FORN 50
|
||||
BEGIN
|
||||
PROMPT 4 9 "Ragione Sociale "
|
||||
PROMPT 1 8 "Ragione Sociale "
|
||||
USE LF_CLIFO KEY 2
|
||||
CHECKTYPE NORMAL
|
||||
INPUT TIPOCF "F"
|
||||
@ -395,67 +375,88 @@ BEGIN
|
||||
GROUP 6 9
|
||||
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
|
||||
BEGIN
|
||||
PROMPT 26 11 ""
|
||||
PROMPT 26 9 ""
|
||||
END
|
||||
|
||||
DATE F_DATAFINE
|
||||
BEGIN
|
||||
PROMPT 62 11 ""
|
||||
PROMPT 62 9 ""
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATOTIVA
|
||||
BEGIN
|
||||
PROMPT 4 12 "Stampa totali documenti IVA"
|
||||
PROMPT 1 10 "Stampa totali documenti IVA"
|
||||
GROUP 8
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAPROGRE
|
||||
BEGIN
|
||||
PROMPT 40 12 "Stampa progressivi attuali"
|
||||
PROMPT 40 10 "Stampa progressivi attuali"
|
||||
GROUP 8
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVPROV
|
||||
BEGIN
|
||||
PROMPT 4 13 "Stampa movimenti provvisori"
|
||||
PROMPT 1 11 "Stampa movimenti provvisori"
|
||||
GROUP 8
|
||||
END
|
||||
|
||||
BOOLEAN F_SORTDESC
|
||||
BEGIN
|
||||
PROMPT 40 13 "Stampa ordinata per descrizione"
|
||||
PROMPT 40 11 "Stampa ordinata per descrizione"
|
||||
GROUP 8
|
||||
END
|
||||
|
||||
LIST F_NUMCARAT 20
|
||||
RADIOBUTTON F_NUMCARAT 1 30
|
||||
BEGIN
|
||||
PROMPT 4 14 "Tipo di stampa "
|
||||
ITEM "1|Nomale (132 crt.)"
|
||||
MESSAGE HIDE,F_CONTRODES
|
||||
ITEM "2|Estesa (198 crt.)"
|
||||
MESSAGE SHOW,F_CONTRODES
|
||||
PROMPT 1 11 ""
|
||||
ITEM "1|Stampa Nomale (132 crt.)"
|
||||
MESSAGE HIDE,F_SALDO_DES
|
||||
ITEM "2|Stampa Estesa (198 crt.)"
|
||||
MESSAGE SHOW,F_SALDO_DES
|
||||
END
|
||||
|
||||
RADIOBUTTON F_CONTRODES 1 38
|
||||
RADIOBUTTON F_SALDO_DES 1 38
|
||||
BEGIN
|
||||
PROMPT 42 13 ""
|
||||
ITEM " |Stampa saldi progressivi"
|
||||
ITEM "X|Stampa descrizione contropartite"
|
||||
PROMPT 40 11 ""
|
||||
ITEM "1|Stampa saldi progressivi"
|
||||
ITEM "2|Stampa saldo scalare"
|
||||
ITEM "3|Stampa descrizione contropartite"
|
||||
END
|
||||
|
||||
LIST F_STAMPANUM 15
|
||||
BEGIN
|
||||
PROMPT 4 15 "Stampa numerazione "
|
||||
PROMPT 1 15 "Stampa numerazione "
|
||||
ITEM "1|Operazione"
|
||||
ITEM "2|Riga giornale"
|
||||
ITEM "3|Nessuna"
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA 34
|
||||
LIST F_SELEZ_STAMPA 34
|
||||
BEGIN
|
||||
PROMPT 4 16 "Selezione mastrini "
|
||||
PROMPT 1 16 "Selezione mastrini "
|
||||
ITEM "1|Movimentati nel periodo"
|
||||
ITEM "2|Con saldo diverso da 0"
|
||||
ITEM "3|Tutti"
|
||||
@ -463,7 +464,7 @@ END
|
||||
|
||||
GROUPBOX DLG_NULL 71 5
|
||||
BEGIN
|
||||
PROMPT 4 17 "@bCentri di costo / Commesse"
|
||||
PROMPT 1 17 "@bCentri di costo / Commesse"
|
||||
GROUP 7
|
||||
END
|
||||
|
||||
@ -533,13 +534,13 @@ PAGE "Parametri" -1 -1 78 20
|
||||
|
||||
BOOLEAN F_SEPARATOR
|
||||
BEGIN
|
||||
PROMPT 4 1 "Non stampare il separatore delle migliaia"
|
||||
PROMPT 1 1 "Non stampare il separatore delle migliaia"
|
||||
GROUP 8
|
||||
END
|
||||
|
||||
LIST F_NUMMAST 10
|
||||
BEGIN
|
||||
PROMPT 4 2 "Mastrini per pagina "
|
||||
PROMPT 1 2 "Mastrini per pagina "
|
||||
ITEM "1|Uno"
|
||||
ITEM "2|Due"
|
||||
ITEM "3|Continua"
|
||||
@ -601,7 +602,7 @@ END
|
||||
|
||||
NUMBER F_GRUPPOINI 3
|
||||
BEGIN
|
||||
PROMPT 44 2 ""
|
||||
PROMPT 14 2 ""
|
||||
END
|
||||
|
||||
NUMBER F_CONTOINI_CLIENTE 3
|
||||
@ -772,7 +773,7 @@ END
|
||||
|
||||
NUMBER F_GRUPPOFINE 3
|
||||
BEGIN
|
||||
PROMPT 44 4 ""
|
||||
PROMPT 14 4 ""
|
||||
END
|
||||
|
||||
NUMBER F_CONTOFINE_CLIENTE 3
|
||||
@ -941,7 +942,7 @@ END
|
||||
|
||||
DATE F_DATAFINE
|
||||
BEGIN
|
||||
PROMPT 44 6 "Alla data "
|
||||
PROMPT 14 6 "Alla data "
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATOTIVA
|
||||
@ -970,7 +971,7 @@ BEGIN
|
||||
ITEM "3|Nessuna"
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA 34
|
||||
LIST F_SELEZ_STAMPA 34
|
||||
BEGIN
|
||||
PROMPT 1 10 "Tipo stampa "
|
||||
ITEM "1|Mastrini movimentati nel periodo"
|
||||
|
@ -4,13 +4,21 @@ TOOLBAR "" 0 -3 0 3
|
||||
|
||||
BUTTON DLG_LINK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -11 "Colle~ga"
|
||||
PROMPT -13 -11 "Colle~ga"
|
||||
PICTURE BMP_LINK
|
||||
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
|
||||
BEGIN
|
||||
PROMPT -22 -11 ""
|
||||
PROMPT -33 -11 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
Loading…
x
Reference in New Issue
Block a user