numerus/pkg/company.go

package pkg

import (
	"context"
	"errors"
	"github.com/julienschmidt/httprouter"
	"html/template"
	"math"
	"net/http"
	"net/url"
	"strconv"
)

const (
	ContextCompanyKey = "numerus-company"
)

type Company struct {
	Id             int
	CurrencySymbol string
	DecimalDigits  int
	Slug           string
}

func CompanyHandler(next http.Handler) httprouter.Handle {
	return func(w http.ResponseWriter, r *http.Request, params httprouter.Params) {
		company := &Company{
			Slug: params[0].Value,
		}
		conn := getConn(r)
		err := conn.QueryRow(r.Context(), "select company_id, currency_symbol, decimal_digits from company join currency using (currency_code) where slug = $1", company.Slug).Scan(&company.Id, &company.CurrencySymbol, &company.DecimalDigits)
		if err != nil {
			http.NotFound(w, r)
			return
		}
		ctx := context.WithValue(r.Context(), ContextCompanyKey, company)
		r = r.WithContext(ctx)
		r2 := new(http.Request)
		*r2 = *r
		r2.URL = new(url.URL)
		*r2.URL = *r.URL
		r2.URL.Path = params[1].Value
		next.ServeHTTP(w, r2)
	}
}

func (c Company) MinCents() float64 {
	var r float64
	r = 1
	for i := 0; i < c.DecimalDigits; i++ {
		r /= 10.0
	}
	return r
}

func getCompany(r *http.Request) *Company {
	company := r.Context().Value(ContextCompanyKey)
	if company == nil {
		return nil
	}
	return company.(*Company)
}

type CurrencyOption struct {
	Code   string
	Symbol string
}

type CountryOption struct {
	Code string
	Name string
}

type Tax struct {
	Id    int
	Name  string
	Class string
	Rate  int
}

type PaymentMethod struct {
	Id           int
	Name         string
	Instructions string
}

type taxDetailsForm struct {
	locale              *Locale
	TradeName           *InputField
	BusinessName        *InputField
	VATIN               *InputField
	Phone               *InputField
	Email               *InputField
	Web                 *InputField
	Address             *InputField
	City                *InputField
	Province            *InputField
	PostalCode          *InputField
	Country             *SelectField
	Currency            *SelectField
	InvoiceNumberFormat *InputField
	NextInvoiceNumber   *InputField
	QuoteNumberFormat   *InputField
	NextQuoteNumber     *InputField
	LegalDisclaimer     *InputField
}

