7 respuestas en este tema

[JoAnCa]

Hola a todos
Tengo una aplicación que debe calcular los datos de una prenomina, basandose en otros campos de otras tablas.
Pero en algunos casos me da el error q muestro en la imagen adjunta

La logica del formulario es:
- Seleccionar el area de trabajo y se filtran los datagrid (2 datagrid)
- Clic en boton Calcular y hace los cálculos de las prenominas de cada datagrid

Depurando veo que el error lo da cuando hago el post para guardar el registro

Que podra estar pasando?

El error sale solo en un area, al guardar determinado trabajador, en las otras hace los calulos bien.

Pensando en problemas con ese trabajador, lo elimino, y el error lo da en otro cualquiera


Los datagrid los baso en una consulta de mysql, que es editable

Archivos adjuntos

•  errorfiredac.png   12,96KB   1 descargas

Editado por JoAnCa, 28 septiembre 2018 - 09:27 .

[enecumene]

Puede ser que las tablas donde se haga un update no tiene clave primaria.

[JoAnCa]

Puede ser que las tablas donde se haga un update no tiene clave primaria.

Pues si tiene clave primaria, incluso a la consulta tambien se la paso

[enecumene]

El error lo dice claro, un poco de código tal vez pueda ser de ayuda.

[JoAnCa]

Quizas la logica que uso no sea la mas adecuada, por lo que cualquier sugerencia para cambiarla sera aceptada.

El problema es que tengo una tabla prenominas, pero al calcular tengo que dividirla en dos, los miembros de la direccion y los consultores.
Entonces hago dos consultas basadas en prenomina, una para la direccion del area y otra para los consultores de esa area, y los muestro en sus datagrid respectivos.

Al calcular, las formulas de los 2 casos son diferentes, pero la cantidad de salario a distribuir es comun para los dos.

En una ocasion el error me lo dio en la consulta de la direccion de la 2da area, vacie la tabla y despues me lo da en la consulta de los consultores en la 6ta area.

Es decir, que da el error arbitrariamente ??

Este es el codigo que uso en el boton Calcular

delphi

with ModuloBD do
  begin
    //--- Direccion del Grupo de Trabajo ---
    TDeveng:=0; TAjust:=0; TPenal:=0;
    fdtPrenomGTDir.First;
    fdtPrenomGTDir.DisableControls;
    while not fdtPrenomGTDir.Eof do
    begin
      fdtPrenomGTDir.Edit;
        fdtPrenomGTDirSalarioNeto.Value:=fdtPrenomGTDirSalarioAjust.Value + fdtPrenomGTDirEstimAdic.Value;
        fdtPrenomGTDirEstimulac.Value:=fdtPrenomGTDirSalarioNeto.Value - fdtPrenomGTDirSalarioDeveng.Value;
        // Calcular el formado
        if fdtPrenomGTDirIngresos.Value > 0 then
          SalForm:=fdtPrenomGTDirIngresos.Value * fdtAuxiliarCDSEspPrinc.Value
        else
        begin
          //--- Si es el Esp. Princiapal ---
          if fdtPrenomGTDirIDSUBCAT.Value = 7 then
            if frmSisleg.CantTrabGT > 0 then SalForm:=(fdtIngxGruposMontoADist.Value / frmSisleg.CantTrabGT) * fdtPrenomGTDirSalarioDeveng.Value / fdtPrenomGTDirSalarioBasico.Value
            else SalForm:=0
          //--- Si es la Contadora
          else
            if frmSisleg.CantTrabGT > 0 then SalForm:=(fdtIngxGruposMontoADist.Value / frmSisleg.CantTrabGT) * fdtPrenomGTDirSalarioDeveng.Value / fdtPrenomGTDirSalarioBasico.Value * 50 / 100
            else SalForm:=0
        end;
        fdtPrenomGTDirSalarioFormado.Value:=SalForm;
      fdtPrenomGTDir.Post;
      //--- Totalizar ---
      TAjust:=TAjust + fdtPrenomGTDirSalarioAjust.Value;
      TPenal:=TPenal + fdtPrenomGTDirPenalizacion.Value;
      fdtPrenomGTDir.Next;
    end;
    fdtPrenomGTDir.First;   fdtPrenomGTDir.Refresh;
    fdtPrenomGTDir.EnableControls;
    qryTotPrenomGTDir.Refresh;
    TDeveng:=dbtxtTotSalEsc.Field.Value + dbtxtTotDFer.Field.Value + dbtxtTotOtrosP.Field.Value;
    lblDevengDG.Caption:=FloatToStrF(TDeveng, ffNumber, 6, 2);
    lblSalAjustDG.Caption:=FloatToStrF(TAjust, ffNumber, 6, 2);
    lblTotPenalDG.Caption:=FloatToStrF(TPenal, ffNumber, 6, 2);
 
    //--- Consultores ---
    fdtPrenomGTCons.Refresh;
    TDeveng:=0; TAjust:=0; TPenal:=0;
    fdtPrenomGTCons.DisableControls;
    fdtPrenomGTCons.First;
    while not fdtPrenomGTCons.Eof do
    begin
      fdtPrenomGTCons.Edit;
        fdtPrenomGTConsSalarioNeto.Value:=fdtPrenomGTConsSalarioAjust.Value + fdtPrenomGTConsEstimAdic.Value;
        fdtPrenomGTConsEstimulac.Value:=fdtPrenomGTConsSalarioNeto.Value - fdtPrenomGTConsSalarioDeveng.Value;
        // Calcular el formado
        if fdtPrenomGTConsIngresos.Value > 0 then
          SalForm:=fdtPrenomGTConsIngresos.Value * StrToFloatDef(lblCDSCons.Caption, 0)
        else
          SalForm:=0;
        fdtPrenomGTConsSalarioFormado.Value:=SalForm;
      fdtPrenomGTCons.Post;
      //--- Totalizar ---
      TAjust:=TAjust + fdtPrenomGTConsSalarioAjust.Value;
      TPenal:=TPenal + fdtPrenomGTConsPenalizacion.Value;
      fdtPrenomGTCons.Next;
    end;
    fdtPrenomGTCons.First;  fdtPrenomGTCons.Refresh;
    fdtPrenomGTCons.EnableControls;
    qryTotPrenomGTCons.Refresh;
    TDeveng:=dbtxtTotSalEsc1.Field.Value + dbtxtTotDFer1.Field.Value + dbtxtTotOtrosP1.Field.Value;
    lblDevengCons.Caption:=FloatToStrF(TDeveng, ffNumber, 6, 2);
    lblSalAjustCons.Caption:=FloatToStrF(TAjust, ffNumber, 6, 2);
    lblTotPenalCons.Caption:=FloatToStrF(TPenal, ffNumber, 6, 2);
  end;

Editado por JoAnCa, 28 septiembre 2018 - 11:19 .

[enecumene]

A ver, cuando haces la prenomina, estas actualizando ó insertando datos nuevos?, si es insertando, estás haciendo un edit que es editar en de vez insert ó append.

[JoAnCa]

A ver, cuando haces la prenomina, estas actualizando ó insertando datos nuevos?, si es insertando, estás haciendo un edit que es editar en de vez insert ó append.

Al calcular lo que hago es actualizar la tabla, escribiendo algunos datos calculados que necesito usar despues. Por eso uso edit

[JoAnCa]

Pues parece que ya se soluciono el problema

Lo que hice fue:
- Inclui en la vista las 2 llaves de la relacion (pues tenia solo la del lado muchos)
- Asigne la llave en la propiedad UpdateOptions.KeyFields

Despues de estos arreglos, probe calculando varias veces en cada area, y no me ha dado mas el error