aremito ejemplo
Este ejemplo preliminar usa el instalador 100 (o superior) para conectar a la nueva API de aremito receta agronómica para emitir un remito . Conecta al modo real (no hay servidor de prueba) . Los nombre de campos y métodos figuran en el PDF ajdunto.
El código deja en archivoXMLRecibido el texto recibido desde el servidor donde figura los datos tal como son devueltos por el servidor.
Para este ejemplo (en visual basic 6) se debe insertar en el proyecto la referencia a la clase "WSAFIPFE.misdatos" .
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 misdatos (no WSAFIPFEOCX que corresponde a servicios AFIP) y debe reemplazar el objeto md por el nombre del ocx insertado en el formulario (generalmente me.md).
el token y el archivo de licencia obtenerlos tal como se explica en como usar.
Dim bresultado As Boolean
bresultado = = True
Dim mio As New WSAFIPFE.misdatos
If mio.iniciar("token", "") Then
mio.archivolicencia = "D:\licencia.lic"
mio.ArchivoXMLEnviado = "d:\aremito2023.txt"
mio.ArchivoXMLRecibido = "d:\arremito2023.txt"
bresultado = mio.apiCargarPropiedad("LIMPIAR", "", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.URLSERVIDOR", "AREMITO", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.URL", "https://mi.mda.gba.gob.ar/rao/endpoint/aremito/cargar", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.TIPOMETODO", "POST", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.devolucion", "0", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.nro_aremito", "000010000000001", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.cuit_destino", "20111111112", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.fecha_emision", "2023-10-30", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.productos.itemcantidad", "2", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.productos.nro_registro", "1", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.productos.cantidad", "1", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.productos.contenido", "1", 0, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.productos.nro_registro", "2", 1, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.productos.cantidad", "0.50", 1, 0)
bresultado = bresultado And mio.apiCargarPropiedad("AREMITO.DATOS.productos.contenido", "1.25", 1, 0)
If bresultado Then
If mio.apiEjecutar("") Then
Dim ccadena As String
ccadena = mio.apiLeerPropiedad("", "diccionario.success", "", 0, 0)
If upper(ccadena) = "FALSE" Then
ccadena = mio.apiLeerPropiedad("", "diccionario.message", "", 0, 0)
MsgBox("error recibido: " + ccadena+" "+ mio.UltimoMensajeError)
Else
ccadena = mio.apiLeerPropiedad("", "diccionario.message", "", 0, 0)
MsgBox("ok " + ccadena)
End If
Else
MsgBox(mio.UltimoMensajeError)
End If
Else
MsgBox("error cargar propiedad " + mio.UltimoMensajeError)
End If
Else
MsgBox(mio.UltimoMensajeError + " fallo iniciar")
End If