169 похожих чатов

Вот как на Ф выглядит запрос к БД. Из прода: let

getTherapyProgram (dbFactory: unit -> CoreDb) programId =
async {
use db = dbFactory()
let! programRow =
query {
for p in db.TherapyPrograms do
where (p.Id = programId)
groupJoin pr in db.ReceptionProtocols
on (p.Id =? pr.TherapyProgramId) into res
for pr in res.DefaultIfEmpty() do
select {|
ProgramId = p.Id
PatientId = p.PatientId
ProtocolId = Nullable pr.Id
State = p.State
DiagnosisId = p.DiagnosisId
DiagnosisKind = p.DiagnosisKind
AttachedToId = p.AttachedDoctorId
SignedDate = p.SigningTime
|}
} |> Query.tryHeadAsync

let! itemsRows = db.ProgramItemDetails programId
|> Query.toListAsync
let items =
itemsRows
|> List.groupBy (fun p -> {| ItemId = p.ItemId; ServiceId = p.ServiceId; Count = p.Count; Provided = p.Provided; HasSatellites = p.HasSatellites; |})
|> List.map (fun (k, det) ->
let details =
det
|> List.map (fun p ->
let protocol: Program.Protocol option =
if p.ProtocolId.HasValue && p.Signed.HasValue && p.Signed.Value then
let pr: Program.Protocol = {
ProtocolId = p.ProtocolId.Value
IsSigned = p.Signed.Value
SignDate = p.SignDate |> Option.ofNullable
}
Some (pr)
else
None
{
//ProtocolId = p.ProtocolId |> Option.ofNullable
Protocol = protocol
IsProvided = p.IsProvided
AtDate = p.AtDate |> Option.ofNullable
ByDoctor = p.ByDoctor |> Option.ofNullable
HasAttachments = p.HasFiles

})
|> List.filter (fun p -> p.AtDate.IsSome)
|> List.sortByDescending (fun p -> p.AtDate)

let head = {
ItemId = k.ItemId
ServiceId = k.ServiceId
Count = k.Count
Provided = k.Provided


//ProtocolId = details.Head.ProtocolId
Protocol = details |> List.map (fun p -> p.Protocol) |> List.choose id |> List.tryHead

1 ответов

18 просмотров

выглядит как несколько запросов) но вообще норм)

Похожие вопросы

Обсуждают сегодня

Добрый вечер. Есть вопрос, а может и предложение. Был у меня диалог в другой группе о делфи и я задался вопросом: "А нельзя ли в делфи цвет //коментария и {комментария} сде...
Kraszx
24
Всем привет! Подскажи, пожалуйста, как передать в TComboBox сразу значение и id записи. На Delphi я делал так: ComboBox1.Items.AddObject('Какое-то значение', Pointer(id запис...
Евгений
13
Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
Товарищи, кто работа с iphelper? Или может я в самой логике ошибки фигачу, не пойму.... var ifTable : PMIB_IFTABLE; size, corSize: DWORD; Buffer ...
Warfarellen
4
я так понимаю, я так подозреваю, что создание такого плагина для человека, кто умеет писать плагины для делфи потребует минут 5-10 времени. но это мое подозрение. хотелось бы ...
Kraszx
7
Коллеги, добрый вечер. Создаю коллекцию от TFPGMap, ключ - перечисление, значение - целое. Нужно отсортировать коллекцию по значению. Как это можно сделать?
Kirill Filippenok
11
Скажи а ты когда этот канал создавал ты уже дельфи не любил, или это со временем пришло?
Роман Лях (rgreat)
18
Привет, такой вопросик появился кажется ли вам что Rust слишком сложный/строгий для высокоуровневого программирования и слишком "безопасный"/строгий для низкоуровневого?
Крокант
10
Всем привет! Использую кастомное модальное диалоговое окошко, все по классике - mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработч...
Олег Гранишевский
20
Карта сайта