Update registro

[yevabas]

Hola caral

Gracias por tu tiempo y por responder tan rapido, mira lo que tengo en el doble click es

Código Delphi [-]
procedure TForm1.GrdLoDiDblClick(Sender: TObject);
begin
     TbLoDi.Edit;

     Vedi := True;
     JvgPageControl1.ActivePage:= ts3;

end;

esto me lleva a otra pagina donde se encuentran los dbedit, entonces tengo lo siguiente

Código Delphi [-]
procedure TForm1.ts3Enter(Sender: TObject);
begin
       if Vedi then
         begin
            TbVentas.Insert;
      
            dbePIEDRAS2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('PIEDRA_NL').AsInteger);
            dbeTIPO_VE.Text := 'V';

      
            dbeCUAD2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CUAD_NL').AsInteger);
            dbeREDO2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('REDO_NL').AsInteger);
            dbeOVAL2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OVAL_NL').AsInteger);
            dbeLAGR2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('LAGR_NL').AsInteger);
            dbeCORA2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CORA_NL').AsInteger);
            dbeCAUC2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CAUC_NL').AsInteger);
            dbeDROP2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('DRP_NL').AsInteger);
            dbeOtr2.Text  := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OTRAS_NL').AsInteger);
            dbeTPIED_VEN.Text :=IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('TPIED_NL').AsInteger);
            cbbLoDi.ItemIndex := cbbMoVe.ItemIndex;
            lbl77.Caption := cbbMoVe.Text;
            lbl78.Caption := cbbMoVe.Text;
            dbeMONED_VEN.Text := cbbMoVe.Text;
            dbeKilaC.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('KILATES_NL').AsFloat);
            dbeVAL_KIL1.Text:= FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_KIL_NL').AsFloat);
            dbeVAL_TO4.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_TO_NL').AsFloat);
      
         end;
end;

Aqui ya estan todos los campos que necesito pasar a los dbedit, la tabla lotes tambien tiene un campo autoincrementado, pero no lo necesito visualizar en el dbgrid,

[[Caral]]

Hola
La verdad no veo el campo status por ningun lado, lo estas llamando diferente?.
El concepto es sencillo, al igual que le colocas el valor a los demas DBEdit lo haces con este otro, solo que ne vez de usar el dato del dataset usas un texto en este caso 'I'.
Saludos

[yevabas]

lo que pasa es que el campo status se encuentra en en la tabla lote, y aqui estoy llevando los campos a la tabla venta y en esta no tengo status solo esta en lote...

[[Caral]]

Hola
Entonces no se a donde quieres poner el dato si dices que es a un dbedit?.
Saludos

[yevabas]

Dejame ver si me puedo hacer entender.

Tengo una tabla llamada Nlote, en esta tabla tiene los siguientes campos:

Código SQL [-]
CREATE TABLE NLOTE (
    ID_NL       INTEGER DEFAULT 0 NOT NULL,
    FECHA_NL    DATE NOT NULL,
    PIEDRA_NL   INTEGER NOT NULL,
    CUAD_NL     INTEGER NOT NULL,
    REDO_NL     INTEGER NOT NULL,
    CORA_NL     INTEGER NOT NULL,
    LAGR_NL     INTEGER NOT NULL,
    OVAL_NL     INTEGER NOT NULL,
    CAUC_NL     INTEGER NOT NULL,
    DRP_NL      INTEGER NOT NULL,
    OTRAS_NL    INTEGER NOT NULL,
    TPIED_NL    INTEGER NOT NULL,
    KILATES_NL  FLOAT NOT NULL,
    VAL_KIL_NL  FLOAT NOT NULL,
    VAL_TO_NL   FLOAT NOT NULL,
    STATUS      VARCHAR(1),
    MONED_NL    VARCHAR(5) NOT NULL,
    SOBRE       SMALLINT NOT NULL
);

y tengo otra tabla llamada ventas y tiene los siguientes campos:

