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

Patch level : 10.0 942

Browse Source 
Files correlati     : tc2.exe
Ricompilazione Demo : [ ]
Commento            :

Corretto invio ragione sociale clienti/fornitori


git-svn-id: svn://10.65.10.50/branches/R_10_00@21684 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-02-18 13:52:10 +00:00
parent f36a23c1ea
commit 3ae51d7dcf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tc/tc2700.cpp
View File

@ -875,8 +875,8 @@ void TIP_sender::add_cli(TISAM_recordset & cli, TIP_clienti_textset & ipcli)
ipcli.new_rec(); ipcli.new_rec();
ipcli.set("ID_Cliente", cli.get(CLI_CODCF)); ipcli.set("ID_Cliente", cli.get(CLI_CODCF));
ipcli.set("Descrizione_1", cli.get(CLI_CODCF).as_string().left(40)); ipcli.set("Descrizione_1", cli.get(CLI_RAGSOC).as_string().left(40));
ipcli.set("Descrizione_2", cli.get(CLI_CODCF).as_string().mid(40)); ipcli.set("Descrizione_2", cli.get(CLI_RAGSOC).as_string().mid(40));
val = cli.get(CLI_INDCF); val = cli.get(CLI_INDCF);
if (!cli.get(CLI_CIVCF).is_empty()) if (!cli.get(CLI_CIVCF).is_empty())
{ {
@ -993,8 +993,8 @@ void TIP_sender::add_forn(TISAM_recordset & forn, TIP_fornitori_textset & ipforn
ipforn.new_rec(); ipforn.new_rec();
ipforn.set("ID_Cliente", forn.get(CLI_CODCF)); ipforn.set("ID_Cliente", forn.get(CLI_CODCF));
ipforn.set("Descrizione_1", forn.get(CLI_CODCF).as_string().left(40)); ipforn.set("Descrizione_1", forn.get(CLI_RAGSOC).as_string().left(40));
ipforn.set("Descrizione_2", forn.get(CLI_CODCF).as_string().mid(40)); ipforn.set("Descrizione_2", forn.get(CLI_RAGSOC).as_string().mid(40));
val = forn.get(CLI_INDCF); val = forn.get(CLI_INDCF);
if (!forn.get(CLI_CIVCF).is_empty()) if (!forn.get(CLI_CIVCF).is_empty())
{ {