FeCred Ejemplos Listas

Estos ejemplos teóricos muestran para cada método de consulta de listas y tipos de datos 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 60 (no publicado aun) y cada método tendrá luego su ejemplo operativo cuando AFIP supere la etapa beta en su documentación.

En los metodos de consulta por simplicidad solo se muestran los 2 primeros items de la lista

Consultar formas de pago:

bresultado = fe.fecconsultarTiposFormasCancelacion()

If bresultado Then

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

Dim nLimite As Integer

Dim nIndex As Integer

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

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposFormasCancelacion", "codigo", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposFormasCancelacion", "descripcion", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

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

Exit For

End If

Next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

Else

MsgBox("fallo método " + fe.UltimoMensajeError)

End If

Consular Tipos Motivos de rechazo

bresultado = fe.fecconsultarTiposMotivosRechazo()

If bresultado Then

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

Dim nLimite As Integer

Dim nIndex As Integer

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

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposMotivosRechazo", "codigo", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposMotivosRechazo", "descripcion", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

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

Exit For

End If

Next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

Else

MsgBox("fallo método " + fe.UltimoMensajeError)

End If

Consultar tipo retenciones:

bresultado = fe.fecconsultarTiposRetenciones()

If bresultado Then

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

Dim nLimite As Integer

Dim nIndex As Integer

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

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposRetenciones", "codigoJurisdiccion", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposRetenciones", "descripcionJurisdiccion", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposRetenciones", "porcentajeRetencion", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

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

Exit For

End If

Next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

Else

MsgBox("fallo método " + fe.UltimoMensajeError)

End If

Consultar tipo ajuste operación

bresultado = fe.fecconsultarTiposAjustesOperacion()

If bresultado Then

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

Dim nLimite As Integer

Dim nIndex As Integer

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

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposAjustesOperacion", "codigo", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarTiposAjustesOperacion", "descripcion", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

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

Exit For

End If

Next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

Else

MsgBox("fallo método " + fe.UltimoMensajeError)

End If

Consultar cta. cte. comitente:

bresultado = fe.fecconsultarCtaCteComitente()

If bresultado Then

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

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarCtaCteComitente", "arrayCtasComitente.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarCtaCteComitente", "arrayCtasComitente.cuentaDepositante", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtaCteComitente", "arrayCtasComitente.denominacion", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarCtaCteComitente", "arrayCtasComitente.subcuentaComitente", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

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

Exit For

End If

Next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

Else

MsgBox("fallo método " + fe.UltimoMensajeError)

End If

Consultar monto obligado recepción:

bresultado = fe.fecconsultarMontoObligadoRecepcion("20235709490", "20190714")

If bresultado Then

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

MsgBox(fe.fecLeerPropiedad("fecconsultarMontoObligadoRecepcion", "montoDesde", "", 0, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarMontoObligadoRecepcion", "obligado", "", 0, 0))

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

Else

MsgBox("fallo método " + fe.UltimoMensajeError)

End If

Consultar obligado recepción (deprecado por AFIP)

bresultado = fe.fecconsultarObligadoRecepcion("20235709490")

If bresultado Then

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

MsgBox(fe.fecLeerPropiedad("fecconsultarObligadoRecepcion", "desde", "", 0, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarObligadoRecepcion", "respuesta", "", 0, 0))

Dim nLimite As Integer

Dim nIndex As Integer

nLimite = CInt(fe.fecLeerPropiedad("fecconsultarObligadoRecepcion", "arrayObservacion.itemcantidad", "", 0, 0))

If nLimite > 2 Then

nLimite = 2

End If

For nIndex = 0 To nLimite - 1

MsgBox(fe.fecLeerPropiedad("fecconsultarObligadoRecepcion", "arrayObservacion.codigo", "", nIndex, 0))

MsgBox(fe.fecLeerPropiedad("fecconsultarObligadoRecepcion", "arrayObservacion.descripcion", "", nIndex, 0))

If fe.UltimoMensajeError = "" Then

Else

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

Exit For

End If

Next

Else

MsgBox("error leer" + fe.UltimoMensajeError)

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

End If

Else

MsgBox("fallo método " + fe.UltimoMensajeError)

End If