Codigo de Factura

[camiz]

Empezado por José Luis Garcí

Hola Camiz, el tema de los códigos ya lo trate en el Tutorial http://www.clubdelphi.com/foros/show...=83457&page=13, aquí encontraras tanto el seguimiento y registro de nº de factura como su serie, puedes ver que el numerador lo registro aparte en configuración, ya que se te puede dar el caso de borrar una factura emitida y tener duplicado un nº de factura con lo que tendrías grabes problemas con hacienda, si te puedo ayudar en algo más, ya sabes.

gracias lo boy ha hechar un vistaso.

[[oscarac]]

yo uso algo parecido a esto

Código Delphi [-]
procedure TfrmValesdeConsumo.VerificarNumero;
Var _OK :Boolean;
begin
  _ok := True;
  while _ok Do
  Begin
    qryVerNumero.Close;
    qryVerNumero.Parameters.ParamByName('TDC').Value := frmMain._Origen;
    qryVerNumero.Parameters.ParamByName('DOC').Value := _DOC;
    qryVerNumero.Open;
    qryVerNumero.First;
    if qryVerNumeroDOC.AsString <> '' Then // o tambien podria contar cuantos registros hay
    begin
      _Numero := _Numero + 1;
      _DOC := Llenar(frmMain._Serie,3) + '-' + Llenar(FloatToStr(_Numero),7);
    end
    Else
    _ok := False;
  end;
end;

qryvernumero

Select TDC,DOC
from tblConsumoc
Where
TDC = :Tdc and
DOC = OC

[camiz]

oscarac
Excelente aporte, boy a ver como funciona a ver si lo uso en mi proyecto, gracias.