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 ARCA ex-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