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

Riorganizzaizone funzione di stampa giornale

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4561 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-06-09 11:05:38 +00:00
parent c57668bfe8
commit 8cb3c94fbe
4 changed files with 591 additions and 227 deletions

498
mg/mg4300.cpp

@ -14,38 +14,82 @@
#include "stomag.h"
#include "umart.h"
#include "..\ve\velib03.h"
#include "..\ve\veconf.h"
#include "mglib02.h"
#include "mglib03.h"
#include "mglib.h"
#include "mg4300.h"
#include "mg4frm.h"
class TForm_giornalemag : public TForm_stampemg
class TRegistro_giornalemag : public TRegistro_std
{
public:
int freq_stampa() const { return get_int("I3"); }
bool raggruppato() const { return get_int("B1"); }
bool ragg_mag() const { return get_int("B2"); }
bool ragg_giac() const { return get_int("B3"); }
bool ragg_clafis() const { return get_int("B4"); }
bool ragg_grpfis() const { return get_int("B5"); }
bool ragg_caus() const { return get_int("B6"); }
void set_last_numreg(long n) { put("I4",n); }
int last_numreg() const { return get_int("I4"); }
TRegistro_giornalemag(const char* code = "", int year = 0);
virtual ~TRegistro_giornalemag() {}
};
// ************************************************
// TEMP!!!!!!!!!!!!!!!!
TRegistro_giornalemag::
TRegistro_giornalemag(const char* cod, int year)
:TRegistro_std(cod,year)
{
if (tipo()!=TIPOREG_GIOMAG)
fatal_box("Il registro richiesto non è relativo ad un libro giornale di magazzino");
}
class TGiornalemag : public TForm_stampemg
{
static TDate dadata;
static TDate adata;
static int freq_stampa;
static bool stampa_def;
static bool ragg_mag;
static bool ragg_articoli;
static bool ragg_classi;
static bool ragg_raggart;
static bool ragg_caus;
static TCursor * cur;
static TAssoc_array _cod_magazzini;
static int _annoes;
long last_num_reg;
word last_pag_stampata;
TConfig *conf_ditta;
TArticolo_giacenza * _curr_art;
TString16 _codlist,_catven;
TRegistro_giornalemag *_reg_giorn;
private:
TArticolo_giacenza &curr_art();
static const char * get_fiscfield(TVariable_rectype & r);
static const char * get_cronofield(TVariable_rectype & r);
static bool filter_func(const TRelation* r);
protected:
void add_mag(TRectype & magrec,const char * codreg);
public:
void set_parametri(TMask & m);
bool can_be_printed();
bool validate(TForm_item &cf, TToken_string &s);
TForm_giornalemag(const char *name,const char *code) ;
~TForm_giornalemag();
TGiornalemag(const char *name,const char *code) ;
~TGiornalemag();
};
bool TForm_giornalemag::validate(TForm_item &cf, TToken_string &s)
{
const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
TString subcode;
if (code=="_USER") {
}
return TForm_stampemg::validate(cf, s);
}
TArticolo_giacenza &TForm_giornalemag::curr_art()
TArticolo_giacenza &TGiornalemag::curr_art()
{
TRectype & magrec=relation()->lfile(LF_MAG).curr();
if (_curr_art==NULL || _curr_art->codice()!=magrec.get(MAG_CODART) ) {
@ -55,35 +99,321 @@ TArticolo_giacenza &TForm_giornalemag::curr_art()
return *_curr_art;
}
bool TGiornalemag::validate(TForm_item &cf, TToken_string &s)
{
const TString code(s.get(0)); // prende il primo parametro, il codice del messaggio
TString valore,vv;
TString subcode;
if (code=="_USER") {
subcode=s.get();
if (subcode== "INTEST_REG") {
cf.set(_reg_giorn->intest());
return TRUE;
} else if (subcode== "INTEST_DITTA") {
if (!_reg_giorn->stampa_intditta()) return TRUE;
s="_DITTA,!RAGSOC";
} else if (subcode== "PAGENO") {
valore << (int)(last_pag_stampata+printer().getcurrentpage());
cf.set(valore);
return TRUE;
} else if (subcode== "NUMREGST") {
valore << last_num_reg;
cf.set(valore);
return TRUE;
} else if (subcode=="INCNUMREGST") {
last_num_reg=max(last_num_reg,_reg_giorn->last_numreg())+1;
if (stampa_def)
{
_reg_giorn->set_last_numreg(last_num_reg);
_reg_giorn->rewrite();
}
return TRUE;
} else if (subcode== "REGISTRASTAMPA") {
TRectype & movr=cursor()->relation()->lfile(LF_MOVMAG).curr();
if ((1 || movr.get_long("NUMREGST")<=last_num_reg )&& stampa_def)
{
// movimento ancora da registrare
movr.put("NUMREGST",last_num_reg+1);
cursor()->relation()->lfile(LF_MOVMAG).rewrite();
_reg_giorn->set_pag_stampate(last_pag_stampata+printer().getcurrentpage());
_reg_giorn->set_last_print(TDate(TODAY));
_reg_giorn->rewrite();
}
} else if (subcode== "INFO_CRONO") {
TDate datamov(cursor()->relation()->lfile(LF_MOVMAG).get_date("DATAREG"));
switch (freq_stampa ) {
case 0:
valore.format("%7g Movimento del %s ", (double)last_num_reg+1, (const char *)datamov.string());
valore << cursor()->relation()->lfile(LF_MOVMAG).get("DESCR");
break;
default:
valore.format("%7g Movimenti del %s, dal %d al %d", (double)last_num_reg+1,
(const char *)itom(datamov.month()),
(int)((datamov.day()-1)/freq_stampa)*freq_stampa+1,
(int)min(((datamov.day()-1)/freq_stampa+1)*freq_stampa,TDate::last_day(datamov.month(),datamov.year())) );
break;
}
cf.set(valore);
return TRUE;
} else if (subcode== "INFO_FISC") {
valore.cut(0);
if (!ragg_mag)
{
vv=cursor()->relation()->lfile(LF_RMOVMAG).get("CODMAG");
valore << "Mag." << vv.mid(0,3);
vv=vv.mid(3,2);
if (vv.not_empty())
valore << '-' << vv ;
else
valore << " " ;
valore << ' ';
}
if (ragg_articoli)
{
valore << "Art." << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART) << ' ';
} else {
if (ragg_classi)
{
valore << "Classe fiscale " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS) << ' ';
if (ragg_raggart)
{
valore << " ragg. " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS) << ' ';
}
} else {
vv.cut(0);
if (!ragg_caus && freq_stampa==0)
{
//valore << "Mov." << cursor()->relation()->lfile(LF_RMOVMAG).get("NUMREG") << "/";
//valore << cursor()->relation()->lfile(LF_RMOVMAG).get("NRIG");
}
vv << "Art. " << cursor()->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART);
vv << ' ' << cursor()->relation()->lfile(LF_RMOVMAG).get("LIVGIAC") << ' ';
}
}
if (ragg_caus)
{
valore << "Causali " << cur->relation()->lfile(-ALIAS_CAUSALI).get("S8") << ' ';
}
valore << vv;
cf.set(valore);
return TRUE;
}
}
return TForm_stampemg::validate(cf, s);
}
TForm_giornalemag::TForm_giornalemag(const char *name,const char *code) :
TForm_stampemg(name,code),_curr_art(NULL)
const char * TGiornalemag::get_cronofield(TVariable_rectype & r)
{
static TString80 valore;
TDate datamov(cur->relation()->lfile(LF_MOVMAG).get_date("DATAREG"));
long numreg=cur->relation()->lfile(LF_MOVMAG).get_int("NUMREG");
// gestione frequenza
valore.cut(0);
switch (freq_stampa ) {
case 0:
valore.format("%4d%2d%2d%7d",datamov.year(),
datamov.month(),
datamov.day(),
numreg);
break;
default:
valore.format("%4d%2d%2d",datamov.year(),
datamov.month(),
(int)(datamov.day()/freq_stampa));
}
return valore;
}
const char * TGiornalemag::get_fiscfield(TVariable_rectype & r)
{
static TString80 valore;
TString vv;
valore.cut(0);
// gestione ragruppamenti
if (!ragg_mag)
{
valore.format("%-15s",(const char *)cur->relation()->lfile(LF_RMOVMAG).get("CODMAG"));
}
if (ragg_articoli)
{
valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART);
} else {
if (ragg_classi)
{
valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS);
if (ragg_raggart)
{
valore << cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS);
}
} else {
if (!ragg_caus && freq_stampa==0) {
vv.format("%4d",cur->relation()->lfile(LF_RMOVMAG).get_int("NRIG"));
} else {
TString c1(cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART));
TString c2(cur->relation()->lfile(LF_RMOVMAG).get("LIVGIAC"));
vv.format("%-20s%-15s", (const char *)c1,(const char *)c2 );
}
}
}
if (ragg_caus)
{
valore << cur->relation()->lfile(-ALIAS_CAUSALI).get("S8");
}
valore << vv;
return valore;
}
void TGiornalemag::set_parametri(TMask & m)
{
// set static variables
dadata=m.get_date(F_DATAIN);
adata=m.get_date(F_DATAFIN);
freq_stampa = m.get_int(F_FREQ);
stampa_def = (*m.get(F_DEFINITIVA) == 'D');
ragg_mag = m.get_bool(F_RAGGMAG);
ragg_articoli = m.get_bool(F_RAGGARTICOLI );
ragg_classi = m.get_bool(F_CLASSEFISART );
ragg_raggart = m.get_bool(F_RAGGFISART );
ragg_caus = m.get_bool(F_RAGGCAUS );
_annoes=m.get_int(F_ANNOES);
cur=cursor();
// load Tregistro
if (_reg_giorn) delete _reg_giorn;
_reg_giorn= new TRegistro_giornalemag(m.get(F_CODREG),m.get_int(F_ANNOES));
last_pag_stampata=_reg_giorn->pag_stampate();
last_num_reg=_reg_giorn->last_numreg();
// show/hide sections
find_field('B',odd_page,"HEADER_RAGG_FISC").show(
ragg_articoli || ragg_classi || ragg_caus);
find_field('B',odd_page,"HEADER_MOV").show(freq_stampa==0);
TVariable_rectype *vrec_rmov= new TVariable_rectype(LF_RMOVMAG);
vrec_rmov->add_field(new TVariable_field ("CRONO_FIELD",get_cronofield,32));
vrec_rmov->add_field(new TVariable_field ("FISC_FIELD",get_fiscfield,48));
cursor()->relation()->lfile().set_curr(vrec_rmov);
// inserisce tutti i magazzini collegati
TTable mag("MAG");
_cod_magazzini.destroy();
mag.first();
while (!mag.eof())
{
TString16 codmag(mag.get("CODTAB").left(3));
if (mag.get("CODTAB")==codmag)
if (mag.get("S8")==m.get(F_CODREG))
_cod_magazzini.add(codmag);
mag.next();
}
// setta il filtro sui magazzini di questo giornale
cursor()->set_filterfunction(filter_func,TRUE);
}
// unused : ora i magazzini hanno l'indicazione esplicita del registro
void TGiornalemag::add_mag(TRectype & magrec,const char * codreg)
{
TString16 codmag(magrec.get("CODTAB").left(3));
if (magrec.get("CODTAB")==codmag)
{
if (_cod_magazzini.is_key(codmag)) return;
if (magrec.get_int("I2")==1)
{
// Indicazione di magazzino
TTable mag("MAG");
mag.put("CODTAB",magrec.get("S6"));
mag.read();
add_mag(mag.curr(),codreg);
} else {
// Indicazione di libro giornale
if (magrec.get("S8")==codreg)
_cod_magazzini.add(codmag);
}
}
}
bool TGiornalemag::filter_func(const TRelation* r)
{
bool rval;
rval = r->lfile(LF_MOVMAG).get_date("DATAREG").year()==_annoes;
rval &=_cod_magazzini.is_key(r->lfile(LF_RMOVMAG).get("CODMAG").left(3));
if (!dadata.empty()) rval &=r->lfile(LF_MOVMAG).get_date("DATAREG")>=dadata;
if (!adata.empty()) rval &=r->lfile(LF_MOVMAG).get_date("DATAREG")<=adata;
return rval;
}
bool TGiornalemag::can_be_printed()
{
if (stampa_def)
{
TLocalisamfile mov(LF_MOVMAG);
mov.setkey(3);
mov.put("DATAREG",dadata);
mov.read();
mov.prev();
if (!mov.eof() || mov.get("NUMREGST")!=_reg_giorn->last_numreg())
return FALSE;
}
return TRUE;
}
TGiornalemag::TGiornalemag(const char *name,const char *code) :
TForm_stampemg(name,code),_curr_art(NULL),
last_pag_stampata(0),last_num_reg(0),_reg_giorn(NULL)
{
}
TForm_giornalemag::~TForm_giornalemag()
TGiornalemag::~TGiornalemag()
{
if (_curr_art) delete _curr_art;
if (_reg_giorn) delete _reg_giorn;
}
// dichiarazioni degli static
TDate TGiornalemag::dadata;
TDate TGiornalemag::adata;
int TGiornalemag::freq_stampa;
bool TGiornalemag::ragg_mag;
bool TGiornalemag::stampa_def;
bool TGiornalemag::ragg_articoli;
bool TGiornalemag::ragg_classi;
bool TGiornalemag::ragg_raggart;
bool TGiornalemag::ragg_caus;
TCursor * TGiornalemag::cur;
TAssoc_array TGiornalemag::_cod_magazzini;
int TGiornalemag::_annoes;
// STAMPA giornale
class TStampa_giornalemag : public TPrint_application
{
static int freq_stampa;
static bool ragg_articoli;
static bool ragg_classi;
static bool ragg_raggart;
static bool ragg_caus;
static TCursor * _cur;
TArray * _files;
TMask * _mask;
TForm_giornalemag * _form; // to be moved into TPrint_application
TGiornalemag * _form; // to be moved into TPrint_application
TCursor * _cur;
protected:
virtual bool print_one(int file)
@ -95,27 +425,10 @@ protected:
{ }
public:
static const char * mov_getfunct(TVariable_rectype & r);
static const char * rmov_getfunct(TVariable_rectype & r);
void set_parametri();
TStampa_giornalemag();
TStampa_giornalemag() {}
};
int TStampa_giornalemag::freq_stampa;
bool TStampa_giornalemag::ragg_articoli;
bool TStampa_giornalemag::ragg_classi;
bool TStampa_giornalemag::ragg_raggart;
bool TStampa_giornalemag::ragg_caus;
TCursor * TStampa_giornalemag::_cur;
TStampa_giornalemag::TStampa_giornalemag()
{
}
bool TStampa_giornalemag::user_create()
{
@ -132,97 +445,20 @@ bool TStampa_giornalemag::user_destroy()
return TRUE;
}
const char *
TStampa_giornalemag::mov_getfunct(TVariable_rectype & r)
{
TString80 valore;
TDate datamov(_cur->relation()->lfile(LF_MOVMAG).get_date("DATACOMP"));
TDate datayear(datamov);
datayear.set_month(1);
datayear.set_day(1);
// gestione frequenza
switch (freq_stampa ) {
case 0:
valore << datamov.year() << datamov.month() << ' ' << datamov.day() << ' ';
valore << _cur->relation()->lfile(LF_MOVMAG).get("NUMREG");
break;
case 1:
valore << datamov.year() << datamov.month() << ' ' << datamov.day() << ' ';
break;
case 7:
valore << datamov.year()<< ((datamov.date2julian()-datayear.date2julian())/7) << ' ';
break;
case 31:
valore << datamov.year() << datamov.month() << ' ';
break;
}
return valore;
}
const char *
TStampa_giornalemag::rmov_getfunct(TVariable_rectype & r)
{
TString80 valore;
// gestione ragruppamenti
if (ragg_articoli)
{
valore << _cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CODART);
} else {
if (ragg_classi)
{
valore << _cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_CLASSEFIS);
if (ragg_raggart)
{
valore << _cur->relation()->lfile(LF_ANAMAG).get(ANAMAG_RAGGFIS);
}
}
}
if (ragg_caus)
{
valore << _cur->relation()->lfile(-ALIAS_CAUSALI).get("S8");
}
return valore;
}
void TStampa_giornalemag::set_parametri()
{
freq_stampa=_mask->get_int(F_FREQ);
ragg_articoli=_mask->get_bool(F_RAGGARTICOLI );
ragg_classi=_mask->get_bool(F_CLASSEFISART );
ragg_raggart=_mask->get_bool(F_RAGGFISART );
ragg_caus=_mask->get_bool(F_RAGGCAUS );
}
bool TStampa_giornalemag::set_print(int i)
{
while (TRUE) {
if (_mask->run() != K_ENTER)
return FALSE;
_form = new TForm_giornalemag("mg4300", "");
_cur = _form->cursor();
TVariable_rectype *vrec_rmov= new TVariable_rectype(LF_RMOVMAG);
vrec_rmov->add_field(new TVariable_field ("RSORT_FIELD", rmov_getfunct));
TSortedfile *rmovmag= new TSortedfile(LF_RMOVMAG,NULL,"RSORT_FIELD","",2);
rmovmag->set_curr(vrec_rmov);
//_cur->relation()->replace(rmovmag,1,"CODART==CODART");
TVariable_rectype *vrec_mov= new TVariable_rectype(LF_MOVMAG);
vrec_mov->add_field(new TVariable_field ("SORT_FIELD", mov_getfunct));
_cur->relation()->lfile().set_curr(vrec_mov);
TString cfilter("ANNOES==");
cfilter << '"'<< _mask->get(F_ANNOES) << '"';
//_cur->setfilter(cfilter);
set_parametri();
_form->print();
_form = new TGiornalemag("mg4300", "");
_form->set_parametri(*_mask);
if (_form->can_be_printed())
_form->print();
else
error_box("Impossibile stampare il giornale dalla data indicata");
delete _form;
} // while true
return TRUE;

216
mg/mg4300.frm

@ -1,8 +1,10 @@
#include "mg4300.h"
USE LF_MOVMAG KEY 4 BY SORT_FIELD
JOIN LF_RMOVMAG TO LF_MOVMAG KEY 2 INTO NUMREG==NUMREG
USE LF_RMOVMAG BY CRONO_FIELD FISC_FIELD
JOIN LF_MOVMAG INTO NUMREG==NUMREG
JOIN CAU TO LF_MOVMAG ALIAS ALIAS_CAUSALI INTO CODTAB==CODCAUS
JOIN LF_ANAMAG TO LF_RMOVMAG INTO CODART==CODART
JOIN LF_UMART TO LF_ANAMAG INTO CODART==CODART
JOIN LF_UMART TO LF_RMOVMAG KEY 2 ALIAS ALIAS_UMRMOV INTO CODART==CODART UM==UM
END
DESCRIPTION
@ -28,123 +30,191 @@ SECTION HEADER ODD 5
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
MESSAGE _USER, INTEST_DITTA
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 120 1 "Data "
PROMPT 66 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 137 1 "Pagina "
MESSAGE _PAGENO
END
STRINGA 4 45
BEGIN
KEY "Intestazione stampa"
PROMPT 45 2 "Stampa schede di magazzino :"
MESSAGE _USER,TIPOSCHEDA
KEY "Intestazione stampa"
PROMPT 25 2 ""
MESSAGE _USER,INTEST_REG
END
STRINGA 5 146
STRINGA 5 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 3 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
STRINGA 6 12
BEGIN
PROMPT 27 4 "UM"
PROMPT 42 4 "UM"
END
NUMBER 7 12
BEGIN
PROMPT 31 4 "Quantità"
PROMPT 46 4 "Quantità"
END
NUMBER 8 12
BEGIN
PROMPT 42 4 "Prezzo"
PROMPT 57 4 "Prezzo"
END
NUMBER 9 12
BEGIN
PROMPT 54 4 "Valore"
PROMPT 69 4 "Valore"
END
STRINGA 5 146
STRINGA 5 80
BEGIN
KEY "Separatore (iniziale)"
PROMPT 1 5 "------------------------------------------------------------------------------------------------------------------------------------------------------"
END
END
SECTION BODY ODD 0
SECTION HEADER_RAGG_CRONO 1 2 2 GROUP
STRINGA 101 30
BEGIN
PROMPT 1 1 ">>> NUM:"
MESSAGE _STREXPR,LF_MOVMAG->NUMREG
END
STRINGA 102 30
BEGIN
PROMPT 1 2 ">>>DATA:"
MESSAGE _STREXPR,LF_MOVMAG->DATACOMP
END
SECTION BODY ODD 2
NUMBER 100
BEGIN
FLAGS "H"
MESSAGE RESET,3@
END
SECTION RAGG_CRONOLOGICO 1 0 0 FILE LF_MOVMAG GROUP DATACOMP
STRINGA 101 48
BEGIN
FLAGS "H"
PROMPT 1 1 ""
MESSAGE _USER,INFO_CRONO|RESET,FF_NUMLINEE|COPY,FF_INFORAGGCRO
END
SECTION RAGG_CRONOLOGICO 1 0 0 FILE LF_RMOVMAG GROUP CRONO_FIELD
SECTION RIGHE_MOV 1 0 0 FILE LF_RMOVMAG
NUMBER 100
BEGIN
FLAGS "H"
MESSAGE RESET,2@
END
SECTION HEADER_RAGG_FISC 1 2 2 GROUP
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>> NUM:"
MESSAGE _STREXPR,LF_MOVMAG->NUMREG
END
STRINGA 100 30
BEGIN
PROMPT 1 2 ">>>DATA:"
MESSAGE _STREXPR,LF_MOVMAG->DATACOMP
END
SECTION HEADER_RAGG_FISC 1 2 0 GROUP
STRINGA 100 78
BEGIN
PROMPT 1 1 "++"
MESSAGE _USER,INFO_FISC|COPY,FF_CODTOT
END
SECTION RAGG_FISCALE 1 0 1 FILE LF_RMOVMAG GROUP CODART
STRINGA 102 12
BEGIN
PROMPT 37 1 ""
FIELD LF_UMART->UM
MESSAGE COPY,FF_UMTOT
END
END
STRINGA 100 30
SECTION RAGG_FISCALE 1 0 0 FILE LF_RMOVMAG GROUP FISC_FIELD
STRINGA 100 30
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->NUMREG+LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
MESSAGE _USER,REGISTRASTAMPA
END
STRINGA 100 10
BEGIN
PROMPT 31 1 ">>>"
FIELD LF_MOVMAG->DATAREG
END
STRINGA 101 12
BEGIN
PROMPT 67 1 ""
FIELD LF_RMOVMAG->UM
END
NUMBER 103 12
BEGIN
PROMPT 1 1 ">>>"
MESSAGE _STREXPR,LF_RMOVMAG->NUMREG+LF_RMOVMAG->CODART+"/"+LF_RMOVMAG->LIVGIAC+":"+LF_RMOVMAG->CODMAG
END
STRINGA 101 12
BEGIN
PROMPT 27 1 ""
FIELD LF_RMOVMAG->UM
END
PROMPT 71 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*ALIAS_UMRMOV@->FC|_USER,*SEGNOCAUS|ADD,FF_QTARAGGFIS
END
NUMBER 105 12
BEGIN
PROMPT 94 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS|ADD,FF_VALTOT
END
NUMBER 104 12
BEGIN
PROMPT 82 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#105/#103
END
END // RAGG FISCALE
NUMBER FF_NUMLINEE 12
BEGIN
FLAGS "H"
END
NUMBER 104 12
SECTION TOTALI_RAGG_FISC 1 1 1 NUMEXPR #FF_QTARAGGFIS!=0
SECTION HEADER_RAGG_CRONO 1 2 1 NUMEXPR #FF_NUMLINEE=0
STRINGA FF_INFORAGGCRO 48
BEGIN
PROMPT 42 1 ""
PICTURE "###.###.###"
FIELD LF_RMOVMAG->PREZZO
PROMPT 1 1 ""
MESSAGE _USER,INCNUMREGST
END
NUMBER 103 12
SECTION HEADER_MOV 2 2 1 GROUP
STRINGA 101 30
BEGIN
PROMPT 31 1 ""
PICTURE "###.###,@##"
MESSAGE _NUMEXPR,#FF_QUANTRIGA
PROMPT 10 1 "Causale: "
FIELD ALIAS_CAUSALI@->CODTAB
END
STRINGA 101 30
BEGIN
PROMPT 31 1 ""
FIELD ALIAS_CAUSALI@->S0
END
SECTION HEADER_DOC 2 1 1 NUMEXPR LF_MOVMAG->NUMDOC!=0
STRINGA 101 25
BEGIN
PROMPT 10 1 "Documento "
FIELD LF_MOVMAG->NUMDOC
END
STRINGA 101 10
BEGIN
PROMPT 30 1 "del "
FIELD LF_MOVMAG->ANNODOC
END
END
END
NUMBER 105 12
END // header_ragg_crono
STRINGA FF_CODTOT 40
BEGIN
PROMPT 1 1 ""
MESSAGE INC,FF_NUMLINEE
END
STRINGA FF_UMTOT 2
BEGIN
PROMPT 54 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,LF_RMOVMAG->QUANT*LF_RMOVMAG->PREZZO|_USER,*SEGNOCAUS
END
END // RAGG FISCALE
END // CICLO RMOV
PROMPT 42 1 ""
GROUP 2
END
NUMBER FF_QTARAGGFIS 12
BEGIN
PROMPT 45 1 ""
PICTURE "###.###,@##"
GROUP 2
END
NUMBER FF_VALTOT 12
BEGIN
PROMPT 71 1 ""
PICTURE "###.###.###"
GROUP 2
END
NUMBER 204 12
BEGIN
PROMPT 58 1 ""
PICTURE "###.###.###"
MESSAGE _NUMEXPR,#FF_VALTOT/#FF_QTARAGGFIS
GROUP 2
END
END // totali ragg_
END // RAGG CRONOLOGICO
END // BODY: CICLO MOV
@ -159,7 +229,7 @@ SECTION FOOTER ODD 2
BEGIN
KEY "NUMPAGE"
PROMPT 50 2 ""
MESSAGE _PAGENO
MESSAGE _USER,PAGENO
PICTURE "-###-"
END

25
mg/mg4300.h

@ -2,14 +2,20 @@
#define __MG4300_H
#define F_DEFINITIVA 101
#define F_CLASSEFISART 102
#define F_RAGGFISART 103
#define F_RAGGCAUS 104
#define F_RAGGARTICOLI 105
#define F_FREQ 106
#define F_FREQ 102
#define F_RAGG 103
#define F_RAGGMAG 104
#define F_CLASSEFISART 105
#define F_RAGGFISART 106
#define F_RAGGCAUS 107
#define F_RAGGARTICOLI 108
#define F_ANNOES 110
#define F_ANNO 111
#define F_CODREG 112
#define F_DATAIN 113
#define F_DATAFIN 114
#define G_OPZ 1
#define G_CODART 2
@ -17,6 +23,15 @@
#define G_PARAMVALORI 4
#define ALIAS_CAUSALI 500
#define ALIAS_UMRMOV 501
#define FF_CODTOT 601
#define FF_UMTOT 602
#define FF_VALTOT 603
#define FF_QTARAGGFIS 604
#define FF_INFORAGGCRO 605
#define FF_NUMREG 606
#define FF_NUMLINEE 607
#endif //__MG4300_H

79
mg/mg4300.uml

@ -11,15 +11,31 @@ NUMBER F_ANNOES 4
BEGIN
FLAGS "A"
PROMPT 2 1 "Codice es. "
USE ESC
INPUT CODTAB F_ANNOES
DISPLAY "Esercizio" CODTAB
DISPLAY "Dal@12" D0
DISPLAY "Al@12" D0
OUTPUT F_ANNOES CODTAB
USE REG SELECT I0=6
INPUT CODTAB[1,4] F_ANNOES
INPUT CODTAB[5,7] F_CODREG
DISPLAY "Esercizio" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
OUTPUT F_ANNOES CODTAB[1,4]
OUTPUT F_CODREG CODTAB[5,7]
ADD NONE
END
STRING F_CODREG 3
BEGIN
FLAGS "U"
PROMPT 42 1 "Codice giornale "
USE REG SELECT I0=9
INPUT CODTAB[1,4] F_ANNOES
INPUT CODTAB[5,7] F_CODREG
COPY DISPLAY F_ANNOES
OUTPUT F_ANNOES CODTAB[1,4]
OUTPUT F_CODREG CODTAB[5,7]
CHECKTYPE REQUIRED
ADD NONE
END
LISTBOX F_DEFINITIVA 10
BEGIN
PROMPT 2 3 "Si desidera la stampa "
@ -27,41 +43,68 @@ BEGIN
ITEM "D|definitiva"
END
DATE F_DATAIN
BEGIN
PROMPT 2 5 "Dalla data "
END
DATE F_DATAFIN
BEGIN
PROMPT 42 5 "Alla data "
END
NUMBER F_FREQ 2
BEGIN
FLAGS "U"
PROMPT 2 5 "Frequenza di stampa "
PROMPT 2 7 "Frequenza di stampa "
NUM_EXPR #F_FREQ<=31
WARNING "La frequenza deve essere compresa tra 0 e 31"
WARNING "La frequenza di stampa può essere fino a 31 giorni"
END
BOOLEAN F_RAGG
BEGIN
PROMPT 2 9 "Raggruppo"
MESSAGE TRUE ENABLE,F_RAGGMAG|ENABLE,F_CLASSEFISART|ENABLE,F_RAGGARTICOLI|ENABLE,F_RAGGCAUS
MESSAGE FALSE CLEAR,F_RAGGMAG|CLEAR,F_CLASSEFISART|CLEAR,F_RAGGARTICOLI|CLEAR,F_RAGGCAUS
GROUP G_OPZ
END
BOOLEAN F_RAGGMAG
BEGIN
FLAGS "D"
PROMPT 2 11 "Raggruppo i magazzini"
GROUP G_OPZ
END
BOOLEAN F_RAGGARTICOLI
BEGIN
PROMPT 2 7 "Raggruppo gli articoli"
MESSAGE FALSE CLEAR,F_CLASSEFISART|K_SPACE,F_CLASSEFISART
MESSAGE TRUE ENABLE,F_CLASSEFISART
FLAGS "D"
PROMPT 2 12 "Raggruppo le giacenze dello stesso articolo"
MESSAGE TRUE CLEAR,F_CLASSEFISART|K_SPACE,F_CLASSEFISART
MESSAGE FALSE ENABLE,F_CLASSEFISART
GROUP G_OPZ
END
BOOLEAN F_CLASSEFISART
BEGIN
PROMPT 2 9 "Raggruppo le classi fiscali articoli"
MESSAGE FALSE CLEAR,F_RAGGFISART|K_SPACE,F_RAGGFISART
MESSAGE TRUE ENABLE,F_RAGGFISART
FLAGS "D"
PROMPT 2 13 "Raggruppo gli articoli della stessa classe fiscale"
MESSAGE FALSE CLEAR,F_RAGGFISART|K_SPACE,F_RAGGFISART|ENABLE,F_RAGGARTICOLI
MESSAGE TRUE ENABLE,F_RAGGFISART|CLEAR,F_RAGGARTICOLI
GROUP G_OPZ
END
BOOLEAN F_RAGGFISART
BEGIN
PROMPT 2 11 "Raggruppo i raggruppamenti fiscali articoli"
MESSAGE FALSE CLEAR,F_RAGGCAUS
MESSAGE TRUE ENABLE,F_RAGGCAUS
FLAGS "D"
PROMPT 2 14 "Raggruppo gli articoli dello stesso ragg. fiscale"
GROUP G_OPZ
END
BOOLEAN F_RAGGCAUS
BEGIN
PROMPT 2 13 "Raggruppo le causali"
FLAGS "D"
PROMPT 2 15 "Raggruppo le causali"
GROUP G_OPZ
END