Como Incrementar Secuencialmente un Numero de Comprobante Fiscal en sql server

[olbeup]

Hola elanmas,

No te estoy diciendo que insertes el código del MSG #9 dentro del fichero XML.

En el MSG #15 te hago una pregunta y aún me la has contestado, ¿cómo creas el fichero XML?, ¿Lo haces por medio de TXMLDocument?, ¿por otro componente?

Sólo te estoy diciendo cómo creas el fichero XML, ¿Lo haces por medio de TXMLDocument?, ¿Con cual libreria creas el fichero XML?

Si lo haces por TXMLDocuemt, cuando llegues a la parte donde poner el número del recibo, ahí se concatena la variable facturaStr

Si no muestras el código de cómo creas el fichero XML, no te podemos ayudar.

Espero que esto te de una idea a donde quiero que llegues a entender.

Código Delphi [-]
...
var
  XMLRecibos: IXMLDocument;
  XMLReciboLinea: IXMLNode
  FacturaStr: String
begin
  XMLRecibos := TXMLDocument.Create(nil);
    XMLRecibos.Active := True;
    XMLRecibos.Version := '1.0';
    XMLRecibos.Encoding := 'UTF-8';
    XMLRecibos.StandAlone := 'yes';
    XMLRecibos.NodeIndentStr := '  ';
    XMLRecibos.Options := XMLRecibos.Options + [doNodeAutoIndent];
  with ADOQuey1 do
  begin
    Open;
    while (not eof) do
    begin   
      FacturaStr := FieldByName('SERIE').AsString + '000-002-' + FormatFloat('00000000', FieldByName('IDFACTURA').AsInteger);
      ...
      ...
      ...
      XMLReciboLinea := XMLRecibos.AddChild('ROW');
        XMLReciboLinea.Text := QuotedStr(FacturaStr) + ' Transaction.ReceiptTransactionNumber';
      ...
      ...
      ...
    end;
    Close;
  end;
  XMLRecibos.SaveToFile('Recibos.XML');
  XMLRecibos.Active := False;
  FreeAndNil(XMLRecibos);
end;

Un saludo.