func newTaxDetailsForm(ctx context.Context, conn *Conn, locale *Locale) *taxDetailsForm {
	return &taxDetailsForm{
		locale: locale,
		TradeName: &InputField{
			Name:  "trade_name",
			Label: pgettext("input", "Trade name", locale),
			Type:  "text",
		},
		Phone: &InputField{
			Name:     "phone",
			Label:    pgettext("input", "Phone", locale),
			Type:     "tel",
			Required: true,
			Attributes: []template.HTMLAttr{
				`autocomplete="tel"`,
			},
		},
		Email: &InputField{
			Name:     "email",
			Label:    pgettext("input", "Email", locale),
			Type:     "email",
			Required: true,
			Attributes: []template.HTMLAttr{
				`autocomplete="email"`,
			},
		},
		Web: &InputField{
			Name:  "web",
			Label: pgettext("input", "Web", locale),
			Type:  "url",
			Attributes: []template.HTMLAttr{
				`autocomplete="url"`,
			},
		},
		BusinessName: &InputField{
			Name:     "business_name",
			Label:    pgettext("input", "Business name", locale),
			Type:     "text",
			Required: true,
			Attributes: []template.HTMLAttr{
				`autocomplete="organization"`,
				`minlength="2"`,
			},
		},
		VATIN: &InputField{
			Name:     "vatin",
			Label:    pgettext("input", "VAT number", locale),
			Type:     "text",
			Required: true,
		},
		Address: &InputField{
			Name:     "address",
			Label:    pgettext("input", "Address", locale),
			Type:     "text",
			Required: true,
			Attributes: []template.HTMLAttr{
				`autocomplete="address-line1"`,
			},
		},
		City: &InputField{
			Name:     "city",
			Label:    pgettext("input", "City", locale),
			Type:     "text",
			Required: true,
		},
		Province: &InputField{
			Name:     "province",
			Label:    pgettext("input", "Province", locale),
			Type:     "text",
			Required: true,
		},
		PostalCode: &InputField{
			Name:     "postal_code",
			Label:    pgettext("input", "Postal code", locale),
			Type:     "text",
			Required: true,
			Attributes: []template.HTMLAttr{
				`autocomplete="postal-code"`,
			},
		},
		Country: &SelectField{
			Name:     "country",
			Label:    pgettext("input", "Country", locale),
			Options:  mustGetCountryOptions(ctx, conn, locale),
			Required: true,
			Selected: []string{"ES"},
			Attributes: []template.HTMLAttr{
				`autocomplete="country"`,
			},
		},
		Currency: &SelectField{
			Name:     "currency",
			Label:    pgettext("input", "Currency", locale),
			Options:  MustGetOptions(ctx, conn, "select currency_code, currency_symbol from currency order by currency_code"),
			Required: true,
			Selected: []string{"EUR"},
		},
		InvoiceNumberFormat: &InputField{
			Name:     "invoice_number_format",
			Label:    pgettext("input", "Invoice number format", locale),
			Type:     "text",
			Required: true,
		},
		NextInvoiceNumber: &InputField{
			Name:     "next_invoice_number",
			Label:    pgettext("input", "Next invoice number", locale),
			Type:     "number",
			Required: true,
			Attributes: []template.HTMLAttr{
				"min=1",
			},
		},
		QuoteNumberFormat: &InputField{
			Name:     "quote_number_format",
			Label:    pgettext("input", "Quotation number format", locale),
			Type:     "text",
			Required: true,
		},
		NextQuoteNumber: &InputField{
			Name:     "next_quotation_number",
			Label:    pgettext("input", "Next quotation number", locale),
			Type:     "number",
			Required: true,
			Attributes: []template.HTMLAttr{
				"min=1",
			},
		},
		LegalDisclaimer: &InputField{
			Name:  "legal_disclaimer",
			Label: pgettext("input", "Legal disclaimer", locale),
			Type:  "textarea",
		},
	}
}

func (form *taxDetailsForm) Parse(r *http.Request) error {
	if err := r.ParseForm(); err != nil {
		return err
	}
	form.TradeName.FillValue(r)
	form.BusinessName.FillValue(r)
	form.VATIN.FillValue(r)
	form.Phone.FillValue(r)
	form.Email.FillValue(r)
	form.Web.FillValue(r)
	form.Address.FillValue(r)
	form.City.FillValue(r)
	form.Province.FillValue(r)
	form.PostalCode.FillValue(r)
	form.Country.FillValue(r)
	form.Currency.FillValue(r)
	form.InvoiceNumberFormat.FillValue(r)
	form.NextInvoiceNumber.FillValue(r)
	form.QuoteNumberFormat.FillValue(r)
	form.NextQuoteNumber.FillValue(r)
	form.LegalDisclaimer.FillValue(r)
	return nil
}

