Re: [WSAFIPFE] Compilación de correos para factura-electronica-y-otros-servicios-argentina-wsafipfe@googlegroups.com - 1 actualización en 1 tema

[Walter Astiz]

Buen dia Foro. Estamos implementando Certificado Digital ARBA R122 y nos encontramos con un error que no podemos superar.

Tomamos el codigo de la Planilla ARBAA122.xls.

Generamos el .LIC desde el ambiente MisDatos incorporando el servicio ARBA retenciones R122 como servicio A Prueba. Desde el ambiente MisDatos hicimos el proceso de Lectura del .LIC y los datos estan correctos.

Trabajamos con el Instalador 100.90.

Probamos el codigo y al ejecutar la sentencia  gFE.iniciar("30536984344", "")  pasamos sin problema y nos devuele los siguientes datos:

Instalador: 100.90.0.0

Cuit: 30536984344

Vencimiento: 25/02/2026

Lo que nos indica que el .LIC esta bien generado.

Luego seguimos al proximo paso que seria OBTENER TICKET, cargamos todos los datos tal cual dice la planilla excel y al ejecutar la sentencia

gFE.apiEjecutar("ARBA2025.OBTENERTICKET") no encontramos con el error LICENCIA NO VALIDA USERNAME. 305369894344, que suponemos es un error interno que nos impide avanzar.

Copio el codigo VB6 que estamos usando, por si alguien nos puede sugerir alguna idea o ve en que nos equivocamos.

Private Sub WebSolicitarCertificado_Click()

    Status = " Por favor espere ... Intentando conectarse "
   
    'Set gFe = CreateObject("WSAFIPFE.misdatos")
    Set gFe = New WSAFIPFE.misdatos
       
    gFe_CuitAgente = "30536984344"
    WEB_LicenciaSoft = "c:\afipws\pd\arba.lic"
   
    If gFe.iniciar(gFe_CuitAgente, "") Then
       gFe.archivolicencia = WEB_LicenciaSoft
       
       WEB_MotivoDesc = gFe.Revision
       WEB_MotivoDesc = WEB_MotivoDesc & vbCrLf & gFe.getLicenciaInfo(45, 0)
       WEB_MotivoDesc = WEB_MotivoDesc & vbCrLf & gFe.LicenciaDatos
       WEB_MotivoDesc = WEB_MotivoDesc & vbCrLf & gFe.LicenciaHasta
       
       'Obtener Ticket Acceso
       WEB_Enviado = "c:\afipws\pd"
       WEB_Recibido = "c:\afipws\pd"
       WEB_LicenciaSoft = "c:\afipws\pd\arba.lic"
       
       gFe.ArchivoXMLEnviado = WEB_Enviado
       gFe.ArchivoXMLRecibido = WEB_Recibido
       gFe.archivolicencia = WEB_LicenciaSoft
       
       bresultado = gFe.apiCargarPropiedad("LIMPIAR", "", 0, 0)
       
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.URLMETODO", "https://idp.test.arba.gov.ar/realms/ARBA/protocol/openid-connect/token", 0, 0)
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.TIPOMETODO", "POST", 0, 0)
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.DATOS.client_id", "A122RServicios", 0, 0)
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.DATOS.client_secret", "44cqahkhERKtkkDGmcqrPApCMtez3XxT", 0, 0)
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.DATOS.userName", "30536984344", 0, 0)
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.DATOS.password", "", 0, 0)
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.DATOS.grant_type", "password", 0, 0)
       bresultado = bresultado And gFe.apiCargarPropiedad("ARBA2025.DATOS.Scope", "openid", 0, 0)
       
       If bresultado Then
          bresultado = gFe.apiEjecutar("ARBA2025.OBTENERTICKET")
           
          WEB_MotivoDesc = bresultado
          WEB_MotivoDesc = WEB_MotivoDesc & vbCrLf & gFe.UltimoMensajeError
          WEB_MotivoDesc = WEB_MotivoDesc & vbCrLf & gFe.ArchivoXMLError
           
          If bresultado Then
             WEB_Respuesta = gFe.apiLeerPropiedad("ARBA2025", "obtenerticket", "", 0, 0)
             WEB_MotivoDesc = "Token Exitoso"
             If gFe.UltimoMensajeError = "" Then
               Else
                WEB_MotivoDesc = gFe.UltimoMensajeError
                bresultado = False
             End If
            Else
             WEB_MotivoDesc = "Error al cargar propiedad"
             WEB_MotivoDesc = WEB_MotivoDesc & vbCrLf & gFe.UltimoMensajeError
          End If
         Else
          WEB_MotivoDesc = "Error al cargar propiedad"
          WEB_MotivoDesc = WEB_MotivoDesc & vbCrLf & gFe.UltimoMensajeError
       End If
     
      Else
       MsgBox ("fallo iniciar " + gFe.UltimoMensajeError)
    End If
   
    Status = String(44, " ")
End Sub

Gracias.

Saluodos.

Libre de virus.www.avg.com

El dom, 25 ene 2026 a las 17:59, <factura-electronica-y-otros-...@googlegroups.com> escribió:

factura-electronica-y-otros-...@googlegroups.com

Grupos de Google

Resumen de temas
Ver todos los temas

• Estado certificado digital de retención ARBA R122 - 1 novedad

Estado certificado digital de retención ARBA R122

Soporte MisDatos <sop...@misdatos.com.ar>: Jan 25 07:02AM -0800 Buen dia!   El servidor/API de ARBA para el certificado digital de retención R122 siguen en etapa beta en los servidores de ARBA. Mientras tanto el instalador 100.90 replica todo el servicio tal como está ahora en ARBA conectando a ambos el servidor de prueba (operativo) y real (no operativo en ARBA hasta la fecha).     Toda la documentación y manuales (incluyendo ejemplos y planilla de test) están actualizado según el último PDF de ARBA (5.0) figuran en:   https://sites.google.com/site/facturaelectronicax/arbaretencion <https://sites.google.com/site/facturaelectronicax/arbaretencion?authuser=0>     Para evitar soporte pago <https://misdatos.com.ar/soportes> recomendamos usar un motor de IA (gemini, chatGPT, etc.) apuntado a esa url (u otras) y esos archivos (u otros).     Como muestra copiamos lo que gemini IA research encontró sobre el estado actual de este servicio en https://sites.google.com/site/facturaelectronicax/arbaretencion (sección al final "Estado actual...")     Saludos!

Volver al inicio

Has recibido este resumen porque estás suscrito a las actualizaciones de este grupo. Puedes modificar la configuración en la página de pertenencia al grupo. Para cancelar la suscripción a este grupo y dejar de recibir correos electrónicos, envía un correo electrónico a factura-electronica-y-otros-servic...@googlegroups.com.