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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
777200.cpp           Azzerato record 770 prima di trasferirlo
                     per evitare sovrapposizioni di campi precedenti


git-svn-id: svn://10.65.10.50/trunk@7385 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1998-11-03 09:38:58 +00:00
parent 8bdbfb1c30
commit a039f14a36
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
m770/777200.cpp
View File

@ -46,8 +46,9 @@ protected:
int first(); int first();
int next(); int next();
void transfer_section(TPrint_section& body, int rigo, void transfer_section(TPrint_section& body,
TRecordDylog& rec, TTrasferimentoDylog& file); TRecordDylog& rec,
TTrasferimentoDylog& file);
char log2rec(int num, int& rpm) const; char log2rec(int num, int& rpm) const;
protected: protected:
@ -168,8 +169,9 @@ public:
// TFormDylog // TFormDylog
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
void TFormDylog::transfer_section(TPrint_section& body, int rigo, void TFormDylog::transfer_section(TPrint_section& body,
TRecordDylog& rec, TTrasferimentoDylog& file) TRecordDylog& rec,
TTrasferimentoDylog& file)
{ {
TToken_string trc(16, ','); TToken_string trc(16, ',');
TString80 str; TString80 str;
@ -325,22 +327,19 @@ long TFormDylog::trasfer(long codditta, TTrasferimentoDylog& file, const char* t
{ {
cur.freeze(TRUE); // Per efficienza congela il cursore cur.freeze(TRUE); // Per efficienza congela il cursore
// Inizializza record col primo modulo
TRecordDylog rec(tipo);
int rigo = 0;
int err = first(); // Deve sempre tornare NOERR int err = first(); // Deve sempre tornare NOERR
CHECKS(err == NOERR, "Invalid cursor ", tipo); CHECKS(err == NOERR, "Invalid cursor ", tipo);
TPrint_section& head = section('H', first_page); TPrint_section& head = section('H', first_page);
transfer_section(head, rigo, rec, file);
TPrint_section& body = section('B', odd_page); TPrint_section& body = section('B', odd_page);
for (; err == NOERR; err = next()) for (; err == NOERR; err = next())
{ {
transfer_section(body, rigo, rec, file); // Inizializza record col primo modulo
TRecordDylog rec(tipo);
transfer_section(head, rec, file);
transfer_section(body, rec, file);
file << rec; file << rec;
rigo++;
} }
cur.freeze(FALSE); cur.freeze(FALSE);