Como Incrementar Secuencialmente un Numero de Comprobante Fiscal en sql server

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:

[elanmas]

gracias por responder, no se mucho de programacion, lo que he hecho es tomar camandos de otras plantillas y asi las he modificado a mi conveniencia, necesito me pueda ayudar, creo donde tengo que agregar algun comando es en esta parte de la plantilla si me puede ayudar por favor dandome el ejemplo, se lo agradezco ante mano. ya que a la hora de imprimir la factura sale de esta maneraN°:000-002-01-1 y el que sigue N°:000-002-01-2, N°:000-002-01-3 y lo necesito a si N°:000-002-01-00000001, N°:000-002-01-00000002 ............. N°:000-002-01-00000200......... N°:000-002-01-00001495 lo que necesito que cambie son los ultimos 8 digitos.


<CONDITION> Transaction.ReceiptReferenceNumber </CONDITION>
<THEN>
<ROW> Transaction.ReceiptReferenceNumberCaption </ROW>
</THEN>

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

<!--REGIMEN DE FACTURACION-->

[elanmas]

gracias por responder, no se mucho de programacion, lo que he hecho es tomar camandos de otras plantillas y asi las he modificado a mi conveniencia, necesito me pueda ayudar, creo donde tengo que agregar algun comando es en esta parte de la plantilla si me puede ayudar por favor dandome el ejemplo, se lo agradezco ante mano. ya que a la hora de imprimir la factura sale de esta maneraN°:000-002-01-1 y el que sigue N°:000-002-01-2, N°:000-002-01-3 y lo necesito a si N°:000-002-01-00000001, N°:000-002-01-00000002 ............. N°:000-002-01-00000200......... N°:000-002-01-00001495 lo que necesito que cambie son los ultimos 8 digitos.


<CONDITION> Transaction.ReceiptReferenceNumber </CONDITION>
<THEN>
<ROW> Transaction.ReceiptReferenceNumberCaption </ROW>
</THEN>

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

<!--REGIMEN DE FACTURACION-->

[olbeup]

Empezado por elanmas

gracias por responder, no se mucho de programacion, lo que he hecho es tomar camandos de otras plantillas y asi las he modificado a mi conveniencia, necesito me pueda ayudar, creo donde tengo que agregar algun comando es en esta parte de la plantilla si me puede ayudar por favor dandome el ejemplo, se lo agradezco ante mano. ya que a la hora de imprimir la factura sale de esta maneraN°:000-002-01-1 y el que sigue N°:000-002-01-2, N°:000-002-01-3 y lo necesito a si N°:000-002-01-00000001, N°:000-002-01-00000002 ............. N°:000-002-01-00000200......... N°:000-002-01-00001495 lo que necesito que cambie son los ultimos 8 digitos.


<CONDITION> Transaction.ReceiptReferenceNumber </CONDITION>
<THEN>
<ROW> Transaction.ReceiptReferenceNumberCaption </ROW>
</THEN>

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

<!--REGIMEN DE FACTURACION-->

Hola elanmas,

En el mensaje #2 viene como poner ceros a la izquierda, si lo primeros números son fijos pues es sencillo.

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

Un saludo.

[elanmas]

gracias por apoyarme

como dije en el foro no se de programacion, los datos que me envio los introduje en el fichero, y me da un mensaje que el archivo no puede ser un fichero de xml. uso el sql server 2005, me hara falta algun dato o puede ayudar a hacer el fichero o como colo segun estos datos

<CONDITION> Transaction.ReceiptReferenceNumber </CONDITION>
<THEN>
<ROW> Transaction.ReceiptReferenceNumberCaption </ROW>
</THEN>

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

<!--REGIMEN DE FACTURACION-->





como coloco lo que me envio en lo anterior
var
facturaStr: String;
begin
with ADOQuery1 do
facturaStr := FieldByName('SERIE').AsString + '000-002-' + FormatFloat('00000000', FieldByName('IDFACTURA').AsInteger);
end;


tengo que cambiar algo donde dice factura?

[olbeup]

Hola elanmas,

Como tú bien has dicho en tú primero mensaje, ¿como poner ceros a la izquierda con un máximo de 8 e incrementando en uno?, pues ya te lo he dicho, ahora, ¿como ponerlo en dicho documento?, pasandole el facturaStr, ¿cómo?, desconozco el fichero en cuestión y como se genera para poder incluir en cada recibo el facturaStr.

Un saludo.

[elanmas]

buen dia olbeup

el fichero esta en extension xml, y lo edito con el bloc de notas, lo que ud me envio lo agregue a esa parte del fichero que le evio, sustiyendolo en esta parte del fichero <ROW>"N°:000-002-01-" Transaction.ReceiptTransactionNumber </ROW> y al agregar el fichero al programa me da error, con lo que ud me envio no se si hay que agregar algunda sentencia o tengo que cambiarle el nombre alguna de mis tablas.

gracias por su apoyo


