1. Create the SQL Stored Procedure in your Dynamics SL Database

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE PROC [dbo].[zspRadicalCls4DynamicsSL]
(
@Tabla Varchar(50)
)
AS
BEGIN

Declare @Index Int = 0,
@ColumnaId Int = 0,
@Columna Varchar(8000) = ”,
@Tipo Varchar(8000) = ”,
@Tamano Int = 0,
@Print1 Varchar(8000) = ”,
@Print2 Varchar(8000) = ”,
@Print3 Varchar(8000) = ”,
@Print4 Varchar(8000) = ”

Print ”’——————————————————————————’
Print ”’ <copyright file=”‘ + @Tabla + ‘.sdo.vb” company=”Radical Software”> ‘
Print ”’ Clase Generada con SP Radical Software. ‘
Print ”’ Einar Félix. Junio 2012. ‘
Print ”’ </copyright> ‘
Print ”’——————————————————————————’

Print ‘Option Strict Off’
Print ‘Option Explicit On’
Print ‘Imports Solomon.Kernel’

Print ‘Module sdo’ + @Tabla

Print ‘Public Class ‘ + @Tabla
Print ‘Inherits SolomonDataObject’

/*INICIA Definición de Métodos por Atributos*/

/*Inicia recorrido de columnas*/
DECLARE CSR_Atributos CURSOR FOR
SELECT –Tabla = Obj.Name,
ColumnaId = Col.column_id,
Columna = Col.Name,
Tipo = Tipos.name,
Tamano = Col.max_length
FROM sys.objects Obj, sys.columns Col, sys.types Tipos
WHERE Obj.OBJECT_ID = Col.OBJECT_ID AND Obj.TYPE = ‘U’
AND Col.system_type_id = Tipos.system_type_id
AND Obj.name = @Tabla
AND Col.name <> ‘tstamp’
ORDER BY Obj.name, Col.column_id, Col.name

OPEN CSR_Atributos
FETCH NEXT FROM CSR_Atributos INTO @ColumnaId, @Columna, @Tipo, @Tamano
WHILE @@FETCH_STATUS = 0
BEGIN

If @Tipo In (‘varchar’, ‘char’)
Begin
PRINT ‘<DataBinding(PropertyIndex:=’+ Convert(Varchar, @Index) +’, StringSize:=’+ Convert(Varchar, @Tamano) +’)> _’
End
Else
Begin
PRINT ‘<DataBinding(PropertyIndex:=’+ Convert(Varchar, @Index) +’)> _’
End

–Convertimos el tipo
If @Tipo In (‘varchar’, ‘char’) Set @Tipo = ‘String’
If @Tipo In (‘int’, ‘smallint’, ‘smalldatetime’) Set @Tipo = ‘Integer’
If @Tipo In (‘float’) Set @Tipo = ‘Double’

PRINT ‘Public Property ‘+@Columna+’() As ‘ + @Tipo
PRINT ‘ Get’
PRINT ‘ Return Me.GetPropertyValue(“‘+@Columna+’”)’
PRINT ‘ End Get’
PRINT ‘ Set(ByVal setval As ‘+@Tipo+’)’
PRINT ‘ Me.SetPropertyValue(“‘+@Columna+’”, setval)’
PRINT ‘ End Set’
PRINT ‘End Property’

Set @Index = @Index + 1

FETCH NEXT FROM CSR_Atributos INTO @ColumnaId, @Columna, @Tipo, @Tamano
END
CLOSE CSR_Atributos
DEALLOCATE CSR_Atributos

/*TERMINA Definición de Métodos por Atributos*/

