[leofuentes21]

ok este es el todo el codigo.

el error solo me lo da cuando quiero asignarle otra tarea al empleado.algo curioso es que si vuelvo a elegir de nuevo al empleado que le quiero asignar de nuevo otra tarea lo ace bien y no me da error.

Código Delphi [-]
if X2.Text='12' then
    begin
      ShortDateFormat:='mm/dd/yyyy';
     IF NOT Main.database1.intransaction then Main.database1.StartTransaction;
      try
      QAUTOMATICO.Active:=False;
      QAUTOMATICO.Active:=True;
      with QINGRESAR do
      begin
       SQL.Clear;
      SQL.Text:='INSERT INTO TRABAJOS(AUTOMATICO,COD_EMPLEADO,NOMBRE,IDENTIDAD,CODTAREA,TAREA,FECHA,COD_DEPTO,TIPO_TAREA,PRECIO_U  NITARIO,DEDUC)'
      +'VALUES('+QUOTEDSTR(INTTOSTR(QAUTOMATICO.FIELDBYNAME('AUTOMATICO').AsInteger+1))+','+QUOTEDSTR(LABE  L7.Caption)
      +','+QUOTEDSTR(EDT1.Text)+','+QUOTEDSTR(EDIT1.Text)+','+QUOTEDSTR(X.Text)
      +','+QUOTEDSTR(Edit2.Text)+','+QUOTEDSTR(DateToStr(fecha1.Date))+','+QUOTEDSTR(Edit5.text)
      +','+QUOTEDSTR(Label6.Caption)+','+QUOTEDSTR(CurrToStr(FRACCION2.Value))+','+QUOTEDSTR(CurrToStr(FRA  CCION.Value*FRACCION2.Value))+')';
      ExecSQL;
      end;
      Main.database1.commit;
      except
      main.database1.rollback;
      MessageDlg('Error al guardar',mtError,mbOKCancel,0);
      Exit;
      end;
    end
   else
   begin
    ShortDateFormat:='mm/dd/yyyy';
    if NOT Main.database1.intransaction then Main.database1.StartTransaction;
      try
      QAUTOMATICO.Active:=False;
      QAUTOMATICO.Active:=True;
      with QINGRESAR do
      begin
      SQL.Clear;
      SQL.Text:='INSERT INTO TRABAJOS(AUTOMATICO,COD_EMPLEADO,NOMBRE,IDENTIDAD,CODTAREA,TAREA,FECHA,COD_DEPTO,TIPO_TAREA, PRECIO_UNITARIO,CANTIDAD,PRECIO_TOTAL)'
      +'VALUES('+QUOTEDSTR(INTTOSTR(QAUTOMATICO.FIELDBYNAME('AUTOMATICO').AsInteger+1))+','+QUOTEDSTR(LABE  L7.Caption)
      +','+QUOTEDSTR(EDT1.Text)+','+QUOTEDSTR(EDIT1.Text)+','+QUOTEDSTR(X.Text)
      +','+QUOTEDSTR(Edit2.Text)+','+QUOTEDSTR(DateToStr(fecha1.Date))+','+QUOTEDSTR(Edit5.text)
      +','+QUOTEDSTR(Label6.Caption)+','+QUOTEDSTR(CurrToStr(FRACCION2.Value))
      +','+QUOTEDSTR(CurrToStr(FRACCION.Value))+','+QUOTEDSTR(CurrToStr(FRACCION.Value*FRACCION2.Value))+'  )';
      ExecSQL;
      end;
      main.database1.commit;
     except
       main.database1.rollback;
       MessageDlg('Error al guardar',mtError,mbOKCancel,0);
       Exit;
      end;
     end;