[erojo]

Hola,

No consigo suministrar al SII la información de un cobro asociado a una factura expedida. El mensaje que me devuelve el Web Service de la AEAT es el siguiente:
Codigo[4124].Error La direccion no se corresponde con el fichero de entrada.
Pero no soy capaz de detectar dónde está el problema. ¿Sería alguien tan amable de adjuntar un ejemplo de suministro de cobro que funcione? Mi código está en VB .NET y es el siguiente:

Gracias,

Dim blnReturn As Boolean = True
Dim objCobroEmitido As New SuministroCobrosEmitidas.SuministroLRCobrosEmitidas

Try
Dim objCabecera As New SuministroCobrosEmitidas.CabeceraSiiCobrosPagos
objCabecera.IDVersionSii = SuministroCobrosEmitidas.VersionSiiType.Item10
Dim objTitular As New SuministroCobrosEmitidas.PersonaFisicaJuridicaESType
objTitular.NIF = "AAAAAAAAA"
objTitular.NombreRazon = "XXXXXXXXX XXXXXX"
objCabecera.Titular = objTitular
objCobroEmitido.Cabecera = objCabecera

Dim objRegistrosCobro As SuministroCobrosEmitidas.LRCobrosEmitidasType()
ReDim Preserve objRegistrosCobro(0)

Dim objRegistroCobro As New SuministroCobrosEmitidas.LRCobrosEmitidasType
Dim objIdFactura As New SuministroCobrosEmitidas.IDFacturaExpedidaBCType
Dim objIdEmisor As New SuministroCobrosEmitidas.IDFacturaExpedidaBCTypeIDEmisorFactura
objIdEmisor.NIF = "AAAAAAAAA"

objIdFactura.IDEmisorFactura = objIdEmisor
objIdFactura.NumSerieFacturaEmisor = "FA1700002"
objIdFactura.FechaExpedicionFacturaEmisor = Now.ToString("dd-MM-yyyy") '"21-06-2017"
objRegistroCobro.IDFactura = objIdFactura

Dim objDatosPago As SuministroCobrosEmitidas.DatosPagoCobroType()
ReDim Preserve objDatosPago(0)

Dim objDatoPago As New SuministroCobrosEmitidas.DatosPagoCobroType
objDatoPago.Fecha = Now.ToString("dd-MM-yyyy") '"21-06-2017"
objDatoPago.Importe = "100"
objDatoPago.Medio = SuministroCobrosEmitidas.MedioPagoType.Item04
'objDatoPago.Cuenta_O_Medio = "Al contado"

objDatosPago.ToList.Add(objDatoPago)
objRegistroCobro.Cobros = objDatosPago

objRegistrosCobro.ToList.Add(objRegistroCobro)

objCobroEmitido.RegistroLRCobros = objRegistrosCobro

Dim objSIIService As New SuministroCobrosEmitidas.siiService
objSIIService.ClientCertificates.Add(obtenerCertificadoSIIAEAT)
objSIIService.Url = "https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP"
objSIIService.Timeout = 10000

Dim objRespCobrosEmitidos As New SuministroCobrosEmitidas.RespuestaLRCobrosEmitidasType
objRespCobrosEmitidos = objSIIService.SuministroLRCobrosEmitidas(objCobroEmitido)

Select Case objRespCobrosEmitidos.EstadoEnvio
Case SuministroCobrosEmitidas.EstadoEnvioType.Correcto
MsgBox("Correcto")
Case SuministroCobrosEmitidas.EstadoEnvioType.Incorrecto
MsgBox("Incorrecto")
Case SuministroCobrosEmitidas.EstadoEnvioType.ParcialmenteCorrecto
MsgBox("Parcialmente Correcto")
End Select



Catch ex As Exception
blnReturn = False
Finally
If Not objCobroEmitido Is Nothing Then
objCobroEmitido = Nothing
End If
End Try