Print ‘End Class’
Print ‘Public b’+ @Tabla +’ As ‘+ @Tabla +’ = New ‘+ @Tabla +’, n’+ @Tabla +’ As ‘+ @Tabla +’ = New ‘+ @Tabla +”
Print ‘Public CSR_’+@Tabla+’ As Short’
Print ‘Sub Init_’+@Tabla+’(ByRef x_Level As Short, ByRef x_Cursor As Boolean)’
Print ‘Call SetAddr(x_Level, “b’+@Tabla+’”, b’+@Tabla+’, n’+@Tabla+’)’
Print ‘If x_Cursor = True Then’
Print ‘Call SqlCursorEx(CSR_’+@Tabla+’, x_Level, “CSR_’+@Tabla+’”, “‘+@Tabla+’”, “”)’
Print ‘End If’
Print ‘End Sub’
Print ‘End Module’

END
GO

2. Ejecute the Stored Procedure for the table you want. For example, the table ACCOUNT

Execute zspRadicalCls4DynamicsSL ’Account’

3. The result is this. Enjoy it.

‘——————————————————————————
‘ <copyright file=”Account.sdo.vb” company=”Radical Software”>
‘ Clase Generada con SP Radical Software.
‘ Einar Félix. Junio 2012.
‘ </copyright>
‘——————————————————————————
Option Strict Off
Option Explicit On
Imports Solomon.Kernel
Module sdoAccount
Public Class Account
Inherits SolomonDataObject
<DataBinding(PropertyIndex:=0, StringSize:=10)> _
Public Property Acct() As String
Get
Return Me.GetPropertyValue(“Acct”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“Acct”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=1, StringSize:=2)> _
Public Property AcctType() As String
Get
Return Me.GetPropertyValue(“AcctType”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“AcctType”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=2, StringSize:=16)> _
Public Property Acct_Cat() As String
Get
Return Me.GetPropertyValue(“Acct_Cat”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“Acct_Cat”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=3, StringSize:=1)> _
Public Property Acct_Cat_SW() As String
Get
Return Me.GetPropertyValue(“Acct_Cat_SW”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“Acct_Cat_SW”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=4)> _
Public Property Active() As Integer
Get
Return Me.GetPropertyValue(“Active”)
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue(“Active”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=5, StringSize:=10)> _
Public Property ClassID() As String
Get
Return Me.GetPropertyValue(“ClassID”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“ClassID”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=6, StringSize:=10)> _
Public Property ConsolAcct() As String
Get
Return Me.GetPropertyValue(“ConsolAcct”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“ConsolAcct”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=7)> _
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:=8, 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:=9, 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:=10, StringSize:=4)> _
Public Property CuryId() As String
Get
Return Me.GetPropertyValue(“CuryId”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“CuryId”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=11, StringSize:=30)> _
Public Property Descr() As String
Get
Return Me.GetPropertyValue(“Descr”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“Descr”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=12, StringSize:=1)> _
Public Property Employ_Sw() As String
Get
Return Me.GetPropertyValue(“Employ_Sw”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“Employ_Sw”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=13)> _
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:=14, 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:=15, 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:=16)> _
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:=17, StringSize:=2)> _
Public Property RatioGrp() As String
Get
Return Me.GetPropertyValue(“RatioGrp”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“RatioGrp”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=18, 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:=19, 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:=20)> _
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:=21)> _
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:=22)> _
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:=23)> _
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:=24)> _
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:=25)> _
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:=26)> _
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:=27)> _
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:=28, 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:=29, 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:=30, StringSize:=1)> _
Public Property SummPost() As String
Get
Return Me.GetPropertyValue(“SummPost”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“SummPost”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=31, StringSize:=6)> _
Public Property UnitofMeas() As String
Get
Return Me.GetPropertyValue(“UnitofMeas”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“UnitofMeas”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=32, StringSize:=1)> _
Public Property Units_SW() As String
Get
Return Me.GetPropertyValue(“Units_SW”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“Units_SW”, setval)
End Set
End Property
<DataBinding(PropertyIndex:=33, 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:=34, 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:=35)> _
Public Property User3() As Double
Get
Return Me.GetPropertyValue(“User3″)
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue(“User3″, setval)
End Set
End Property
<DataBinding(PropertyIndex:=36)> _
Public Property User4() As Double
Get
Return Me.GetPropertyValue(“User4″)
End Get
Set(ByVal setval As Double)
Me.SetPropertyValue(“User4″, setval)
End Set
End Property
<DataBinding(PropertyIndex:=37, StringSize:=10)> _
Public Property User5() As String
Get
Return Me.GetPropertyValue(“User5″)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“User5″, setval)
End Set
End Property
<DataBinding(PropertyIndex:=38, StringSize:=10)> _
Public Property User6() As String
Get
Return Me.GetPropertyValue(“User6″)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“User6″, setval)
End Set
End Property
<DataBinding(PropertyIndex:=39)> _
Public Property User7() As Integer
Get
Return Me.GetPropertyValue(“User7″)
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue(“User7″, setval)
End Set
End Property
<DataBinding(PropertyIndex:=40)> _
Public Property User8() As Integer
Get
Return Me.GetPropertyValue(“User8″)
End Get
Set(ByVal setval As Integer)
Me.SetPropertyValue(“User8″, setval)
End Set
End Property
<DataBinding(PropertyIndex:=41, StringSize:=1)> _
Public Property ValidateID() As String
Get
Return Me.GetPropertyValue(“ValidateID”)
End Get
Set(ByVal setval As String)
Me.SetPropertyValue(“ValidateID”, setval)
End Set
End Property
End Class
Public bAccount As Account = New Account, nAccount As Account = New Account
Public CSR_Account As Short
Sub Init_Account(ByRef x_Level As Short, ByRef x_Cursor As Boolean)
Call SetAddr(x_Level, “bAccount”, bAccount, nAccount)
If x_Cursor = True Then
Call SqlCursorEx(CSR_Account, x_Level, “CSR_Account”, “Account”, “”)
End If
End Sub
End Module

