Modo de edicion componente Firebird

[JosepGA]

hola, si puedes poner ejemplo del código fuente mejor, para ver si estas haciendo algo incorrecto. Por otro lado ¿ Estas traceando el código ? Te lo digo, por que dependiendo de los eventos, te puede pasar que al hacer el insert se este cancelando por que entre a algún evento que cause la interrupción del Insert.

Por otro lado, a que te refieres con que usas componentes de Firebird. ¿ Te refieres a los componentes de conexión ? ¿ A los de edición ?

[shany]

Espero se entienda, muchas gracias por la atencion.

procedure TFMovimientos.SpBtnAreasClick(Sender: TObject);
var
FAgregarAreas :TFAgregarAreas;
begin
try
FAgregarAreas := TFAgregarAreas.Create(Self);
with DMHelpDesk do
begin
FAgregarAreas.EFolioLetra.Text:=pFIBDSViewReportesFOLIO.value + pFIBDSViewReportesIDLETRA.value;
pFIBDSReportesAreas.active:=false;
pFIBDSReportesAreas.Params[0].Value:=pFIBDSRepAreaEdoIDREPORTE.value;//pFIBDSReportesIDREPORTE.Value;
pFIBDSReportesAreas.active:=true;
pFIBDSReportes.Active:=FALSE;
pFIBDSReportes.Params[0].Value:=pFIBDSViewReportesFOLIO.value;//******activo el dataset
pFIBDSReportes.Active:=TRUE;
FAgregarAreas.idreporte:=pFIBDSRepAreaEdoIDREPORTE.value
end;
FAgregarAreas.ShowModal;
finally
FAgregarAreas.Free;
end;
end;


procedure TFAgregarAreas.SpBtnAceptarClick(Sender: TObject);
begin
with DMHelpDesk do
begin
if(pFIBDSReportesAreas.STATE<>dsinsert)then //****este es el dataset que me trae problemas con los combos lookup
begin
pFIBDSReportesareas.append;//y revalido que se ponga en insert otra vez porq tan solo con dar un click
end; //en el combo se quita el estado de append que puse al inicio, sin tener eventos en ellos.

pFIBDSReportesAreasIDAREA.value:=pFIBDSAreasIDAREA.value;
pFIBDSReportesAreasIDSERVICIO.value:=pFIBDSIdServicioAreaIDSERVICIO.value;

try
begin
If not pFIBDSReportesAreas.IsEmpty then
begin
pFIBDSReportesAreas.Post;
if(pFIBDSReportes.STATE<>dsedit)then
begin
pFIBDSReportes.edit; //***aqui intento poner el dataset en edicion y sigue en insert
end;

pFIBDSReportes.Post;
DMMov.pFIBTMov.CommitRetaining;
end;
end;
except
pFIBDSReportesAreas.Cancel;
pFIBDSReportes.cancel;
DMMov.pFIBTMov.RollbackRetaining;
Application.MessageBox('Ha ocurrido un error con el registro'#13'Favor de verificar la información introducida','Error',MB_OK+MB_ICONERROR);
end;




procedure TDMHelpDesk.pFIBDSReportesAreasBeforePost(DataSet: TDataSet);
begin
with DMHelpDesk do
begin
if pFIBDSReportesAreasIDAREA.IsNull then
begin
Application.MessageBox('Debe Seleccionar el area','Error',MB_OK+MB_ICONERROR);
exit;
end
else
if pFIBDSReportesAreasIDSERVICIO.IsNull then
begin
Application.MessageBox('Debe Seleccionar el servicio','Error',MB_OK+MB_ICONERROR);
exit;
end;
//OBT RA
pFIBDSGet_IdRA.active:=true;
pFIBDSReportesAreasIDRA.value:=pFIBDSGet_IdRAIDRA.value;
pFIBDSGet_IdRA.active:=false;
pFIBDSReportesAreasIDREPORTE.value:=pFIBDSReportesIDREPORTE.value;
pFIBDSReportesAreasESTADO.value:='R';
pFIBDSReportesAreasFASIGNADO.Value:=now;
//update
pFIBDSReportes.Edit; /*******esta es la parte donde trato de poner el modo y me pone insert
pFIBDSReportesESTADO.value:='P';
pFIBDSReportesFECHAAREASERV.value:=now;
end;
end;

//este es el unico evento que tengo para el dataset problema de reportes pero no creo que tnga nada de malo
procedure TDMHelpDesk.pFIBDSReportesCalcFields(DataSet: TDataSet);
begin
if pFIBDSReportesESTADO.value = 'R' then
pFIBDSReportesCCEstado.Value:= 'R - Recibido'
else
if pFIBDSReportesESTADO.value = 'P' then
pFIBDSReportesCCEstado.Value:= 'P - Proceso'
else
if pFIBDSReportesESTADO.value = 'T' then
pFIBDSReportesCCEstado.Value:= 'T - Terminado'
else
if pFIBDSReportesESTADO.value = 'C' then
pFIBDSReportesCCEstado.Value:= 'C - Concluido';
end;

[shany]

conexion
pfibdatabase

transaccion
pfibtransaction

dataset
pfibdataset


y si, si traceo por eso me di cuenta que no me deja poner edit en vez de insert.

no entiendo porque.

[JosepGA]

hola, ¿ has mirado el estado en concreto, no sea que sea distinto de dsBrowse ? ¿ Y si en el datasource del combo asignas al principio Nil y luego al final le asignas el DataSource ? Para ver si interfiere, y si es así, al menos de este modo no te afectara.

[ecfisa]

Hola shany.

¿ Creaste algún trigger o procedimiento que pueda afectar a pFIBDSReportesAreas ?


Saludos.

[shany]

fue una tonteria de mi parte, tenia una consulta con un filtro que use en otro modulo y pues siempre me regresaba vacio y pues no habia nada que editar por eso lo ponia en insert.

muchas gracias por su interes y aprecio su amable ayuda!