insertar en tablas paradox

[jomah]

muchas gracias por responder mira eso ya lo intente y aun asi me tira el error pero lo raro es que tengo 7 documento en los cuales la diferencia solo es el nombre y uno de los documento si me lo guarda pero los otros 6 no y son iguales en todo porque incluso los traigo de la misma tabla no se si me doy a entender bien.

[ecfisa]

Hola jomah.

Al igual que kapcomx, pienso que el error anda por ahí...

De este modo tendría que funcionar:

Código Delphi [-]
function ProxNumReg(AQuery: TQuery; tbName: string): Integer;
begin
  with AQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Text:= 'SELECT MAX(NUM_REG) AS NUM_REG FROM '+tbName;
    Open;
    Result:= FieldByName('NUM_REG').AsInteger + 1;
    Close;
  end;
end;

...
begin
var
  Num: Integer;
begin
  Num:= ProxNumReg(qry1, Tab);
  qry2.First;
  try
    while not qry2.Eof do
    begin
      tbl1.Insert;
      tbl1.FieldByName('NUM_REG').AsInteger:= Num;
      tbl1.FieldByName('TIPO_POLI').AsString := cbb1.Text;
      tbl1.FieldByName('NUM_CTA').AsString := qry2.FieldByName('NumCta').AsString;
      tbl1.FieldByName('CONCEP_PO').AsString := qry2.FieldByName('ConcepPoliz').AsString;
      tbl1.FieldByName('DEBE_HABER').AsString := qry2.FieldByName('DebeHaber').AsString;
      tbl1.FieldByName('MONTOMOV').AsFloat := qry2.FieldByName('Monto').AsFloat;
      ...      
      tbl1.Post;
      Inc(Num);
      qry2.Next;
    end;
  except
    ...
  end;
  ...

Claro que luego tendrías que actualizar el valor de NUM_REG en la tabla correspondiente.

Saludos.

[kapcomx]

el key violation te lo arroja por que estas intentando agregar un valor repetido en un campo del tipo primary key, y estoy casi seguro que el problema radica en el valor de A (lo cual tambien confirma el compañero ecfisa).

por eso razon el primero lo agrega bien y como no se actualiza al intentar agregar el segundo ahi es donde te avienta el error.

Checa la solucion del compañero Ecfisa, me parece que esa seria la solucion.

Saludos

[jomah]

si me pone el siguiente numero pero por alguna razon la tabla me sigue tirando error puse un memo para q pusiera toda la informacion hay y en efecto pone 16 y a la siguiente vuelta el 17 pero aun asi tira error y noce que otra parte puede estar mal.

[ecfisa]

Hola jomah.

Una consulta, ¿ Revisaste si el campo NUM_REG de tbl1 está declarado como autoincremental ?

Saludos.

[jomah]

gracias ya lo he solucionado era que al ingresar los registros no estaban ordenados y tenian que insertarse en orden y por eso daba el error