tony – 第 74 页 – 中年大叔托尼

2008-05-15

常用符号的英文读法

* asterisk

# 读法很多：
pound
pound sign
hash
number （sign）
sharp
（garden）fence
octothorp
括号内的单词可以省略。

+　 plus　加号；正号
-　 minus　减号；负号
±　plus or minus　正负号
×　is multiplied by　乘号
÷　is divided by　除号
＝　is equal to　等于号
≠　is not equal to　不等于号
≡　is equivalent to　全等于号
≌　is equal to or approximately equal to　等于或约等于号

2008-05-14

2008年5月12日天灾

我们都是炎黄子孙，请拿起你的手机，编辑短信1或2，发送至1069999301，向“中国红十字救援行动”捐款1元或2元。

2008-05-142015-01-27

query+report达到user的需求

前几天应USER需求，要查看某一物料当前库存多少，库存在哪个仓库，两周之内对此物料的需求是多少。

写了一query，然后在报表中加如下列内容，达到要求。

select
whwmd215.item | Item
from
whwmd215 | Item Inventory by Warehouse
where
whwmd215.item >= whwmd215.item.f and
whwmd215.item <= whwmd215.item.t
group by whwmd215.item
order by whwmd215.item

报表中的descript:

declaration:

table twhwmd215
table tgdrmp001
table ttcibd001

extern domain tcqiv1 wip_162030
extern domain tcqiv1 wip_162035

     extern domain tcqiv1 nor_162012
     extern domain tcqiv1 nor_162013
     extern domain tcqiv1 nor_162020
     extern domain tcqiv1 nor_162025
     extern domain cpcom.quan pdemg_1
     extern domain cpcom.quan pdemg_2

domain cpcom.dydt pdate.g
domain tcmcs.long count

before.program:
pdate.g = date.num()

detail.1:
before.layout:

| message (Str$(pdate.g))

select  whwmd215.stoc, whwmd215.cwar, whwmd215.item
from  whwmd215
where  whwmd215._index2 = {:whwmd215.item}
order by whwmd215._index2
selectdo

  if strip$(whwmd215.cwar) = "162030" then
   wip_162030 = 0
   wip_162030 = whwmd215.stoc
  endif

  if strip$(whwmd215.cwar) = "162035" then
   wip_162035 = 0
   wip_162035 = whwmd215.stoc
  endif

  if strip$(whwmd215.cwar) = "162012" then
   nor_162012 = 0
   nor_162012 = whwmd215.stoc
  endif

  if strip$(whwmd215.cwar) = "162013" then
   nor_162013 = 0
   nor_162013 = whwmd215.stoc
  endif

  if strip$(whwmd215.cwar) = "162020" then
   nor_162020 = 0
   nor_162020 = whwmd215.stoc
  endif

  if strip$(whwmd215.cwar) = "162025" then
   nor_162025 = 0
   nor_162025 = whwmd215.stoc
  endif

endselect

count =0
select gdrmp001.pdem.g, gdrmp001._index1
from gdrmp001
where gdrmp001._index3 = {"162", 1}
and (gdrmp001.plni.g = :whwmd215.item or
   gdrmp001.sitm.g = :whwmd215.item )
and (gdrmp001.pdat.g >= :pdate.g or
   gdrmp001.pdat.g <= :pdate.g)
order by gdrmp001._index1
as set with 2 rows
selectdo
  count = count + 1
  if count = 1 then
   pdemg_1 = 0
   pdemg_1 = gdrmp001.pdem.g
  endif
  if count = 2 then
   pdemg_2 = 0
   pdemg_2 = gdrmp001.pdem.g
  endif

endselect