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

Correzioni errori MI2371 e MI2373 relativi al trasferimento del

Browse Source 
codice IVA di compensazione sul piano dei conti.


git-svn-id: svn://10.65.10.50/trunk@5607 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-12 16:47:01 +00:00
parent f9950b3fd1
commit decfdd759a
6 changed files with 56 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg6600.cpp
View File

@ -720,6 +720,7 @@ void TRic_tab::scrivi_pcon(TRectype& pcon,bool esiste)
char sezsaldi = _tpcon->get_char(PCN_SEZSALDI); char sezsaldi = _tpcon->get_char(PCN_SEZSALDI);
bool sospeso = _tpcon->get_bool(PCN_SOSPESO); bool sospeso = _tpcon->get_bool(PCN_SOSPESO);
int ricser = _tpcon->get_int (PCN_RICSER); int ricser = _tpcon->get_int (PCN_RICSER);
TString ivacomp = _tpcon->get(PCN_IVACOMP);
pcon.zero(); pcon.zero();
pcon.put(PCN_GRUPPO, g); pcon.put(PCN_GRUPPO, g);
@ -738,6 +739,7 @@ void TRic_tab::scrivi_pcon(TRectype& pcon,bool esiste)
pcon.put(PCN_SEZSALDI, sezsaldi); pcon.put(PCN_SEZSALDI, sezsaldi);
pcon.put(PCN_SOSPESO, sospeso); pcon.put(PCN_SOSPESO, sospeso);
pcon.put(PCN_RICSER, ricser); pcon.put(PCN_RICSER, ricser);
pcon.put(PCN_IVACOMP, ivacomp);
} }
void TRic_tab::conto(TRectype& pcon,char flag,bool esiste) void TRic_tab::conto(TRectype& pcon,char flag,bool esiste)

10
cg/cg6901.cpp
View File

