Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Proyecto SIF/Veri*Factu/Ley Antifraude > Registros de Facturacion y Eventos (XML)
Actualizar esta página Creando el XML
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-02-2025
Ramon88 Ramon88 is offline
Miembro
  
Registrado: ago 2021
Posts: 143
Poder: 4
Ramon88 Va por buen camino
Creando el XML
Hola, me he decidido a probar a meter el WSDL y crear el XML como dios manda, pero no me aclaro... Por cierto, trabajo con visual studio
Lo primero es que hay veces que no encuentro la clase para crear el nodo.

Por ejemplo, estoy en la parte Detalles tengo la clase DetalleType, peero esta clase no tiene CalificacionOperacion.
En Encadenamiento, no encuentro nada que haga referencia a PrimerRegistro

Ahí ando atascado!
Alguien me puede orientar?


Gracias!
Responder Con Cita
  #2  
Antiguo 06-02-2025
Avatar de bmfranky
bmfranky bmfranky is offline
Miembro
  
Registrado: may 2024
Ubicación: Gandia, Valencia
Posts: 599
Poder: 1
bmfranky Va por buen camino
Mas detalles
Cita:
Empezado por Ramon88 Ver Mensaje
Hola, me he decidido a probar a meter el WSDL y crear el XML como dios manda, pero no me aclaro... Por cierto, trabajo con visual studio
Lo primero es que hay veces que no encuentro la clase para crear el nodo.

Por ejemplo, estoy en la parte Detalles tengo la clase DetalleType, peero esta clase no tiene CalificacionOperacion.
En Encadenamiento, no encuentro nada que haga referencia a PrimerRegistro

Ahí ando atascado!
Alguien me puede orientar?


Gracias!
Hola, en que lenguaje programa C++,C#, ?
Si no lo indica sera dificil ayudarle.
__________________
Uno se alegra de ser útil. (Isaac Asimov)
Responder Con Cita
  #3  
Antiguo 06-02-2025
Ramon88 Ramon88 is offline
Miembro
  
Registrado: ago 2021
Posts: 143
Poder: 4
Ramon88 Va por buen camino
Cita:
Empezado por bmfranky Ver Mensaje
Hola, en que lenguaje programa C++,C#, ?
Si no lo indica sera dificil ayudarle.
Perdón!
vb.net
Responder Con Cita
  #4  
Antiguo 10-02-2025
Jarogo08 Jarogo08 is offline
Miembro
  
Registrado: ene 2025
Posts: 78
Poder: 1
Jarogo08 Va por buen camino
Cita:
Empezado por Ramon88 Ver Mensaje
Hola, me he decidido a probar a meter el WSDL y crear el XML como dios manda, pero no me aclaro... Por cierto, trabajo con visual studio
Lo primero es que hay veces que no encuentro la clase para crear el nodo.

Por ejemplo, estoy en la parte Detalles tengo la clase DetalleType, peero esta clase no tiene CalificacionOperacion.
En Encadenamiento, no encuentro nada que haga referencia a PrimerRegistro

Ahí ando atascado!
Alguien me puede orientar?


Gracias!

yo lo hago así:


Código:
CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Desglose(y).Item = New CalificacionOperacionType
CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Desglose(y).Item = CalificacionOperacionType.S1
en cuanto al encadenamiento:


Código:
CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento = New RegistroFacturacionAltaTypeEncadenamiento

If HuellaVerifactuAnterior = "" Then
    CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item = New PrimerRegistroCadenaType
Else
    CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item = New EncadenamientoFacturaAnteriorType
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).IDEmisorFactura = RowVerifactu.Item("IdEmisorFacturaAnterior")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).NumSerieFactura = RowVerifactu.Item("NumSerieFacturaAnterior")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).FechaExpedicionFactura = Format(CDate(RowVerifactu.Item("FechaExpedicionFacturaAnterior")), "dd-MM-yyyy")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).Huella = RowVerifactu.Item("HuellaVerifactuAnterior")
End If
Espero que te sirva!
Responder Con Cita
  #5  
Antiguo 10-02-2025
Ramon88 Ramon88 is offline
Miembro
  
Registrado: ago 2021
Posts: 143
Poder: 4
Ramon88 Va por buen camino
Gracias!
Creo que ya lo tengo más o menos!
Me genera el XML pero me pone dos veces
Código:
<?xml version="1.0" encoding="utf-8"?>
<RegFactuSistemaFacturacion xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Cabecera xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
    <ObligadoEmision xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
      <NombreRazon>OPTIPLUS SOFTWARE S.L.</NombreRazon>
      <NIF>B44724680</NIF>
    </ObligadoEmision>
  </Cabecera>
  <RegistroFactura xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
    <RegistroAlta xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
      <IDVersion>1.0</IDVersion>
      <IDFactura>
Este es parte de mi código:
Código:
        ' Crear el objeto que contiene la información de la factura (según el WSDL)
        Dim factura As New Verifactu.sf.RegFactuSistemaFacturacion
Luego asigno la cabecera con sus datos:
Código:
Dim Cabecera = New Verifactu.sf.CabeceraType
Código:
'Creamos la cabecera
        factura.Cabecera = Cabecera
