[set page_banner]Customer[/set]
[set fm_class]Contact[/set]
[set help_name]customer[/set]
[set page_title]Customer[/set]
[set icon_name]icon_people.gif[/set]
@_FM_STD_HEAD_@
[set custnr][/set]
[set custtype][/set]
[set addr1][/set]
[set addr2][/set]
[set addr3][/set]
[set postalcode][/set]
[set city][/set]
[set phonenr][/set]
[set mobilenr][/set]
[set faxnr][/set]
[set emailaddr][/set]
[set webaddr][/set]
[set fname][/set]
[set lname][/set]
[set compname][/set]
[set attention][/set]
[if value mv_action]
[then]
[if value select_customer]
[query list=1 sql="SELECT customernr,type, credit_code, deliverycode, paycode, freightcode, custgrp_id
FROM co_customer WHERE contact_id=[value select_customer]"]
[seti custnr][sql-param customernr][/seti]
[seti custtype][sql-param type][/seti]
[seti creditcode][sql-param credit_code][/seti]
[seti deliverycode][sql-param deliverycode][/seti]
[seti paycode][sql-param paycode][/seti]
[seti freightcode][sql-param freightcode][/seti]
[seti custgroup][sql-param custgrp_id][/seti]
[/query]
[query list=1 sql="SELECT custgrp_nr FROM co_custgrp WHERE custgrp_id=[scratch custgroup]"]
[seti custgroup][sql-param custgrp_nr][/seti]
[/query]
[query list=1 sql="SELECT address1, address2, address3, city, postalcode
FROM co_address WHERE contact_id=[value select_customer]"]
[seti addr1][sql-param address1][/seti]
[seti addr2][sql-param address2][/seti]
[seti addr3][sql-param address3][/seti]
[seti postalcode][sql-param postalcode][/seti]
[seti city][sql-param city][/seti]
[/query]
[query list=1 sql="SELECT phonenr FROM co_telephone WHERE contact_id=[value select_customer] AND type=90001"]
[seti phonenr][sql-param phonenr][/seti]
[/query]
[query list=1 sql="SELECT phonenr FROM co_telephone WHERE contact_id=[value select_customer] AND type=90002"]
[seti mobilenr][sql-param phonenr][/seti]
[/query]
[query list=1 sql="SELECT phonenr FROM co_telephone WHERE contact_id=[value select_customer] AND type=90003"]
[seti faxnr][sql-param phonenr][/seti]
[/query]
[query list=1 sql="SELECT url FROM co_url WHERE contact_id=[value select_customer] AND type=80001"]
[seti emailaddr][sql-param url][/seti]
[/query]
[query list=1 sql="SELECT url FROM co_url WHERE contact_id=[value select_customer] AND type=80002"]
[seti webaddr][sql-param url][/seti]
[/query]
[if scratch custtype == 60001]
[query list=1 sql="SELECT firstname,lastname FROM co_person WHERE contact_id=[value select_customer]"]
[seti fname][sql-param firstname][/seti]
[seti lname][sql-param lastname][/seti]
[/query]
[/if]
[if scratch custtype == 60002]
[query list=1 sql="SELECT name, attention FROM co_company WHERE contact_id=[value select_customer]"]
[seti compname][sql-param name][/seti]
[seti attention][sql-param attention][/seti]
[/query]
[/if]
[else]
[set error][L]**Please choose a row[/L][/set]
[/else]
[/if]
[seti submit_value][value mv_action][/seti]
[/then]
[else]
[set submit_value]Add[/set]
[/else]
[/if]
[seti tmp]
[if !value custtype][value name=custtype set="[scratch custtype]"][/if]
[/seti]
[if !scratch error]
|
[comment]Customer data - part 1[/comment]
[L]Customer[/L]
|
|
|
[L]Nr[/L]
|
|
[L]Type[/L]
|
|
|
|
[comment]Person / Company data[/comment]
[if value custtype eq 60001]
[include file="/home/freemoney/interchange/lib/UI/pages/freemoney/include/private.inc" interpolate=1]
[elsif value custtype eq 60002]
[include file=/home/freemoney/interchange/lib/UI/pages/freemoney/include/company.inc interpolate=1]
[/elsif]
[/if]
|
[comment]Address data[/comment]
[include file=/home/freemoney/interchange/lib/UI/pages/freemoney/include/address.inc]
|
[comment]Customer data - part 2[/comment]
[perl]
$Values->{creditterms} = $Scratch->{creditcode};
$Values->{deliveryterms} = $Scratch->{deliverycode};
$Values->{paymentterms} = $Scratch->{paycode};
$Values->{freightcode} = $Scratch->{freightcode};
return
[/perl]
[L]Terms[/L]
|
[L]Credit[/L]
|
|
[L]Delivery[/L]
|
|
[L]Payment[/L]
|
|
[L]Freight Code[/L]
|
|
[L]Customer Group[/L]
|
|
|
|
|
[else]
[scratch error]
[set error][/set]
[L]BACK[/L]
[/else]
[/if]
@_FM_STD_FOOTER_@