Codigo de Factura

[[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