Arithmetic overflow error converting nvarchar to data type numeric when the value is 0
solution : add ' '
solution : add ' '
Vicky, 2014/1/7 下午 06:27:54
Inherits Master
Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
HandleAction()
End Sub
Sub HandleAction()
If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then
Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")
Select Case Action
End Select
End If
End Sub
Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
LoadPageContext()
End Sub
Sub LoadPageContext()
End Sub
Sub JSONWriteToClient(ByVal TrueorFalse As Boolean, Optional ByVal msg As String = "", Optional ByVal Title As String = "", Optional ByVal Content As String = "", Optional ByVal Content2 As String = "", Optional ByVal Content3 As String = "")
Dim TF As String = Now.ToString("yyyyMMddHHmmss")
Dim oJ As UW.JSON
oJ = New UW.JSON(TrueorFalse, msg)
oJ.add("Title", Title)
oJ.add("Content", Content)
oJ.add("Content2", Content2)
oJ.add("Content3", Content3)
oJ.add("TF", TF)
oJ.WriteToClient()
Response.End()
End Sub
Doug, 2014/1/6 下午 12:25:22
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--Header S-->
<!--<title>{Title}</title>
<meta name="description" content="{Description}" />
<script type="text/javascript" src="{UNTJS}"></script>-->
<!--AutoScripts S--><!--AutoScripts E-->
<!--AutoCSS S--><!-- AutoCSS E-->
<!--Header E-->
</head>
<body>
<!--Content S-->
<!--FinalScript S-->
<script type="text/javascript">
$(document).ready(function () {
})
</script>
<!--FinalScript E-->
<!--Content E-->
</body>
</html>
Doug, 2014/1/6 下午 12:21:03
Protected Sub Page_PreLoad(sender As Object, e As EventArgs) Handles Me.PreLoad
SHOPUNT.GN.WSC.CheckLogin() '檢查是否有登入、否則導回Login
SHOPUNT.GN.WSC.CheckRightOrStop(SHOPUNT.EN.AuthCode.廣告管理) '檢查是否有廣告編輯的權限
End Sub
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
HandleAction()
End Sub
Sub HandleAction()
If UW.WU.IsNonEmptyFromQueryStringOrForm("Action") Then
Dim Action As String = UW.WU.GetValueFromQueryStringOrForm("Action")
Select Case Action
End Select
End If
End Sub
Protected Sub Page_PreRender(sender As Object, e As EventArgs) Handles Me.PreRender
'Me.Master.strTitle = "目錄管理"
'Me.Master.IsListItemScript = True
LoadPageContext()
End Sub
Sub LoadPageContext()
End Sub
Doug, 2014/1/6 上午 11:40:25
我找到了我一直很想要的用滑鼠滑一滑就可以關掉頁面和上一頁下一頁的擴充套件啦~
是這裡分享的>>幸運草的吉光片羽
他還有分享其他很好用的套件,大家可以安裝來用用唷~
Yuan, 2014/1/4 下午 11:43:12
此次電子發票因為配合財政部政冊,我們做了UNT前後台及Turnkey較體的修正,原定2013/12/31將前後台相關程式上線,
2014/1/2再將Turnkey切換成MIG 3.1版本,但是這次上線後發生了幾個狀況...這和上線前未測試完全有關
1.前台於95 84皆未測試到Repay,上線後才想到,還好在上線當天有完成修正
2.後台未測試發票列印,1/2出貨選擇紙本發票的訂單並未隨貨印出,1/3一早才發現程式並未上線至正式台,立即將他上線
即時的解決方法:
1.Repay因在上線當天就發現,所以在上線後一一測試排除了,但三聯式發票的Bug比較麻煩,無法立即處理
2.1/2未印出的發票,我們寄出了一封通知信給那374位未收到發票的顧客,發票依舊由雅卡西亞託管,並會在3/25為他們對獎,
且讓無發票印列記錄的訂單皆可在前台點選得到"索取紙本發票",1/25之後由我們每天檢查是否有發票索取
必免未來發生相同的錯誤,以後應該:
1.程式未上線至正式台前,需將程式需求中的每一個項目皆測試到,最好可以做一個測試列表勾選
(是不是可以做一個程式有修改的清單,上線前可檢查是否有全數更新到?)
2.只要有關購物車中的購買相關程式,皆需測試到Repay
3.最好能想好程式如果無法如期上線的備案
不知還有麼要注意的,大家給點建議吧!
2014/1/2再將Turnkey切換成MIG 3.1版本,但是這次上線後發生了幾個狀況...這和上線前未測試完全有關
1.前台於95 84皆未測試到Repay,上線後才想到,還好在上線當天有完成修正
2.後台未測試發票列印,1/2出貨選擇紙本發票的訂單並未隨貨印出,1/3一早才發現程式並未上線至正式台,立即將他上線
即時的解決方法:
1.Repay因在上線當天就發現,所以在上線後一一測試排除了,但三聯式發票的Bug比較麻煩,無法立即處理
2.1/2未印出的發票,我們寄出了一封通知信給那374位未收到發票的顧客,發票依舊由雅卡西亞託管,並會在3/25為他們對獎,
且讓無發票印列記錄的訂單皆可在前台點選得到"索取紙本發票",1/25之後由我們每天檢查是否有發票索取
必免未來發生相同的錯誤,以後應該:
1.程式未上線至正式台前,需將程式需求中的每一個項目皆測試到,最好可以做一個測試列表勾選
(是不是可以做一個程式有修改的清單,上線前可檢查是否有全數更新到?)
2.只要有關購物車中的購買相關程式,皆需測試到Repay
3.最好能想好程式如果無法如期上線的備案
不知還有麼要注意的,大家給點建議吧!
Yuan, 2014/1/4 下午 11:26:50
康是美出貨印單犯下的錯誤,這邊寫給未來新進同仁注意,出貨印單時發生訂單明細品項箱數與總數量不相符的問題,
測試之後發現是記錄原始訂單上傳log table [OrderFromCosmed Log] ,在撈出該筆訂單品項資料時,資料庫物件
下select條件時發生失誤,以下是程式碼:有問題的程式碼我以#號標記
說明:已上程式是在撈出訂單品項資料時要對康是美印單用.txt sample檔裡面的字串作取代最後再列印,發生問題的程式碼,
主要是撈出該筆訂單品項時,使用資料庫物件的方法GetDataRowAndReturnSelfOrNothing()時,只下訂單品項id而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!
測試之後發現是記錄原始訂單上傳log table [OrderFromCosmed Log] ,在撈出該筆訂單品項資料時,資料庫物件
下select條件時發生失誤,以下是程式碼:有問題的程式碼我以#號標記
For I As Int32 = 1 To DT.Rows.Count
If order_num_right = DT.Rows(I - 1)("Pid") Then
Pid_No = I - 1
End If
#OFCL.Pid = DT.Rows(I - 1)("Pid")
#OFCL.GetDataRowAndReturnSelfOrNothing()
Dim NewT As String = oT.Result
NewT = NewT.Replace("#Y#", StartY + (I - 1) * LH)
NewT = NewT.Replace("#序號#", I.ToString)
NewT = NewT.Replace("#品號#", OFCL.Pid)
NewT = NewT.Replace("#品名#", OFCL.Product_Name)
NewT = NewT.Replace("#包裝#", OFCL.Package)
NewT = NewT.Replace("#單位#", OFCL.UNIT)
NewT = NewT.Replace("#數量#", OFCL.Qty)
NewT = NewT.Replace("#箱數#", OFCL.BOX)
NewT = NewT.Replace("#總數量#", OFCL.Total)
NewT = NewT.Replace("#未稅價#", OFCL.Price)
NewT = NewT.Replace("#總金額#", OFCL.Sum)
Res &= NewT
Next
說明:已上程式是在撈出訂單品項資料時要對康是美印單用.txt sample檔裡面的字串作取代最後再列印,發生問題的程式碼,
主要是撈出該筆訂單品項時,使用資料庫物件的方法GetDataRowAndReturnSelfOrNothing()時,只下訂單品項id而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!
jimmy, 2014/1/3 下午 08:51:38
1. 已登入的情況下，回應可以不用輸入驗證碼。
2. Email 通知增加一個參數 "LoginFirst=true"，看到這個參數時，會自動要求登入。
-- 建議可以讓小玉來做做看。
2. Email 通知增加一個參數 "LoginFirst=true"，看到這個參數時，會自動要求登入。
-- 建議可以讓小玉來做做看。
Bike, 2014/1/3 下午 08:40:32
最近常使用 jQuery ajax form 處理表單，意外發現使用ajax form 傳送的 textarea 資料斷行符號只會有 vbLf (\n)
而非我們一般認知的 vbCrLf (\r\n)
原因在於 javascript 變數處理 string 資料，斷行文字只有 \n 不會是 \r\n
ajax form 物件在轉換 form data 到 XHR 的 post data 時，自然就把 \r 給濾掉了
所以 Server 會端收到僅有 \n 的斷行符號
這樣使用 UW.TextFns.ContentToHtml 就不會產生 "<br>" 了
因為這支程式是使用 vbCrLf 去取代成 <br>
而非我們一般認知的 vbCrLf (\r\n)
原因在於 javascript 變數處理 string 資料，斷行文字只有 \n 不會是 \r\n
ajax form 物件在轉換 form data 到 XHR 的 post data 時，自然就把 \r 給濾掉了
所以 Server 會端收到僅有 \n 的斷行符號
這樣使用 UW.TextFns.ContentToHtml 就不會產生 "<br>" 了
因為這支程式是使用 vbCrLf 去取代成 <br>
darren, 2014/1/3 下午 07:39:47
真不知道為什麼要花很多時間升級一個系統，然後再花很多時間讓它看起來和舊的一樣。 -- Windows 8.1
最近開始用 Windows 8.1 ，雖然大家都對它抱怨連連，但還是有一點點好處的啦 !! 我們總是在眾多缺點中找到優點。以下列舉幾個，希望未來可以慢慢增加。這些都是對工和師而言有感的優點。
另外我是從 windows 2008 跳到 windows 8.1，所以可能有部份功能是 window 7 就有的，請各位見諒:
1.Activited Window 的邊界更明顯，開很多視窗時更好找到邊界。
2.倉頡輸入法可以有類似 auto complete 的功能，可以少打幾個鍵就選到字。
3. 下方的工作列不合併的程式時，有把相同的程式放在一起，很好找。而且可以換位置對於常常在工作列找東西的人而言。真是一大福音。
4. 可把特定的程式釘在工作列的固定位置, 例如先排 Chrome ，再排 visual studio，會方便你找東西。
未來有發現其它的優點再和大家報告。
最近開始用 Windows 8.1 ，雖然大家都對它抱怨連連，但還是有一點點好處的啦 !! 我們總是在眾多缺點中找到優點。以下列舉幾個，希望未來可以慢慢增加。這些都是對工和師而言有感的優點。
另外我是從 windows 2008 跳到 windows 8.1，所以可能有部份功能是 window 7 就有的，請各位見諒:
1.Activited Window 的邊界更明顯，開很多視窗時更好找到邊界。
2.倉頡輸入法可以有類似 auto complete 的功能，可以少打幾個鍵就選到字。
3. 下方的工作列不合併的程式時，有把相同的程式放在一起，很好找。而且可以換位置對於常常在工作列找東西的人而言。真是一大福音。
4. 可把特定的程式釘在工作列的固定位置, 例如先排 Chrome ，再排 visual studio，會方便你找東西。
未來有發現其它的優點再和大家報告。
Bike, 2014/1/2 下午 07:34:49