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

Patch level :aga 2.0

Browse Source 
Files correlati     :or1.exe
Ricompilazione Demo : [ ]
Commento            :corretto errore di riporto


git-svn-id: svn://10.65.10.50/trunk@10725 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2003-01-13 12:04:10 +00:00
parent dd8e575daf
commit 1741319a11
1 changed files with 59 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
or/orlib01.cpp
View File

@ -337,28 +337,12 @@ bool TOrdine_form::validate(TForm_item &cf, TToken_string &s)
}
// Ignore any other command
}
} else
}
else
if (action == "PREZZONS")
{
real pns = rdoc.prezzo(TRUE,FALSE); // Prezzo netto scontato
cf.set(pns.string());
} else
if (action == "RAGSOC")
{
// Compone la ragione sociale (considera gli occasionali)
// Il formato è il seguente: CODICE (OCFPI) RAGIONE_SOCIALE
TString ws;
const bool print_cod = s.get_int(2);
TDocumento& documento = (TDocumento&)cf.form().cursor()->curr(LF_DOC);
TCli_for& cli_for = documento.clifor();
TOccasionale& cli_occ = documento.occas();
const bool occasionale = cli_for.occasionale();
if (print_cod)
ws << cli_for.get("CODCF") << " ";
if (occasionale)
{
ws << "(" << cli_occ.get("CFPI") << ") " ;
ws << cli_occ.get("RAGSOC");
}
else
if (action == "RAGSOC")
@ -367,7 +351,7 @@ bool TOrdine_form::validate(TForm_item &cf, TToken_string &s)
// Il formato è il seguente: CODICE (OCFPI) RAGIONE_SOCIALE
TString ws;
const bool print_cod = s.get_int(2) != 0;
TDocumento& documento = (TDocumento&)cf.form().cursor()->file(LF_DOC).curr();
TDocumento& documento = (TDocumento&)cf.form().cursor()->curr(LF_DOC);
TCli_for& cli_for = documento.clifor();
TOccasionale& cli_occ = documento.occas();
const bool occasionale = cli_for.occasionale();
@ -417,7 +401,6 @@ bool TOrdine_form::validate(TForm_item &cf, TToken_string &s)
}
cf.set(g.string());
}
//Ignore any other command
return TRUE;
}