Para corregirlo sigue estos sencillos pasos:

• Abre cualquier aplicación en tu iPhone
• Ahora presiona el botón de APAGADO hasta que te salga el SLIDE para APAGAR, pero no lo apagues
• Por último presiona el HOME suavemente por un segundo
• Listo, tu HOMBE BUTTON debe funcionar correctamente, si no es así, tal vez tengas un problema de Hardware.

Saludos!

Paso 2. Presionar NEXT en la pantalla de bienvenida

Paso 3. Seleccionar Set up Database Mail by performing the following tasks

Paso 4. Escribir un Profile Name (puede ser el que usted guste), para el ejemplo utilizaremos Notificaciones Gmail

Paso 5. Presionar el botón ADD que esta en la sección de SMTP Accounts

Paso 6. Captura la información que se te requiere, lo más importante en esta pantalla es capturar los siguientes valores:

• Email address: tucorreo@gmail.com
• Server Name: smtp.gmail.com
• Port Name: 587   ó   465
• This server requires a secure connection (SSL): YES

Paso 8. Presionar Ok y Next

Paso 9. Esta pantalla es una de las más importantes, ya que para que nuestras notificaciones funcionen correctamente con Gmail debemos especificar el Profile Name que estamos creando como público y también asignarlo como Default Profile.

Paso 10. Presionar Next

Paso 11. Los parametros del sistema los dejaremos tal cual se presentan por default.

Paso 12. Presionar Next y Finish

Paso 13. Nos presentará la confirmación de que nuestra configuración del perfil de correo electrónico y de la cuenta de correo ha sido exitosa y cerramos la pantalla.

Paso 14. Abrimos las propiedades del SQL Agent

Paso 15. Modificamos las propiedades del SQL Agent

• Seleccionamos la página de ALERT SYSTEM
• Activamos el EMAIL PROFILE
• Seleccionamos como Mail System el Database Mail
• Y el Profile Name será el que acabamos de crear Notificaciones Gmail
• Presionamos Ok

Paso 15. Reiniciamos el SQL Agent para que tengan efectos nuestros cambios

Paso 16. Ahora realizaremos una prueba de envío de correo con nuestro profile Notificaciones Gmail

Paso 17. Revisa tu correo de entrada y listo!!!