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

- Correzione errore MI2185 su lista controllo movimenti in ricezione. Non va bene controllare il tipo pagamento sulla testata se la partita e' stata generata in automatico.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3763 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-10-11 16:03:10 +00:00
parent e5299d8b37
commit 833c0905bc
1 changed files with 48 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
cg/cg6700.cpp
View File

@ -161,6 +161,7 @@ public:
void aggiorna_partita(real& importo,real& importoval,real& abbuoni,real& diffcam,real& ritenute,TString& sez,TString& sezabb,TString& sezdc); void aggiorna_partita(real& importo,real& importoval,real& abbuoni,real& diffcam,real& ritenute,TString& sez,TString& sezabb,TString& sezdc);
void azzera_impdocval(); void azzera_impdocval();
int cerca_anno_solare_esercizio(int codice_esercizio); int cerca_anno_solare_esercizio(int codice_esercizio);
bool esiste_rata();
void apri_file_SC(); void apri_file_SC();
void chiudi_file_SC(); void chiudi_file_SC();
@ -1210,6 +1211,39 @@ bool TRic_ListaMov::controlla_anagrafica(char tipo, int gruppo, int conto)
return FALSE; return FALSE;
} }
bool TRic_ListaMov::esiste_rata()
{
TLocalisamfile& scad = current_cursor()->file(LF_SCADENZE);
TRecnotype record = scad.recno();
scad.zero();
scad.put(SCAD_TIPOCF, _tipocf);
if (_gruppo != 0)
scad.put(SCAD_GRUPPO, _gruppo);
if (_conto != 0)
scad.put(SCAD_CONTO, _conto);
if (_codcf != 0)
scad.put(SCAD_SOTTOCONTO, _codcf);
scad.put(SCAD_ANNO, _anno);
scad.put(SCAD_NUMPART, _numpart);
scad.put(SCAD_NRIGA, _nriga);
TRectype recscad (scad.curr());
for (scad.read(_isgteq); !scad.eof(); scad.next())
{
TString rec = recscad.get(SCAD_NUMPART);
TString file = scad.get(SCAD_NUMPART);
if (scad.curr() != recscad || file != rec) break;
return TRUE;
}
scad.readat(record);
return FALSE;
}
bool TRic_ListaMov::controlla_partite() bool TRic_ListaMov::controlla_partite()
{ {
if (_tipocf != 'C' && _tipocf != 'F' && _tipocf != '\0') if (_tipocf != 'C' && _tipocf != 'F' && _tipocf != '\0')
@ -1298,16 +1332,19 @@ bool TRic_ListaMov::controlla_partite()
if (_tipomov != 1) if (_tipomov != 1)
{ {
if (_tipopag < 1 || _tipopag > 9) if (esiste_rata())
{ {
_errore_grave_SC = TRUE; if (_tipopag < 1 || _tipopag > 9)
_err.set(19); {
} _errore_grave_SC = TRUE;
TString datapag_str = _datapag.string(); _err.set(19);
if ( datapag_str.empty() || !TDate::isdate(_datapag.string()) ) }
{ TString datapag_str = _datapag.string();
_errore_grave_SC = TRUE; if ( datapag_str.empty() || !TDate::isdate(_datapag.string()) )
_err.set(18); {
_errore_grave_SC = TRUE;
_err.set(18);
}
} }
} }