[Form_Init]
this = centering
this = subroutine(Sub_loadStaticCombos)
this = subroutine(Sub_debugOff)
spd_list = configlistfieldnames(cd_supplier,name_supplier,cd_shipment,name_shipment,cd_wp,name_wp,cd_grade,name_gread)
cmb_cd_supplier = copystring(txt_cd_supplier)

[Sub_loadStaticCombos]
cmb_cd_supplier = loadcombo(activesupplier,cd_supplier,name_supplier,true,txt_dt_shipslip)

[Sub_debugOff]
txt_dt_shipslip = visible(false)

[cmb_cd_supplier_Click]
@form = eventlocked(true)
txt_cd_supplier = copystring(cmb_cd_supplier)
@form = eventlocked(false)

[txt_cd_supplier_LostFocus]
@form = eventlocked(true)
cmb_cd_supplier = copystring(txt_cd_supplier)
txt_cd_supplier = copystring(cmb_cd_supplier)
@form = eventlocked(false)