Ver Mensaje Individual
  #3  
Antiguo 19-01-2017
raul_toled raul_toled is offline
Registrado
 
Registrado: ene 2007
Posts: 9
Reputación: 0
raul_toled Va por buen camino
Question Sin avanzar

Gracias Movorack, si el active del XMLDocument lo probé y tampoco funcionó.

En cambio si he conseguido hacer Showmessage(FFacturaE.XML) y mostraba todo el XML por tanto entiendo que carga el XML correctamente, por lo que tiene que ser un problema mío de no saber como hacer mostrar la información.

Os pongo mas código por si doy alguna pista mas

{ Global Functions }

function GetFacturae(Doc: IXMLDocument): IXMLFacturae;
begin
Result := Doc.GetDocBinding('Facturae', TXMLFacturae, TargetNamespace) as IXMLFacturae;
end;


{ IXMLFacturae }

IXMLFacturae = interface(IXMLNode)
['{6F9F0711-849B-41AD-A9AE-BE8355D58E50}']
{ Property Accessors }
function Get_FileHeader: IXMLFileHeaderType;
function Get_Parties: IXMLPartiesType;
function Get_Invoices: IXMLInvoicesType;
function Get_Extensions: IXMLExtensionsType;
function Get_Signature: IXMLSignatureType_ds;
{ Methods & Properties }
property FileHeader: IXMLFileHeaderType read Get_FileHeader;
property Parties: IXMLPartiesType read Get_Parties;
property Invoices: IXMLInvoicesType read Get_Invoices;
property Extensions: IXMLExtensionsType read Get_Extensions;
property Signature: IXMLSignatureType_ds read Get_Signature;
end;


{ IXMLFileHeaderType }

IXMLFileHeaderType = interface(IXMLNode)
['{ED6AF63B-460A-49AB-B347-3218C6C7CEBB}']
{ Property Accessors }
function Get_SchemaVersion: UnicodeString;
function Get_Modality: UnicodeString;
function Get_InvoiceIssuerType: UnicodeString;
function Get_ThirdParty: IXMLThirdPartyType;
function Get_Batch: IXMLBatchType;
function Get_FactoringAssignmentData: IXMLFactoringAssignmentDataType;
procedure Set_SchemaVersion(Value: UnicodeString);
procedure Set_Modality(Value: UnicodeString);
procedure Set_InvoiceIssuerType(Value: UnicodeString);
{ Methods & Properties }
property SchemaVersion: UnicodeString read Get_SchemaVersion write Set_SchemaVersion;
property Modality: UnicodeString read Get_Modality write Set_Modality;
property InvoiceIssuerType: UnicodeString read Get_InvoiceIssuerType write Set_InvoiceIssuerType;
property ThirdParty: IXMLThirdPartyType read Get_ThirdParty;
property Batch: IXMLBatchType read Get_Batch;
property FactoringAssignmentData: IXMLFactoringAssignmentDataType read Get_FactoringAssignmentData;
end;



Cita:
Empezado por movorack Ver Mensaje
A lo mejor te hace el active

Código Delphi [-]
    XMlDomFacturaE.FileName := FFileName;
    XMlDomFacturaE.Active := True;
    XMlDomFacturaE.Options := [doNodeAutoCreate, doAttrNull, doAutoPrefix, doNamespaceDecl, doAutoSave];
    FFacturaE := GetFacturaE(XMlDomFacturaE);
Responder Con Cita