Código SQL [-]
CREATE TABLE VENTAS (
    CONSEC_VEN   INTEGER NOT NULL,
    FECHA_VEN    DATE NOT NULL,
    PIEDRAS_VEN  INTEGER NOT NULL,
    CUAD_VEN     INTEGER NOT NULL,
    REDO_VEN     INTEGER NOT NULL,
    CORA_VEN     INTEGER NOT NULL,
    LARG_VEN     INTEGER NOT NULL,
    OVAL_VEN     INTEGER NOT NULL,
    CAUC_VEN     INTEGER NOT NULL,
    DROP_VEN     INTEGER NOT NULL,
    TPIED_VEN    INTEGER NOT NULL,
    KILATES_VEN  FLOAT NOT NULL,
    VAL_KIL_VEN  FLOAT NOT NULL,
    VAL_TO_VEN   FLOAT NOT NULL,
    COMPR        VARCHAR(40) NOT NULL,
    OTRAS_VEN    INTEGER NOT NULL,
    MONED_VEN    VARCHAR(5) NOT NULL,
    TIPO_VE      VARCHAR(1) NOT NULL
);

en la primera tabla se conforman un grupo de articulos y lleva en STATUS UNA 'A' que le puse para activo, que todavia se tiene, esto lo visualizo en el dbgrid, pero cuando le doy doble click sobre la la fila es que se vendio entonces paso todos los datos a los dbedit que apuntas a la tabla ventas y solo llevo los campos que me interesan, pero ahi en ese momento la tabla nlotes ese registro en su campo STATUS debe cambiar de 'A' a 'I', por decir algo.

Entonces debo editar la tabla nlotes y actualizar el campo STATUS de ese registro que le di doble click en el debgrid.

No si si quedo mas claro o todavia es confuso....


gracias....

[[Caral]]

Hola
Espero que vieras la siguiente respuesta que di, posteamos a la vez y no se si la viste.
Saludos

[[Caral]]

Hola
Actualizar la tabla LOTE:
Coloca un query en el form que actualiza, llamalo IBQueryTemp y añade el final del codigo a lo que tienes:

Código Delphi [-]
procedure TForm1.ts3Enter(Sender: TObject);
begin
       if Vedi then
         begin
            TbVentas.Insert;
      
            dbePIEDRAS2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('PIEDRA_NL').AsInteger);
            dbeTIPO_VE.Text := 'V';

      
            dbeCUAD2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CUAD_NL').AsInteger);
            dbeREDO2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('REDO_NL').AsInteger);
            dbeOVAL2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OVAL_NL').AsInteger);
            dbeLAGR2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('LAGR_NL').AsInteger);
            dbeCORA2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CORA_NL').AsInteger);
            dbeCAUC2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CAUC_NL').AsInteger);
            dbeDROP2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('DRP_NL').AsInteger);
            dbeOtr2.Text  := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OTRAS_NL').AsInteger);
            dbeTPIED_VEN.Text :=IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('TPIED_NL').AsInteger);
            cbbLoDi.ItemIndex := cbbMoVe.ItemIndex;
            lbl77.Caption := cbbMoVe.Text;
            lbl78.Caption := cbbMoVe.Text;
            dbeMONED_VEN.Text := cbbMoVe.Text;
            dbeKilaC.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('KILATES_NL').AsFloat);
            dbeVAL_KIL1.Text:= FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_KIL_NL').AsFloat);
            dbeVAL_TO4.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_TO_NL').AsFloat);
      
         end;
       // query que hace el update de status tabla LOTE
      IBQueryTemp.Sql.Text:= 'Update Lote set Status = ''I'' where ID = '+
                             IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('ID').AsInteger);
      IBQueryTemp.ExecSQL;

end;

Saludos

[yevabas]

Gracias Caral

Funciona muy bien, de nuevo muchas gracias por tu paciencia y tiempo.....