Assegnazione della ragione sociale di un cliente/fornitore a partire dal codice

' Il seguente frammento assegna il campo del form "RAGSOC" con la ragione sociale del fornitore o cliente il cui codice è presente nel campo nel cui EventoCambia viene inserito il frammento stesso


dim ragsoc as qwtable =new qwtable()
dim par As AssocArray = New AssocArray
dim err as string
par("CODE")=this.value 
ragsoc=OpenTable(form, "select RAGSOC from CLIFOR where CODICE=:CODE",par, false, false,err) 

if not empty(err)
 form.alert(err)
else 
 if ragsoc.rowset.first()
    form.findcontrol("RAGSOC").value=ragsoc.rowset.fields(1).value
 end if
 CloseTable(form,ragsoc)
end if