[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]
[set [L]Find[/L]] mv_todo=return mv_nextpage=freemoney/customerList.html mv_action= [/set] [set name=[L]"[scratch submit_value]"[/L]] mv_nextpage=freemoney/customerUpdate [/set]
[else] [scratch error] [set error][/set]

[L]BACK[/L] [/else] [/if] @_FM_STD_FOOTER_@