with DataModule1 do begin
DataModule1.BeginTrans; 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;
DataModule1.CommitTrans; Llamadas.Transaction.Commit;