Ayuda con guardado en tabla paradox

[[eduarcol]]

me has confundido, en si cual es el problema???

te guarda y no te ordena, te guarda y te da KeyViolation??, podrias explicar un poco mejor

[Petolansa]

El campo contador me guarda de la siguiente forma

Registro Numremito
   1           2
   2           1  
   3           2
   4           3
   5           4

Y lo del remito y remito detalle, me guarda una linea de ambos, por ejemplo,

TABLA REMITO

Numremito  Clicod   Fecha        Facturado
1                1       8/11/2007   fALSE

TABLA REMITODETALLE

Numremito  Codipro    Cantidad    Concepto
1               4               6           Campana Acero inox.

El tema es que yo hice el remito por mas de una linea de detalle y me guarda solamente una.


Espero haberme explicado mejor. Desde ya muchas gracias


Me olvidaba de decirles que em da keyviolation. Puede ser cuando hago el doy el while not eof y le doy append y que se repita el numremito al ser clave con la tabla de remito, o tambien puede ser porque estoy usando mal para incrementar el contador del remito?

[[eduarcol]]

el asunto esta en la logica que utilizas para crear los detalles, podrias utilizar un grid y alli al darle el boton procesar lo vuelcas a la tabla

[Petolansa]

Lo que hago es guardar los datos en un dbgrid vinculado a una rxmemorytable, y luego volcar los datos a las tablas por medio de un boton, como es que me decis que podria hacerlo de otra forma?

Gracias

[[eduarcol]]

lo haces bien entonces, puedes colocar la parte donde vacias la tabla rxMemoryTable para analizarlo??

[Petolansa]

Por ahi esta el problema entonces, porque no vacio la tabla, el codigo que puse mas arriba es el unico proceso que realizo para guardar en las respectivas tablas remito y remitodetalle, donde la vaciaria?


procedure TFrmRemito.BitBtn1Click(Sender: TObject);
var
numremito:real;
begin
numremito:=strtofloat(label12.Caption);
If messagedlg('Los datos del Remito con correctos?',MTwarning,mbOKCancel,0)<>
mrok
then
exit;

with dmzingueria do begin
remito.Insert;
remitonumremito.Value:=numremito;
remitoclicod.Value:=strtofloat(dbtext1.Caption);
remitofecha.Value:=strtodate(fecha);
remitofacturado.Value:=false;
remito.Post;

with mtremito do begin
first;

while not eof do begin
remitodetalle.Append;
remitodetallenumremito.Value:=numremito;
remitodetalle.FieldByName('codipro').Value:=FieldByName('codigo').value;
remitodetalle.FieldByName('cantidad').Value:=fieldbyname('cantidad').Value;
remitodetalle.FieldByName('concepto').Value:=fieldbyname('descripcion').Value;
next;
end;
end;



contadorx.Post;
end;
end;
end.

Otra cosita, esta mal como asigno el nro de remito? Cual es la forma de hacerlo correctamente extrayendo el ultimo nro de un campo, en este caso el campo se llema numremito

procedure TFrmprincipal.Remito2Click(Sender: TObject);
var
num:integer;
begin
num:=frmremito.contadorx['contremito'];
frmremito.contadorx.Insert;
frmremito.contadorx['contremito']:=num+1;
frmremito.Label12.Caption:=inttostr(frmremito.contadorxcontremito.Value);
frmremito.ShowModal
end;

end.Porque con este codigo me repite y me los ordena mal no va parejo.

Gracias por el tiempo

[[eduarcol]]

prueba estas sugerencias

Código Delphi [-]
procedure TFrmRemito.BitBtn1Click(Sender: TObject);
var
   numremito:real;
begin
   numremito:=strtofloat(label12.Caption);
   If messagedlg('Los datos del Remito con correctos?',MTwarning,mbOKCancel,0)<>mrok then
      exit;

   with dmzingueria do
   begin
      remito.Insert;
      remitonumremito.Value:=numremito;
      remitoclicod.Value:=strtofloat(dbtext1.Caption);
      remitofecha.Value:=strtodate(fecha);
      remitofacturado.Value:=false;
      remito.Post;

      with mtremito do
      begin
         first;

         while not eof do
         begin
            remitodetalle.Append;  //Cambialo por el insert
            remitodetallenumremito.Value:=numremito;
            remitodetalle.FieldByName('codipro').Value:=FieldByName('codigo').value;
            remitodetalle.FieldByName('cantidad').Value:=fieldbyname('cantidad').Value;
            remitodetalle.FieldByName('concepto').Value:=fieldbyname('descripcion').Value;
            //Agrega aqui un post;
            post; 
            next;
         end;
      end;

      contadorx.Post; //Que es contadorx?? no deberia ser Remito??
   end;
end;