CDR<cfparam name="attributes.variable">


<cfparam name="form.data">

<cfset _saveFlexValues = DeserializeJSON( form.data )>


<cfparam name="_saveFlexValues.cdr_recordId">
<cfparam name="_saveFlexValues.flexValues" default="#structNew()#">

<cfset _cdr_recordId = val( _saveFlexValues.cdr_recordId )>
<cfset _status = "success">

<cfset _categories = _saveFlexValues.flexValues.categories>
<cfset StructDelete( _saveFlexValues.flexValues, "categories" )>

<cfquery name="qmd_fields" datasource="#attributes.datasource#">
    with fields as (
        select f.fieldId, rtrim( ltrim( f.name )) name, rtrim( ltrim( f.category )) category, rtrim( ltrim( f.label )) label, f.type, f.required, f.format, f.config, f.sortRank, f.maxLength
        from tbl_CDR_Fields f with (nolock)
        where ownerId = <cf_queryparam value="#attributes.ownerId#" cfsqltype="cf_sql_integer">
            and ownerType = <cf_queryparam value="#attributes.ownerType#" cfsqltype="cf_sql_varchar">
    )

    select * from fields
    where category in ( <cf_queryparam value="#ArrayToList( _categories )#" cfsqltype="cf_sql_varchar" list="true">)
</cfquery>

<cfset _index = StructNew()>

<cfloop query="qmd_fields">
    <cfset _key = "#category#.#name#">
    <cfset _index[_key] = currentRow>
</cfloop>

<cfset QueryAddColumn( qmd_fields, "value", "varchar", ArrayNew(1))>

<cfloop collection="#_saveFlexValues.flexValues#" item="_category">


    <cfset _fields = _saveFlexValues.flexValues[_category]>

    <cfloop collection="#_fields#" item="_name">

        <cfset _key = "#_category#.#_name#">
        <cfset _row = 0>
        <cfset _fieldId = 0>
        <cfset _fieldType = "">
        <cfif StructKeyExists ( _index, _key )>
            <cfset _row = _index[_key]>
            <cfset _fieldId = qmd_fields["fieldId"][_row]>
            <cfset _fieldType = qmd_fields["type"][_row]>
        </cfif>

        <cfif _row eq 0>
            <cfcontinue>
        </cfif>


        <cfset _fieldValue = {
            "key" : _key,
            "fieldId" : _fieldId,
            "value" : _fields[_name]
        }>

        <cfset _value = _fields[_name]>

        <cfif _fieldType eq "CHECKBOX">
            <cfset _fieldValue["value"] = StructKeyList( _fields[_name] )>
            <cfset _value = StructKeyList( _fields[_name] )>
        </cfif>

        <cfif isDefined( "_value" )>
            <cfset QuerySetCell( qmd_fields, "value", _value, _row )>
        </cfif>

    </cfloop>

</cfloop>


<cftransaction>
<cfset _changes = ArrayNew(1)>
<cfloop query="qmd_fields">

    <cfset _field = {
        "fieldId" : fieldId
    }>

    <cfif value neq "">
        <cfset _field["set"] = true>
        <cfset _field["value"] = value>
    <cfelse>
        <cfset _field["set"] = false>
    </cfif>

    <cfset ArrayAppend( _changes, _field )> 

    <cfif _field.set>
        <cfquery name="qmd_update" datasource="#attributes.datasource#" result="_r">
            update tbl_CDR_FieldValues
                set data = <cfqueryparam value="#_field.value#" cfsqltype="cf_sql_varchar">
            where partnerId = <cfqueryparam value="#_cdr_recordId#" cfsqltype="cf_sql_integer">
              and partnerType = 'CDR'
              and fieldId = <cfqueryparam value="#_field.fieldId#" cfsqltype="cf_sql_integer">
              and valueIndex = 1
        </cfquery>

        <cfif _r.recordCount eq 0>

            <cfquery name="qmd_insert" datasource="#attributes.datasource#" result="_r">
                insert into tbl_CDR_FieldValues (
                    fieldId, partnerId, partnerType, data, valueIndex
                ) values (
                    <cfqueryparam value="#_field.fieldId#" cfsqltype="cf_sql_integer">,
                    <cfqueryparam value="#_cdr_recordId#" cfsqltype="cf_sql_integer">,
                    'CDR',
                    <cfqueryparam value="#_field.value#" cfsqltype="cf_sql_varchar">,
                    1
                )
            </cfquery>

        </cfif>
        <cfset _field["r"] = _r.recordCount>
    <cfelse>
        <cfquery name="qmd_delete" datasource="#attributes.datasource#" result="_r">
            delete from tbl_CDR_FieldValues
            where partnerId = <cfqueryparam value="#_cdr_recordId#" cfsqltype="cf_sql_integer">
              and partnerType = 'CDR'
              and fieldId = <cfqueryparam value="#_field.fieldId#" cfsqltype="cf_sql_integer">
        </cfquery>

        <cfset _field["r"] = _r.recordCount>
    </cfif>

</cfloop>
</cftransaction>




<cfset _result = { "status" : _status, "fields" : _changes } >
<cfset caller[attributes.variable] = SerializeJSON( _result )>