mRoman gracias por responder, las tres lineas de otro color son las que tengo para capturar esos datos
este es el codigo de mi boton guardar
Código Delphi
[-]procedure TfrmRequisicion.ActSaveExecute(Sender: TObject);
begin
try
dmMain2.tblRequisicionHdr.FieldByName('USUARIO').AsString := Usuario;
dmMain2.tblRequisicionHdr.FieldByName('POR_COBRAR').AsBoolean := ckPorCobrar.Checked;
dmMain2.tblRequisicionHdr.Post;
except
on e: Exception do
end;
dnData.Buttons.Post.Click;
dmMain2.muInsertarRequisicion.ParamByName('NUM_REQUISICION').AsInteger := dmMain2.tblRequisicionHdr.FieldByName('NUM_REQUISICION').AsInteger;
dmMain2.muInsertarRequisicion.ParamByName('POR_COBRAR').AsBoolean := ckPorCobrar.Checked;
dmMain2.muInsertarRequisicion.ParamByName('COD_PROVEEDOR').AsString := cblProveedores.EditValue;
dmMain2.muInsertarRequisicion.ParamByName('NUM_OT_TRABAJO').AsInteger := cblOrdenTrabajo.EditValue;
dmMain2.muInsertarRequisicion.ParamByName('ID_PROYECTO').AsInteger := cblProyectos.EditValue;
end;
dmMain2.muInsertarRequisicion.Open;
dmMain2.muInsertarRequisicion.Close;
btnSave.Enabled := False;
btnNew.Enabled := True;
gbDatos.Enabled := False;
dnData.Enabled := False;
gvData.Enabled := False;
DisplayReport(dmMain2.tblRequisicionHdr.FieldByName('NUM_REQUISICION').AsString);
dmMain2.tblRequisicionHdr.Filtered := False;
end;
en mi dataset tengo este codigo para guardar esas lineas
Código SQL
[-]UPDATE INV_REQUISICION_HDR
SET POR_COBRAR = :POR_COBRAR,
COD_PROVEEDOR = :COD_PROVEEDOR,
NUM_OT_TRABAJO = :NUM_OT_TRABAJO,
ID_PROYECTO = :ID_PROYECTO
WHERE NUM_REQUISICION = :NUM_REQUISICION