Como verificar la correlativad de documentos

[[oscarac]]

tengo una relacion de facturas

F001-0008
F002-0001
F002-0002
F002-0003
F002-0005

como podría implementar una rutina para determinar que falta la factura F002-0004

tengo algunas ideas de capturar el primer registro e ir verificando (Sumando 1) después de la serie la numeración, pero me estoy enredando un poco.

ahora en la primera factura que aparece F001-0008, no hay cambios ni errores pq la siguiente es la serie F002

alguien tiene una rutina semejante

[mamcx]

No entiendo que te enrueda?

Ordenas todo, particionas por F... y haces lo que dices de ir sumando...

[[oscarac]]

al parecer no explique bien el problema,
existen diferentes tipos de documento (F,B,T)

pero ya lo soluciones de esta manera

Código Delphi [-]
  SqlStr := 'Select TDC, DOC ' +
            'From TblFacturasC ' +
            'Where Empresa = ' + QuotedStr(dmGlobal.g_CodigoEmpresa) +
            ' and Periodo = ' + QuotedStr(dmGlobal.g_Periodo) +
            ' order by TDC, DOC' ;

  CdsCorrelativoVenta.EmptyDataSet;
  CdsCorrelativoVenta.Open;
  qryVerCorrelativoVenta.Close;
  qryVerCorrelativoVenta.SQL.Clear;
  qryVerCorrelativoVenta.SQL.Add(SqlStr);
  qryVerCorrelativoVenta.Open;
  qryVerCorrelativoVenta.First;
  ProgressBarXls.Max := qryVerCorrelativoVenta.RecordCount;
  ProgressBarXls.Position := 0;
  ProgressBarXls.Visible := True;
  _TDC := qryVerCorrelativoVentaTDC.AsString;
  _DOC := qryVerCorrelativoVentaDOC.AsString;
  qryVerCorrelativoVenta.Next;
  While not qryVerCorrelativoVenta.eof Do
  Begin
    Application.ProcessMessages;
    if Izquierda(_DOC, Pos('-', _DOC)) <> Izquierda(qryVerCorrelativoVentaDOC.AsString, pos ('-', qryVerCorrelativoVentaDOC.AsString)) then
    Begin
      _TDC := qryVerCorrelativoVentaTDC.AsString;
      _DOC := qryVerCorrelativoVentaDOC.AsString;
    End
    Else
    if StrToInt(Desde(_DOC, Pos('-', _DOC)+1)) + 1 <> StrToInt(Desde(qryVerCorrelativoVentaDOC.AsString, Pos('-', qryVerCorrelativoVentaDOC.AsString)+1)) then
    begin
      x_DOC := StrToInt(Desde(_DOC, Pos('-', _DOC)+1)) + 1;
      while StrToInt(Desde(qryVerCorrelativoVentaDOC.AsString, Pos('-', qryVerCorrelativoVentaDOC.AsString)+1)) > x_DOC do
      begin
        CdsCorrelativoVenta.Append;
        CdsCorrelativoVentaTDC.AsString := _TDC;
        CdsCorrelativoVentaDOC.AsString := IntToStr(x_DOC);
        CdsCorrelativoVenta.Post;
        Inc(x_DOC);
      end;
      _DOC := qryVerCorrelativoVentaDOC.AsString;
    end
    else
    begin
      _TDC := qryVerCorrelativoVentaTDC.AsString;
      _DOC := qryVerCorrelativoVentaDOC.AsString;
    end;
    qryVerCorrelativoVenta.Next;
    ProgressBarXls.Position := ProgressBarXls.Position + 1;
  End;

[Casimiro Notevi]

Tampoco he entendido el problema

[Javierus]

Empezado por Casimiro Notevi

Tampoco he entendido el problema

Ver si la relación de facturas emitidas está bien o hay huecos( que van a suponer un problema fiscal)

[Casimiro Notevi]

Sí, eso está claro, lo que no he entendido es cuál problema tiene para no tener los documentos correlativos.