@ -399,12 +399,13 @@ void TLista_archivi::controlla_clifo(char file)
void TLista_archivi::controlla_pcon(char file) void TLista_archivi::controlla_pcon(char file)
{ {
TPrintrow row; TPrintrow row;
TString str; TString str, ivacomp;
bool errore = FALSE; bool errore = FALSE;
bool salto = FALSE; bool salto = FALSE;
bool intesta = TRUE; bool intesta = TRUE;
TString_array stampa(10); TString_array stampa(10);
_pcon->setkey(1); _pcon->setkey(1);
_pcon->zero(); _pcon->zero();
@ -415,6 +416,7 @@ void TLista_archivi::controlla_pcon(char file)
int gruppo = _pcon->get_int (PCN_GRUPPO); int gruppo = _pcon->get_int (PCN_GRUPPO);
int conto = _pcon->get_int (PCN_CONTO); int conto = _pcon->get_int (PCN_CONTO);
long sottoc = _pcon->get_long(PCN_SOTTOCONTO); long sottoc = _pcon->get_long(PCN_SOTTOCONTO);
ivacomp = _pcon->get(PCN_IVACOMP);
if (gruppo > 99) if (gruppo > 99)
{ {
@ -428,6 +430,12 @@ void TLista_archivi::controlla_pcon(char file)
stampa.add(" - Rilevato un conto composto da 3 cifre"); stampa.add(" - Rilevato un conto composto da 3 cifre");
} }
if (!controlla_valore(ivacomp,99,2))
{
errore = TRUE;
stampa.add(" - Rilevato un codice IVA di compensazione non valido");
}
if (errore) if (errore)
{ {
TString app; TString app;

4
cg/cg6902.cpp
View File

@ -945,6 +945,10 @@ bool TInv_cont::invio_pcon()
int numop = _tpcon->get_int(PCN_NUMIVDOPP); int numop = _tpcon->get_int(PCN_NUMIVDOPP);
str.format("%02d", numop); str.format("%02d", numop);
record.overwrite(str,72); //Numero arabo IV dir record.overwrite(str,72); //Numero arabo IV dir
int ivacomp = atoi(_tpcon->get(PCN_IVACOMP));
str.format("%02d",ivacomp);
record.overwrite(str,89); // Codice IVA di compensazione
} }
_numrec_pcon++; _numrec_pcon++;

73
cg/cg6904.cpp
View File

@ -482,10 +482,10 @@ void TInv_cont::invio_piano_conti()
_prog = new TProgind(cicli,"Anagrafica Piano Conti: generazione file TRASFER per PC\nPrego attendere.",FALSE); _prog = new TProgind(cicli,"Anagrafica Piano Conti: generazione file TRASFER per PC\nPrego attendere.",FALSE);
_tras_file.open(_trasf,TRUE); _tras_file.open(_trasf,TRUE);
TString str, work_string;
for (_tpcon->first(); !_tpcon->eof(); _tpcon->next()) for (_tpcon->first(); !_tpcon->eof(); _tpcon->next())
{ {
TString str;
_prog->addstatus(1); _prog->addstatus(1);
@ -503,8 +503,8 @@ void TInv_cont::invio_piano_conti()
str.format("%03d", g); str.format("%03d", g);
record.overwrite(str,2); //Gruppo record.overwrite(str,2); //Gruppo
TString descr (_tpcon->get(PCN_DESCR)); work_string = _tpcon->get(PCN_DESCR);
str.format("%-50s", (const char*) descr); str.format("%-50s", (const char*) work_string);
record.overwrite(str,60); //Descrizione gruppo record.overwrite(str,60); //Descrizione gruppo
} }
@ -519,16 +519,16 @@ void TInv_cont::invio_piano_conti()
str.format("%03d", c); str.format("%03d", c);
record.overwrite(str,5); //Conto record.overwrite(str,5); //Conto
TString descr (_tpcon->get(PCN_DESCR)); work_string = _tpcon->get(PCN_DESCR);
str.format("%-50s", (const char*) descr); str.format("%-50s", (const char*) work_string);
record.overwrite(str,60); //Descrizione conto record.overwrite(str,60); //Descrizione conto
int indbil = _tpcon->get_int(PCN_INDBIL); int indbil = _tpcon->get_int(PCN_INDBIL);
str.format("%d", indbil); str.format("%d", indbil);
record.overwrite(str,110); //Indicatore di bilancio record.overwrite(str,110); //Indicatore di bilancio
TString tmcf = _tpcon->get(PCN_TMCF); work_string = _tpcon->get(PCN_TMCF);
record.overwrite(tmcf,111); //Flag conto cliente/fornitore record.overwrite(work_string,111); //Flag conto cliente/fornitore
bool stsottbil = _tpcon->get_bool(PCN_STSOTTBIL); bool stsottbil = _tpcon->get_bool(PCN_STSOTTBIL);
if (stsottbil) if (stsottbil)
@ -544,13 +544,13 @@ void TInv_cont::invio_piano_conti()
// Classe IV direttiva CEE // Classe IV direttiva CEE
TString sez = _tpcon->get(PCN_SEZIVD); work_string = _tpcon->get(PCN_SEZIVD);
if (sez == "0") if (work_string == "0")
sez = " "; work_string = " ";
record.overwrite(sez,114); //Sezione IV dir record.overwrite(work_string,114); //Sezione IV dir
TString let = _tpcon->get(PCN_LETTIVD); work_string = _tpcon->get(PCN_LETTIVD);
record.overwrite(let,115); //Lettera IV dir record.overwrite(work_string,115); //Lettera IV dir
int numrom = atoi(_tpcon->get(PCN_NUMRIVD)); int numrom = atoi(_tpcon->get(PCN_NUMRIVD));
str.format("%8d", numrom); str.format("%8d", numrom);
@ -562,13 +562,13 @@ void TInv_cont::invio_piano_conti()
// Classe IV direttiva CEE di segno opposto // Classe IV direttiva CEE di segno opposto
TString sezop = _tpcon->get(PCN_SEZIVDOPP); work_string = _tpcon->get(PCN_SEZIVDOPP);
if (sezop == "0") if (work_string == "0")
sezop = " "; work_string = " ";
record.overwrite(sezop,126); //Sezione IV dir record.overwrite(work_string,126); //Sezione IV dir
TString letop = _tpcon->get(PCN_LETTIVDOPP); work_string = _tpcon->get(PCN_LETTIVDOPP);
record.overwrite(letop,127); //Lettera IV dir record.overwrite(work_string,127); //Lettera IV dir
int numromop = atoi(_tpcon->get(PCN_NUMRIVDOPP)); int numromop = atoi(_tpcon->get(PCN_NUMRIVDOPP));
str.format("%8d", numromop); str.format("%8d", numromop);
@ -593,16 +593,16 @@ void TInv_cont::invio_piano_conti()
str.format("%06ld", s); str.format("%06ld", s);
record.overwrite(str,8); //Sottoconto record.overwrite(str,8); //Sottoconto
TString descr (_tpcon->get(PCN_DESCR)); work_string = _tpcon->get(PCN_DESCR);
str.format("%-50s", (const char*) descr); str.format("%-50s", (const char*) work_string);
record.overwrite(str,60); //Descrizione sottoconto record.overwrite(str,60); //Descrizione sottoconto
int tipospric = _tpcon->get_int(PCN_TIPOSPRIC); int tipospric = _tpcon->get_int(PCN_TIPOSPRIC);
str.format("%d", tipospric); str.format("%d", tipospric);
record.overwrite(str,110); //Tipo costo/ricavo record.overwrite(str,110); //Tipo costo/ricavo
TString sezsaldi = _tpcon->get(PCN_SEZSALDI); work_string = _tpcon->get(PCN_SEZSALDI);
record.overwrite(sezsaldi,111); record.overwrite(work_string,111);
bool sospeso = _tpcon->get_bool(PCN_SOSPESO); bool sospeso = _tpcon->get_bool(PCN_SOSPESO);
if (sospeso) if (sospeso)
@ -612,13 +612,13 @@ void TInv_cont::invio_piano_conti()
// Classe IV direttiva CEE // Classe IV direttiva CEE
TString sez = _tpcon->get(PCN_SEZIVD); work_string = _tpcon->get(PCN_SEZIVD);
if (sez == "0") if (work_string == "0")
sez = " "; work_string = " ";
record.overwrite(sez,113); //Sezione IV dir record.overwrite(work_string,113); //Sezione IV dir
TString let = _tpcon->get(PCN_LETTIVD); work_string = _tpcon->get(PCN_LETTIVD);
record.overwrite(let,114); //Lettera IV dir record.overwrite(work_string,114); //Lettera IV dir
int numrom = atoi(_tpcon->get(PCN_NUMRIVD)); int numrom = atoi(_tpcon->get(PCN_NUMRIVD));
str.format("%8d", numrom); str.format("%8d", numrom);
@ -630,13 +630,13 @@ void TInv_cont::invio_piano_conti()
// Classe IV direttiva CEE di segno opposto // Classe IV direttiva CEE di segno opposto
TString sezop = _tpcon->get(PCN_SEZIVDOPP); work_string = _tpcon->get(PCN_SEZIVDOPP);
if (sezop == "0") if (work_string == "0")
sezop = " "; work_string = " ";
record.overwrite(sezop,125); //Sezione IV dir record.overwrite(work_string,125); //Sezione IV dir
TString letop = _tpcon->get(PCN_LETTIVDOPP); work_string = _tpcon->get(PCN_LETTIVDOPP);
record.overwrite(letop,126); //Lettera IV dir record.overwrite(work_string,126); //Lettera IV dir
int numromop = atoi(_tpcon->get(PCN_NUMRIVDOPP)); int numromop = atoi(_tpcon->get(PCN_NUMRIVDOPP));
str.format("%8d", numromop); str.format("%8d", numromop);
@ -649,6 +649,9 @@ void TInv_cont::invio_piano_conti()
int ricser = _tpcon->get_int(PCN_RICSER); int ricser = _tpcon->get_int(PCN_RICSER);
str.format("%d", ricser); str.format("%d", ricser);
record.overwrite(str,137); //Tipo attivita' record.overwrite(str,137); //Tipo attivita'
TString work_string = _tpcon->get(PCN_IVACOMP);
record.overwrite(work_string,138); //Codice IVA compensazine
} }
_numrec_pcon++; _numrec_pcon++;

