8 respuestas en este tema

[Pratasvenska]

Buenos dias amigos,

Hoy les traigo un caso de xml data binding, he hecho un par de tutoriales y todo bien. Pero al aplicarlo a mi caso tengo algunas dudas. Tengo el siguiente código XML (si alguien ve un error de sintaxis favor de hacérmelo saber):

 <sve:Order xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sve="urn:oasis:names:specification:ubl:schema:xsd:Order-2" xmlns="urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2">

    <UBLExtensions />

    <UBLVersionID />

    <ID>23704</ID>

    <IssueDate>2012-05-24</IssueDate>

    <IssueTime>12:33:35.4844930+02:00</IssueTime>

    <Note>Konferensbokning test av SveOrder</Note>

    <BuyerCustomerParty>

      <Party>

        <PartyIdentification>

          <ID>2520016326</ID>

        </PartyIdentification>

        <PartyName>

          <Name>Kinna församling</Name>

        </PartyName>

        <PostalAddress>

          <StreetName>Prästgatan 7</StreetName>

          <CityName>Kinna</CityName>

          <PostalZone>51154</PostalZone>

        </PostalAddress>

        <Contact>

          <Name>Bengt Bernhardsson</Name>

        </Contact>

      </Party>

    </BuyerCustomerParty>

    <SellerSupplierParty xmlns="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2">

      <Party>

        <PartyIdentification>

          <ID>2520012345</ID>

        </PartyIdentification>

        <PartyName>

          <Name>SellerName</Name>

        </PartyName>

        <PostalAddress>

          <StreetName>sellerAdress</StreetName>

          <CityName>SellerCity</CityName>

          <PostalZone>SellerZip</PostalZone>

        </PostalAddress>

        <Contact>

          <Name>Conrad Carlsson</Name>

          <ElectronicMail>conrad.carlsson@mail.se</ElectronicMail>

        </Contact>

      </Party>

    </SellerSupplierParty>

    <OrderLine xmlns="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2">

      <LineItem>

        <Quantity>1</Quantity>

        <Price>

          <PriceAmount currencyID="AED">1600</PriceAmount>

        </Price>

        <Item>

          <Description>Konferens</Description>

          <AdditionalItemProperty>

            <Name>accounting:dim2</Name>

            <Value>111319</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:dim1</Name>

            <Value>28973</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:account</Name>

            <Value>3613</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>vat:vatcode</Name>

            <Value>900</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>ProductSpecification</Name>

            <Value>Deltagare: Sofia Svensson</Value>

          </AdditionalItemProperty>

        </Item>

      </LineItem>

    </OrderLine>

    <OrderLine xmlns="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2">

      <LineItem>

        <Quantity>1</Quantity>

        <Price>

          <PriceAmount currencyID="AED">1600</PriceAmount>

        </Price>

        <Item>

          <Description>Konferens</Description>

          <AdditionalItemProperty>

            <Name>accounting:dim2</Name>

            <Value>111319</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:dim1</Name>

            <Value>28973</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:account</Name>

            <Value>3613</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>vat:vatcode</Name>

            <Value>900</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>ProductSpecification</Name>

            <Value>Deltagare: Maria Marie Månsson</Value>

          </AdditionalItemProperty>

        </Item>

      </LineItem>

    </OrderLine>

    <OrderLine xmlns="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2">

      <LineItem>

        <Quantity>1</Quantity>

        <Price>

          <PriceAmount currencyID="AED">1600</PriceAmount>

        </Price>

        <Item>

          <Description>Konferens</Description>

          <AdditionalItemProperty>

            <Name>accounting:dim2</Name>

            <Value>111319</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:dim1</Name>

            <Value>28973</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:account</Name>

            <Value>3613</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>vat:vatcode</Name>

            <Value>900</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>ProductSpecification</Name>

            <Value>Deltagare: Erik Eriksson</Value>

          </AdditionalItemProperty>

        </Item>

      </LineItem>

    </OrderLine>

    <OrderLine xmlns="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2">

      <LineItem>

        <Quantity>1</Quantity>

        <Price>

          <PriceAmount currencyID="AED">1600</PriceAmount>

        </Price>

        <Item>

          <Description>Konferens</Description>

          <AdditionalItemProperty>

            <Name>accounting:dim2</Name>

            <Value>111319</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:dim1</Name>

            <Value>28973</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>accounting:account</Name>

            <Value>3613</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>vat:vatcode</Name>

            <Value>900</Value>

          </AdditionalItemProperty>

          <AdditionalItemProperty>

            <Name>ProductSpecification</Name>

            <Value>Deltagare: Sven Svensson</Value>

          </AdditionalItemProperty>

        </Item>

      </LineItem>

    </OrderLine>

  </sve:Order>