func (form *taxDetailsForm) Validate(ctx context.Context, conn *Conn) bool {
	validator := newFormValidator()

	country := ""
	if validator.CheckValidSelectOption(form.Country, gettext("Selected country is not valid.", form.locale)) {
		country = form.Country.Selected[0]
	}

	validator.CheckRequiredInput(form.BusinessName, gettext("Business name can not be empty.", form.locale))
	validator.CheckInputMinLength(form.BusinessName, 2, gettext("Business name must have at least two letters.", form.locale))
	if validator.CheckRequiredInput(form.VATIN, gettext("VAT number can not be empty.", form.locale)) {
		validator.CheckValidVATINInput(ctx, conn, form.VATIN, country, gettext("This value is not a valid VAT number.", form.locale))
	}
	if validator.CheckRequiredInput(form.Phone, gettext("Phone can not be empty.", form.locale)) {
		validator.CheckValidPhoneInput(ctx, conn, form.Phone, country, gettext("This value is not a valid phone number.", form.locale))
	}
	if validator.CheckRequiredInput(form.Email, gettext("Email can not be empty.", form.locale)) {
		validator.CheckValidEmailInput(form.Email, gettext("This value is not a valid email. It should be like name@domain.com.", form.locale))
	}
	if form.Web.Val != "" {
		validator.CheckValidURL(form.Web, gettext("This value is not a valid web address. It should be like https://domain.com/.", form.locale))
	}
	validator.CheckRequiredInput(form.Address, gettext("Address can not be empty.", form.locale))
	validator.CheckRequiredInput(form.City, gettext("City can not be empty.", form.locale))
	validator.CheckRequiredInput(form.Province, gettext("Province can not be empty.", form.locale))
	if validator.CheckRequiredInput(form.PostalCode, gettext("Postal code can not be empty.", form.locale)) {
		validator.CheckValidPostalCode(ctx, conn, form.PostalCode, country, gettext("This value is not a valid postal code.", form.locale))
	}
	validator.CheckValidSelectOption(form.Currency, gettext("Selected currency is not valid.", form.locale))
	validator.CheckRequiredInput(form.InvoiceNumberFormat, gettext("Invoice number format can not be empty.", form.locale))
	validator.CheckValidInteger(form.NextInvoiceNumber, 1, math.MaxInt32, gettext("Next invoice number must be a number greater than zero.", form.locale))
	validator.CheckRequiredInput(form.QuoteNumberFormat, gettext("Quotation number format can not be empty.", form.locale))
	validator.CheckValidInteger(form.NextQuoteNumber, 1, math.MaxInt32, gettext("Next quotation number must be a number greater than zero.", form.locale))

	return validator.AllOK()
}

func (form *taxDetailsForm) mustFillFromDatabase(ctx context.Context, conn *Conn, company *Company) *taxDetailsForm {
	err := conn.QueryRow(ctx, `
		select business_name
		     , substr(vatin::text, 3)
		     , trade_name
		     , phone
		     , email
		     , web
		     , address
		     , city
		     , province
		     , postal_code
		     , country_code
		     , currency_code
		     , invoice_number_format
		     , quote_number_format
		     , legal_disclaimer
			 , coalesce(invoice_number_counter.currval, 0) + 1
			 , coalesce(quote_number_counter.currval, 0) + 1
		from company
		left join invoice_number_counter
		    on invoice_number_counter.company_id = company.company_id
		    and invoice_number_counter.year = date_part('year', current_date)
		left join quote_number_counter
		    on quote_number_counter.company_id = company.company_id
		    and quote_number_counter.year = date_part('year', current_date)
		where company.company_id = $1`, company.Id).Scan(
		form.BusinessName,
		form.VATIN,
		form.TradeName,
		form.Phone,
		form.Email,
		form.Web,
		form.Address,
		form.City,
		form.Province,
		form.PostalCode,
		form.Country,
		form.Currency,
		form.InvoiceNumberFormat,
		form.QuoteNumberFormat,
		form.LegalDisclaimer,
		form.NextInvoiceNumber,
		form.NextQuoteNumber,
	)
	if err != nil {
		panic(err)
	}
	return form
}

type TaxDetailsPage struct {
	DetailsForm          *taxDetailsForm
	NewTaxForm           *taxForm
	Taxes                []*Tax
	NewPaymentMethodForm *paymentMethodForm
	PaymentMethods       []*PaymentMethod
}

func GetCompanyTaxDetailsForm(w http.ResponseWriter, r *http.Request, _ httprouter.Params) {
	mustRenderTaxDetailsForm(w, r, newTaxDetailsFormFromDatabase(r))
}

func newTaxDetailsFormFromDatabase(r *http.Request) *taxDetailsForm {
	locale := getLocale(r)
	conn := getConn(r)
	form := newTaxDetailsForm(r.Context(), conn, locale)

	company := mustGetCompany(r)
	form.mustFillFromDatabase(r.Context(), conn, company)

	return form
}

func HandleCompanyTaxDetailsForm(w http.ResponseWriter, r *http.Request, _ httprouter.Params) {
	locale := getLocale(r)
	conn := getConn(r)
	form := newTaxDetailsForm(r.Context(), conn, locale)
	if err := form.Parse(r); err != nil {
		http.Error(w, err.Error(), http.StatusBadRequest)
		return
	}
	if err := verifyCsrfTokenValid(r); err != nil {
		http.Error(w, err.Error(), http.StatusForbidden)
		return
	}
	if ok := form.Validate(r.Context(), conn); !ok {
		if !IsHTMxRequest(r) {
			w.WriteHeader(http.StatusUnprocessableEntity)
		}
		mustRenderTaxDetailsForm(w, r, form)
		return
	}
	company := mustGetCompany(r)
	tx := conn.MustBegin(r.Context())
	defer tx.MustRollback(r.Context())
	tx.MustExec(r.Context(), `
		update company
	    set business_name = $1
		  , vatin = ($11 || $2)::vatin
		  , trade_name = $3
		  , phone = parse_packed_phone_number($4, $11)
		  , email = $5
		  , web = $6
		  , address = $7
		  , city = $8
		  , province = $9
		  , postal_code = $10
		  , country_code = $11
		  , currency_code = $12
		  , invoice_number_format = $13
		  , quote_number_format = $14
		  , legal_disclaimer = $15
		where company_id = $16
		`,
		form.BusinessName,
		form.VATIN,
		form.TradeName,
		form.Phone,
		form.Email,
		form.Web,
		form.Address,
		form.City,
		form.Province,
		form.PostalCode,
		form.Country,
		form.Currency,
		form.InvoiceNumberFormat,
		form.QuoteNumberFormat,
		form.LegalDisclaimer,
		company.Id)
	tx.MustExec(r.Context(), `
		insert into invoice_number_counter (company_id, year, currval)
		values ($1, date_part('year', current_date), $2)
		on conflict (company_id, year) do update
		set currval = excluded.currval
		`,
		company.Id,
		form.NextInvoiceNumber.Integer()-1)
	tx.MustExec(r.Context(), `
		insert into quote_number_counter (company_id, year, currval)
		values ($1, date_part('year', current_date), $2)
		on conflict (company_id, year) do update
		set currval = excluded.currval
		`,
		company.Id,
		form.NextQuoteNumber.Integer()-1)
	tx.MustCommit(r.Context())
	if IsHTMxRequest(r) {
		w.Header().Set(HxTrigger, "closeModal")
		w.WriteHeader(http.StatusNoContent)
	} else {
		http.Redirect(w, r, companyURI(company, "/tax-details"), http.StatusSeeOther)
	}
}

func mustRenderTaxDetailsForm(w http.ResponseWriter, r *http.Request, form *taxDetailsForm) {
	conn := getConn(r)
	locale := getLocale(r)
	page := &TaxDetailsPage{
		DetailsForm:          form,
		NewTaxForm:           newTaxForm(r.Context(), conn, mustGetCompany(r), locale),
		NewPaymentMethodForm: newPaymentMethodForm(locale),
	}
	mustRenderTexDetailsPage(w, r, page)
}

func mustRenderTaxForm(w http.ResponseWriter, r *http.Request, form *taxForm) {
	page := &TaxDetailsPage{
		DetailsForm:          newTaxDetailsFormFromDatabase(r),
		NewTaxForm:           form,
		NewPaymentMethodForm: newPaymentMethodForm(getLocale(r)),
	}
	mustRenderTexDetailsPage(w, r, page)
}

func mustRenderPaymentMethodForm(w http.ResponseWriter, r *http.Request, form *paymentMethodForm) {
	page := &TaxDetailsPage{
		DetailsForm:          newTaxDetailsFormFromDatabase(r),
		NewTaxForm:           newTaxForm(r.Context(), getConn(r), mustGetCompany(r), getLocale(r)),
		NewPaymentMethodForm: form,
	}
	mustRenderTexDetailsPage(w, r, page)
}

func mustRenderTexDetailsPage(w http.ResponseWriter, r *http.Request, page *TaxDetailsPage) {
	conn := getConn(r)
	company := mustGetCompany(r)
	page.Taxes = mustGetTaxes(r.Context(), conn, company)
	page.PaymentMethods = mustCollectPaymentMethods(r.Context(), conn, company)
	mustRenderModalTemplate(w, r, "tax-details.gohtml", page)
}

