Public length As Long Public Rut As String Public DV As String Public NroLME As String Public Error As Long Public ErrorText As String Public NroAuditoria As String
Esto define la clase que contendrán los parámetros que se intercambiaran entre la aplicación cliente y el servidor Autentia. Ahora debemos ver en que parte del código de nuestra aplicación hacemos el llamado a autentia, para poder realizar esto lo primero que se debe hacer es instanciar la variable autentia previamente definida:
Set pAutentia = New Autentia
Luego se proceder a llenar los parámetros, esto se puede hacer de la siguiente forma:
Dim pParams As New Params
pParams.length = 5 ‘Cantidad de parámetros incluidos los de entrada (3) y los
de salida (2)
pParams.Rut = “11833294” ‘Rut sin DV sin . ni guión
pParams.DV = “6” ‘Digito Verificador
Con esto ya estamos en condiciones de hacer el llamado a autentia, para esto debemos incorporar la siguiente línea:
erc = pAutentia.Transaccion("firma", pParams)Y si pones
erc = pAutentia.Transaccion("firma",@pParams)
Saludos
Enviado desde mi Windows Phone


Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
Mi mamá dice que soy el mejor. Ni necesito abuela. No seas abuela de vb