Error en Adenda Al Super

[fanchondo]

Entre algunas addendas que he adquirido, esta la de Al Super, pero al enviar el xml Al SUper me lo esta regresando por que falta el schemalocation se me envio el codigo para la schemalocation y lo puse en Addenda_AlSuper_Obj y me manda el error: [Error] Addenda_Alsuper_Obj.pas(70): Undeclared identifier: 'Datos'

el codigo lo puse en esta parte:

procedure TAddenda_AlSuper_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// SaveFormData(Addenda_AlSuper_Form,AddendaInfoFName);
end;

procedure TAddenda_AlSuper_Form.GeneraAddenda(CFD : IXMLComprobante);
var n : integer;
CFDCopy : IXMLComprobante;
TasaIVA, TasaIEPS : string; sloc : string;
begin
XMLDocCopy.LoadFromXML(CFD.XML);
XMLDocCopy.Active := true;
CFDCopy := GetComprobante(XMLDocCopy);

TasaIVA := '0'; TasaIEPS := '0';

// Aqui le Agregamos
CFD.Datos.Addenda.ChildNodes.Add(Addenda);

with CFD.Datos do
begin
sloc := Attributes['xsi:schemaLocation'];
SetAttribute('xsi:schemaLocation',sloc + ' http://proveedores.alsuper.com/CFD http://proveedores.alsuper.com/addenda/1.xsd');
SetAttribute('xmlns:alsuper','http://proveedores.alsuper.com/CFD');
end;
SaveFormData(Addenda_AlSuper_Form,AddendaInfoFName);
// hast aqui le agregamos


with CFDCopy.Impuestos do

No se si haya puesto el codigo en un lugar donde no debia o si falta hacer alguna declaracion, agradezco mucho la atencion.

[Dado]

Busca en tu codigo la linea

CFDCopy.Addenda.ChildNodes.Add(Addenda); (lo estoy anotando de memoria, pero la linea debe ser muy parecida a esta)

y le insertas enseguida lo siguiente :

Código: Seleccionar todo

  // Aqui le Agregamos
  with CFDCopy do
    begin
     sloc := Attributes['xsi:schemaLocation'];
     SetAttribute('xsi:schemaLocation',sloc + ' http://proveedores.alsuper.com/CFD http://proveedores.alsuper.com/addenda/1.xsd');
     SetAttribute('xmlns:alsuper','http://proveedores.alsuper.com/CFD');
    end;
  // hast aqui le agregamos

[fanchondo]

Inserte el codigo tal y cual, pero en el xml no muestra el schemaLocation xsi:schemaLocation',sloc + ' http://proveedores.alsuper.com/CFD en la adenda, solo muestra el encabezado el schemaLocation del SAT no se si con eso este correcto adjunto la parte donde inserte el codigo y el xml generado, muchas gracias

[Dado]

Inserte el codigo tal y cual, pero en el xml no muestra el schemaLocation xsi:schemaLocation',sloc + ' http://proveedores.alsuper.com/CFD en la adenda, solo muestra el encabezado el schemaLocation del SAT no se si con eso este correcto adjunto la parte donde inserte el codigo y el xml generado, muchas gracias

Vaya......enviame el zip con lo que te habia enviado originalmente para corregirlo.......

Por ahi te envie la nueva version del codigo fuente, el "version febrero-2011" trata de usar ese nuevo codigo fuente ya que el codigo anterior ya es obsoleto y me es dificil darle soporte