afiPAPI

LOCAL loFact, loH, loEmi

loH = NEWOBJECT("AfipHelpers", "AfipHelpers.prg")

loFact = NEWOBJECT("FacturadorAfip", "FacturadorAfip.prg", "", ;
   "http://localhost:5014", ;        && Base URL de la API
   20238233195, ;                    && CUIT
   .F., ;                            && Producción (.F. = homologación)
   "C:\Certificados\20238233195.pfx", ;
   "CLAVE_CERTIFICADO")

* 1) Registrar certificado + login (una vez por empresa)
loFact.Inicializar()

* 2) ¿AFIP y la API están operativos?
IF NOT loFact.EstaDisponible().Ok
   ? "AFIP no disponible"
   RETURN
ENDIF

* 3) Emitir una Factura B a Consumidor Final
loEmi = loFact.EmitirFactura( ;
   1, ;                               && Punto de venta
   loH.CbteFacturaB(), ;             && Tipo (6)
   loH.ConceptoProductos(), ;        && Concepto (1)
   loH.DocConsumidorFinal(), ;       && Doc tipo (99)
   0, ;                              && Doc número
   121, 0, 0, 100, 21, ;            && Total, NoGrav, Exento, Gravado, IVA
   loH.MonedaPesos(), 1, ;          && Moneda, cotización
   loH.IvaReceptorConsumidorFinal(),; && Cond. IVA receptor (5)
   loH.AlicIva21(), ;               && Alícuota IVA (5 = 21%)
   "", "", "")                       && Fechas de servicio (solo concepto 2/3)

IF loEmi.Ok
   ? "CAE:", loEmi.CAE, " Número:", loEmi.NumeroComprobante
ELSE
   ? "Error:", loEmi.ErrorMessage
ENDIF

{ "ok": true, "data": { /* … */ } }

{ "ok": false, "data": {
    "error": "mensaje claro",
    "detail": "detalle técnico",
    "status": 500
} }

IF loResp.Ok
   * usar loResp.Body / campos parseados
ELSE
   * mostrar mensaje y loguear: fecha, CUIT, PV, tipo,
   * request, loResp.Body, loResp.Status, loResp.ErrorMessage
ENDIF

DEFINE CLASS AfipApi AS Custom
    BaseUrl = ""
    Cuit = 0
    Produccion = .F.

    PROCEDURE Init(tcBaseUrl, tnCuit, tlProduccion)
        IF PCOUNT() >= 1 THEN THIS.BaseUrl = ALLTRIM(tcBaseUrl)
        IF PCOUNT() >= 2 THEN THIS.Cuit = tnCuit
        IF PCOUNT() >= 3 THEN THIS.Produccion = tlProduccion
    ENDPROC

    FUNCTION ApiRequest(tcMetodo, tcUrl, tcJson)
        LOCAL loHttp, loResp
        loResp = THIS.BuildResponse()
        TRY
            loHttp = CREATEOBJECT("MSXML2.ServerXMLHTTP.6.0")
            loHttp.setTimeouts(5000, 5000, 15000, 15000)
            loHttp.Open(UPPER(ALLTRIM(tcMetodo)), tcUrl, .F.)
            loHttp.setRequestHeader("Content-Type", "application/json")
            IF VARTYPE(tcJson) = "C" AND NOT EMPTY(tcJson)
                loHttp.Send(tcJson)
            ELSE
                loHttp.Send()
            ENDIF
            loResp.Status = loHttp.Status
            loResp.Body   = loHttp.responseText
            loResp.Ok     = (loHttp.Status >= 200 AND loHttp.Status < 300)
        CATCH TO loEx
            loResp.Ok = .F.
            loResp.ErrorMessage = loEx.Message
        ENDTRY
        RETURN loResp
    ENDFUNC

    FUNCTION ApiGet(tcPath)
        RETURN THIS.ApiRequest("GET", THIS.BaseUrl + tcPath, "")
    ENDFUNC
    FUNCTION ApiPost(tcPath, tcJson)
        RETURN THIS.ApiRequest("POST", THIS.BaseUrl + tcPath, tcJson)
    ENDFUNC

    * --- Helpers JSON (parseo simple por texto) ---
    FUNCTION JsonGetValue(tcJson, tcPropiedad)   && devuelve string
    FUNCTION JsonGetBool(tcJson, tcPropiedad)    && devuelve .T./.F.
    FUNCTION JsonGetNumber(tcJson, tcPropiedad)  && devuelve número
    * (ver implementación completa en integracion-vfp-api.md)
ENDDEFINE

loFact = NEWOBJECT("FacturadorAfip", "FacturadorAfip.prg", "", ;
   tcBaseUrl, tnCuit, tlProduccion, tcCertPath, tcCertPassword)

loFact.Inicializar()                            && /login (registra cert + token)
loFact.EstaDisponible()                         && /status -> .TokenActivo, .MinutosRestantes
loFact.GetUltimoComprobante(tnPV, tnTipo)       && /ultimo  -> .UltimoNumero
loFact.EmitirFactura(...)                       && /emitir  -> .CAE, .NumeroComprobante, .Resultado
loFact.GetTiposIva()                            && /tipos-iva  (y demás tablas)

FUNCTION GetUltimoComprobante(tnPuntoVenta, tnTipoComprobante)
    LOCAL loResp, loOut
    loResp = THIS.oApi.Ultimo(tnPuntoVenta, tnTipoComprobante)
    loOut = CREATEOBJECT("Empty")
    ADDPROPERTY(loOut, "Ok", loResp.Ok)
    ADDPROPERTY(loOut, "UltimoNumero", 0)
    ADDPROPERTY(loOut, "Body", loResp.Body)
    ADDPROPERTY(loOut, "ErrorMessage", loResp.ErrorMessage)
    IF loResp.Ok
        loOut.UltimoNumero = THIS.oApi.JsonGetNumber(loResp.Body, "ultimoNumero")
    ENDIF
    RETURN loOut
ENDFUNC

loH = NEWOBJECT("AfipHelpers", "AfipHelpers.prg")

loH.CbteFacturaB()                 && 6
loH.DocCUIT()                      && 80
loH.ConceptoProductos()            && 1
loH.IvaReceptorConsumidorFinal()   && 5
loH.AlicIva21()                    && 5
loH.MonedaPesos()                  && "PES"

* También descripciones legibles para UI / logs:
? loH.DescTipoComprobante(6)       && "Factura B"
? loH.DescCondicionIvaReceptor(5)  && "Consumidor Final"
? loH.DescAlicuotaIva(5)           && "21%"

* Y validaciones:
IF loH.RequiereFechasServicio(tnConcepto)   && concepto 2 o 3
   * pedir fechas de servicio
ENDIF

[ { "Id": "5", "Descripcion": "21%" },
  { "Id": "4", "Descripcion": "10.5%" } ]

FUNCTION TablaSimple(tcPath)
    LOCAL lcJson
    lcJson = "{" + ;
        '"cuit": '       + THIS.JsonInt(THIS.Cuit) + "," + ;
        '"produccion": ' + THIS.JsonBool(THIS.Produccion) + ;
        "}"
    RETURN THIS.ApiPost(tcPath, lcJson)
ENDFUNC

* Uso:
loResp = loApi.TablaSimple("/api/afip/tipos-moneda")
loResp = loApi.TablaSimple("/api/afip/condiciones-iva-receptor")