Ver Mensaje Individual
  #18  
Antiguo 21-08-2012
Avatar de jafera
jafera jafera is offline
Miembro
 
Registrado: may 2007
Ubicación: Llagostera (Girona)
Posts: 582
Reputación: 18
jafera Va por buen camino
Solucionado.

El problema del NOT IN EDIT MODE, no estaba en las lineas puestas, estaba en las lineas siguientes:

Código Delphi [-]
 
procedure TF_ModulDades.RebutFPNewRecord(DataSet: TDataSet);
begin
        RebutFPI1.Value := 'N';
        RebutFPI2.Value := 'N';
        RebutFPI3.Value := 'N';
        RebutFPI4.Value := 'N';
        RebutFPI5.Value := 'N';
        RebutFPI6.Value := 'N';
        RebutFPI7.Value := 'N';
        RebutFPI8.Value := 'N';
        RebutFPI9.Value := 'N';
        RebutFPI10.Value := 'N';
        RebutFPTI1.Value := 0;
        RebutFPTI2.Value := 0;
        RebutFPTI3.Value := 0;
        RebutFPTI4.Value := 0;
        RebutFPTI5.Value := 0;
        RebutFPTI6.Value := 0;
        RebutFPTI7.Value := 0;
        RebutFPTI8.Value := 0;
        RebutFPTI9.Value := 0;
        RebutFPARBITRES.Value := 0;
        RebutFPMATERIAL.Value := 0;
        RebutFPTOTAL_REBUT.Value := 0;
        RebutFPSUSPENSIO.Value := 'N';
        RebutFPFEINER.Value := IncrementsFEINER.Value;
        RebutFPDOS_SECTORS.Value := IncrementsDOS_SECTORS.Value;
        RebutFPCAMPIONAT.Value := IncrementsCAMPIONAT.Value;
        RebutFPINF.Value := IncrementsINF.Value;
        RebutFPANTIDOPING.Value := IncrementsANTIDOPING.Value;
        RebutFPSUSP.Value := IncrementsI10.Value;
        RebutFPFORA_PROV.Value := IncrementsFORA_PROV.Value;
        RebutFPPREU_KM.Value := IncrementsPREU_KM.Value;
        F_ModulDades.RebutFPID_USUARI.Value := F_Inici.Usuari;   // aqui yo tenia puesto F_ModulDades.RebutID_USUARI.Value := F_Inici.Usuari;
end;
 
Cosas del cortar y pegar.
 
Gracias a todos
 
Saludos
Responder Con Cita