Ley antifraude 2021 (VERIFACTU) - Programas informáticos

Delphier · #1 05-03-2024

Aquí va , no entraba en el otro post.
Saludos

Código:

<?xml version="1.0"?>
<RegistroFacturacion xmlns:NS1="no puedo poner enlaces w3.org/2001/XMLSchema" xmlns:NS2="no puedo poner enlaces .agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" xmlns:NS3="no puedo poner enlaces w3.org/2003/05/soap-encoding" xmlns:NS4="no puedo poner enlaces .org/2001/XMLSchema-instance">
    <RegistroFacturacionType id="1">
        <IDFactura id="2">
            <IDEmisorFactura id="3">
                <NIF type="NS1:string">BXXXXXXXX</NIF>
            </IDEmisorFactura>
            <NumSerieFacturaEmisor type="NS1:string">2022-F1-PC-0000000055</NumSerieFacturaEmisor>
            <FechaExpedicionFacturaEmisor type="NS1:string">10-05-2022</FechaExpedicionFacturaEmisor>
        </IDFactura>
        <NombreRazonEmisor type="NS1:string">EMPRESA TEST, S.L.</NombreRazonEmisor>
        <TipoRegistroSIF type="NS2:TipoRegistroSIFType">S0</TipoRegistroSIF>
        <TipoFactura type="NS2:ClaveTipoFacturaType">F1</TipoFactura>
        <FacturasSustituidas type="NS3:Array" NS3:itemType="NS2:IDFacturaARType" NS3:arraySize="0"/>
        <ImporteRectificacion NS3:id="4">
            <BaseRectificada type="NS1:string">0</BaseRectificada>
            <CuotaRectificada type="NS1:string">0</CuotaRectificada>
            <CuotaRecargoRectificado type="NS1:string">0</CuotaRecargoRectificado>
        </ImporteRectificacion>
        <FechaOperacion type="NS1:string">10-05-2022</FechaOperacion>
        <DescripcionOperacion type="NS1:string">Venta</DescripcionOperacion>
        <FacturaSimplificadaArticulos7.2_7.3 type="NS2:SimplificadaCualificadaType">N</FacturaSimplificadaArticulos7.2_7.3>
        <FacturaSinIdentifDestinatarioArticulo6.1.d type="NS2:CompletaSinDestinatarioType">N</FacturaSinIdentifDestinatarioArticulo6.1.d>
        <Macrodato type="NS2:MacrodatoType">N</Macrodato>
        <Destinatarios type="NS3:Array" NS3:itemType="NS2:PersonaFisicaJuridicaType" NS3:arraySize="1">
            <item NS3:id="5" type="NS2:PersonaFisicaJuridicaType">
                <NombreRazon type="NS1:string">Cliente demo </NombreRazon>
                <NIF type="NS1:string">XXXXXXXXJ</NIF>
                <IDOtro NS3:id="6" type="NS2:IDOtroType">
                    <IDType type="NS2:PersonaFisicaJuridicaIDTypeType">02</IDType>
                    <ID type="NS1:string">XXXXXXXXJ</ID>
                </IDOtro>
            </item>
        </Destinatarios>
        <Cupon type="NS2:CuponType">N</Cupon>
        <Desglose type="NS3:Array" NS3:itemType="NS2etalleType" NS3:arraySize="1">
            <item NS3:id="7" type="NS2etalleType">
                <ClaveRegimen type="NS2:IdOperacionesTrascendenciaTributariaType">01</ClaveRegimen>
                <CalificacionOperacion type="NS2:CalificacionOperacionType">S1</CalificacionOperacion>
                <TipoImpositivo type="NS1:string">4,00</TipoImpositivo>
                <BaseImponibleOimporteNoSujeto type="NS1:string">1347,18</BaseImponibleOimporteNoSujeto>
                <BaseImponibleACoste type="NS1:string">0.00</BaseImponibleACoste>
                <CuotaRepercutida type="NS1:string">53,89</CuotaRepercutida>
                <TipoRecargoEquivalencia type="NS1:string">0,00</TipoRecargoEquivalencia>
                <CuotaRecargoEquivalencia type="NS1:string">0,00</CuotaRecargoEquivalencia>
            </item>
        </Desglose>
        <ImporteTotal type="NS1:string">1401,07</ImporteTotal>
        <EncadenamientoRegistroAnterior NS3:id="8">
            <IDEmisorFacturaRegistroAnterior NS4:nil="true"/>
            <NumSerieFacturaRegistroAnterior NS4:type="NS1:string"/>
            <FechaExpedicionFacturaRegistroAnterior NS4:type="NS1:string"/>
            <HuellaRegistroAnterior NS4:type="NS1:string"/>
        </EncadenamientoRegistroAnterior>
        <SistemaInformatico NS3:id="9">
            <NombreRazon NS4:type="NS1:string"/>
            <NIF NS4:type="NS1:string"/>
            <IDOtro NS3:id="10">
                <IDType NS4:type="NS2:PersonaFisicaJuridicaIDTypeType">02</IDType>
                <ID NS4:type="NS1:string"/>
            </IDOtro>
            <NombreSistemaInformatico NS4:type="NS1:string"/>
            <IdSistemaInformatico NS4:type="NS1:string"/>
            <Version NS4:type="NS1:string"/>
            <NumeroInstalacion NS4:type="NS1:string"/>
            <TipoUsoPosibleSoloVerifactu NS4:type="NS2:SiNoType">S</TipoUsoPosibleSoloVerifactu>
            <TipoUsoPosibleOtros NS4:type="NS2:SiNoType">N</TipoUsoPosibleOtros>
            <TipoUsoPosibleMultiOT NS4:type="NS2:SiNoType">N</TipoUsoPosibleMultiOT>
            <NumeroOTAlta NS4:type="NS1:string">1</NumeroOTAlta>
        </SistemaInformatico>
        <FechaGenRegistro NS4:type="NS1:string"/>
        <HoraGenRegistro NS4:type="NS1:string"/>
        <HusoHorarioGenRegistro NS4:type="NS2:HusoHorarioGenRegistroType">02</HusoHorarioGenRegistro>
        <NumRegistroAcuerdoFacturacion NS4:type="NS1:string"/>
        <IdAcuerdoSistemaInformatico NS4:type="NS1:string"/>
    </RegistroFacturacionType>
