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