Ver Mensaje Individual
  #1  
Antiguo 12-11-2007
Petolansa Petolansa is offline
Miembro
 
Registrado: jul 2005
Posts: 159
Reputación: 21
Petolansa Va por buen camino
Guardar en tabla registros

Buenas gente aca estoy de nuevo, les queria consultar porque no logro
hacer funcionar lo siguiente, el primer codigo es el que me toma el producto
de la tabla stock y lo pasa a la tabla temporal rx de nombre MTREMITO.
hasta ahi bien, me lo toma y me lo va a agregando en en un dbgrid
incluso luego modifico la cantidad y me hace los calculos por linea de
detalle y todo.


Código:
begin
frmremito.mtremito.Append;
frmremito.mtremitocodigo.Value:=tstockprocod.Value;
frmremito.mtremitodescripcion.Value:=tstockpronom.Value;
frmremito.mtremito.Post;
end;

El problema empieza aqui. Este es el boton que uso para procesar los datos
quiero guardar en dos tablas correspondientes, en la de remito y remito detalle.
En la tabla de remito me guarda bien pero el problema me salta en la segunda
parte, cuando quiero volcar los datos de la tabla MT remito a la tabla Remitodetalle.



Código:
If messagedlg('Los datos del Remito con correctos?',MTwarning,mbOKCancel,0)<>
mrok
then
exit;

with dmzingueria do begin
remito.Insert;
remitonumremito.Value:=folio;
remitoclicod.Value:=strtofloat(dbtext1.Caption);
remitofecha.Value:=strtodate(fecha);
remitofacturado.Value:=false;
remito.Post;
remito.FlushBuffers;
//hasta aqui funciona y guarda bien!


//Aqui es donde no funciona, me dice mtremito not in insert or edit mode.

with mtremito do begin
first;
while not Eof do
begin
remitodetalle.insert;///Aqui le doy insert, no se si va 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;
mtremito.Post;
mtremito.Next;
end;
mtremito.EmptyTable;
end;

Donde puede estar el error?

Desde ya muchas gracias
Responder Con Cita