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

Patch level : 10.0

Browse Source 
Files correlati     : cg3.exe
Ricompilazione Demo : [ ]
Commento            :
0000994: selezione per causale
Nella lista fatture per cliente e fornitore, seleziono per una causale mai utilizzata e mi vengono stampate tutte le fatture di vendita dell'esercizio.


git-svn-id: svn://10.65.10.50/trunk@17699 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2008-11-21 12:24:20 +00:00
parent faa338a83a
commit ba3945ad5e
1 changed files with 57 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
cg/cg3100.cpp
View File

@ -44,7 +44,7 @@ class TListaMov_application : public TPrintapp
TString4 _causale_ini, _causale_fin, _registro,_registro_ini, _registro_fin;
TString _tipoatt, _tipo_elenco,_tipo_clifo_prec,_tipoelsucc;
char _appoggio;
TString16 _tipodoc, _tipodocumento;
TString4 _tipodoc, _tipodocumento;
TString _ragsoc, _indcf, _civcf, _paiv, _codcaus, _dencom, _provcom, _cofi;
TString _capcf, _codval, _simbolo, _statocf, _comcf, _tipo_fin, _reg_causale;
long _documenti, _codice_ini, _codice_fin, _numero_reg, _codcf;
@ -409,14 +409,10 @@ bool CausAlleg (const char * cod)
return allegb;
}
const char * TipoAttivita (const char * attreg, long codice_ditta)
const char* TipoAttivita (const char* attreg, long codice_ditta)
{
TToken_string key;
key.add(codice_ditta);
key.add(attreg);
const TRectype & attiv = cache().get(LF_ATTIV, key);
return attiv.get(ATT_TIPOATT);
TString16 key; key.format("%ld|%s", codice_ditta, attreg);
return cache().get(LF_ATTIV, key, ATT_TIPOATT);
}
const TString& TListaMov_application::SimboloValuta(const char* cod) const
@ -425,10 +421,9 @@ const TString& TListaMov_application::SimboloValuta(const char* cod) const
const TString& TListaMov_application::DescrDoc(const char* tipo) const
{ return cache().get(TAB_TPD, tipo, "S0"); }
const TString& TListaMov_application::AttivitaRegistro(const char * cod, int anno) const
const TString& TListaMov_application::AttivitaRegistro(const char* cod, int anno) const
{
TString8 key;
key.format("%04d%-3s", anno, cod);
TString8 key; key.format("%04d%-3s", anno, cod);
return cache().get("REG", key, "S8");
}
@ -436,19 +431,40 @@ HIDDEN int tipo_registro(const char* cod, int anno)
{
TString8 codtab; codtab.format("%4d%-3s", anno, cod);
const TString& tipo_reg = cache().get("REG", codtab, "I0");
return atoi(tipo_reg);
}
static bool between(const TString& code, const TString& mini, const TString& maxi)
{
if (mini.full() && code < mini)
return false;
if (maxi.full() && code > maxi)
return false;
return true;
}
static bool between(const TDate& code, const TDate& mini, const TDate& maxi)
{
if (mini.ok() && code < mini)
return false;
if (maxi.ok() && code > maxi)
return false;
return true;
}
static bool between(long code, long mini, long maxi)
{
if (mini > 0 && code < mini)
return false;
if (maxi > 0 && code > maxi)
return false;
return true;
}
bool TListaMov_application::rmoviva_filter(const TRectype& rmoviva) const
{
const TString& codiva = rmoviva.get(RMI_CODIVA);
if (_dacodiva.not_empty() && codiva < _dacodiva)
return false;
if (_acodiva.not_empty() && codiva > _acodiva)
return false;
return true;
return between(codiva, _dacodiva, _acodiva);
}
bool TListaMov_application::codiva_filter(const TRelation* rel) const
@ -471,41 +487,39 @@ bool TListaMov_application::filter_func_fatture (const TRelation* rel)
const TRectype& mov = rel->curr(LF_MOV);
// Altrimenti stampa anche i corrispettivi! Pseudo errore MI2396
long codcf = mov.get_long(MOV_CODCF);
const long codcf = mov.get_long(MOV_CODCF);
if (codcf <= 0)
return FALSE;
const int ann_reg = mov.get_int(MOV_ANNOIVA);
const TString16 cod_reg = mov.get(MOV_REG);
const int tipo_reg = tipo_registro (cod_reg, ann_reg);
const TString& causale = mov.get(MOV_CODCAUS);
if (!between(causale, app()._causale_ini, app()._causale_fin))
return false;
const int ann_reg = mov.get_int(MOV_ANNOIVA);
const TString4 cod_reg = mov.get(MOV_REG);
const int tipo_reg = tipo_registro(cod_reg, ann_reg);
// Considera solo iva acquisti o vendite
if (tipo_reg != 1 && tipo_reg != 2)
return FALSE;
TRectype from (LF_MOV), to (LF_MOV);
if (app()._annoes != 0) //anno esercizio specificato nella maschera
if (app()._annoes > 0) //anno esercizio specificato nella maschera
{
from.put(MOV_ANNOES, app()._annoes);
to.put(MOV_ANNOES, app()._annoes);
const int annoes = mov.get_int(MOV_ANNOES);
if (annoes != app()._annoes)
return false;
}
if (app()._data_ini.ok())
from.put(MOV_DATAREG, app()._data_ini);
from.put(MOV_TIPO, app()._tipo_ini);
if (app()._codice_ini != 0)
from.put(MOV_CODCF, app()._codice_ini);
if (app()._data_fin.ok())
to.put(MOV_DATAREG, app()._data_fin);
to.put(MOV_TIPO, app()._tipo_fin);
if (app()._codice_fin != 0)
to.put(MOV_CODCF, app()._codice_fin);
bool ok = mov >= from && mov <= to;
if (!between(mov.get_date(MOV_DATAREG), app()._data_ini, app()._data_fin))
return false;
if (ok)
ok = app().codiva_filter(rel);
if (!between(mov.get(MOV_TIPO), app()._tipo_ini, app()._tipo_fin))
return false;
return ok;
if (!between(mov.get_long(MOV_CODCF), app()._codice_ini, app()._codice_fin))
return false;
return app().codiva_filter(rel);
}
bool TListaMov_application::filter_func (const TRelation * rel)
@ -520,17 +534,13 @@ bool TListaMov_application::filter_func (const TRelation * rel)
}
const TString& causale = mov.get(MOV_CODCAUS);
if (app()._causale_ini.not_empty() && causale < app()._causale_ini)
return false;
if (app()._causale_fin.not_empty() && causale > app()._causale_fin)
if (!between(causale, app()._causale_ini, app()._causale_fin))
return false;
if (app()._scelta_stampa == 0) // Lista movimenti
{
const TString& codreg = mov.get(MOV_REG);
if (app()._registro_ini.not_empty() && codreg < app()._registro_ini)
return false;
if (app()._registro_fin.not_empty() && codreg > app()._registro_fin)
if (!between(codreg, app()._registro_ini, app()._registro_fin))
return false;
}
else // Lista movimenti sola prima nota