el problema lo tengo al asignar la otra parte:
Código:
Dim regAlta = New Verifactu.sf.RegistroFacturacionAltaType
Código:
        Dim registro = New sf.RegistroFacturaType
        With registro
            .Item = regAlta
        End With

        Dim lista As New List(Of sf.RegistroFacturaType)
        lista.Add(registro)

        factura.RegistroFactura = lista.ToArray()
Cita:
Empezado por Jarogo08 Ver Mensaje
yo lo hago así:


Código:
CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Desglose(y).Item = New CalificacionOperacionType
CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Desglose(y).Item = CalificacionOperacionType.S1
en cuanto al encadenamiento:


Código:
CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento = New RegistroFacturacionAltaTypeEncadenamiento

If HuellaVerifactuAnterior = "" Then
    CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item = New PrimerRegistroCadenaType
Else
    CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item = New EncadenamientoFacturaAnteriorType
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).IDEmisorFactura = RowVerifactu.Item("IdEmisorFacturaAnterior")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).NumSerieFactura = RowVerifactu.Item("NumSerieFacturaAnterior")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).FechaExpedicionFactura = Format(CDate(RowVerifactu.Item("FechaExpedicionFacturaAnterior")), "dd-MM-yyyy")
    CType(CType(objectoFactEmitida.RegistroFactura(x).Item, RegistroFacturacionAltaType).Encadenamiento.Item, EncadenamientoFacturaAnteriorType).Huella = RowVerifactu.Item("HuellaVerifactuAnterior")
End If
Espero que te sirva!
Responder Con Cita
  #6  
Antiguo 17-02-2025
Ramon88 Ramon88 is offline
Miembro
  
Registrado: ago 2021
Posts: 143
Poder: 4
Ramon88 Va por buen camino
Este es el XML que se me queda, cuando lo mando, la respuesta me devuelve un wsdl, no entiendo por que...
Código:
<?xml version="1.0" encoding="utf-8"?>
<RegFactuSistemaFacturacion xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Cabecera xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
    <ObligadoEmision xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
      <NombreRazon>SOFTWARE SL</NombreRazon>
      <NIF>B22222222</NIF>
    </ObligadoEmision>
  </Cabecera>
  <RegistroFactura xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd">
    <RegistroAlta xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd">
      <IDVersion>1.0</IDVersion>
      <IDFactura>
        <IDEmisorFactura>B000000</IDEmisorFactura>
        <NumSerieFactura>12346579</NumSerieFactura>
        <FechaExpedicionFactura>01-01-2005</FechaExpedicionFactura>
      </IDFactura>
      <NombreRazonEmisor>Nombre Razón Emisor</NombreRazonEmisor>
      <TipoFactura>F2</TipoFactura>
      <DescripcionOperacion>Factura Simplificada Paciente</DescripcionOperacion>
      <Desglose>
        <DetalleDesglose>
          <CalificacionOperacion>S1</CalificacionOperacion>
          <TipoImpositivo>21</TipoImpositivo>
          <BaseImponibleOimporteNoSujeto>100</BaseImponibleOimporteNoSujeto>
          <CuotaRepercutida>21</CuotaRepercutida>
        </DetalleDesglose>
      </Desglose>
      <CuotaTotal>21</CuotaTotal>
      <ImporteTotal>100</ImporteTotal>
      <Encadenamiento>
        <PrimerRegistro>S</PrimerRegistro>
      </Encadenamiento>
      <SistemaInformatico>
        <NombreRazon>SOFTWARE S.L.</NombreRazon>
        <NombreSistemaInformatico>XXXX</NombreSistemaInformatico>
        <IdSistemaInformatico>01</IdSistemaInformatico>
        <Version>1.0</Version>
        <NumeroInstalacion>001</NumeroInstalacion>
        <TipoUsoPosibleSoloVerifactu>N</TipoUsoPosibleSoloVerifactu>
        <TipoUsoPosibleMultiOT>S</TipoUsoPosibleMultiOT>
        <IndicadorMultiplesOT>S</IndicadorMultiplesOT>
      </SistemaInformatico>
      <FechaHoraHusoGenRegistro>2025-02-12T13:29:10+01:00</FechaHoraHusoGenRegistro>
      <TipoHuella>01</TipoHuella>
      <Huella>0AA53561F084A6EE52576624ACCF006D1BFA14F502F2A2D77CF8D031D9A88D46</Huella>
    </RegistroAlta>
  </RegistroFactura>
</RegFactuSistemaFacturacion>
Responder Con Cita
  #7  
Antiguo 18-02-2025
rdea rdea is offline
Registrado
  
Registrado: ene 2025
Posts: 3
Poder: 0
rdea Va por buen camino
Hola, si no me equivoco te falta el Soap envelope
Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »


Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
creando la BD megaredoxk Conexión con bases de datos 14 12-07-2008 13:53:14
Problema creando XML PaCmAn72 Internet 2 15-05-2007 14:56:33
Problemas creando una DLL jorllazo Varios 1 14-10-2006 12:03:32
Creando un componente unko! OOP 4 30-03-2005 20:10:48
creando componente Descendents OOP 23 16-01-2004 14:30:43


La franja horaria es GMT +2. Ahora son las 19:18:51.

Club Delphi - Archivo - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi