Como Incrementar Secuencialmente un Numero de Comprobante Fiscal en sql server

[elanmas]

el fichero esta en xml y lo edito en bloc de notas por favor necesito que me ayude

[olbeup]

Empezado por elanmas

el fichero esta en xml y lo edito en bloc de notas por favor necesito que me ayude

Hola elanmas,

¿Cómo has añadido,

<ROW>"N°:000-002-01-" Transaction.ReceiptTransactionNumber </ROW>

Pues en ese tramo tienes que añadir el facturaStr

El XML se genera apartir de TXMLDocument ???, muestra el inicio y final de un recibo, la secuencia completa y se vera donde insertar la variable facturaStr.

Un saludo

[elanmas]

Buen Dia Olbeup

ya ingrese el FacturaStr, en
<!--<ROW> Transaction.ReceiptTransactionNumber </ROW>-->
</ELSE>
</IF>
</TABLE>
<TABLE>
<BORDER> tbNone </BORDER>
<COLUMNHEADER>
<ALIGNMENT> "&lt;~" </ALIGNMENT>
<WIDTH> PageWidth * 0.70 </WIDTH>
<TEXT> "" </TEXT>
</COLUMNHEADER>
<COLUMNHEADER>
<ALIGNMENT> "&lt;~" </ALIGNMENT>
<WIDTH> PageWidth * 0.50 </WIDTH>
<TEXT> "" </TEXT>
</COLUMNHEADER>
<IF>
<CONDITION> Transaction.ReceiptReferenceNumber </CONDITION>
<THEN>
<ROW> Transaction.ReceiptReferenceNumberCaption </ROW>
</THEN>
</IF>
<ROW>"N°:000-002-01-" Transaction.ReceiptTransactionNumber </ROW>
<!--REGIMEN DE FACTURACION-->


y me da dos errores: 1 compiler error token var was no foud
2 compiler error facturastr was no foud

me puede ayudar a ingresar

var
facturaStr: String;
begin
with ADOQuery1 do
facturaStr := FieldByName('SERIE').AsString + '000-002-' + FormatFloat('00000000', FieldByName('IDFACTURA').AsInteger);
end;

en la parte que necesito

<!--<ROW> Transaction.ReceiptTransactionNumber </ROW>-->
</ELSE>
</IF>
</TABLE>
<TABLE>
<BORDER> tbNone </BORDER>
<COLUMNHEADER>
<ALIGNMENT> "&lt;~" </ALIGNMENT>
<WIDTH> PageWidth * 0.70 </WIDTH>
<TEXT> "" </TEXT>
</COLUMNHEADER>
<COLUMNHEADER>
<ALIGNMENT> "&lt;~" </ALIGNMENT>
<WIDTH> PageWidth * 0.50 </WIDTH>
<TEXT> "" </TEXT>
</COLUMNHEADER>
<IF>
<CONDITION> Transaction.ReceiptReferenceNumber </CONDITION>
<THEN>
<ROW> Transaction.ReceiptReferenceNumberCaption </ROW>
</THEN>
</IF>
<ROW>"N°:000-002-01-" Transaction.ReceiptTransactionNumber </ROW>
<!--REGIMEN DE FACTURACION-->

[ecfisa]

Hola elanmas.

Por favor, lee con atención y aplica lo que te sugirió Casimiro [ aqui ]

Saludos y gracias por tu colaboración

[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.