</RegistroFacturacion>

ramherfer · #2 05-03-2024

Cita:

Empezado por Delphier

Aquí va , no entraba en el otro post.
Saludos

<?xml version="1.0"?>
<RegistroFacturacion
xmlns:NS1="no puedo poner enlaces w3.org/2001/XMLSchema"
xmlns:NS2="no puedo poner enlaces .agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd"
xmlns:NS3="no puedo poner enlaces w3.org/2003/05/soap-encoding"
xmlns:NS4="no puedo poner enlaces .org/2001/XMLSchema-instance">
<RegistroFacturacionType id="1">
<IDFactura id="2">
<IDEmisorFactura id="3">
<NIF type="NS1:string">BXXXXXXXX</NIF>
</IDEmisorFactura>
<NumSerieFacturaEmisor type="NS1:string">2022-F1-PC-0000000055</NumSerieFacturaEmisor>
<FechaExpedicionFacturaEmisor type="NS1:string">10-05-2022</FechaExpedicionFacturaEmisor>
</IDFactura>
<NombreRazonEmisor type="NS1:string">EMPRESA TEST, S.L.</NombreRazonEmisor>
<TipoRegistroSIF type="NS2:TipoRegistroSIFType">S0</TipoRegistroSIF>
<TipoFactura type="NS2:ClaveTipoFacturaType">F1</TipoFactura>
<FacturasSustituidas type="NS3:Array" NS3:itemType="NS2:IDFacturaARType" NS3:arraySize="0"/>
<ImporteRectificacion NS3:id="4">
<BaseRectificada type="NS1:string">0</BaseRectificada>
<CuotaRectificada type="NS1:string">0</CuotaRectificada>
<CuotaRecargoRectificado type="NS1:string">0</CuotaRecargoRectificado>
</ImporteRectificacion>
<FechaOperacion type="NS1:string">10-05-2022</FechaOperacion>
<DescripcionOperacion type="NS1:string">Venta</DescripcionOperacion>
<FacturaSimplificadaArticulos7.2_7.3 type="NS2:SimplificadaCualificadaType">N</FacturaSimplificadaArticulos7.2_7.3>
<FacturaSinIdentifDestinatarioArticulo6.1.d type="NS2:CompletaSinDestinatarioType">N</FacturaSinIdentifDestinatarioArticulo6.1.d>
<Macrodato type="NS2:MacrodatoType">N</Macrodato>
<Destinatarios type="NS3:Array" NS3:itemType="NS2:PersonaFisicaJuridicaType" NS3:arraySize="1">
<item NS3:id="5" type="NS2:PersonaFisicaJuridicaType">
<NombreRazon type="NS1:string">Cliente demo </NombreRazon>
<NIF type="NS1:string">XXXXXXXXJ</NIF>
<IDOtro NS3:id="6" type="NS2:IDOtroType">
<IDType type="NS2:PersonaFisicaJuridicaIDTypeType">02</IDType>
<ID type="NS1:string">XXXXXXXXJ</ID>
</IDOtro>
</item>
</Destinatarios>
<Cupon type="NS2:CuponType">N</Cupon>
<Desglose type="NS3:Array" NS3:itemType="NS2

