yes, that clipper
Sample from the .prg code:
Code:
*
* First load data into "input" arrays in Local Currency
*
qorg(prodobj, th_pgn() )
queryprod(@prodobj)
if !hasdata(prodobj)
* no data!
if Excflag > 3 && force fail of exc. condition
Prodok= .f. && for products w/o data
endif
return && ABORT PROCESSING
endif
Sample from the .c code:
Code:
void calc_pvar(DFAORG * dfa)
/* -------------------------------------------------------------
performs price variance calculations upon DFA org;
assumes logical checks have already been performed.
------------------------------------------------------------- */
{
double year_sales = 0.000;
double year_units = 0.000;
double benchprice;
double unit_variance;
double variance;
register int i;
double * sales; /* pointer to appropriate array */
double * base_sales; /* pointer to appropriate array */
int need_conversion;
/* point to appropriate arrays for calculations */
if ( HI_INFLATION && (dfa->currency == 'D') )
{
sales = Usd.sales_at_base;
base_sales = Usd.base_sales;
}
else
{
sales = dfa->sales;
base_sales = dfa->base_sales;
}
need_conversion = ( (dfa->currency == 'D') && LO_INFLATION );