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            : Giornaliero controlli: motivo e responsabile in testata non venivano registrati


git-svn-id: svn://10.65.10.50/trunk@7716 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1999-01-26 14:43:20 +00:00
parent c9e21df564
commit bcc4013ba1
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
at/at0300.cpp
View File

@ -180,6 +180,8 @@ int TGiornalieroC::write(TSheet_field& s)
const TString16 tipogen = m.get(F_TIPOCON);
const TDate prdatagen = m.get(F_PROSSDATA);
const TString16 prtipogen = m.get(F_PROSSTIPO);
const TString16 motivogen = m.get(F_MOTIVO);
const TString80 respgen = m.get(F_RESPONSAB);
int items = s.items();
TProgind *pi;
@ -211,12 +213,18 @@ int TGiornalieroC::write(TSheet_field& s)
int intaf = row.get_int(9);
TString16 prosstipo = row.get(10);
TDate prossdata = row.get(11);
TString16 motivo = row.get(12);
TString80 resp = row.get(13);
if (tipocon.blank())
tipocon = tipogen;
if (prosstipo.blank())
prosstipo = prtipogen;
if (!prossdata.ok())
prossdata = prdatagen;
if (motivo.blank())
motivo = motivogen;
if (resp.blank())
resp = respgen;
if (!tipocon.blank())
{
TRectype* recc = new TRectype(LF_CONTSAN);
@ -231,6 +239,8 @@ int TGiornalieroC::write(TSheet_field& s)
recc->put(CON_INTAF, intaf);
recc->put(CON_PROSSTIPO, prosstipo);
recc->put(CON_PROSSDATA, prossdata);
recc->put(CON_MOTIVO, motivo);
recc->put(CON_RESPONSAB, resp);
if (modstato_tcs(tipocon) == 'I')
{
if (idon1.empty() && idon2.empty() && idon3.empty() && idon4.empty() && intsi == 0 && intaf == 0)