func mustGetCompany(r *http.Request) *Company {
	company := getCompany(r)
	if company == nil {
		panic(errors.New("company: required but not found"))
	}
	return company
}

func mustGetTaxes(ctx context.Context, conn *Conn, company *Company) []*Tax {
	rows, err := conn.Query(ctx, "select tax_id, tax.name, tax_class.name, (rate * 100)::integer from tax join tax_class using (tax_class_id) where tax.company_id = $1 order by rate, tax.name", company.Id)
	if err != nil {
		panic(err)
	}
	defer rows.Close()

	var taxes []*Tax
	for rows.Next() {
		tax := &Tax{}
		err = rows.Scan(&tax.Id, &tax.Name, &tax.Class, &tax.Rate)
		if err != nil {
			panic(err)
		}
		taxes = append(taxes, tax)
	}
	if rows.Err() != nil {
		panic(rows.Err())
	}

	return taxes
}

func mustCollectPaymentMethods(ctx context.Context, conn *Conn, company *Company) []*PaymentMethod {
	rows, err := conn.Query(ctx, "select payment_method_id, name, instructions from payment_method where company_id = $1 order by name", company.Id)
	if err != nil {
		panic(err)
	}
	defer rows.Close()

	var methods []*PaymentMethod
	for rows.Next() {
		method := &PaymentMethod{}
		err = rows.Scan(&method.Id, &method.Name, &method.Instructions)
		if err != nil {
			panic(err)
		}
		methods = append(methods, method)
	}
	if rows.Err() != nil {
		panic(rows.Err())
	}

	return methods
}

type taxForm struct {
	locale *Locale
	Name   *InputField
	Class  *SelectField
	Rate   *InputField
}

func newTaxForm(ctx context.Context, conn *Conn, company *Company, locale *Locale) *taxForm {
	return &taxForm{
		locale: locale,
		Name: &InputField{
			Name:     "tax_name",
			Label:    pgettext("input", "Tax name", locale),
			Type:     "text",
			Required: true,
		},
		Class: &SelectField{
			Name:       "tax_class",
			Label:      pgettext("input", "Tax Class", locale),
			Options:    MustGetOptions(ctx, conn, "select tax_class_id::text, name from tax_class where company_id = $1 order by name", company.Id),
			Required:   true,
			EmptyLabel: gettext("Select a tax class", locale),
		},
		Rate: &InputField{
			Name:     "tax_rate",
			Label:    pgettext("input", "Rate (%)", locale),
			Type:     "number",
			Required: true,
			Attributes: []template.HTMLAttr{
				"min=-99",
				"max=99",
			},
		},
	}
}

func (form *taxForm) Parse(r *http.Request) error {
	if err := r.ParseForm(); err != nil {
		return err
	}
	form.Name.FillValue(r)
	form.Class.FillValue(r)
	form.Rate.FillValue(r)
	return nil
}

func (form *taxForm) Validate() bool {
	validator := newFormValidator()
	validator.CheckRequiredInput(form.Name, gettext("Tax name can not be empty.", form.locale))
	validator.CheckValidSelectOption(form.Class, gettext("Selected tax class is not valid.", form.locale))
	if validator.CheckRequiredInput(form.Rate, gettext("Tax rate can not be empty.", form.locale)) {
		validator.CheckValidInteger(form.Rate, -99, 99, gettext("Tax rate must be an integer between -99 and 99.", form.locale))
	}
	return validator.AllOK()
}

func HandleDeleteCompanyTax(w http.ResponseWriter, r *http.Request, params httprouter.Params) {
	taxId, err := strconv.Atoi(params[0].Value)
	if err != nil {
		http.NotFound(w, r)
		return
	}
	if err := verifyCsrfTokenValid(r); err != nil {
		http.Error(w, err.Error(), http.StatusForbidden)
		return
	}
	conn := getConn(r)
	conn.MustExec(r.Context(), "delete from tax where tax_id = $1", taxId)
	if IsHTMxRequest(r) {
		w.WriteHeader(http.StatusOK)
	} else {
		http.Redirect(w, r, companyURI(mustGetCompany(r), "/tax-details"), http.StatusSeeOther)
	}
}

