refreshcustomerinfo Method
Class: orderentry
Expand/Collapse source code of procedure refreshcustomerinfo Source Code
*-- 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