etalleType" NS3:arraySize="1">
<item NS3:id="7" type="NS2

etalleType">
<ClaveRegimen type="NS2:IdOperacionesTrascendenciaTributariaType">01</ClaveRegimen>
<CalificacionOperacion type="NS2:CalificacionOperacionType">S1</CalificacionOperacion>
<TipoImpositivo type="NS1:string">4,00</TipoImpositivo>
<BaseImponibleOimporteNoSujeto type="NS1:string">1347,18</BaseImponibleOimporteNoSujeto>
<BaseImponibleACoste type="NS1:string">0.00</BaseImponibleACoste>
<CuotaRepercutida type="NS1:string">53,89</CuotaRepercutida>
<TipoRecargoEquivalencia type="NS1:string">0,00</TipoRecargoEquivalencia>
<CuotaRecargoEquivalencia type="NS1:string">0,00</CuotaRecargoEquivalencia>
</item>
</Desglose>
<ImporteTotal type="NS1:string">1401,07</ImporteTotal>
<EncadenamientoRegistroAnterior NS3:id="8">
<IDEmisorFacturaRegistroAnterior NS4:nil="true"/>
<NumSerieFacturaRegistroAnterior NS4:type="NS1:string"></NumSerieFacturaRegistroAnterior>
<FechaExpedicionFacturaRegistroAnterior NS4:type="NS1:string"></FechaExpedicionFacturaRegistroAnterior>
<HuellaRegistroAnterior NS4:type="NS1:string"></HuellaRegistroAnterior>
</EncadenamientoRegistroAnterior>
<SistemaInformatico NS3:id="9">
<NombreRazon NS4:type="NS1:string"></NombreRazon>
<NIF NS4:type="NS1:string"></NIF>
<IDOtro NS3:id="10">
<IDType NS4:type="NS2:PersonaFisicaJuridicaIDTypeType">02</IDType>
<ID NS4:type="NS1:string"></ID>
</IDOtro>
<NombreSistemaInformatico NS4:type="NS1:string"></NombreSistemaInformatico>
<IdSistemaInformatico NS4:type="NS1:string"></IdSistemaInformatico>
<Version NS4:type="NS1:string"></Version>
<NumeroInstalacion NS4:type="NS1:string"></NumeroInstalacion>
<TipoUsoPosibleSoloVerifactu NS4:type="NS2:SiNoType">S</TipoUsoPosibleSoloVerifactu>
<TipoUsoPosibleOtros NS4:type="NS2:SiNoType">N</TipoUsoPosibleOtros>
<TipoUsoPosibleMultiOT NS4:type="NS2:SiNoType">N</TipoUsoPosibleMultiOT>
<NumeroOTAlta NS4:type="NS1:string">1</NumeroOTAlta>
</SistemaInformatico>
<FechaGenRegistro NS4:type="NS1:string"></FechaGenRegistro>
<HoraGenRegistro NS4:type="NS1:string"></HoraGenRegistro>
<HusoHorarioGenRegistro NS4:type="NS2:HusoHorarioGenRegistroType">02</HusoHorarioGenRegistro>
<NumRegistroAcuerdoFacturacion NS4:type="NS1:string"></NumRegistroAcuerdoFacturacion>
<IdAcuerdoSistemaInformatico NS4:type="NS1:string"></IdAcuerdoSistemaInformatico>
</RegistroFacturacionType>
</RegistroFacturacion>

