Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-02-2011
hondaalberto hondaalberto is offline
Miembro
 
Registrado: sep 2010
Ubicación: República Dominicana
Posts: 67
Poder: 14
hondaalberto Va por buen camino
Como Incrementar Secuencialmente un Numero de Comprobante Fiscal en sql server

Buenas Noches Amigos

Necesito que por favor me ayuden a resolver lo siguiente: me han solicitado para un programa de Facturación desarrollado en Delphi 7 el cual utiliza como base de datos Sql Server Que al Crear un Documento Nuevo de Factura de Ventas se le debe asignar un número secuencia de Comprobante fiscal el cual tiene la siguiente estructura:
A010010010100000001(el cual esta compuesto por 19 caracteres de los cuales los ultimos 8 numeros son secuenciales, los demas caracteres anteriores siempre seran los mismos).

Lo que necesito es incrementar en uno(1) esta secuencia cada vez que generen una nueva factura y guardar este nuevo número de comprobante fiscal en la base de datos el cual representara el último Número de Comprobantes fiscal Emitido.

Ej:A010010010100000001
A010010010100000002
A010010010100000003...

Muchas GRacias de antemano por la ayuda que puedan brindarme...

Última edición por hondaalberto fecha: 17-02-2011 a las 05:06:02.
Responder Con Cita
  #2  
Antiguo 17-02-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
Hola hondaalberto,
Lo que tienes que hacer es crear una base de datos con dos campos:

Cita:
Base de Datos: Facturas
Campos:
IDFACTURA int IDENTITY(1,1)
SERIE varchar(11)
Cuando se incremente un registro el IDFACTURA incrementará en 1.
Para mostrar en pantalla A010010010100000001, lo único que tienes que hacer es con el comando FormatFloat lo juntas todo.
Eje.
Código Delphi [-]
var
  FacturaStr: String;
begin

  FacturaStr := FieldByName('SERIE').AsString + FormatFloat('00000000', FieldByName('IDFACTURA').AsInteger);
end;
Espero que te sirva.
Un Saludo
Responder Con Cita
  #3  
Antiguo 17-02-2011
hondaalberto hondaalberto is offline
Miembro
 
Registrado: sep 2010
Ubicación: República Dominicana
Posts: 67
Poder: 14
hondaalberto Va por buen camino
Muchas Gracias por responder olbeup, muy buena respuesta,

Pero Creo que me falto algo por especificar en el primer mensaje y es lo siguiente;

El sistema tiene una tabla en donde se guardan los numeros de serie de los comprobantes Fiscal, los cuales los autoriza una institucion del Gobierno, estos son guardados en la base de datos con la siguiente estructura:

Tabla Numeros de Serie:
Num_Inicial Num_Final Ultimo_Num_Utilizado

A010010010100000001 A010010010100000050 A010010010100000012

Entonces cuando se hace una nueva factura de ventas al numero que hay almacenado en el campo último número utilizado es al que debo hacerle el incremento en uno(1) para asignar ese nuevo numero a la nueva factura emitida y guardar el nuevo nuevo en el campo último utilizado.

Ej: a la Nueva Factura que se emita le corresponderia el número A010010010100000013 que es igual a A010010010100000012+1.

Gracias de Antemano

Última edición por hondaalberto fecha: 17-02-2011 a las 16:35:37.
Responder Con Cita
  #4  
Antiguo 18-02-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
Lo único que tienes que hacer es crear un nuevo campo que se llama IDFACTURAULTIMA, donde IDFACTURAULTIMA = (IDFACTURA -1), en SQL SERVER hay una variable que se llama @IDENTITY que es el valor de (IDFACTURA) que ha tomado en tu ordenador, independientemente de los demás ordenadores que estén realizando facturas, éste número que te ha dado, lo actualizas en el IDFACTURAULTIMA.
EJ.
Código SQL [-]
INSERT INTO Facturas (SERIE) VALUES ('A0100100101')

UPDATE Facturas
  SET IDFACTURAULTIMA = (@IDENTITY -1)
Lo bueno que tiene SQL SERVER, es que puedes introducir más de una secuencia SQL SERVER.

Espero que te sirva.
Un saludo.
Responder Con Cita
  #5  
Antiguo 26-09-2015
elanmas elanmas is offline
Registrado
NULL
 
Registrado: sep 2015
Posts: 7
Poder: 0
elanmas Va por buen camino
Tengo el mismo problema

segun el nuevo regimen de facturacion tiene que ser asi N°:000-002-01-00000001, el corelativo N°:000-002-01-00000001 donde los primeros 8 digitos no son cambiantes N°:000-002-01- los ultimos 8 si 00000001 no es podido lograr rellenar con ceros ahora de imprimir la factura sale de la siguiente manera N°:000-002-01-1 y asi N°:000-002-01-2, N°:000-002-01-3...N°:000-002-01-100 pero no he podido hacer que se rellene los ceros a la izquierda, necesito me pueda ayudar por favor, tengo una plantilla en xml de la siguiente forma.

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>
<!--
Responder Con Cita
  #6  
Antiguo 26-09-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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:

Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
ncf Numero de comprobante fiscal jandj Varios 2 19-12-2012 22:48:04
Cómo incrementar fecha meses/dias con SQL/Firebird 2.1 Tcmn Firebird e Interbase 2 11-10-2010 21:00:46
conocer el numero de licencias en SQL Server sinalocarlos MS SQL Server 2 12-01-2007 19:12:52
Impresora Fiscal y Delphi 5 como? guiweb Varios 0 20-07-2006 19:41:37
Inserción de comprobante Ulises Providers 0 25-07-2003 05:15:13


La franja horaria es GMT +2. Ahora son las 20:14:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi