Patch level : 10.0 280

Files correlati     :tc9.exe
Ricompilazione Demo : [ ]
Commento            :

Modificato l'inviao a Sispac


git-svn-id: svn://10.65.10.50/trunk@18692 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-04-10 14:09:57 +00:00
parent ddd90b1482
commit b5a4747b9e
2 changed files with 4 additions and 2 deletions

View File

@ -924,7 +924,10 @@ void TInvioSispac::sispac_movim()
if (gruppo == 10)
gruppo = 0;
codice.format("%03ld%03ld%06ld", gruppo, conto, sottoconto);
if (input.get(RMV_TIPOC).as_string().full())
codice.format("%01ld%02ld000%06ld", gruppo, conto, sottoconto);
else
codice.format("%01ld%02ld%03ld000000", gruppo, conto, sottoconto);
var = codice;
recset.set("CODCONTO", var);
recset.set("TIPOREG", treg);

View File

@ -81,7 +81,6 @@ BEGIN
KEY 1
GROUP 3
FIELD SECOND
FLAG "Z"
END
ENDPAGE