Vendor Import Update Procedure (PF5)

Working message (Cancel button,Repeat count) {Updating [VENDORS.VNAME]}
Redraw working message
Prepare for edit
Calculate VENDORS.V_CURRENT as 1
If len(VENDORS.VNAME)=0
Calculate VENDORS.VNAME as VENDORS.VSEQ
End If
Calculate VENDORS.VNAME_UPP as upp(VENDORS.VNAME)
If len(VENDORS.VCODE)=0
Calculate VENDORS.VCODE as con(mid(VENDORS.VNAME_UPP,1,1),VENDORS.VSEQ)
End If
If len(VENDORS.V_ZIP)=4
Calculate VENDORS.V_ZIP as con(‘0’,VENDORS.V_ZIP)
End If
If len(VENDORS.V_1099_NUMBER)
Calculate VENDORS.V_1099 as 1
End If
Update files