Error en Adenda Al Super
Publicado: Jue Abr 07, 2011 12:20 pm
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.
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.