Maya Jewlery Add customer to AGroup from PGroup
<MvASSIGN NAME = "l.ordercharge" VALUE = "">
<MvASSIGN NAME = "l.ordercharge:order_id" VALUE = "{ l.order:id }">
<MvASSIGN NAME = "l.ordercharge:module_id" VALUE = "{ l.module:id }">
<MvASSIGN NAME = "l.ordercharge:type" VALUE = "TAX">
<MvASSIGN NAME = "l.ordercharge:descrip" VALUE = "Sales Tax">
<MvASSIGN NAME = "l.ordercharge:amount" VALUE = 1.00>
<MvASSIGN NAME = "l.ordercharge:disp_amt" VALUE = 1.00>
<MvASSIGN NAME = "l.ordercharge:tax_exempt" VALUE = 0>
<MvIF EXPR = "{ NOT [ g.Module_Library_DB ].OrderCharge_Insert( l.ordercharge ) }">
<MvFUNCTIONRETURN VALUE = 0>
</MvIF>
<mvt:comment><mvt:assign name="l.basketcharge:order_id" value="l.settings:order:id"></mvt:comment>
<mvt:assign name="l.basketcharge:module_id" value="l.settings:store:tax_mod:id">
<mvt:assign name="l.basketcharge:type" value="'TAX'">
<mvt:assign name="l.basketcharge:descrip" value="'CA Sales Tax'">
<mvt:assign name="l.basketcharge:amount" value="g.basket:subtotal * 0.0875">
<mvt:assign name="l.basketcharge:disp_amt" value="g.basket:subtotal * 0.0875">
<mvt:assign name="l.basketcharge:tax_exempt" value="0">
<mvt:comment>Order ID: &mvt:basketcharge:order_id;<br /></mvt:comment>
Module ID: &mvt:basketcharge:module_id;<br />
Type: &mvt:basketcharge:type;<br />
Desription: &mvt:basketcharge:descrip;<br />
Amount: &mvt:basketcharge:amount;<br />
Display Amount: &mvt:basketcharge:disp_amt;<br />
Tax Exempt: &mvt:basketcharge:tax_exempt;<br />
<mvt:do file="g.Module_Library_DB" name="l.success" value="BasketCharge_Insert( l.basketcharge )" />
<MvIF EXPR = "{ NOT [ g.Module_Feature_PGR_DB ].PriceGroupXCustomer_Load( l.pgrp_id, l.cust_id, l.pricegroupxcustomer ) }">
<MvIF EXPR = "{ NOT [ g.Module_Library_DB ].Error_Is_EOF() }">
<MvFUNCTIONRETURN VALUE = "{ [ g.Module_Library_Utilities ].Error( g.Error_Code, g.Error_Message ) }">
</MvIF>
<MvIF EXPR = "{ [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Load( l.agrp_id, l.cust_id, l.availgroupxcustomer ) }">
<MvIF EXPR = "{ NOT [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Delete( l.agrp_id, l.cust_id ) }">
<MvFUNCTIONRETURN VALUE = 0>
</MvIF>
</MvIF>
<MvELSE>
<MvIF EXPR = "{ NOT [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Load( l.agrp_id, l.cust_id, l.availgroupxcustomer ) }">
<MvIF EXPR = "{ NOT [ g.Module_Library_DB ].Error_Is_EOF() }">
<MvFUNCTIONRETURN VALUE = "{ [ g.Module_Library_Utilities ].Error( g.Error_Code, g.Error_Message ) }">
</MvIF>
<MvIF EXPR = "{ NOT [ g.Module_Feature_AGR_DB ].AvailGroupXCustomer_Insert( l.agrp_id, l.cust_id ) }">
<MvFUNCTIONRETURN VALUE = 0>
</MvIF>
</MvIF>
</MvIF>
<mvt:if expr="s.remote_addr EQ '207.114.171.26'">
<!-- Start mvdo functionality -->
<mvt:do file="g.Module_Feature_PGR_DB" name="l.settings:pgrouplist" value="PriceGroup_Load_Name( 'Wholesale', g.wholesalepgroup )" />
<mvt:comment><!-- <mvt:eval expr="miva_array_serialize(g.wholesalepgroup)" /> --></mvt:comment>
<mvt:comment><!-- &mvt:global:wholesalepgroup:id; --></mvt:comment>
<mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agrouplist" value="AvailabilityGroup_Load_Name( 'Wholesale', g.wholesaleagroup )" />
<mvt:comment><!-- <mvt:eval expr="miva_array_serialize(g.wholesaleagroup)" /> --></mvt:comment>
<mvt:comment><!-- &mvt:global:wholesaleagroup:id; --></mvt:comment>
<mvt:comment><mvt:assign name="g.pvar" value="miva_array_serialize(l.settings:customer_pgroups)" />
<!-- @@ &mvt:global:pvar; --></mvt:comment>
<mvt:foreach iterator="pgroup" array="customer_pgroups">
<mvt:if expr="l.settings:pgroup:name EQ 'Wholesale'">
<mvt:comment><!-- pgroupname: &mvt:pgroup:name; --></mvt:comment>
<mvt:do file="g.Module_Feature_PGR_DB" name="l.settings:pgrouptrue" value="PriceGroupXCustomer_Load( l.settings:pgroup:id, g.customer:id, l.pricegroupxcustomer )" />
<mvt:comment><!-- prouptrue: &mvt:pgrouptrue; --></mvt:comment>
</mvt:if>
</mvt:foreach>
<mvt:comment><mvt:assign name="g.avar" value="miva_array_serialize(l.settings:customer_agroups)" />
<!-- @@ &mvt:global:avar; --></mvt:comment>
<mvt:foreach iterator="agroup" array="customer_agroups">
<mvt:if expr="l.settings:agroup:name EQ 'Wholesale'">
<mvt:comment><!-- agroupname: &mvt:agroup:name; --></mvt:comment>
<mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agrouptrue" value="AvailGroupXCustomer_Load( l.settings:agroup:id, g.customer:id, l.availgroupxcustomer )" />
<mvt:comment><!-- arouptrue: &mvt:agrouptrue; --></mvt:comment>
</mvt:if>
</mvt:foreach>
<mvt:if expr="ISNULL l.settings:pgrouptrue OR l.settings:pgrouptrue EQ 0">
<!-- not in pgroup -->
<mvt:if expr="l.settings:agrouptrue EQ 1">
<!-- remove from agroup -->
<mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agroupremove" value="AvailGroupXCustomer_Delete( g.wholesaleagroup:id, g.customer:id )" />
<mvt:else>
<!-- not in agroup -->
</mvt:if>
<mvt:else>
<!-- in pgroup -->
<mvt:if expr="ISNULL l.settings:agrouptrue OR l.settings:agrouptrue EQ 0">
<!-- insert into agroup -->
<mvt:do file="g.Module_Feature_AGR_DB" name="l.settings:agroupadd" value="AvailGroupXCustomer_Insert( g.wholesaleagroup:id, g.customer:id )" />
<mvt:else>
<!-- in agroup -->
</mvt:if>
</mvt:if>
<!-- End mvdo functionality -->
</mvt:if>