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

cg6900.cpp Corretta estarzione codice causale dal campo S5. MI3597

Browse Source 
cg6901.cpp    Corretta estarzione codice causale dal campo S5. MI3597


git-svn-id: svn://10.65.10.50/trunk@4274 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1997-04-11 14:57:26 +00:00
parent 6a04320fab
commit 44b59228d0
2 changed files with 12 additions and 12 deletions

12
cg/cg6900.cpp

@ -757,12 +757,12 @@ bool TInv_cont::tabella_ditta()
// Compila l'array contenente le causali di corrispondenza per l'invio extracontabile
TString s5(ind.get("S5"));
_tab_cau.destroy();
_tab_cau.add(s5.mid(0,2));
_tab_cau.add(s5.mid(3,5));
_tab_cau.add(s5.mid(6,8));
_tab_cau.add(s5.mid(9,11));
_tab_cau.add(s5.mid(12,15));
_tab_cau.add(s5.mid(16,18));
_tab_cau.add(s5.mid(0,3));
_tab_cau.add(s5.mid(3,3));
_tab_cau.add(s5.mid(6,3));
_tab_cau.add(s5.mid(9,3));
_tab_cau.add(s5.mid(12,3));
_tab_cau.add(s5.mid(16,3));
return TRUE;
}

12
cg/cg6901.cpp

@ -99,12 +99,12 @@ bool TLista_archivi::tabella_ditta()
// Compila l'array contenente le causali di corrispondenza per l'invio extracontabile
TString s5(ind.get("S5"));
_tab_cau.destroy();
_tab_cau.add(s5.mid(0,2));
_tab_cau.add(s5.mid(3,5));
_tab_cau.add(s5.mid(6,8));
_tab_cau.add(s5.mid(9,11));
_tab_cau.add(s5.mid(12,15));
_tab_cau.add(s5.mid(16,18));
_tab_cau.add(s5.mid(0,3));
_tab_cau.add(s5.mid(3,3));
_tab_cau.add(s5.mid(6,3));
_tab_cau.add(s5.mid(9,3));
_tab_cau.add(s5.mid(12,3));
_tab_cau.add(s5.mid(16,3));
return TRUE;
}