Avalados por :
Cómo consultar y actualizar el tipo de cambio del dólar americano en SAP Business One para México
- Creado 01/03/2024
- Modificado 01/03/2024
- 6 Vistas
Escribo este documento con la finalidad de apoyar el tema de SDK en español para SAP Business One, con un tema que nos es de mucha utilidad en esta ocasión para la gente de México.
Y es, compartiendo el código de cómo consultar el tipo de cambio del dólar americano vigente del día, de la página de banxico.org.mx e importarlo a la tabla Tipos de Cambios.
El add-on lo desarrollé en Visual Studio 2012 en vb.net.
Basándome en los ejemplos de SDK en el apartado de UI (por ejemplo el de catching events), después del SetApplication() agregué la siguiente función, para que al iniciar el add-on se actualizara el tipo de cambio.
Public Sub ActualizarTC()
Try
Dim dbTC As Double
Dim lErrCode As Integer
Dim lRetCode, sErrMsg As String
Dim httpBanxico As HttpWebRequest = CType(WebRequest.Create("http://www.banxico.org.mx/DgieWSWeb/DgieWS?WSDL"), HttpWebRequest)
WebRequest.DefaultWebProxy = httpBanxico.Proxy
Dim TipoCambio As New Banxico.DgieWSPortClient
Dim strTipoCambio As String
strTipoCambio = TipoCambio.tiposDeCambioBanxico
Dim doc As XElement = XElement.Parse(strTipoCambio)
Dim queryTC As IEnumerable(Of XElement) = From d In doc.
For Each d As XElement In queryTC
dbTC = d.
Next
oSBObob = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
oSBObob.SetCurrencyRate("USD", Today, dbTC, False)
oCompany.GetLastError(lErrCode, sErrMsg)
If lErrCode <> 0 Then SBO_Application.SetStatusBarMessage(sErrMsg, SAPbouiCOM.BoMessageTime.bmt_Short, True)
SBO_Application.SetStatusBarMessage("Tipo de cambio actualizado: " & dbTC.ToString, SAPbouiCOM.BoMessageTime.bmt_Long, False)
Catch ex As Exception
SBO_Application.SetStatusBarMessage(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Long, False)
End Try
End Sub
Requisitos:
- Crear el add-on con .Net Framework 4.5 y por consecuencia tener instalado 4.5 en los equipos que lo ejecutarían.
- Agregar las referencias:
- System.XML
- System.XML.linq
- System.ServiceModel
- Agregar en VS la referencia de servicio de la siguiente dirección: http://www.banxico.org.mx/DgieWSWeb/DgieWS?WSDL
- Ya al instalar, hay que colocar dentro de la carpeta de instalación: el archivo [NOMBREDELADD_ON].exe.config,
- Importar :
Imports System.Net
Imports System.IO
Imports TipodeCambio.Banxico
Imports <xmlns:bm=' http://www.banxico.org.mx/structure/key_families/dgie/sie/series/compact '>
Espero les sea de utilidad.
Cualquier duda a sus órdenes.
Sin respuestas
No hay respuestas para mostrar
Se el primero en responder
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute