Generar XML y validar si el dato es numerico
 

Hola, trabajo con Delphi 2010, estoy generando los datos de una factura en XML, algunos de los nodos son texto y otros son numeros.
Cuando hago el SQL para traer la informacion de la factura, en algunos casos tiene descuento y en otros no.
Cuando no tiene descuento yo deberia poner como texto del atributo lo siguiente

Código Delphi [-]
e01Node.Attributes['DescuentoTotal']  := '0.00'

pero si retorna valor entonces lleva el resultado del SQL

Código Delphi [-]
e01Node.Attributes['DescuentoTotal']  := FormatCurr('############.##' ,QryFAMAVR_DESCUENTO.AsCurrency);

e01Node es el nodo, lo que no quiero es hacer la validacion si el retorno de datos es 0 para ponerle manualmente el '0.00'.
Lei sobre el componente IXMLnode y al parecer uno puede validar directamente si el campo va a quedar vacio osea '' que el coloque algo por defecto.

Antes estaba solo la linea:

Código Delphi [-]
e01Node.Attributes['DescuentoTotal']  := FormatCurr('############.##' ,QryFAMAVR_DESCUENTO.AsCurrency);

y cuando trae valor esta bien, pero si el valor retornado es cero al generar el XML me deja vacio el nodo


Gracias por su tiempo.

Hola alejozd.

Intenta con este formato:

Código Delphi [-]
  e01Node.Attributes['DescuentoTotal']  := FormatCurr('###########0.##', QryFAMAVR_DESCUENTO.AsCurrency);

Saludos :)

Gracias por la pronta respuesta ecfisa,
colocando el 0 en el formatCurr me retorna solo el 0 , y necesito el 0.00 , la cuestión es cuando si retorna un valor y dejo el siguiente código:

e01Node.Attributes['DescuentoTotal'] := FormatCurr('###########0.00' ,QryFAMAVR_DESCUENTO.AsCurrency);

no me tomaría los decimales sino que colocaría el valor.00 es decir, retorna 578.12 y con este formatCurr me quedaría 578.00

¿Alguna otra idea?

Gracias!!!

Hola alejozd.

Con la máscara: '###########0.##',
Con la máscara: '###########0.00',
Pero de ningún modo, alguna de las máscaras anteriores devolverá 578 si el valor pasado es 578.12

Aqui tenes explicado el efecto del uso de los diferentes caracteres de control: FormatCurr

Saludos :)

alejozd,

:rolleyes:

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   N1, N2, N3 : Currency;
   S  : String;
   MsgUsr : String;

begin

   N1 := 578.12;
   N2 := 578.00;
   N3 := 0;

   S := FormatCurr('###########0.00', N1);
   MsgUsr := Format('N1 = %s',[S]);
   MessageDlg(MsgUsr,mtInformation,[mbOK],0);

   S := FormatCurr('###########0.00', N2);
   MsgUsr := Format('N2 = %s',[S]);
   MessageDlg(MsgUsr,mtInformation,[mbOK],0);

   S := FormatCurr('###########0.00', N3);
   MsgUsr := Format('N3 = %s',[S]);
   MessageDlg(MsgUsr,mtInformation,[mbOK],0);

end;

end.

El código anterior en Delphi 2010 sobre Windows 7 Professional x32, Muestra un ejemplo de la función FormatCurr en el cual se mantiene el formato definido en la función, como se muestra en la siguiente imagen:



Revisa esta información:
Espero sea útil :)

Nelson.