CREATE PROCEDURE VendContact_all
@parm1 varchar( 15 ),
@parm2 varchar( 10 )
AS
SELECT *
FROM VendContact
WHERE VendID LIKE @parm1
AND ContactID LIKE @parm2
ORDER BY VendID,
ContactID
the mask is WWWWWWWWWW
CREATE TABLE [dbo].[VendContact](
[Addr1] [char](60) NOT NULL CONSTRAINT [DF_VendContact_Addr1] DEFAULT (' '),
[Addr2] [char](60) NOT NULL CONSTRAINT [DF_VendContact_Addr2] DEFAULT (' '),
[City] [char](30) NOT NULL CONSTRAINT [DF_VendContact_City] DEFAULT (' '),
[ContactID] [char](10) NOT NULL CONSTRAINT [DF_VendContact_ContactID] DEFAULT (' '),
[Country] [char](3) NOT NULL CONSTRAINT [DF_VendContact_Country] DEFAULT (' '),
[Crtd_DateTime] [smalldatetime] NOT NULL CONSTRAINT [DF_VendContact_Crtd_DateTime] DEFAULT (rtrim(CONVERT([varchar](30),CONVERT([smalldatetime],getdate(),(0)),(0)))),
[Crtd_Prog] [char](8) NOT NULL CONSTRAINT [DF_VendContact_Crtd_Prog] DEFAULT (' '),
[Crtd_User] [char](10) NOT NULL CONSTRAINT [DF_VendContact_Crtd_User] DEFAULT (' '),
[VendID] [char](15) NOT NULL CONSTRAINT [DF_VendContact_CustID] DEFAULT (' '),
[EmailAddr] [char](80) NOT NULL CONSTRAINT [DF_VendContact_EmailAddr] DEFAULT (' '),
[Fax] [char](30) NOT NULL CONSTRAINT [DF_VendContact_Fax] DEFAULT (' '),
[LUpd_DateTime] [smalldatetime] NOT NULL CONSTRAINT [DF_VendContact_LUpd_DateTime] DEFAULT ('01/01/1900'),
[LUpd_Prog] [char](8) NOT NULL CONSTRAINT [DF_VendContact_LUpd_Prog] DEFAULT (' '),
[LUpd_User] [char](10) NOT NULL CONSTRAINT [DF_VendContact_LUpd_User] DEFAULT (' '),
[Name] [char](60) NOT NULL CONSTRAINT [DF_VendContact_Name] DEFAULT (' '),
[NoteID] [int] NOT NULL CONSTRAINT [DF_VendContact_NoteID] DEFAULT ((0)),
[OrderLimit] [float] NOT NULL CONSTRAINT [DF_VendContact_OrderLimit] DEFAULT ((0)),
[Phone] [char](30) NOT NULL CONSTRAINT [DF_VendContact_Phone] DEFAULT (' '),
[POReqdAmt] [float] NOT NULL CONSTRAINT [DF_VendContact_POReqdAmt] DEFAULT ((0)),
[S4Future01] [char](30) NOT NULL CONSTRAINT [DF_VendContact_S4Future01] DEFAULT (' '),
[S4Future02] [char](30) NOT NULL CONSTRAINT [DF_VendContact_S4Future02] DEFAULT (' '),
[S4Future03] [float] NOT NULL CONSTRAINT [DF_VendContact_S4Future03] DEFAULT ((0)),
[S4Future04] [float] NOT NULL CONSTRAINT [DF_VendContact_S4Future04] DEFAULT ((0)),
[S4Future05] [float] NOT NULL CONSTRAINT [DF_VendContact_S4Future05] DEFAULT ((0)),
[S4Future06] [float] NOT NULL CONSTRAINT [DF_VendContact_S4Future06] DEFAULT ((0)),
[S4Future07] [smalldatetime] NOT NULL CONSTRAINT [DF_VendContact_S4Future07] DEFAULT ('01/01/1900'),
[S4Future08] [smalldatetime] NOT NULL CONSTRAINT [DF_VendContact_S4Future08] DEFAULT ('01/01/1900'),
[S4Future09] [int] NOT NULL CONSTRAINT [DF_VendContact_S4Future09] DEFAULT ((0)),
[S4Future10] [int] NOT NULL CONSTRAINT [DF_VendContact_S4Future10] DEFAULT ((0)),
[S4Future11] [char](10) NOT NULL CONSTRAINT [DF_VendContact_S4Future11] DEFAULT (' '),
[S4Future12] [char](10) NOT NULL CONSTRAINT [DF_VendContact_S4Future12] DEFAULT (' '),
[Salut] [char](30) NOT NULL CONSTRAINT [DF_VendContact_Salut] DEFAULT (' '),
[State] [char](3) NOT NULL CONSTRAINT [DF_VendContact_State] DEFAULT (' '),
[Type] [char](2) NOT NULL CONSTRAINT [DF_VendContact_Type] DEFAULT (' '),
[User1] [char](30) NOT NULL CONSTRAINT [DF_VendContact_User1] DEFAULT (' '),
[User10] [smalldatetime] NOT NULL CONSTRAINT [DF_VendContact_User10] DEFAULT ('01/01/1900'),
[User2] [char](30) NOT NULL CONSTRAINT [DF_VendContact_User2] DEFAULT (' '),
[User3] [char](30) NOT NULL CONSTRAINT [DF_VendContact_User3] DEFAULT (' '),
[User4] [char](30) NOT NULL CONSTRAINT [DF_VendContact_User4] DEFAULT (' '),
[User5] [float] NOT NULL CONSTRAINT [DF_VendContact_User5] DEFAULT ((0)),
[User6] [float] NOT NULL CONSTRAINT [DF_VendContact_User6] DEFAULT ((0)),
[User7] [char](10) NOT NULL CONSTRAINT [DF_VendContact_User7] DEFAULT (' '),
[User8] [char](10) NOT NULL CONSTRAINT [DF_VendContact_User8] DEFAULT (' '),
[User9] [smalldatetime] NOT NULL CONSTRAINT [DF_VendContact_User9] DEFAULT ('01/01/1900'),
[WebSite] [char](40) NOT NULL CONSTRAINT [DF_VendContact_WebSite] DEFAULT (' '),
[Zip] [char](10) NOT NULL CONSTRAINT [DF_VendContact_Zip] DEFAULT (' '),
[tstamp] [timestamp] NOT NULL
) ON [PRIMARY]
'------------------------------------------------------------------------------
' <copyright file="custcont.sdo.vb" company="Microsoft">
' Copyright (c) Microsoft Corporation. All rights reserved.
' </copyright>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports Solomon.Kernel
Module sdoVendContact
Public Class VendContact
Inherits SolomonDataObject
< _
DataBinding(PropertyIndex:=0, StringSize:=60) _
> _
Public Property Addr1() As String
Get
Return Me.GetPropertyValue("Addr1")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Addr1", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=1, StringSize:=60) _
> _
Public Property Addr2() As String
Get
Return Me.GetPropertyValue("Addr2")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Addr2", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=2, StringSize:=30) _
> _
Public Property City() As String
Get
Return Me.GetPropertyValue("City")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("City", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=3, StringSize:=10) _
> _
Public Property ContactID() As String
Get
Return Me.GetPropertyValue("ContactID")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("ContactID", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=4, StringSize:=3) _
> _
Public Property Country() As String
Get
Return Me.GetPropertyValue("Country")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Country", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=5) _
> _
Public Property Crtd_DateTime() As Integer
Get
Return Me.GetPropertyValue("Crtd_DateTime")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("Crtd_DateTime", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=6, StringSize:=8) _
> _
Public Property Crtd_Prog() As String
Get
Return Me.GetPropertyValue("Crtd_Prog")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Crtd_Prog", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=7, StringSize:=10) _
> _
Public Property Crtd_User() As String
Get
Return Me.GetPropertyValue("Crtd_User")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Crtd_User", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=8, StringSize:=15) _
> _
Public Property VendID() As String
Get
Return Me.GetPropertyValue("VendID")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("VendID", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=9, StringSize:=80) _
> _
Public Property EmailAddr() As String
Get
Return Me.GetPropertyValue("EmailAddr")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("EmailAddr", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=10, StringSize:=30) _
> _
Public Property Fax() As String
Get
Return Me.GetPropertyValue("Fax")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Fax", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=11) _
> _
Public Property LUpd_DateTime() As Integer
Get
Return Me.GetPropertyValue("LUpd_DateTime")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("LUpd_DateTime", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=12, StringSize:=8) _
> _
Public Property LUpd_Prog() As String
Get
Return Me.GetPropertyValue("LUpd_Prog")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("LUpd_Prog", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=13, StringSize:=10) _
> _
Public Property LUpd_User() As String
Get
Return Me.GetPropertyValue("LUpd_User")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("LUpd_User", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=14, StringSize:=60) _
> _
Public Property Name() As String
Get
Return Me.GetPropertyValue("Name")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Name", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=15) _
> _
Public Property NoteID() As Integer
Get
Return Me.GetPropertyValue("NoteID")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("NoteID", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=16) _
> _
Public Property OrderLimit() As Double
Get
Return Me.GetPropertyValue("OrderLimit")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("OrderLimit", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=17, StringSize:=30) _
> _
Public Property Phone() As String
Get
Return Me.GetPropertyValue("Phone")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Phone", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=18) _
> _
Public Property POReqdAmt() As Double
Get
Return Me.GetPropertyValue("POReqdAmt")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("POReqdAmt", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=19, StringSize:=30) _
> _
Public Property S4Future01() As String
Get
Return Me.GetPropertyValue("S4Future01")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("S4Future01", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=20, StringSize:=30) _
> _
Public Property S4Future02() As String
Get
Return Me.GetPropertyValue("S4Future02")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("S4Future02", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=21) _
> _
Public Property S4Future03() As Double
Get
Return Me.GetPropertyValue("S4Future03")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("S4Future03", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=22) _
> _
Public Property S4Future04() As Double
Get
Return Me.GetPropertyValue("S4Future04")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("S4Future04", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=23) _
> _
Public Property S4Future05() As Double
Get
Return Me.GetPropertyValue("S4Future05")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("S4Future05", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=24) _
> _
Public Property S4Future06() As Double
Get
Return Me.GetPropertyValue("S4Future06")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("S4Future06", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=25) _
> _
Public Property S4Future07() As Integer
Get
Return Me.GetPropertyValue("S4Future07")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("S4Future07", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=26) _
> _
Public Property S4Future08() As Integer
Get
Return Me.GetPropertyValue("S4Future08")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("S4Future08", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=27) _
> _
Public Property S4Future09() As Integer
Get
Return Me.GetPropertyValue("S4Future09")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("S4Future09", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=28) _
> _
Public Property S4Future10() As Integer
Get
Return Me.GetPropertyValue("S4Future10")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("S4Future10", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=29, StringSize:=10) _
> _
Public Property S4Future11() As String
Get
Return Me.GetPropertyValue("S4Future11")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("S4Future11", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=30, StringSize:=10) _
> _
Public Property S4Future12() As String
Get
Return Me.GetPropertyValue("S4Future12")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("S4Future12", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=31, StringSize:=30) _
> _
Public Property Salut() As String
Get
Return Me.GetPropertyValue("Salut")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Salut", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=32, StringSize:=3) _
> _
Public Property State() As String
Get
Return Me.GetPropertyValue("State")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("State", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=33, StringSize:=2) _
> _
Public Property Type() As String
Get
Return Me.GetPropertyValue("Type")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Type", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=34, StringSize:=30) _
> _
Public Property User1() As String
Get
Return Me.GetPropertyValue("User1")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("User1", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=35) _
> _
Public Property User10() As Integer
Get
Return Me.GetPropertyValue("User10")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("User10", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=36, StringSize:=30) _
> _
Public Property User2() As String
Get
Return Me.GetPropertyValue("User2")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("User2", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=37, StringSize:=30) _
> _
Public Property User3() As String
Get
Return Me.GetPropertyValue("User3")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("User3", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=38, StringSize:=30) _
> _
Public Property User4() As String
Get
Return Me.GetPropertyValue("User4")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("User4", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=39) _
> _
Public Property User5() As Double
Get
Return Me.GetPropertyValue("User5")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("User5", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=40) _
> _
Public Property User6() As Double
Get
Return Me.GetPropertyValue("User6")
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue("User6", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=41, StringSize:=10) _
> _
Public Property User7() As String
Get
Return Me.GetPropertyValue("User7")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("User7", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=42, StringSize:=10) _
> _
Public Property User8() As String
Get
Return Me.GetPropertyValue("User8")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("User8", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=43) _
> _
Public Property User9() As Integer
Get
Return Me.GetPropertyValue("User9")
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue("User9", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=44, StringSize:=40) _
> _
Public Property WebSite() As String
Get
Return Me.GetPropertyValue("WebSite")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("WebSite", setval)
End Set
End Property
< _
DataBinding(PropertyIndex:=45, StringSize:=10) _
> _
Public Property Zip() As String
Get
Return Me.GetPropertyValue("Zip")
End Get
Set(ByVal setval As String)
Me.SetPropertyValue("Zip", setval)
End Set
End Property
End Class
Public bVendContact As VendContact = New VendContact, nVendContact As VendContact = New VendContact
End Module
Share
Report
All responses (
Answers (
3,090
