Up to [Platon] / tucniak / lib

Initial import

// Copyright (c) 2003,2004,2005 Juraj Kolesár <koli@koli.sk>               
#include "lt.h"
/* init {{{ *******************************************************************/
int lt_s_input_data_init(T_INPUT *input) {
    register int i;
    for (i=0;i<__LT_S_INPUT_PARAM_COUNT;i++) input->status[i] = false;
    SET_CELL(input->pk,     "", "pk_s_inputs",     0);
    SET_CELL(input->code,    "", "code",         10);
    SET_CELL(input->date,    "", "date",         30);
    SET_CELL(input->letter,    "", "letter",        15);
    SET_CELL(input->where,    "", "",                15);
    SET_CELL(input->from,    "", "",                15);
    input->items.table = NULL;
    return(__LT_OK);
}
/* }}} */
/* new {{{ ********************************************************************/
int lt_s_input_new(T_DB *tdb, T_INPUT *input) {
//    tdb_query_cell(tdb, input->code.value, "SELECT MAX(code) FROM s_inputs");
//    str_inc(input->code.value);
    tdb_query(tdb, 
        "INSERT INTO s_inputs (fk_a_letters, code, date) " 
        "VALUES ('0', '', '00000000')");
    tdb_query_lastid(tdb, input->pk.value);
    input->status[__LT_S_INPUT_PK] = true;
    return(__LT_OK);
}
/* }}} */
/* save {{{ ********************************************************************/
int lt_s_input_save(T_DB *tdb, T_INPUT *input) {
    tdb_query_cell(tdb, input->code.value, "SELECT MAX(code) FROM s_inputs");
    str_inc(input->code.value);
    tdb_query(tdb, g_strdup_printf(
        "UPDATE s_inputs SET code = '%s',date = '%s' WHERE pk_s_inputs = '%s'",
        input->code.value, input->date.value, input->pk.value));
    return(__LT_OK);
}
/* }}} */
/* remove blind {{{ ***********************************************************/
int lt_s_input_remove_blind(T_DB *tdb, T_INPUT *input) {
    tdb_query(tdb, g_strdup_printf(
        "DELETE FROM s_inputs WHERE pk_s_inputs = '%s'", input->pk.value));
    return(__LT_OK);
}
/* }}} */
/* qs init {{{ ****************************************************************/
int lt_s_input_qs_init(T_INPUT *input, T_COLS **cols, T_QS *qs) {
    *cols = g_slist_append(*cols, &(input->pk));
    *cols = g_slist_append(*cols, &(input->code));
    *cols = g_slist_append(*cols, &(input->date));
    *cols = g_slist_append(*cols, &(input->from));
    *cols = g_slist_append(*cols, &(input->letter));
    if (strlen(qs->columns) == 0) 
        strcpy(qs->columns, "pk_s_inputs, code, date");
            //tdb_qs_set_columns(qs, *cols);
    if (strlen(qs->from) == 0)     
        strcpy(qs->from, "s_inputs");
    return(__LT_OK);
}
/* }}} */
/* item add {{{ ***************************************************************/
int lt_s_input_item_add(T_INPUT *input, T_ITEM *item, int count) {
    T_ROW *row = NULL;
    row = g_slist_append(row, g_strdup_printf("%s", item->pk.value));
    row = g_slist_append(row, g_strdup_printf("%s", item->name.value));
    row = g_slist_append(row, g_strdup_printf("%i", count));
    row = g_slist_append(row, g_strdup_printf("%s", item->messure.name));
    row = g_slist_append(row, g_strdup_printf("%s", item->price.value));
    row = g_slist_append(row, g_strdup_printf("%i", 
                            count * atoi(item->price.value)));
    input->items.table = g_list_append(input->items.table, row);
    input->items.table = g_list_last(input->items.table);
    return(__LT_OK);
}
/* }}} */
/* items set {{{ **************************************************************/lt_s_input_items_set(T_DB *tdb, T_INPUT *input) {
    T_TABLE *table = g_list_first(input->items.table);
    T_ROW *row;
    char *count;
    char *pk_item;
    char *price;
    while (table != NULL) {
        row = table->data;
        pk_item = row->data;
        row = g_slist_next(g_slist_next(row));
        count = row->data;
        row = g_slist_next(g_slist_next(row));
        price = row->data;
        tdb_query(tdb, g_strdup_printf(
            "INSERT INTO s_add (fk_s_inputs, fk_s_items, count, price) " 
            "VALUES ('%s', '%s', '%s', '%s')",
            input->pk.value, pk_item, count, price));
        table = g_list_next(table);
    }
    return(__LT_OK);
}
/* }}} */
/* items get {{{ **************************************************************/
int lt_s_input_items_get(T_DB *tdb, T_INPUT *input) {
    if (!(input->status[__LT_S_INPUT_ITEMS])) {
        tdb_table_fill(tdb, &(input->items), g_strdup_printf(
            "SELECT pk_s_add, name, count, messure, price, (count * price) "
            "FROM s_items "
            "INNER JOIN s_add ON pk_s_items=fk_s_items "
            "INNER JOIN s_messures ON pk_s_messures=fk_s_messures "
            "WHERE fk_s_inputs='%s'", input->pk.value));
        input->status[__LT_S_INPUT_ITEMS] = true;
    }
    return(__LT_OK);
}
/* }}} */