void itemPricingScheduleItem::populate()
{
if(_itemSelected->isChecked())
{
q.prepare( "SELECT ipsitem_item_id,"
" ipsitem_qtybreak, ipsitem_price "
"FROM ipsitem "
"WHERE (ipsitem_id=:ipsitem_id);" );
q.bindValue(":ipsitem_id", _ipsitemid);
q.exec();
if (q.first())
{
_item->setId(q.value("ipsitem_item_id").toInt());
_qtyBreak->setText(formatQty(q.value("ipsitem_qtybreak").toDouble()));
_price->setLocalValue(q.value("ipsitem_price").toDouble());
sUpdateMargins();
}
}
else
{
q.prepare( "SELECT ipsprodcat_prodcat_id,"
" ipsprodcat_qtybreak, ipsprodcat_discntprcnt "
"FROM ipsprodcat "
"WHERE (ipsprodcat_id=:ipsprodcat_id);" );
q.bindValue(":ipsprodcat_id", _ipsprodcatid);
q.exec();
if (q.first())
{
_prodcat->setId(q.value("ipsprodcat_prodcat_id").toInt());
_qtyBreakCat->setText(formatQty(q.value("ipsprodcat_qtybreak").toDouble()));
_discount->setText(formatPercent(q.value("ipsprodcat_discntprcnt").toDouble()));
}
}
}
void customer::sPopulateCommission()
{
if (_mode != cView)
{
q.prepare( "SELECT salesrep_commission "
"FROM salesrep "
"WHERE (salesrep_id=:salesrep_id);" );
q.bindValue(":salesrep_id", _salesrep->id());
q.exec();
if (q.first())
_defaultCommissionPrcnt->setText(formatPercent(q.value("salesrep_commission").toDouble()));
}
}
void creditMemoItem::sCalculateDiscountPrcnt()
{
double unitPrice = _netUnitPrice->localValue();
if (unitPrice == 0.0)
{
_discountFromList->setText("N/A");
_discountFromSale->setText("N/A");
}
else
{
if (_listPrice->isZero())
_discountFromList->setText("N/A");
else
_discountFromList->setText(formatPercent(1 - (unitPrice / _listPrice->localValue())) );
if (_salePrice->isZero())
_discountFromSale->setText("N/A");
else
_discountFromSale->setText(formatPercent(1 - (unitPrice / _salePrice->localValue())) );
}
}
void itemPricingScheduleItem::sUpdateMargins()
{
if (_item->isValid())
{
double price = _price->baseValue();
if (_stdCost->baseValue() > 0.0)
{
_stdMargin->setText(formatPercent((price - _stdCost->baseValue()) / price));
if (_stdCost->baseValue() > price)
_stdMargin->setPaletteForegroundColor(QColor("red"));
else
_stdMargin->setPaletteForegroundColor(QColor("black"));
}
else
{
_stdMargin->setText("N/A");
_stdMargin->setPaletteForegroundColor(QColor("black"));
}
if (_actCost->baseValue() > 0.0)
{
_actMargin->setText(formatPercent((price - _actCost->baseValue()) / price));
if (_actCost->baseValue() > price)
_actMargin->setPaletteForegroundColor(QColor("red"));
else
_actMargin->setPaletteForegroundColor(QColor("black"));
}
else
{
_actMargin->setText("N/A");
_actMargin->setPaletteForegroundColor(QColor("black"));
}
}
}
void PanelPreviewSound::update() {
uint64 t = SoundMan.getChannelDurationPlayed(_sound);
Common::UString played = formatTime(t);
Common::UString total = formatTime(_duration);
Common::UString percent = formatPercent(_duration, t);
_textPosition->SetLabelMarkup(Common::UString::format("<tt>%s</tt>", played.c_str()));
_textPercent->SetLabelMarkup(Common::UString::format("<tt>%s</tt>", percent.c_str()));
_textDuration->SetLabelMarkup(Common::UString::format("<tt>%s</tt>", total.c_str()));
_sliderPosition->SetValue(getSliderPos(_duration, t));
bool isPlaying = SoundMan.isPlaying(_sound);
bool isPaused = SoundMan.isPaused(_sound);
setButtons(!isPlaying || isPaused, isPlaying && !isPaused, isPlaying);
}
void dspPricesByItem::sFillList()
{
_price->clear();
if (_item->isValid())
{
double cost = 0.0;
if (_showCosts->isChecked())
{
if (_useStandardCosts->isChecked())
q.prepare( "SELECT (stdCost(item_id) * iteminvpricerat(item_id)) AS cost "
"FROM item "
"WHERE (item_id=:item_id);");
else if (_useActualCosts->isChecked())
q.prepare( "SELECT (actCost(item_id) * iteminvpricerat(item_id)) AS cost "
"FROM item "
"WHERE (item_id=:item_id);");
q.bindValue(":item_id", _item->id());
q.exec();
if (q.first())
cost = q.value("cost").toDouble();
// ToDo
}
QString sql( "SELECT ipsprice_id AS itemid, 1 AS sourcetype,"
" ipshead_name AS schedulename, :customer AS type,"
" cust_name AS typename,"
" CASE WHEN (ipsprice_qtybreak = -1) THEN :na"
" ELSE formatQty(ipsprice_qtybreak)"
" END AS f_qtybreak,"
" ipsprice_price AS price, currConcat(ipshead_curr_id) AS currConcat "
"FROM ipsass, ipshead, ipsprice, cust, item "
"WHERE ( (ipsass_ipshead_id=ipshead_id)"
" AND (ipsprice_ipshead_id=ipshead_id)"
" AND (ipsass_cust_id=cust_id)"
" AND (COALESCE(LENGTH(ipsass_shipto_pattern), 0) = 0)"
" AND (ipsprice_item_id=item_id)"
" AND (item_id=:item_id)" );
if (!_showExpired->isChecked())
sql += " AND (ipshead_expires > CURRENT_DATE)";
if (!_showFuture->isChecked())
sql += " AND (ipshead_effective <= CURRENT_DATE)";
sql += ") "
"UNION SELECT ipsprice_id AS itemid, 2 AS sourcetype,"
" ipshead_name AS schedulename, :custType AS type,"
" (custtype_code || '-' || custtype_descrip) AS typename,"
" CASE WHEN (ipsprice_qtybreak = -1) THEN :na"
" ELSE formatQty(ipsprice_qtybreak)"
" END AS f_qtybreak,"
" ipsprice_price AS price, currConcat(ipshead_curr_id) AS currConcat "
"FROM ipsass, ipshead, ipsprice, custtype, item "
"WHERE ( (ipsass_ipshead_id=ipshead_id)"
" AND (ipsprice_ipshead_id=ipshead_id)"
" AND (ipsass_custtype_id=custtype_id)"
" AND (ipsprice_item_id=item_id)"
" AND (item_id=:item_id)";
if (!_showExpired->isChecked())
sql += " AND (ipshead_expires > CURRENT_DATE)";
if (!_showFuture->isChecked())
sql += " AND (ipshead_effective <= CURRENT_DATE)";
sql += ") "
"UNION SELECT ipsprice_id AS itemid, 3 AS sourcetype,"
" ipshead_name AS schedulename, :custTypePattern AS type,"
" (custtype_code || '-' || custtype_descrip) AS typename,"
" CASE WHEN (ipsprice_qtybreak = -1) THEN :na"
" ELSE formatQty(ipsprice_qtybreak)"
" END AS f_qtybreak,"
" ipsprice_price AS price, currConcat(ipshead_curr_id) AS currConcat "
"FROM ipsass, ipshead, ipsprice, custtype, item "
"WHERE ( (ipsass_ipshead_id=ipshead_id)"
" AND (ipsprice_ipshead_id=ipshead_id)"
" AND (coalesce(length(ipsass_custtype_pattern), 0) > 0)"
" AND (custtype_code ~ ipsass_custtype_pattern)"
" AND (ipsprice_item_id=item_id)"
" AND (item_id=:item_id)";
if (!_showExpired->isChecked())
sql += " AND (ipshead_expires > CURRENT_DATE)";
if (!_showFuture->isChecked())
sql += " AND (ipshead_effective <= CURRENT_DATE)";
sql += ") "
"UNION SELECT ipsprice_id AS itemid, 4 AS sourcetype,"
" ipshead_name AS schedulename, :sale AS type,"
" sale_name AS typename,"
" CASE WHEN (ipsprice_qtybreak = -1) THEN :na"
" ELSE formatQty(ipsprice_qtybreak)"
" END AS f_qtybreak,"
" ipsprice_price AS price, currConcat(ipshead_curr_id) AS currConcat "
"FROM sale, ipshead, ipsprice, item "
"WHERE ( (sale_ipshead_id=ipshead_id)"
" AND (ipsprice_ipshead_id=ipshead_id)"
" AND (ipsprice_item_id=:item_id)";
if (!_showExpired->isChecked())
sql += " AND (sale_enddate > CURRENT_DATE)";
if (!_showFuture->isChecked())
sql += " AND (sale_startdate <= CURRENT_DATE)";
sql += ") "
"UNION SELECT ipsprice_id AS itemid, 5 AS sourcetype,"
" ipshead_name AS schedulename, :shipTo AS type,"
" (cust_name || '-' || shipto_num) AS typename,"
" CASE WHEN (ipsprice_qtybreak = -1) THEN :na"
" ELSE formatQty(ipsprice_qtybreak)"
" END AS f_qtybreak,"
" ipsprice_price AS price, currConcat(ipshead_curr_id) AS currConcat "
"FROM ipsass, ipshead, ipsprice, cust, shipto, item "
"WHERE ( (ipsass_ipshead_id=ipshead_id)"
" AND (ipsprice_ipshead_id=ipshead_id)"
" AND (ipsass_shipto_id=shipto_id)"
" AND (shipto_cust_id=cust_id)"
" AND (ipsprice_item_id=item_id)"
" AND (item_id=:item_id)";
if (!_showExpired->isChecked())
sql += " AND (ipshead_expires > CURRENT_DATE)";
if (!_showFuture->isChecked())
sql += " AND (ipshead_effective <= CURRENT_DATE)";
sql += ") "
"UNION SELECT ipsprice_id AS itemid, 6 AS sourcetype,"
" ipshead_name AS schedulename, :shipToPattern AS type,"
" (cust_name || '-' || shipto_num) AS typename,"
" CASE WHEN (ipsprice_qtybreak = -1) THEN :na"
" ELSE formatQty(ipsprice_qtybreak)"
" END AS f_qtybreak,"
" ipsprice_price AS price, currConcat(ipshead_curr_id) AS currConcat "
"FROM ipsass, ipshead, ipsprice, cust, shipto, item "
"WHERE ( (ipsass_ipshead_id=ipshead_id)"
" AND (ipsprice_ipshead_id=ipshead_id)"
" AND (COALESCE(LENGTH(ipsass_shipto_pattern),0) > 0)"
" AND (shipto_num ~ ipsass_shipto_pattern)"
" AND (ipsass_cust_id=cust_id)"
" AND (shipto_cust_id=cust_id)"
" AND (ipsprice_item_id=item_id)"
" AND (item_id=:item_id)";
if (!_showExpired->isChecked())
sql += " AND (ipshead_expires > CURRENT_DATE)";
if (!_showFuture->isChecked())
sql += " AND (ipshead_effective <= CURRENT_DATE)";
sql += ") "
"UNION SELECT item_id AS itemid, 0 AS sourcetype,"
" :listPrice AS schedulename, :na AS type,"
" '' AS typename,"
" :na AS f_qtybreak,"
" item_listprice AS price, currConcat(baseCurrId()) AS currConcat "
"FROM item "
"WHERE ( (NOT item_exclusive)"
" AND (item_id=:item_id) ) "
"ORDER BY price;";
q.prepare(sql);
q.bindValue(":na", tr("N/A"));
q.bindValue(":customer", tr("Customer"));
q.bindValue(":shipTo", tr("Cust. Ship-To"));
q.bindValue(":shipToPattern", tr("Cust. Ship-To Pattern"));
q.bindValue(":custType", tr("Cust. Type"));
q.bindValue(":custTypePattern", tr("Cust. Type Pattern"));
q.bindValue(":sale", tr("Sale"));
q.bindValue(":listPrice", tr("List Price"));
q.bindValue(":item_id", _item->id());
q.exec();
XTreeWidgetItem *last = 0;
while (q.next())
{
double price = q.value("price").toDouble();
last = new XTreeWidgetItem(_price, last, q.value("itemid").toInt(),
q.value("sourcetype").toInt(),
q.value("schedulename"), q.value("type"),
q.value("typename"), q.value("f_qtybreak"),
formatSalesPrice(q.value("price").toDouble()),
q.value("currConcat"),
formatCost(cost),
(price != 0) ? formatPercent(((price - cost) / price)) : QString());
if (cost > price)
last->setTextColor(MARGIN_COL, "red");
}
}
}
