WSSENASA2 ejemplo operacion

Este ejemplo preliminar usa el instalador 99.90 (o superior) para conectar a la nueva API de senasa para ejecutar una operación de envio de datos. Conecta a la API de test de senasa para poder ejecutar debe antes estar adherido al servicio y gestionar un usuario/contraseña.

El nombre y tipo de método (/Alta_Envio) con sus campos de entrada y salida deben ser consultados en el manual PDF de SENASA El código deja en archivoXMLRecibido el texto recibido desde el servidor donde figura los datos con ubicación y nombre de campos ("diccionario.movementeid") tal como son devueltos por el servidor y que pueden ser leidos con el método senasaLeerPropiedad.

Si se usa la interfaz en forma de OCX el código es igual teniendo en cuenta que en el formulario debe ser insertado el OCX WSPAMIOCX (no WSAFIPFEOCX que corresponde a servicios AFIP).

Dim fe As New WSAFIPFE.pami

Dim bresultado As Boolean

bresultado = True

If fe.iniciar(0, "CUIT", "", "") Then

fe.tls = 12

bresultado = mio.senasaCargarPropiedad("LIMPIAR", "", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("URLSERVIDOR", "AGROTRAZA", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("URLMETODO", "/Alta_Envio", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("TIPOMETODO", "POST", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.authUser", "usuario", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.authPass", "contraseña", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.userTaxId", "20235709490", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.sendDate", "26/01/2022", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.senderDepositId", "17171", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.receiverCompanyCuit", "30-50065891-2", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("PARAMETROS.receiverDepositId", "1917", 0, 0)

REM primer item enviado

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.id_product_code", "8997", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.batchId", "04-21", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.elaborationDate", "06/04/2021", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.currentStock", "1", 0, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.amount", "1", 0, 0)

REM item segundo enviado

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.id_product_code", "8998", 1, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.batchId", "04-22", 1, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.elaborationDate", "06/04/2021", 1, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.currentStock", "5", 1, 0)

bresultado = bresultado And mio.senasaCargarPropiedad("DATOS.products.amount", "3", 1, 0)

If bresultado Then

mio.ArchivoXMLEnviado = "d:\eenvio.txt"

mio.ArchivoXMLRecibido = "d:\renvio.txt"

bresultado = mio.senasaEjecutar()

If bresultado Then

MsgBox("resultado verdadero")

Else

MsgBox("resultado falso")

End If

If mio.UltimoMensajeError = "" Then

If mio.senasaLeerPropiedad("", "diccionario.esdiccionario", "", 0, 0) = "SI" Then

MsgBox("id movimiento " + mio.senasaLeerPropiedad("", "diccionario.movementid", "", 0, 0) + mio.UltimoMensajeError)

Else

MsgBox("errores recibios: " + mio.senasaLeerPropiedad("", "lista", "", 0, 0) + mio.UltimoMensajeError)

End If

Else

MsgBox("error conexion " + mio.UltimoMensajeError)

End If

Else

MsgBox("error en carga de datos" + mio.UltimoMensajeError)

End If

Else

MsgBox("fallo iniciar " + mio.UltimoMensajeError)

End If