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

Correzioni alla ricezione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1262 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-04-18 13:34:49 +00:00
parent 8dd171288c
commit a45d1baf82
1 changed files with 42 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
cg/cg2600.cpp
View File

@ -1,13 +1,18 @@
// Ricezione dati da sistema
#include <config.h>
#include <mask.h>
#include <printapp.h>
#include <progind.h>
#include <relation.h>
#include <tabutil.h>
#include <urldefid.h>
#include <utility.h>
#include <config.h>
#include <urldefid.h>
#include <mailbox.h>
#include <execp.h>
#include <prefix.h>
#include <scanner.h>
#include <lffiles.h>
#include <progind.h>
#include <nditte.h>
#include <mov.h>
#include <rmov.h>
@ -397,6 +402,16 @@ void TRic_tab::scrivi_record_tab(TString& record,long rec)
if (field == "2")
field = "F";
}
//Il tipo persona (fisica/giuridica) su AS400 puo' assumere come valori 1 e 0
//mentre quello su PC F o G; devo fare la conversione.
if (fname == "TIPOPERS")
{
if (field == "1")
field = "F";
if (field == "0")
field = "G";
}
//Il codice pagamento su AS400 e' un alfanumerico di due, mentre su PC e' un
//alfanumerico di 4 trattato con il flag Z. Dunque in ricezione se si tratta
@ -423,10 +438,19 @@ void TRic_tab::scrivi_record_tab(TString& record,long rec)
//Quando ricevo la IV direttiva del piano dei conti per evitare che nell'archivio,
//in caso di numero romano vuoto, venga memorizzato la stringa letta sul trasfer ("000"),
//vuoto la stringa prima di fare la put.
if ( (sigla == "P2" || sigla == "P3") && (fname == "NUMRIVD" || fname == "NUMRIVDOPP") )
if (field == "000")
field = "";
if (sigla == "P2" || sigla == "P3")
{
if (fname == "NUMRIVD" || fname == "NUMRIVDOPP")
{
if (field == "000")
field = "";
}
if (fname == "SEZIVD" || fname == "SEZIVDOPP")
{
if (field == " ")
field = "0";
}
}
dep->put(fname, (const char*)field);
numfield++;
@ -554,11 +578,11 @@ int TRic_tab::trasfer_data_conto(TLocalisamfile& file, TRectype& dep)
}
else
{
dep.zero(PCN_SEZIVD);
dep.put(PCN_SEZIVD, "0");
dep.zero(PCN_LETTIVD);
dep.zero(PCN_NUMRIVD);
dep.zero(PCN_NUMIVD);
dep.zero(PCN_SEZIVDOPP);
dep.put(PCN_SEZIVDOPP, "0");
dep.zero(PCN_LETTIVDOPP);
dep.zero(PCN_NUMRIVDOPP);
dep.zero(PCN_NUMIVDOPP);
@ -595,11 +619,11 @@ int TRic_tab::trasfer_data_conto(TLocalisamfile& file, TRectype& dep)
g = dep.get_int(PCN_GRUPPO);
c = dep.get_int(PCN_CONTO);
dep.zero(PCN_SEZIVD);
dep.put(PCN_SEZIVD, "0");
dep.zero(PCN_LETTIVD);
dep.zero(PCN_NUMRIVD);
dep.zero(PCN_NUMIVD);
dep.zero(PCN_SEZIVDOPP);
dep.put(PCN_SEZIVDOPP, "0");
dep.zero(PCN_LETTIVDOPP);
dep.zero(PCN_NUMRIVDOPP);
dep.zero(PCN_NUMIVDOPP);
@ -635,7 +659,7 @@ int TRic_tab::trasfer_data_sottoc(TLocalisamfile& file, TRectype& dep)
if (flag_IV == 'T')
{
if (sez != '\0')
if (sez != '0')
_tras_file.annulla_classi(g,c,FALSE);
file.zero();
@ -644,11 +668,11 @@ int TRic_tab::trasfer_data_sottoc(TLocalisamfile& file, TRectype& dep)
}
else
{
dep.zero(PCN_SEZIVD);
dep.put(PCN_SEZIVD, "0");
dep.zero(PCN_LETTIVD);
dep.zero(PCN_NUMRIVD);
dep.zero(PCN_NUMIVD);
dep.zero(PCN_SEZIVDOPP);
dep.put(PCN_SEZIVDOPP, "0");
dep.zero(PCN_LETTIVDOPP);
dep.zero(PCN_NUMRIVDOPP);
dep.zero(PCN_NUMIVDOPP);
@ -675,7 +699,7 @@ int TRic_tab::trasfer_data_sottoc(TLocalisamfile& file, TRectype& dep)
if (flag_IV == 'T')
{
if (sez != '\0')
if (sez != '0')
_tras_file.annulla_classi(g,c,FALSE);
file.zero();
@ -687,11 +711,11 @@ int TRic_tab::trasfer_data_sottoc(TLocalisamfile& file, TRectype& dep)
g = dep.get_int(PCN_GRUPPO);
c = dep.get_int(PCN_CONTO);
dep.zero(PCN_SEZIVD);
dep.put(PCN_SEZIVD, "0");
dep.zero(PCN_LETTIVD);
dep.zero(PCN_NUMRIVD);
dep.zero(PCN_NUMIVD);
dep.zero(PCN_SEZIVDOPP);
dep.put(PCN_SEZIVDOPP, "0");
dep.zero(PCN_LETTIVDOPP);
dep.zero(PCN_NUMRIVDOPP);
dep.zero(PCN_NUMIVDOPP);