Utilizando el Data Binding wizard obtengo la clase correspondiente. Para tratar de acceder a los datos creo un form con varios TEdit, un TButton y un TXMLDocument.

declaracion global:

delphi

public
   order: IXMLOrderType;

En el evento OnCreate de mi form tengo:

delphi

procedure TfrmSveorderTest.FormCreate(Sender: TObject);
begin
  inherited;
  order := GetOrder(xmldc1)
end;

Pero en OnClick del botón algo tan simple como:

delphi

edt1.Text := IntToStr(order.ID);

Me da el error: 'Could not convert variant of type (Null) into type (Integer)'

Por qué no está captando los valores que hay en el xml? Alguna idea? Si alguien pudiera generar la clase con la herramienta de Data Binding y hacer un par de pruebas lo agradeceria mucho.

Saludos

[enecumene]

Es que a menos que se indique en el XML que ese dato es un integer u otro tipo de dato, todos son strings:

delphi

edt1.Text := order.ID.value;

Saludos.

[Pratasvenska]

Es que a menos que se indique en el XML que ese dato es un integer u otro tipo de dato, todos son strings:

delphi

edt1.Text := order.ID.value;

Saludos.

No existe la propiedad Value... la herramienta XML Data Binding genera un conjunto de datos en el cual, como bien dices, la mayoría de los campos son de tipo WideString, pero en este caso ID si está especificado como entero en mi "Dataset" resultante. De cualquier modo, si uso otro campo que sea string, por ejemplo Orders.Note, no genera error pero la cadena esta vacia..

Espero mis explicaciones no sean confusas??

Gracias.

[egostar]

Hola,

Y que pasa si agregas el namespace sve: a los nodos

Algo así

<sve:ID>23704</sve:ID>

Saludos

[Pratasvenska]

Hola,

Y que pasa si agregas el namespace sve: a los nodos

Algo así

<sve:ID>23704</sve:ID>

Saludos

Excelente!... no se me había ocurrido, muchas gracias

[Pratasvenska]

Hola,

Y que pasa si agregas el namespace sve: a los nodos

Algo así

<sve:ID>23704</sve:ID>

Saludos

hola de nuevo, como respondi ayer, tu solucion funciona. El problema ahora es hacerlo programaticamente. No puedo modificar el archivo XML, debo encontrar una forma de añadir el prefijo "sve" al momento de crear los ChildNodes. He intentado algo que vi en otro foro que sugeria:

delphi

function GetOrder(Doc: IXMLDocument): IXMLOrderType;
begin
  Result := Doc.GetDocBinding('sve:Order', TXMLOrderType, TargetNamespace) as IXMLOrderType;
end;

Pero no funciona, alguna otra idea? Saludos

[egostar]

Porque no puedes modificar el XML ? antes de "meterlo" a la clase puedes editarlo, por otro lado en lugar de incluir el namespace porque no lo quitas del nodo Order. Al final los XML al ser un string puedes utilizar la función StringReplace() sustituyendo el namespace 'svn:' por vacio.

Saludos

[Pratasvenska]

Como siempre, buenas soluciones. Tal vez se me habría ocurrido pero no tan rápido como a ti, Gracias Egostar!

[egostar]

Como siempre, buenas soluciones. Tal vez se me habría ocurrido pero no tan rápido como a ti, Gracias Egostar!

Que bien que haya sido útil, pongo éste hilo como [RESUELTO].

Saludos