Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[jlmoli_67]

Empezado por newtron

Buenas.


A mi me da un access violation al hacer la llamada. ¿Alguna idea de por qué puede ser?


Gracias y un saludo.

Hola, newtron

Me suena mucho el haber visto ese problema en algun foro no se si del clubdelphi.com o de otro y creo recordar que era algo de configuracion del delphi (yo no lo uso). Simplemente queria decirte esto aunque tampoco te lo puedo asegurar pero quizas te pueda servir para que busques informacion al respecto y con eso me basta para decirtelo. Perdona si no fuera asi ya que tan solo me suena el problema que describes.

un saludo y suerte

[bmfranky]

Hola, pregunta tonta alguien podria explicarme como sacar el XMl , desde el WSDL una vez cumplimentado, es que no se que funcion usar, y con los metodos de envio peor, porque no se como proporcionar las credenciales de acceso.
Trabajo en c#.

[[newtron]]

Empezado por jlmoli_67

Hola, newtron

Me suena mucho el haber visto ese problema en algun foro no se si del clubdelphi.com o de otro y creo recordar que era algo de configuracion del delphi (yo no lo uso). Simplemente queria decirte esto aunque tampoco te lo puedo asegurar pero quizas te pueda servir para que busques informacion al respecto y con eso me basta para decirtelo. Perdona si no fuera asi ya que tan solo me suena el problema que describes.

un saludo y suerte

Gracias compañero. Ya irán saliendo las cosas.

[[newtron]]

Hola a tod@s.


Como he visto que alguno de vosotros pregunta cómo guardar el XML de la factura os pongo el código que he preparado (con ayuda de este mismo hilo). No tengo confirmado es si es correcto y todavía tengo dudas sobre cómo firmarlo pero esto crea el fichero.

Código Delphi [-]
  // Si es NO VERIFACTU Guardo y firmo el fichero XML
  if (RadioButton3.Checked) or (RadioButton5.Checked) then begin
    MyXML := TXMLDocument.Create(Application);
    parentXML := TXMLDocument.Create( Application );

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

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


    ARootNode := MyXML.CreateNode('RegistroAlta');
    AParentode := parentXML.CreateNode('RegistroAlta');

    MOPToSoapDomConvert := TOPtoSOAPDomConvert.Create(Application);

    MOPToSoapDomConvert.Encoding := 'utf-8';

    MOPToSoapDomConvert.Options :=
    [
    TSOAPConvertOption.soXXXXHdr,
    TSOAPConvertOption.soDontSendEmptyNodes,
    TSOAPConvertOption.soUTF8InHeader,
    TSOAPConvertOption.soSendUntyped,
    TSOAPConvertOption.soSendMultiRefObj,
    //TSOAPConvertOption.soSendMultiRefArray,
    TSOAPConvertOption.soTryAllSchema,
    TSOAPConvertOption.soRootRefNodesToBody,
    TSOAPConvertOption.soCacheMimeResponse,
    TSOAPConvertOption.soUTF8EncodeXML,
    TSOAPConvertOption.soSOAP12];
    newNode := Factura.RegistroAlta.ObjectToSOAP( ARootNode, AParentode, MOPToSoapDomConvert, 'RegistroAlta',
      Swdsl,'T',[ocoDontPrefixNode,ocoDontPutTypeAttr], RefId  );
    MyXML.DocumentElement := NewNode;
    // Crear un stream de cadena para almacenar el contenido XML
    StringStream := TStringStream.Create;
    try
      sAux:=CarpetaXML+FormatDateTime('YYYY',XSDateTime.AsDateTime)+'\';
      CreateDir(sAux);
      sAux:=sAux+FormatDateTime('MM',XSDateTime.AsDateTime)+'\';
      CreateDir(sAux);
      // Guardar el contenido XML en el stream
      MyXML.SaveToStream(StringStream);
      // Guardar el contenido del stream en un archivo
      sAux:=sAux+Factura.RegistroAlta.IDFactura.NumSerieFactura+'.XML';
      StringStream.SaveToFile(sAux);
    finally
      StringStream.Free;
      XSDateTime.Free;
    end;
  end;

[Neftali [Germán.Estévez]]

Empezado por newtron

Hola a tod@s.
Como he visto que alguno de vosotros pregunta cómo guardar el XML de la factura os pongo el código que he preparado (con ayuda de este mismo hilo). No tengo confirmado es si es correcto y todavía tengo dudas sobre cómo firmarlo pero esto crea el fichero.

Gracias.
Actualizado mensaje#2, dónde está la recopilación de códigos útiles.