FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#11
|
|||
|
|||
sii aeat cobros facturas expedidas
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco | keys | Internet | 4170 | Hace 2 Semanas 17:29:05 |
AEAT envio de datos vía Webservice problemas con WSDL | CelsoO | Internet | 11 | 09-10-2019 20:03:41 |
webService Soap de la Administración Digital Española notific@ | apicito | Internet | 3 | 31-01-2017 11:25:28 |
Error en Webservice funcion envio de sms | webmasterplc | Delphi para la web | 5 | 25-07-2013 20:10:29 |
Problemas con envío de XML a un WebService | davidvamo | Internet | 1 | 13-02-2007 15:49:20 |
|