Ordenes entrelazadas

[[movorack]]

Creo que con un procedimiento almacenado harias lo que quieres, por lo menos asi lo he hecho yo... al procedimiento almacenado le paso tanto los datos generales de la orden como los detalles con el array de elementos.

el mismo procedimiento te creará la orden y los detalles en las respectivas tablas dentro de la misma transacción evitandote los problemas actuales.

[mjjj]

gracias movorack, voy a investigar esto de los procedimientos almacenados.

Me podrías exponer un ejemplo del codigo que debiese utilizar para realizar esto.


Adicionamente, los datos que el usuario introsuzca, estoy hablando de por ejemplo el cliente, detalles de la orden... estos antes de ser enviados al procedimiento para ser almacenados, donde los tendre que guardar? en variables locales?

Espero me puedas acercar un ejemplo y asi poder entenderlo mejor.

Saludos

[[movorack]]

Por alguna razón no puedo insertar la imágen pero bueno... http://lh4.ggpht.com/_IuT93QvTKI0/S3...endepedido.png

el anterior es el formulario... todo está en edits y variables locales... los elementos de la orden están en un TStringGrid y cuando solicito crear la orden armo la consulta.

se me olvidaba un pequeño detalle... yo uso Postgres no firebird. aún así este es el codigo del procedimiento...

Código SQL [-]
CREATE OR REPLACE FUNCTION pedidos.fn_req(
  prm_cyp_id character varying,
  prm_usr_id integer,
  prm_art_det_id integer[],
  prm_req_art_cant integer[],
  prm_o_art character varying[],
  prm_t_compra integer
)  RETURNS integer AS
$BODY$
DECLARE
  var_req_id INTEGER;
  var_curtime time;
  var_cant integer;
  var_cont integer;
  _estd_xfact varchar;
  _estd_pndte varchar;
  _estd_xent varchar;
  _estd_sql varchar;
  _compra_nrml int4;
  _compra_aprv int4;
BEGIN
  --valores por defecto...
  var_curtime := current_time;
  _estd_xfact := 'E9';
  _estd_pndte := 'E1';
  _estd_xent  := 'E6';
  _compra_nrml := 0;
  _compra_aprv := 1;

  --Estado inicial del estado
  _estd_sql := _estd_xfact;
  if prm_t_compra = _compra_aprv then
    _estd_sql = _estd_pndte;
  end if;

  --Insercion de requisicion
  INSERT INTO pedidos.requisiciones(req_time, cyp_id, usr_id, estd_id)
    VALUES(var_curtime, prm_cyp_id, prm_usr_id, _estd_sql);

  --obtener el ID de la insercion
  SELECT INTO var_req_id req_id
  FROM pedidos.requisiciones
  WHERE
    req_date = current_date
    AND req_time = var_curtime
    AND cyp_id = prm_cyp_id
    AND estd_id = _estd_sql
    AND usr_id = prm_usr_id;

  -- cantidad de articulos en detalle
  var_cant := ARRAY_DIM(1, prm_art_det_id);

  -- Insercion del detalles
  FOR i IN 1..var_cant LOOP
    _estd_sql := _estd_xfact;
    if prm_t_compra = _compra_aprv then
      _estd_sql = _estd_pndte;
    end if;

    INSERT INTO pedidos.req_art(req_id, art_det_id, req_art_cant, estd_id, req_art_orgn)
      VALUES (var_req_id, prm_art_det_id[i], prm_req_art_cant[i], _estd_sql, prm_o_art[i]);
  END LOOP;  

  RETURN var_req_id;
END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE
  COST 100;

[mjjj]

Se me ocurre otra idea, es posible detectar la transacción y el usuario que inserto el registro en la tabla COMPRAS, esto con el fin de devolverle a ese usuario el campo con el registro autoincrementado?

Así de esta forma, y dentro de la misma transacción insertar el detalle de la orden de compra... ya que necesito el campo aotoincrementado de la tabla COMPRAS, para relacionar estas últimas.


No se si será una buena idea, pero me gustaría saber si se puede hacer esto.
Investigue con el componente TIBEvent, que se puede detectar movimientos en la BD, pero no se si asosiarlo a un usuario específico.

Bueno, les dejo planteada la idea, se alguien tiene alguna mejor, me gustaría mucho leerla.

Slaudos