Skip to content

Ejemplos de uso

Instanciación de fearProxy

1
DO FEAr.APP

1
public static fearProxy FEAr = new fearProxy();

1
Dim FEAr As Object = CreateObject("fear.fearproxydn")

Desbloqueo

1
2
3
4
5
6
7
8
LOCAL oResp
FEAr.passKey = "..."
oResp = FEAr.Desbloquear("Ruta al archivo LIC")
IF NOT oResp.result
    THROW oResp.errorMsg
ENDIF
?"Licencia #:",oResp.data.numero
?"Cliente   :",oResp.data.cliente

1
2
3
4
5
6
FEAr.passKey = "...";
fearRespuesta resp = FEAr.Desbloquear("Ruta al archivo LIC");
if (!resp.result) throw new Exception(resp.errorMsg);
fearLicencia data = (fearLicencia)data;
Console.WriteLine("Licencia #: " + data.numero);
Console.WriteLine("Cliente   : " + data.cliente);

1
2
3
4
5
6
Dim oResp As Object
FEAr.passKey = "..."
oResp = JSONParse(FEAr.Desbloquear("Ruta al archivo LIC"))
If Not oResp.result Then Throw New Exception(oResp.errorMsg)
Debug.WriteLine("Licencia #: " & oResp.data.numero)
Debug.WriteLine("Cliente   : " & oResp.data.cliente)

Inicialización

1
2
3
4
5
LOCAL oResp
oResp = FEAr.Inicializar("certificado.crt","clave.key")
IF NOT oResp.result
  THROW oResp.errorMsg
ENDIF

1
2
3
4
fearRespuesta resp = FEAr.Inicializar("certificado.crt","clave.key");
if (!resp.result) throw new Exception(resp.errorMsg);
Console.WriteLine("CUIT emisor: " + FEAr.cuit);
Console.WriteLine("Modo operacion: " + FEAr.modoOp);

1
2
3
4
5
Dim oResp As Object
oResp = JSONParse(FEAr.Inicializar("certificado.crt", "clave.key"))
If Not oResp.result Then Throw New Exception(oResp.errorMsg)
Debug.WriteLine("CUIT emisor: " & FEAr.cuit)
Debug.WriteLine("Modo operacion: " & FEAr.modoOp)
Vea tambien

Autorizar

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
LOCAL oSolicitud
oSolicitud = FEAr.Autorizar()
WITH oSolicitud
  .cantReg = 1
  .PtoVta = 1
  .CbteTipo = 6
  .Concepto = 1
  .DocTipo = 99
  .DocNro = 0
  .CbteDesde = 255
  .CbteHasta = 255
  .CbteFch = DATE()
  .ImpTotal = 121.00
  .ImpNeto = 100
  .ImpIVA = 21
  .MonId = "PES"
  .MonCotiz = 1.000
  .CondicionIVAReceptorID = 5
  .addIva(5, 100, 21)
ENDWITH

LOCAL oResp
oResp = FEAr.Autorizar(oSolicitud)
IF NOT oResp.result
  THROW oResp.errorMsg
ENDIF
?"CAE": oResp.data.CAE

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
fearFeCAEReq solicitud = FEAr.Autorizar();
solicitud.cantReg = 1;
solicitud.PtoVta = 1;
solicitud.CbteTipo = 6;
solicitud.Concepto = 1;
solicitud.DocTipo = 99;
solicitud.DocNro = 0;
solicitud.CbteDesde = 255;
solicitud.CbteHasta = 255;
solicitud.CbteFch = DATE();
solicitud.ImpTotal = 121.00m;
solicitud.ImpNeto = 100m;
solicitud.ImpIVA = 21;
solicitud.MonId = "PES";
solicitud.MonCotiz = 1.000m;
solicitud.CondicionIVAReceptorID = 5;
solicitud.addIva(5, 100m, 21m);

fearRespuesta resp = FEAr.Autorizar(solicitud);
if (!resp.result) throw new Exception(resp.errorMsg);
fearRespuestaAutorizar data = (fearRespuestaAutorizar)resp.data;
Console.WriteLine("CAE: " + data.CAE);

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim oSolicitud As Object
Dim oResp As Object
oSolicitud = FEAr.Autorizar()
oSolicitud.cantReg = 1
oSolicitud.PtoVta = 1
oSolicitud.CbteTipo = 6
oSolicitud.Concepto = 1
oSolicitud.DocTipo = 99
oSolicitud.DocNro = 0
oSolicitud.CbteDesde = 255
oSolicitud.CbteHasta = 255
oSolicitud.CbteFch = Date.Today
oSolicitud.ImpTotal = 121.00
oSolicitud.ImpNeto = 100
oSolicitud.ImpIVA = 21
oSolicitud.MonId = "PES"
oSolicitud.MonCotiz = 1.000
oSolicitud.CondicionIVAReceptorID = 5
oSolicitud.addIva(5, 100, 21)

oResp = JSONParse(FEAr.Autorizar(oSolicitud))
If Not oResp.result Then Throw New Exception(oResp.errorMsg)
Debug.WriteLine("CAE: " & oResp.data.CAE)
Vea tambien

Consultar último comprobante autorizado

1
2
3
4
5
6
LOCAL oResp
oResp = FEAr.consultarUltimoCbteAutorizado(1, 80)
IF NOT oResp.result
  THROW oResp.errorMsg
ENDIF
?"Comprobante #:", oResp.data

1
2
3
4
fearRespuesta resp = FEAr.consultarUltimoCbteAutorizado(1, 80);
if (!resp.result) throw new Exception(resp.errorMsg);
fearRespuestaConsultarUltimoCbteAutorizado data = (fearRespuestaConsultarUltimoCbteAutorizado)data;
Console.WriteLine("Comprobante #:  " + data.cbteNro.toString());

1
2
3
4
Dim oResp As Object
oResp = JSONParse(FEAr.consultarUltimoCbteAutorizado(1, 80))
If Not oResp.result Then Throw New Exception(oResp.errorMsg)
Debug.WriteLine("Comprobante #: " & oResp.data)
Vea tambien

Consultar CAE

1
2
3
4
5
6
LOCAL oResp
oResp = FEAr.consultarCAE(1, 80, 23323)
IF NOT oResp.result
  THROW oResp.errorMsg
ENDIF
?"CAE:", oResp.data.CAE

1
2
3
4
fearRespuesta resp = FEAr.consultarCAE(1, 80, 23323);
if (!resp.result) throw new Exception(resp.errorMsg);
fearRespuestaConsultarCAE data = (fearRespuestaConsultarCAE)resp.data;
Console.WriteLine("CAE: " + oResp.data.CAE)

1
2
3
4
Dim oResp As Object
oResp = JSONParse(FEAr.consultarCAE(1, 80, 23323))
If Not oResp.result Then Throw New Exception(oResp.errorMsg)
Debug.WriteLine("CAE: " & oResp.data.CAE)
Vea también

Consultar CUIT

1
2
3
4
5
6
7
8
LOCAL oResp
oResp = FEAr.consultarCUIT("1234567890")
IF NOT oResp.result
  THROW oResp.errorMsg
ENDIF
?"¿Encontrado?:", oResp.data.Encontrado
?"Tipo de persona:", oResp.data.tipoPersona
?"Descripción    :", oResp.data.descripcionPersona

1
2
3
4
5
6
fearRespuesta resp = FEAr.consultarCUIT("1234567890");
if (!resp.result) throw new Exception(resp.errorMsg);
fearRespuestaConsultarCUIT data = (fearRespuestaConsultarCUIT)resp.data;
Console.WriteLine("Encontrado?: " + data.Encontrado.toString());
Console.WriteLine("Tipo de persona: " + data.tipoPersona);
Console.WriteLine("Descripcion: " + data.descripcionPersona);

1
2
3
4
5
6
Dim oResp As Object
oResp = JSONParse(FEAr.consultarCUIT("1234567890"))
If Not oResp.result Then Throw New Exception(oResp.errorMsg)
Debug.WriteLine("¿Encontrado?: " & oResp.data.Encontrado)
Debug.WriteLine("Tipo de persona: " & oResp.data.tipoPersona)
Debug.WriteLine("Descripción: " & oResp.data.descripcionPersona)
Vea también

Consultar datos de un certificado

1
2
3
4
5
6
7
LOCAL oResp
oResp = FEAr.leerInfoCertificado("certificado.crt")
IF NOT oResp.result
  THROW oResp.errorMsg
ENDIF
?"Ambiente:", oResp.data.ambiente  --> "H"
?"Expira:", oResp.data.expira --> {31-12-2025}

1
2
3
4
5
fearRespuesta resp = FEAr.leerInfoCertificado("certificado.crt");
if (!resp.result) throw new Exception(resp.errorMsg);
fearRespuestaLeerInfoCertificado data = (fearRespuestaLeerInfoCertificado)resp.data;
Console.WriteLine("Ambiente: " + data.ambiente);
Console.WriteLine("Expira: " + data.expira.toString());

1
2
3
4
5
Dim oResp As Object
oResp = JSONParse(FEAr.leerInfoCertificado("certificado.crt"))
If Not oResp.result Then Throw New Exception(oResp.errorMsg)
Debug.WriteLine("Ambiente: " & oResp.data.ambiente)
Debug.WriteLine("Expira: " & oResp.data.expira)
Vea también