Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Generar automaticamente número de factura (https://www.clubdelphi.com/foros/showthread.php?t=42083)

efelix 03-04-2007 15:14:13

Generar automaticamente número de factura
 
:confused: Hola a todos, hace tiempo que no estaba por el foro, pero me ha surgido una interrogante, espero que me puedan ayudar como siempre lo han hecho. Disculpen si el tema no pertenece a este foro. El problema es el siguiente:
Estoy tratando de automatizar el proceso de facturación de mi organización, la cual se dedica a la prestación de servicios, hasta el momento este proceso se lleva a cabo de forma manual.
En mi empresa existen varios grupos de trabajo, cada uno de los cuales factura, pero de manera consecutiva con relación a la facturación total, es decir yo diseñé la base de datos con dos carácteres para identificar al grupo, guión y luego un número. Para entrar en mas detalle, st-1, es el grupo servicios técnicos con la factura 1. Este es el diseño que elegí para el número de la factura, que como se desprende verán que es un campo tipo texto. Me pregunto si es posible que cuando vaya a introducir una nueva factura es posible mediante código que se genere el consecutivo, es decir, si ya está la factura st-1 cuando le de al botón agregar nueva factura me ponga st-2. Espero me hayan entendido. Muchas gracias.

jhonny 03-04-2007 15:59:36

Puedes hacer una tabla con dos campos distintos (Tipo, Consecutivo) donde Tipo tendrá los diferentes tipos de documentos llamese (ST, FV) o lo que sea y en consecutivo debe ir el numero por el que va la factura e ir incrementando dicho campo según sea necesario (Puede ser un campo autoincremental).
Ahora bien, si no manejas tablas y te la haz arreglado de alguna manera para no hacerlo pues nos cuentas y entre todos te ayudaremos a crear una función que te devuelva el incremento como lo necesitas.

Lepe 03-04-2007 16:29:56

Autoincrementos no creo que pueda servir, ya que pueden quedar huecos y en números de factura, no se permite.

No creo que sea nada complejo.
Código Delphi [-]
function Incrementa(nFactura:string):string;
begin
  if Length(nFactura) > 3 then
    Result := copy(nfactura, 1, 3) + intToStr(strToint(copy(nfactura, 3, 255))+1);
end;

El problema más grave es recuperar el número de factura más alto de un grupo, ya que al ser texto, la ordenación de un String no tiene nada que ver con integer.

La forma de salvar este obstaculo, es añadir ceros por la izquierda, así se puede pedir un listado de nFactura ordenado descendente. El primer nFactura será el que se incrementa.

Código:

st-00000001
st-00010000

Aquí 10.000 es el último al pedir una ordenación AScendente.

Sin embargo, manteniendo el orden ASCendente, aquí no se obtienen los mismos resultados:
Código:

st-13
st-10000
st-1

Saludos

lgarcia 03-04-2007 18:28:20

Generacion automatica factura
 
Hola:

Otra variante puede ser porque imagino que pueden estar facturando varias personas a la vez, es que cuando el facturador entre en el formulario insertar un registro con los datos minimos tales como fecha, consecutivo, etc y cuando se guarde realizar un update con el resto de los datos del formulario con el id que debes haber obtenido cuando se hizo el insertar inicial. De esta forma garantizas reservar un consecutivo unico. Lo otro que tienes que hacer es para los casos en que no se termine de llenar el formulario por cualquier motivo es eliminar el registro y asi garantizas recuperar el consecutivo.

Este codigo en SQL lo resolvi de esta forma
Código:

CREATE PROCEDURE [insert_Bolsos]
 (@recepcionista_  [int],
  @fecha_  [datetime],
  @servicio_  [int],
  @ruta_  [int],
  @tipo_  [int],
  @id_  int Output,
  @consecutivo_  int Output)
AS
SELECT @consecutivo_ = MAX(consecutivo) FROM dbo.Bolsos WHERE (fecha = CONVERT(DATETIME, @fecha_, 102))
IF @consecutivo_ is Null SET @consecutivo_ = 1
ELSE SET @consecutivo_ = @consecutivo_ + 1
 
INSERT INTO [Sala].[dbo].[Bolsos]
  ([recepcionista],
  [fecha],
  [servicio],
  [ruta],
  [tipo],
  [consecutivo])
 
VALUES
  (@recepcionista_,
  @fecha_,
  @servicio_,
  @ruta_,
  @tipo_,
  @consecutivo_)
SELECT @id_ = @@IDENTITY
GO

Saludos
Luis Garcia


La franja horaria es GMT +2. Ahora son las 14:44:51.

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