Init Method
Object: frmAddCustomer
Expand/Collapse source code of procedure Init Source Code
*-- (c) Microsoft Corporation 1995

LPARAMETERS tcCompanyName
tsBaseForm::Init()

APPEND BLANK
IF !EMPTY(tcCompanyName)
  thisform.cntCustomerInfo.txtCompany_Name.Value = tcCompanyName
ENDIF