diff options
Diffstat (limited to 'clients/screens_ib.c')
| -rw-r--r-- | clients/screens_ib.c | 354 |
1 files changed, 354 insertions, 0 deletions
diff --git a/clients/screens_ib.c b/clients/screens_ib.c new file mode 100644 index 0000000..ca35562 --- /dev/null +++ b/clients/screens_ib.c @@ -0,0 +1,354 @@ +#include <dirent.h> +#include <errno.h> +#include <locale.h> +#include <math.h> +#include <ncursesw/ncurses.h> +#include <stdarg.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <strings.h> +#include <sys/stat.h> +#include <sys/wait.h> +#include <time.h> +#include <unistd.h> + +#include "client.h" +#include "tui.h" +#include "formula.h" +#include "util.h" +#include "version.h" +#include "yyjson.h" +#include "ui.h" + +/* ------------------------------------------------------------------ */ +/* ingående balans (series IB) */ +/* ------------------------------------------------------------------ */ + +struct tui_ibrow { + char account[16]; + char amount[32]; + char text[64]; +}; + +/* Loads the net IB per account for the active fiscal year. */ +/* Effective opening balances of the selected year: the year's IB vouchers + plus all earlier movements, exactly what the reports show. */ +static int ib_load(struct app *a, char ***out_acc, int64_t **out_amt, + int *out_n) +{ + *out_acc = NULL; + *out_amt = NULL; + *out_n = 0; + char args[128]; + snprintf(args, sizeof args, + "{\"fiscal_year\":%lld,\"include_zero\":true}", + (long long)a->fy); + char *resp = client_rpc(&a->conn, "report.trial_balance", a->session, + a->org, args); + if (!resp || !client_ok(resp)) { + show_error("Ingående balans", resp); + free(resp); + return -1; + } + size_t n = jarr_size(resp, "result.accounts"); + char **accs = xcalloc(n ? n : 1, sizeof(char *)); + int64_t *amts = xcalloc(n ? n : 1, sizeof(int64_t)); + int count = 0; + for (size_t i = 0; i < n; i++) { + char path[64]; + snprintf(path, sizeof path, "result.accounts.%zu.ib_ore", i); + int64_t ib = jint_val(resp, path, 0); + if (ib == 0) + continue; + snprintf(path, sizeof path, "result.accounts.%zu.account", i); + char *acc = jstr_dup(resp, path); + if (!acc) + continue; + accs[count] = acc; + amts[count] = ib; + count++; + } + free(resp); + *out_acc = accs; + *out_amt = amts; + *out_n = count; + return 0; +} + +static int64_t ib_old_lookup(char **accs, int64_t *amts, int n, + const char *account) +{ + for (int i = 0; i < n; i++) + if (strcmp(accs[i], account) == 0) + return amts[i]; + return 0; +} + +struct ibform { + struct app *a; + struct tui_rt rt; + struct tui_ibrow rows[64]; + char **old_acc; + int64_t *old_amt; + int nold; +}; + +static void ib_cell(void *ud, int row, int col, char **buf, size_t *cap) +{ + struct ibform *ib = ud; + struct tui_ibrow *r = &ib->rows[row]; + if (col == 0) { + *buf = r->account; + *cap = sizeof r->account; + } else if (col == 2) { + *buf = r->amount; + *cap = sizeof r->amount; + } else { + *buf = r->text; + *cap = sizeof r->text; + } +} + +static void ib_info(void *ud, int row, char *buf, size_t n) +{ + struct ibform *ib = ud; + const char *nm = acct_name(ib->a, ib->rows[row].account); + snprintf(buf, n, "%s", nm ? nm : ""); +} + +static void ib_footer(void *ud, char *buf, size_t n) +{ + (void)ud; + snprintf(buf, n, "Positiva belopp = debet, negativa = kredit. Summan ska" + " bli noll."); +} + +static const char *ib_check(struct ibform *ib, int *used_out, char *msg, + size_t msglen) +{ + int64_t sum = 0; + int used = 0; + for (int i = 0; i < ib->rt.nrows; i++) { + if (!ib->rows[i].account[0]) + continue; + if (!acct_exists(ib->a, ib->rows[i].account)) { + snprintf(msg, msglen, "Konto %.15s finns inte (rad %d).", + ib->rows[i].account, i + 1); + return msg; + } + double kr = 0; + if (ib->rows[i].amount[0] && + !parse_x_double(ib->rows[i].amount, &kr)) { + snprintf(msg, msglen, "Ogiltigt belopp på rad %d: '%.20s'.", i + 1, + ib->rows[i].amount); + return msg; + } + sum += (int64_t)llround(kr * 100.0); + used++; + } + if (used == 0) + return "Ange minst ett konto."; + if (sum != 0) { + snprintf(msg, msglen, "Summan måste bli noll (nu %lld öre).", + (long long)sum); + return msg; + } + *used_out = used; + return NULL; +} + +/* Posts the delta against the existing IB so nothing is ever edited. */ +static int ib_post_delta(struct ibform *ib) +{ + struct app *a = ib->a; + yyjson_mut_doc *d = yyjson_mut_doc_new(NULL); + yyjson_mut_val *o = yyjson_mut_obj(d); + yyjson_mut_doc_set_root(d, o); + yyjson_mut_obj_add_strcpy(d, o, "date", a->fy_start); + yyjson_mut_obj_add_strcpy(d, o, "description", "Ingående balans"); + yyjson_mut_obj_add_strcpy(d, o, "series", "IB"); + char *ref = util_random_id("tui-", 8); + yyjson_mut_obj_add_strcpy(d, o, "client_ref", ref); + free(ref); + yyjson_mut_val *arr = yyjson_mut_arr(d); + int posted = 0; + for (int i = 0; i < ib->rt.nrows; i++) { + if (!ib->rows[i].account[0]) + continue; + double kr = 0; + if (ib->rows[i].amount[0] && + !parse_x_double(ib->rows[i].amount, &kr)) + kr = 0; + int64_t new_amt = (int64_t)llround(kr * 100.0); + int64_t prev_amt = + ib_old_lookup(ib->old_acc, ib->old_amt, ib->nold, + ib->rows[i].account); + int64_t delta = new_amt - prev_amt; + if (delta == 0) + continue; + yyjson_mut_val *ro = yyjson_mut_arr_add_obj(d, arr); + yyjson_mut_obj_add_strcpy(d, ro, "account", ib->rows[i].account); + yyjson_mut_obj_add_int(d, ro, "debit_ore", delta > 0 ? delta : 0); + yyjson_mut_obj_add_int(d, ro, "credit_ore", delta < 0 ? -delta : 0); + if (ib->rows[i].text[0]) + yyjson_mut_obj_add_strcpy(d, ro, "description", + ib->rows[i].text); + posted++; + } + for (int i = 0; i < ib->nold; i++) { + int still = 0; + for (int j = 0; j < ib->rt.nrows; j++) + if (strcmp(ib->rows[j].account, ib->old_acc[i]) == 0) { + still = 1; + break; + } + if (!still && ib->old_amt[i] != 0) { + yyjson_mut_val *ro = yyjson_mut_arr_add_obj(d, arr); + yyjson_mut_obj_add_strcpy(d, ro, "account", ib->old_acc[i]); + yyjson_mut_obj_add_int(d, ro, "debit_ore", + ib->old_amt[i] < 0 ? -ib->old_amt[i] : 0); + yyjson_mut_obj_add_int(d, ro, "credit_ore", + ib->old_amt[i] > 0 ? ib->old_amt[i] : 0); + posted++; + } + } + if (posted == 0) { + yyjson_mut_doc_free(d); + tui_message("Ingående balans", "Ingen ändring."); + return 0; + } + yyjson_mut_obj_add_val(d, o, "rows", arr); + char *args = yyjson_mut_write(d, 0, NULL); + yyjson_mut_doc_free(d); + char *resp = + client_rpc(&a->conn, "voucher.post", a->session, a->org, args); + free(args); + if (resp && client_ok(resp)) { + int64_t num = jint_val(resp, "result.number", 0); + tui_message("Ingående balans", + "Sparat som IB %lld (%d justerade rader).", + (long long)num, posted); + free(resp); + return 1; + } + show_error("Kunde inte spara ingående balans", resp); + free(resp); + return 0; +} + +static int ib_form(struct app *a, char **old_acc, int64_t *old_amt, int nold) +{ + struct ibform ib; + memset(&ib, 0, sizeof ib); + ib.a = a; + ib.old_acc = old_acc; + ib.old_amt = old_amt; + ib.nold = nold; + if (nold > 63) { + tui_message("Ingående balans", + "För många konton (%d) för att redigera här.", nold); + return 0; + } + for (int i = 0; i < nold && i < 63; i++) { + snprintf(ib.rows[i].account, sizeof ib.rows[i].account, "%s", + old_acc[i]); + tui_kr_format(old_amt[i], ib.rows[i].amount, + sizeof ib.rows[i].amount); + } + int text_w = COLS - 51; + if (text_w < 6) + text_w = 6; + struct tui_rt_col cols[4] = { + { "Konto", 2, 6, TUI_RT_EDIT }, + { "Namn", 9, 24, TUI_RT_INFO }, + { "Belopp", 34, 14, TUI_RT_EDIT }, + { "Text", 49, text_w, TUI_RT_EDIT }, + }; + tui_rt_init(&ib.rt, nold > 0 ? nold : 1, 64, 4, cols, 5, ib_cell, ib_info, + &ib); + tui_rt_set_footer(&ib.rt, ib_footer); + + for (;;) { + int rr = tui_rt_run("Ingående balans", &ib.rt, + "Tab = byta fält F5 = validera ^X = rensa rad" + " ^Enter = spara Esc = avbryt"); + if (rr == -1) + return 0; + char msg[256]; + int used = 0; + const char *problem = ib_check(&ib, &used, msg, sizeof msg); + if (problem) { + tui_message("Ingående balans", "%s", problem); + continue; + } + if (rr == -2) { + tui_message("Validering OK", "%d konton, summan är noll.", used); + continue; + } + if (ib_post_delta(&ib)) + return 1; + } +} + +struct ibpager { + struct app *a; + char **accs; + int64_t *amts; + int n; +}; + +static int ib_view_key(void *ud, int ch) +{ + struct ibpager *p = ud; + if (ch == 'e' || ch == 'E' || ch == TUI_KEY_CTRL_N) { + if (ib_form(p->a, p->accs, p->amts, p->n)) + return TUI_HOOK_REFRESH; + return TUI_HOOK_STAY; + } + return TUI_HOOK_NONE; +} + +/* The list is a read-only table with no selection: tui_pager shows the + columns and the sum as plain text, and the e/^N keys run the editor. */ +void ib_screen(struct app *a) +{ + for (;;) { + char **accs = NULL; + int64_t *amts = NULL; + int n = 0; + if (ib_load(a, &accs, &amts, &n) != 0) + return; + struct buf t; + buf_init(&t); + buf_line(&t, "Räkenskapsår %s ingående balans (effektiv)\n\n", + a->fy_label); + buf_line(&t, "%-7s%-53s%s\n\n", "Konto", "Namn", "Belopp"); + int64_t sum = 0; + for (int i = 0; i < n; i++) { + sum += amts[i]; + char amount[32], nbuf[128]; + tui_kr_format(amts[i], amount, sizeof amount); + const char *nm = acct_name(a, accs[i]); + snprintf(nbuf, sizeof nbuf, "%s", nm ? nm : ""); + tui_pad_field(nbuf, sizeof nbuf, 50); + buf_line(&t, "%-6s %s %14s\n", accs[i], nbuf, amount); + } + if (n == 0) + buf_line(&t, "Ingen ingående balans registrerad ännu.\n"); + char sumbuf[32]; + tui_kr_format(sum, sumbuf, sizeof sumbuf); + buf_line(&t, "\nSumma: %s\n", sumbuf); + buf_append(&t, "\0", 1); + struct ibpager p = { a, accs, amts, n }; + int ret = tui_pager_hook("Ingående balans", (const char *)t.p, + "e/^N = redigera", 0, ib_view_key, &p); + buf_free(&t); + for (int i = 0; i < n; i++) + free(accs[i]); + free(accs); + free(amts); + if (ret == 0) + return; + } +} |