esto es parte del fichero donde va el numero de factura

SUB: PrintTransactionType
=============================
-->
<SUB name="PrintTransactionType">
<TABLE>
<FONT> "Large" </FONT>
<BORDER> tbNone </BORDER>
<COLUMNHEADER>
<ALIGNMENT> "^" </ALIGNMENT>
<WIDTH> PageWidth </WIDTH>
<IF>
<CONDITION> Transaction.Type = transactionPayout </CONDITION>
<THEN>
<TEXT> "GASTO"</TEXT>
</THEN>
<ELSE>
<IF>
<CONDITION> Transaction.Type = transactionDrop </CONDITION>
<THEN>
<TEXT> "RETIRO DE EFECTIVO"</TEXT>
</THEN>
<ELSE>
<IF>
<CONDITION> Transaction.ReceiptReturnMode = TRUE </CONDITION>
<!--REGIMEN DE FACTURACION-->
<THEN>
<TEXT> "DEVOLUCION"</TEXT>
</THEN>
<ELSE>
<IF>
<CONDITION> (Transaction.Type = transactionAccountPayment) </CONDITION>
<THEN>
<TEXT> "ABONO A CUENTA" </TEXT>
</THEN>
<ELSE>
<IF>
<CONDITION> Transaction.Total &gt; 0 </CONDITION>
<THEN>
<TEXT> Transaction.ReceiptTransactionName </TEXT>
</THEN>
<ELSE>
<TEXT> "ANULAR/DEVOLUCION" </TEXT>
</ELSE>
</IF>
</ELSE>
</IF>
</ELSE>
</IF>
</ELSE>
</IF>
</ELSE>
</IF>
</COLUMNHEADER>
<!--REGIMEN DE FACTURACION-->
<IF>
<CONDITION> Transaction.Type &lt;&gt; transactionDrop &amp; Transaction.Type &lt;&gt; transactionPayout &amp; Transaction.Type &lt;&gt; transactionNoSale &amp; Transaction.Type &lt;&gt; transactionAccountPayment &amp; Transaction.Type &lt;&gt; transactionQuote &amp; Transaction.Type &lt;&gt; transactionworkorder &amp; Transaction.Type &lt;&gt; transactionlayaway </CONDITION>
<THEN>
<ROW> Session.Variable9 </ROW>
</THEN>
<ELSE>
<IF>
<CONDITION> Transaction.ReceiptReferenceNumber </CONDITION>
<THEN>
<ROW> Session.Variable9 </ROW>
</THEN>
<ELSE>
<ROW> Transaction.ReceiptTransactionNumber </ROW>
</ELSE>
</IF>
<!--<ROW> Transaction.ReceiptTransactionNumber </ROW>-->
</ELSE>
</IF>
</TABLE>
<TABLE>
<BORDER> tbNone </BORDER>
<COLUMNHEADER>
<ALIGNMENT> "&lt;~" </ALIGNMENT>
<WIDTH> PageWidth * 0.60 </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-->
<IF>
<CONDITION> Len(Customer.AccountNumber) </CONDITION>
<THEN>
<ROW> "RTN:" Customer.AccountNumber </ROW>
</THEN>
</IF>
<ROW> "Cliente:" Customer.Name </ROW>
<ROW> "Dirección:" Customer.HomeAddress.Company </ROW>
<ROW> "Fecha: " Transaction.Date "|H:"Transaction.Time </ROW>
<ROW> "Cajero: " Cashier.Number "|Caja #: " Register.Number </ROW>
<SET name="Vendedor" custom="False" description="w" type="vbLong">1</SET>
<FOR each="entry">
<IF>
<CONDITION> Vendedor = 1 &amp; len(Entry.Salesrep.Name) </CONDITION>
<THEN>
<ROW> "Vendedor: "Entry.Salesrep.Name "|" "Artículos: " Transaction.TotalQuantity </ROW>
<SET name="Vendedor" custom="False" description="w" type="vbLong">2</SET>
</THEN>
</IF>
</FOR>

</TABLE>
</SUB>
<!--

[ecfisa]

Hola elanmas.

Empezado por elanmas

buen dia olbeup

el fichero esta en extension xml, y lo edito con el bloc de notas, lo que ud me envio lo agregue a esa parte del fichero que le evio, sustiyendolo en esta parte del fichero <ROW>"N°:000-002-01-" Transaction.ReceiptTransactionNumber </ROW> y al agregar el fichero al programa me da error, con lo que ud me envio no se si hay que agregar algunda sentencia o tengo que cambiarle el nombre alguna de mis tablas. ----@----.---
...

La esencia de los foros es retroalimentarse con la publicación de consultas y respuestas.
De ese modo, cualquiera que pudiera pasar por una situación similar a la que planteas, se verá beneficiado al encontrar el tratamiento público que se le dió a tu consulta.

Por ese motivo quité del mensaje #12 , la dirección de correo electrónico que habías publicado.

Saludos

[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

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo: