problema con una consulta

[leofuentes21]

Hola amigos espero tengan un buen dia todos.
Espero me puedan ayudar con un problemita que tengo.me disculpan sino me se explicar bie.
estoy trabajando con una base en firebire el problema es el siguiente:

lo que hago es hacer una consulta y me la muestra en unos edits la informacion de x empleado,y con otra consulta me muestra en otros edits las tareas que asigno al empleado.
Cuando asigo la tarea y la guardo la primera ves la guarda bien y me la muestra en el grid pero cuand quiero asignarle otra tarea me da este error.

'invalid modify request' conversion error from string. process stopped.


este es mi codigo.

Código Delphi [-]
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;

de adelantado gracias por su ayuda.

[[Caral]]

Hola
Podria ser que necesites hacer un commitTrans, o un commit en el Transaction.
Por otro lado, te recomiendo usar parametros.
Saludos

[leofuentes21]

de echo si tengo la consulta en transaccion.pero no funciona no se porque me da el error

[Casimiro Notevi]

Pues pon todo el código fuente que lo veamos.

[[Caral]]

Hola

Empezado por Casimiro Notevi

Pues pon todo el código fuente que lo veamos.

Y donde queda el asunto de adivinar de que se trata, asi se pierde emocion...
Saludos

[Casimiro Notevi]

Empezado por Caral

Hola
Y donde queda el asunto de adivinar de que se trata, asi se pierde emocion...
Saludos

Eso es cierto, la solución se daría al instante y luego nos aburriríamos sin saber qué hacer

[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;

[[Caral]]

Hola
Este error es muy normal cuando un dato no es el correcto:
conversion error from string
1. Usar parametros.
2. Revisar que los datos sean y esten correctos.
Saludos