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

Correzione errore MI3455 relativo alla lista controllo movimenti in ricezione nel caso della ricezione in automatico.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3615 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-09-18 07:41:59 +00:00
parent d2cc511eee
commit ab8c9c68c3
1 changed files with 55 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
cg/cg6700.cpp
View File

@ -3028,34 +3028,67 @@ bool TRic_ListaMov::set_print(int m)
return FALSE;
}
TString80 nome;
long ditta_ric = get_firm();
TTransfer_file& tr = trasfer(); // Nella lista controllo movimenti lanciata da menu il record di
// controllo dell'header viene letto nella funzione check_archivi
// Nella ricezione in automatico devo leggerlo in questo punto
_pathfile = tr.path();
_pathfile = _pathfile << HEADER;
if (!tr.open(_pathfile))
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
if (!tr.read_control_rec())
return error_box("Rilevati errori gravi negli archivi: procedura interrotta");
else _record = tr.record();
if (_tipo_lista == 'A')
_controllo = 2;
if (_seconda_volta && _is_salda)
{
reset_files(); // Resetta l'albero di stampa precedente relativo ai movimenti contabili e iva
select_cursor(_curSC); // Seleziona il cursore relativo ai movimenti del saldaconto
add_file (LF_PARTITE);
add_file (LF_SCADENZE, LF_PARTITE);
add_file (LF_PAGSCA, LF_PARTITE);
_errore_grave_SC = FALSE;
_intestaSC = TRUE;
_prima_volta = TRUE;
}
else
_controllo = 1;
{
TString80 nome;
long ditta_ric = get_firm();
TTransfer_file& tr = trasfer(); // Nella lista controllo movimenti lanciata da menu il record di
// controllo dell'header viene letto nella funzione check_archivi
// Nella ricezione in automatico devo leggerlo in questo punto
_pathfile = tr.path();
_pathfile = _pathfile << HEADER;
if (!tr.open(_pathfile))
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata");
if (!tr.read_control_rec())
return error_box("Rilevati errori gravi negli archivi: procedura interrotta");
else _record = tr.record();
if (_tipo_lista == 'A')
_controllo = 2;
else
_controllo = 1;
apri_file_SC();
reset_files(); // Resetta l'albero di stampa precedente relativo ai movimenti del saldaconto
select_cursor(_cur); // Seleziona il cursore relativo ai movimenti contabili e iva
add_file (LF_MOV);
add_file (LF_RMOV, LF_MOV);
if (_is_iva)
add_file (LF_RMOVIVA, LF_MOV);
_errore_grave = FALSE;
_errore_grave_totale = FALSE;
_intestaSC = FALSE;
_err.reset();
}
setta_parametri(" ", "C");
set_real_picture("###.###.###.###");
printer().footerlen(5);
_errore_grave = FALSE;
_err.reset();
setta_intestazione();
_err.reset();
}
else
{