Delphi - Incrementar Numero Factura

 
Vista:

Incrementar Numero Factura

Publicado por lSamboy (75 intervenciones) el 13/11/2005 14:00:30
hola como estan.

me gustaria saber como incrementar el numero de una factura y ese numero mostarlo en un edit.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Incrementar Numero Factura

Publicado por Virum (484 intervenciones) el 14/11/2005 00:39:21
Hola:

Guardas el número en algún sitio, por ejemplo en una tabla, lo lees, lo incrementas en 1antes de añadir la factura y una vez añadida y guardada guardas el valor nuevo.

Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Incrementar Numero Factura

Publicado por Margarita Lozano Neveros (1 intervención) el 09/01/2006 21:00:50
debes declarar la variable NumMaximoFact

var
Form1: TForm1;
NumMaximoFact:Integer;

********************************
con esto obtienes el numero maximo de la factura y lo asignas a la variable NumMaximoFact

procedure TForm1.obtienemaxdefactura;
begin
with Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT Max(numerofactura) AS numerofactura FROM tablafacturas WHERE numerofactura>=0');
Open;
if(not Eof) then begin
NumMaximoFact := FieldByName('numerofactura).AsInteger;
Next;
end;
end;
end;
*****************
y la variable NumMaximoFact la incrementas en uno donde la necesites, procedure TForm1.obtienemaxdefactura; es un procedimiento que puedes llamar en cualquier otro procedimiento. por cualquier duda, escribeme a mi correo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar