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 begin
_Numero := _Numero + 1;
_DOC := Llenar(frmMain._Serie,3) + '-' + Llenar(FloatToStr(_Numero),7);
end
Else
_ok := False;
end;
end;
qryvernumero
Cita:
Select TDC,DOC
from tblConsumoc
Where
TDC = :Tdc and
DOC = OC
|