3
cg/cgtrc.ini
View File

@ -164,6 +164,7 @@ P3|4|7|12|19|SOTTOCONTO|||
P3|5|16|45|19|DESCR|1|| P3|5|16|45|19|DESCR|1||
P3|6|46|46|19|TIPOSPRIC||| P3|6|46|46|19|TIPOSPRIC|||
P3|7|47|47|19|RICSER||| P3|7|47|47|19|RICSER|||
P3|8|90|91|19|IVACOMP|||
#P3|8|48|48|19|SEZIVD||| #P3|8|48|48|19|SEZIVD|||
#P3|9|49|49|19|LETTIVD||| #P3|9|49|49|19|LETTIVD|||
#P3|10|60|62|19|NUMRIVD||| #P3|10|60|62|19|NUMRIVD|||
@ -338,4 +339,4 @@ B1|207|36|37|30|NRATA|||
B1|208|153|153|30|SEZ||| B1|208|153|153|30|SEZ|||
B1|209|117|127|30|IMPORTO||| B1|209|117|127|30|IMPORTO|||
B1|210|128|140|30|IMPORTOVAL|3|3| B1|210|128|140|30|IMPORTOVAL|3|3|
B1|211|1|1|30|IMP||| B1|211|1|1|30|IMP|||

1
cg/cgtrcpc.ini
View File

@ -134,6 +134,7 @@ P3|13|127|127|19|LETTIVDOPP|||
P3|14|128|135|19|NUMRIVDOPP||| P3|14|128|135|19|NUMRIVDOPP|||
P3|15|136|137|19|NUMIVDOPP||| P3|15|136|137|19|NUMIVDOPP|||
P3|16|138|138|19|RICSER||| P3|16|138|138|19|RICSER|||
P3|17|139|142|19|IVACOMP|||
Z1|1|3|9|23|NUMREG||| Z1|1|3|9|23|NUMREG|||
Z1|2|61|68|23|DATAREG|2|| Z1|2|61|68|23|DATAREG|2||
Z1|3|69|76|23|DATACOMP|2|| Z1|3|69|76|23|DATACOMP|2||