func HandleAddCompanyTax(w http.ResponseWriter, r *http.Request, _ httprouter.Params) {
	locale := getLocale(r)
	conn := getConn(r)
	company := mustGetCompany(r)
	form := newTaxForm(r.Context(), conn, company, locale)
	if err := form.Parse(r); err != nil {
		http.Error(w, err.Error(), http.StatusBadRequest)
		return
	}
	if err := verifyCsrfTokenValid(r); err != nil {
		http.Error(w, err.Error(), http.StatusForbidden)
		return
	}
	if !form.Validate() {
		if !IsHTMxRequest(r) {
			w.WriteHeader(http.StatusUnprocessableEntity)
		}
		mustRenderTaxForm(w, r, form)
		return
	}
	conn.MustExec(r.Context(), "insert into tax (company_id, tax_class_id, name, rate) values ($1, $2, $3, $4 / 100::decimal)", company.Id, form.Class, form.Name, form.Rate.Integer())
	if IsHTMxRequest(r) {
		mustRenderTaxForm(w, r, newTaxForm(r.Context(), conn, company, locale))
	} else {
		http.Redirect(w, r, companyURI(company, "/tax-details"), http.StatusSeeOther)
	}
}

type paymentMethodForm struct {
	locale       *Locale
	Name         *InputField
	Instructions *InputField
}

func newPaymentMethodForm(locale *Locale) *paymentMethodForm {
	return &paymentMethodForm{
		locale: locale,
		Name: &InputField{
			Name:     "method_name",
			Label:    pgettext("input", "Payment method name", locale),
			Type:     "text",
			Required: true,
		},
		Instructions: &InputField{
			Name:     "method_instructions",
			Label:    pgettext("input", "Instructions", locale),
			Type:     "textarea",
			Required: true,
		},
	}
}

func (form *paymentMethodForm) Parse(r *http.Request) error {
	if err := r.ParseForm(); err != nil {
		return err
	}
	form.Name.FillValue(r)
	form.Instructions.FillValue(r)
	return nil
}

func (form *paymentMethodForm) Validate() bool {
	validator := newFormValidator()
	validator.CheckRequiredInput(form.Name, gettext("Payment method name can not be empty.", form.locale))
	validator.CheckRequiredInput(form.Instructions, gettext("Payment instructions can not be empty.", form.locale))
	return validator.AllOK()
}

func HandleDeletePaymentMethod(w http.ResponseWriter, r *http.Request, params httprouter.Params) {
	paymentMethodId, err := strconv.Atoi(params[0].Value)
	if err != nil {
		http.NotFound(w, r)
		return
	}
	if err := verifyCsrfTokenValid(r); err != nil {
		http.Error(w, err.Error(), http.StatusForbidden)
		return
	}
	conn := getConn(r)
	conn.MustExec(r.Context(), "delete from payment_method where payment_method_id = $1", paymentMethodId)
	if IsHTMxRequest(r) {
		w.WriteHeader(http.StatusOK)
	} else {
		http.Redirect(w, r, companyURI(mustGetCompany(r), "/tax-details"), http.StatusSeeOther)
	}
}

func HandleAddPaymentMethod(w http.ResponseWriter, r *http.Request, _ httprouter.Params) {
	locale := getLocale(r)
	conn := getConn(r)
	company := mustGetCompany(r)
	form := newPaymentMethodForm(locale)
	if err := form.Parse(r); err != nil {
		http.Error(w, err.Error(), http.StatusBadRequest)
		return
	}
	if err := verifyCsrfTokenValid(r); err != nil {
		http.Error(w, err.Error(), http.StatusForbidden)
		return
	}
	if !form.Validate() {
		if !IsHTMxRequest(r) {
			w.WriteHeader(http.StatusUnprocessableEntity)
		}
		mustRenderPaymentMethodForm(w, r, form)
		return
	}
	conn.MustExec(r.Context(), "insert into payment_method (company_id, name, instructions) values ($1, $2, $3)", company.Id, form.Name, form.Instructions)
	if IsHTMxRequest(r) {
		mustRenderPaymentMethodForm(w, r, newPaymentMethodForm(locale))
	} else {
		http.Redirect(w, r, companyURI(company, "/tax-details"), http.StatusSeeOther)
	}
}