Sumar un Numero real Una Cadena

[ecfisa]

Hola Alberto.

Lo ideal sería hacerte un procedimiento almacenado al efecto pero no conozco la sintáxis de SqlServer. Desde Delphi podrías hacer algo como:

Código Delphi [-]
function TForm1.ProxNroComprobante: string;
begin
  with TuQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT NRO_COMPROBANTE FROM TABLA_SERIE'); // supongo la tabla con un registro
    Open;
    Result:= 'A0100100101' +
      StringOfChar('0', 8 - Length(FieldByName('NRO_COMPROBANTE').AsString)) +
      IntToStr(FieldByName('NRO_COMPROBANTE').AsInteger + 1 );
    Close;
  end;
end;

Donde NRO_COMPROBANTE sería el campo de la tabla (TABLA_SERIE) de donde se tóma el número de comprobante fiscal.

Ejemplo de uso:

Código Delphi [-]
   NuevaFactura.AsString:= ProxNroComprobante;

Saludos.