Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

eror code

Halo para pakar VB6...:)

Berikut code VB6 yang bikin pusing 7 keliling dan bila di execute menghasilkan run time error 13 type mistmatch:

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 dat1 As String
Set oEdit = oForm.Items("1000004").Specific
dat1 = oEdit.String

StrSQL = "exec uspADCashReceipt '" & dat1 & "'"
ViewReport "ADCashRCPT.rpt"


sedangkan SPnya:

[dbo].[uspADCashReceipt] @dat1 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 (@dat1,6,3)+'/'+substring (@dat1,1,3)+'/'+substring (@dat1,8,3))
and T0.Canceled ='N'


Mohon bantuannya apa yang mesti saya perbaiki di codenya. Kalo bisa sekalian codenya yach... ma kasih sebelumnya.


Mark
Sign In or Register to comment.