Ver Mensaje Individual
  #8  
Antiguo 09-11-2007
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Reputación: 25
eduarcol Va por buen camino
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;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita