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

git-svn-id: svn://10.65.10.50/branches/R_10_00@23023 c028cbd2-c16b-5b4b-a496-9718f37d4682

Browse Source
This commit is contained in:
guy 2014-12-10 16:13:19 +00:00
parent f70b7e2d84
commit ea4db97f58
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ef/ef0500.cpp
View File

@ -1057,7 +1057,7 @@ TDate TRiba_file::data_mandato(const TRectype& eff) const
void TRiba_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str) void TRiba_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TString& str)
{ {
const TString80 code(s.get(0)); const TString80 code(s.get(0));
TString80 valore; TString256 valore; // Deve poter contenere descrizione di banca + filiale
if (code == "_FISSO") if (code == "_FISSO")
{ {
// gestione dei campi fissi per i record delle riba // gestione dei campi fissi per i record delle riba
@ -1253,7 +1253,12 @@ void TRiba_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TStr
// gestione dei campi relativi alla banca d'appoggio dell'effetto // gestione dei campi relativi alla banca d'appoggio dell'effetto
// sintassi: _BANCA // sintassi: _BANCA
valore = cur.curr(-401).get("S0"); valore = cur.curr(-401).get("S0");
valore << ' ' << cur.curr(-402).get("S0"); const TString& filiale = cur.curr(-402).get("S0");
if (filiale.starts_with(valore, true))
valore = filiale;
else
valore << ' ' << filiale;
valore.strip_double_spaces();
} }
else if (code == "_FATT") else if (code == "_FATT")
{ {

2
ef/ef0500a.uml
View File

@ -50,8 +50,8 @@ BEGIN
PROMPT 43 6 "Numero Distinta " PROMPT 43 6 "Numero Distinta "
KEY 4 KEY 4
USE LF_EFFETTI KEY 4 SELECT (NRIGADIST=1)&&((TIPOCF=#F_TIPOCF)||((TIPOCF="")&&(#F_TIPOCF="C"))) USE LF_EFFETTI KEY 4 SELECT (NRIGADIST=1)&&((TIPOCF=#F_TIPOCF)||((TIPOCF="")&&(#F_TIPOCF="C")))
INPUT TIPODIST F_TIPODIST SELECT
INPUT NDIST F_NUMBER INPUT NDIST F_NUMBER
INPUT TIPODIST F_TIPODIST
INPUT NRIGADIST F_NUMBERRIGA INPUT NRIGADIST F_NUMBERRIGA
DISPLAY "Tipo" TIPODIST DISPLAY "Tipo" TIPODIST
DISPLAY "Nr. distinta" NDIST DISPLAY "Nr. distinta" NDIST