Y si pudiesemos ver el contenido del archivo Ur_user para saber como interviene y la estructura de las tablas que intervienen en el procedimiento, esto sería muy fácil trasladar a otros sistemas, vamos que, esto sería la mama de Tarzán para empezar. Esas estructuras para poder interpretar al 100% el procedimiento. ¡Ojo! es una sugerencia personal, ya que me ayudaría mucho, es decir, ciento por ciento.

Delphier · #3 05-03-2024

No hay nada relevante en Ur_user , simplemente es el form inicial de la aplicación que usé como comodín para crear el TXMLDocument.Create , ya que TXMLDocument da errores si lo creas con nil TXMLDocument.Create(nil) = Errores , Otra solución es usar Application , así funciona y no necesitas un Form ni crear un THackForm.

Añades Vcl.Forms en el uses y los creas XML := TXMLDocument.Create(Application);

Código Delphi [-]
 Showmessage('// Extraemos XML');

  var ARootNode,newNode : IXMLNode;
  var RefId,Swdsl : String;
  var XML : TXMLDocument;
  XML := TXMLDocument.Create(Application);

  XML.Active := True;
  XML.Version:='1.0';
  XML.Encoding:='utf-8';


  ARootNode := XML.CreateNode('RegistroFacturacion');

  var MOPToSoapDomConvert : TOPtoSOAPDomConvert;
  MOPToSoapDomConvert := TOPtoSOAPDomConvert.Create(Application);

  MOPToSoapDomConvert.Encoding := 'utf-8';

En cuanto a las bases de datos , la llamada a la función GenerarRegistroFacturacion_AltaVerifactu(Conexion : TAdoConnection ; TablaMaestra : Integer ; IdDocumento : String) : String;

TablaMaestra en mi caso el el Numero de Tabla de facturas , yo tengo varias FacturasSimplificadas, Facturas ordinarias, facturas de canje, facturas recapitulativas y IdDocumento es el identificador de la factura que quiero generar.

DTDesgloseIvas , es la tabla donde guardo el detalle de los Ivas de las facturas.

DTRectificadas es una tabla donde guardo el detalle de las Facturas que Rectifica cada factura si es rectificativa o sustitutiva

No hay más en este caso.

Saludos

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Hijo de Informáticos	gluglu	Humor	3	13-03-2007 11:05:35
Adictos informaticos ...	Trigger	Humor	2	11-10-2004 12:18:32
Nosotros los Informáticos	Trigger	Humor	1	10-10-2004 14:58:09
Patrón de los Informáticos.	obiwuan	Varios	20	10-09-2003 14:44:54
Chistes Informaticos	jhonny	Humor	2	11-08-2003 21:59:09