Hola amigos
Estoy migrando una aplicación de Paradox a Firebird 2.0, pero tengo un problema al querer insertar un registro.
Ya he probado varias alternativas que he encontrado, pero ninguna de ellas me inserta el registro, no me muestra ningún error ni nada que me indique que esta pasando.
Aqui pongo las diferentes maneras como he tratado de hacerlo.
Código Delphi
[-]
with DataModule1 do begin
Llamadas.Active := False;
Llamadas.Active := True;
LLamadas.Insert;
Llamadas.FieldByName('Fecha').Value := StrToDate(Fecha);
Llamadas.FieldByName('Extension').Value := Extension;
Llamadas.FieldByName('Hora').Value := StrToTime(HoraLlamada);
Llamadas.FieldByName('Prefijo').Value := Prefijo;
Llamadas.FieldByName('Numero').Value := Numero;
Llamadas.FieldByName('Codigo').Value := Fac;
Llamadas.FieldByName('Departamento').Value := Nivel1;
Llamadas.FieldByName('CCostos').Value := Nivel2;
Llamadas.FieldByName('Troncal').Value := Troncal;
Llamadas.FieldByName('Carrier').Value := Carrier;
Llamadas.FieldByName('Ciudad').Value := Ciudad;
Llamadas.FieldByName('Estado').Value := Estado;
Llamadas.FieldByName('SMedido').Value := SMedido;
Llamadas.FieldByName('Costo').Value := CostoLla;
Llamadas.FieldByName('Iva').Value := Iva;
Llamadas.FieldByName('Duracion').Value := Duracion;
Llamadas.FieldByName('DurEntera').Value := Round(DurEntera);
Llamadas.FieldByName('ExtensionOrigen').Value := ExtOrigen;
Llamadas.FieldByName('Empresa').Value := Empresa;
Llamadas.Post;
Llamadas.Transaction.Commit;
end;
Como les explico, en ninguna de ellas me muestra error, pero no se agregan los registros en la tabla.
¿Que estoy haciendo mal?
Salud OS.