Petolansa
12-11-2007, 18:36:18
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.
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.
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
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.
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.
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