Code error problem

Question

Dear All Experts ,
When running this following VB6 codes, I've got Run time error 13 type mismatch:
If pVal.ItemUID = "CMDBTN1" Then
    If pVal.EventType = et_ITEM_PRESSED And pVal.BeforeAction = True Then
       'Set oForm = SboApplication.Forms(pVal.FormUID)
       Set oForm = SboApplication.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
       Dim tgl5 As String
       Set oEdit = oForm.Items("1000004").Specific
       'tgl5 = oEdit.String
StrSQL = "exec uspADCashReceipt '" & Tgl5 & "'"
       ViewReport "ADCashRCPT.rpt"
The SP code (StrSQL):
[dbo].[uspADCashReceipt] @date varchar(10)
SELECT T0.DocDate, T1.DueDate, T2.BankName, T0.BankCountr,
       T1.AcctNum, T1.U_NSAcc, T1.CheckNum, T1.CheckSum,T0.CardName,
       T3.City
FROM ORCT T0 INNER JOIN RCT1 T1 ON T0.DocNum = T1.DocNum
     INNER JOIN OCRD T3 ON T0.CardCode = T3.CardCode,
     ODSC T2
WHERE T2.BankCode = T1.BankCode and T0.Canceled = 'N' and
      T0.DocDate = (substring (@Date,6,3)+'/'+substring (@Date,1,3)+'/'+substring (@Date,8,3))
      and T0.Canceled ='N'
How to resolve ? Pls give advice.Thanks
Rgds,

Answer 1

Hi Petr, All,
Thx for answer but the report is still empty.
This is the addon source code that gives run time error (13) :
If pVal.ItemUID = "CMDBTN1" Then
    If pVal.EventType = et_ITEM_PRESSED And pVal.BeforeAction = True Then
       'Set oForm = SboApplication.Forms(pVal.FormUID)
       Set oForm = SboApplication.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
       Dim date1 As String
       Set oEdit = oForm.Items("1000004").Specific
       date1= oEdit.String
StrSQL = "exec uspADCashReceipt '" & Date15 & "'"
       ViewReport "ADCashRCPT.rpt"
The SP is as follows:
[dbo].[uspADCashReceipt] @date1 varchar(10)
SELECT T0.DocDate, T1.DueDate, T2.BankName, T0.BankCountr,
       T1.AcctNum, T1.U_NSAcc, T1.CheckNum, T1.CheckSum,T0.CardName,
       T3.City
FROM ORCT T0 INNER JOIN RCT1 T1 ON T0.DocNum = T1.DocNum
     INNER JOIN OCRD T3 ON T0.CardCode = T3.CardCode,
     ODSC T2
WHERE T2.BankCode = T1.BankCode and T0.Canceled = 'N' and
      T0.DocDate = (substring (@Date1,6,3)+'/'+substring (@Date1,1,3)+'/'+substring (@Date1,8,3))
      and T0.Canceled ='N'
I have changed the addon to be as follows:
If pVal.ItemUID = "CMDBTN1" Then
    If pVal.EventType = et_ITEM_PRESSED And pVal.BeforeAction = True Then
       'Set oForm = SboApplication.Forms(pVal.FormUID)
       Set oForm = SboApplication.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
       Dim date1 As Date
       Set oItem = oForm.Items("1000004")
StrSQL = "exec uspADCashReceipt '" & Date1 & "'"
       ViewReport "ADCashRCPT.rpt"
and the SP to be as follows (like what you suggested) :
[dbo].[uspADCashReceipt]
@date1 varchar(10)
SELECT T0.DocDate, T1.DueDate, T2.BankName, T0.BankCountr,
       T1.AcctNum, T1.U_NSAcc, T1.CheckNum, T1.CheckSum,T0.CardName,
       T3.City
FROM ORCT T0 INNER JOIN RCT1 T1 ON T0.DocNum = T1.DocNum
     INNER JOIN OCRD T3 ON T0.CardCode = T3.CardCode,
     ODSC T2
WHERE T2.BankCode = T1.BankCode and T0.Canceled = 'N' and
      T0.DocDate = convert(datetime, @date1)
      and T0.Canceled ='N'
but the report is empty. There is no report resulted.
if the date is set hardcode e.g. between '01/01/2005' and '12/31/2008' , the addon generated more than 100 report pages and limited.
bsaed on your answer, it seems there is no possibility to use string but is there any other solution that could make this code can still be used in the SP:
T0.DocDate = (substring (@Date1,6,3)+'/'+substring (@Date1,1,3)+'/'+substring (@Date1,8,3))
Pls give advice. TIA
Rgds,