procedure TF_FACTURACION.GUARDARClick(Sender: TObject);
begin
DM.Q_FACTURACION.Post;
DM.Transaction.CommitRetaining;
DM.CONSULTA.CLOSE;
DM.CONSULTA.ParamByName('ParCOD_FACT').AsString := COD_FACT.Text;
DM.CONSULTA.Open;
while not(DM.CONSULTA.Eof)do
begin
DM.CONSULTA2.CLOSE;
DM.CONSULTA2.ParamByName('ParCODIGO').AsString := DM.CONSULTA.FieldByName('CODIGO').AsFloat;
DM.CONSULTA2.ParamByName('ParCANTIDAD').AsFloat := DM.CONSULTA.FieldByName('CANTIDAD').AsFloat;
DM.CONSULTA2.ExecSQL;
DM.CONSULTA.Next;
end;
end;