Ejemplos preliminares operación

Estos ejemplos teóricos muestran para cada método para operar sobre los comprobantes y como se cargan los argumentos y leen los resultados. Son teóricos y en el código se da por supuesto que se inicio la interfaz y ya se obtuvo ticket. Usan el instalador 98 o superior y cada método tendrá luego su ejemplo operativo cuando AFIP supere la etapa beta en su documentación.

Consultas Cuentas Corrientes.

bresultado = fe.fecconsultarCtasCtes("emisor", "20235709490", "emision", "20190126", "20190526", "canceladatotal")

If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.codCtaCte", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.codMoneda", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.estadoCtaCte.estado", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.estadoCtaCte.fechaHoraEstado", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.idFacturaCredito.codTipoCmp", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.idFacturaCredito.CUITEmisor", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.idFacturaCredito.nroCmp", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.idFacturaCredito.ptoVta", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.saldo", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCtes", "arrayInfosCtaCte.saldoAceptado", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

Else

MsgBox("error leer ctactes" + fe.UltimoMensajeError)

MsgBox("error ller servidor ctactes " + fe.fecErrorDescripcion1)

End If

Consulta cuenta corriente individual:

bresultado = fe.fecconsultarCtasCte("23")

If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.importeCancelado", "", 0, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.importeTotalRetPesos", "", 0, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.estadoCtaCte.estado", "", 0, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.estadoCtaCte.fechaHoraEstado", "", 0, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.factura.CBUdePago", "", 0, 0))

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.factura.items.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.factura.items.cantidad", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.factura.items.descripcion", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.arrayFormasCancelacion.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.arrayFormasCancelacion.codigo", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

Else

MsgBox("error leer ctacte" + fe.UltimoMensajeError)

MsgBox("error ller servidor ctacte " + fe.fecErrorDescripcion1)

End If

Consulta agente deposito colectivo:

bresultado = fe.fecconsultarFacturasAgtDptoCltv("35", "20190506", "20190506")

If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarFacturasAgtDptoCltv", "arrayFacturasAgtDptoCltv.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarFacturasAgtDptoCltv", "arrayFacturasAgtDptoCltv.ctaComitente.cuentadepositante", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarFacturasAgtDptoCltv", "arrayFacturasAgtDptoCltv.fechaRecep", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarFacturasAgtDptoCltv", "arrayFacturasAgtDptoCltv.aceptada", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.arrayFormasCancelacion.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarCtasCte", "ctacte.arrayFormasCancelacion.codigo", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

Else

MsgBox("error leer ctacte" + fe.UltimoMensajeError)

MsgBox("error ller servidor ctacte " + fe.fecErrorDescripcion1)

End If

Aceptar cuenta corriente: Ver ejemplo operativo

Rechazo cuenta corriente: Ver ejemplo operativo

Informar cancelación total: Ver ejemplo operativo

Rechazar nota de credito: ver ejemplo opertivo

Obtener remitos:

bresultado = fe.fecCargarPropiedad("LIMPIAR", "", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("idComprobante.codTipoCmp", "1", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("idComprobante.CUITEmisor", "13636364", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("idComprobante.nroCmp", "5", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("idComprobante.ptoVta", "5", 0, 0)

If bresultado Then

bresultado = fe.fecObtenerRemito()

If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecObtenerRemito", "arrayIdsRemitos.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecObtenerRemito", "arrayIdsRemitos.nroCMP", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

Else

MsgBox("error leer ctactes" + fe.UltimoMensajeError)

MsgBox("error ller servidor ctactes " + fe.fecErrorDescripcion1)

End If

Else

MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)

End If

Consultar historial estados cuenta corriente:

bresultado = fe.fecCargarPropiedad("LIMPIAR", "", 0, 0)

bresultado = bresultado And fe.fecCargarPropiedad("idctacte.codCtaCte", "5", 0, 0)

If bresultado Then

bresultado = fe.fecconsultarHistorialEstadosCtaCte()

If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarHistorialEstadosCtaCte", "arrayHistorialEstados.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarHistorialEstadosCtaCte", "arrayHistorialEstados.fechahoraestado", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

Else

MsgBox("error leer ctactes" + fe.UltimoMensajeError)

MsgBox("error ller servidor ctactes " + fe.fecErrorDescripcion1)

End If

Else

MsgBox("fallo cargar propiedad " + fe.UltimoMensajeError)

End If

endif

consultar comprobante:

REM bresultado = fe.fecconsultarComprobantes("emisor/receptor", "202357099", "201", "aceptada/canceladatotal/InformadaAgDpto/Modificable/rechazada", "aceptada/emision/InfoAgDptoCltv/PuestaDispo/VenAcep/VenPago", "20192601", "20192602", aceptado/InformadaAgDpto/PendienteRecepcion/recepcionado/Rechazado", "323")

bresultado = fe.fecconsultarComprobantes("emisor", "20235709490", "201", "aceptada", "venpago", "20190801", "20190801", "aceptado", "323")

If fe.UltimoMensajeError = "" And fe.fecErrorDescripcion1 = "" Then

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarComprobantes", "arrayComprobantes.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarComprobantes", "arraycuentacorriente.estado.estado", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarComprobantes", "arraycuentacorriente.codCtaCte", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarComprobantes", "arraycuentacorriente.cbudepago", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

MsgBox("error leer propiedades " + fe.UltimoMensajeError)

Exit For

End If

Next

Else

MsgBox("error leer ctactes" + fe.UltimoMensajeError)

MsgBox("error ller servidor ctactes " + fe.fecErrorDescripcion1)

End If