*-- Update customer information
IF !EMPTY(thisform.cboCustomer_ID.Value)
thisform.txtShip_To_Name.Value = customer.company_name
thisform.txtShip_To_Address.Value = customer.address
thisform.txtShip_To_City.Value = customer.city
thisform.txtShip_To_Region.Value = customer.region
thisform.txtShip_To_Postal_Code.Value = customer.postal_code
thisform.txtCountry.Value = customer.country
thisform.txtDiscountPerc.Value = customer.discount
ELSE
*-- If there is no customer selected, blank out the customer
*-- information
thisform.txtShip_To_Name.Value = ""
thisform.txtShip_To_Address.Value = ""
thisform.txtShip_To_City.Value = ""
thisform.txtShip_To_Region.Value = ""
thisform.txtShip_To_Postal_Code.Value = ""
thisform.txtCountry.Value = ""
thisform.txtDiscountPerc.Value = 0
ENDIF