Lotus Approach - Script???

Tengo el siguiente script (que por cierto funciona perfectamente) y quisiera simplificarlo un poco. Creo que se puede hacer a través de un Array, pero no se como hacerlo. Este es el Script:

For Registro =1 To CurrentWindow.NumRecordsFound
If Registro = 1 Then CurrentView.Body.DOC1.Text = CurrentView.Body.DOCU.Text
If Registro = 2 Then CurrentView.Body.DOC2.Text = CurrentView.Body.DOCU.Text
If Registro = 3 Then CurrentView.Body.DOC3.Text = CurrentView.Body.DOCU.Text
If Registro = 4 Then CurrentView.Body.DOC4.Text = CurrentView.Body.DOCU.Text
...así hasta el Registro 20
CurrentWindow.NextRecord
Next

Me explico: Tengo dos bases de datos relacionadas (Cliente y Pedido). La BD Cliente tiene los campos DOC1, DOC2...DOC20, y en la BD Pedido hay un campo DOCU que forma parte de un Panel de Repetición (donde como máximo puede haber 20 registros). Estando en una vista basada en Pedido, quiero que al estar en el primer registro el campo DOC1 de la BD Cliente tome el valor de DOCU; Pedido que vaya al siguiente registro y el campo DOC2 de Cliente tome el valor de DOCU, y así con todos los registros.

Alguién sabe como hacerlo.

Gracias y un saludo a todos.

¿Por lo que entiendo tu lo que asocias con DOC1, DOC2...DOC20, y DOCU, DOCU2,...DOCU20 son los clientes con los pedidos?

Clientes y Pedidos están asociados por el campo Pedido. En la BD Clientes hay unos campos llamados DOC1, DOC2...DOC20, y en la BD Pedidos hay un campo llamado NUMDOC que pertenece a un Panel de Repetición. El dato NUMDOC de los distintos registros (como máx. 20) quiero que vaya cada uno al correspondiente en Clientes DOC1, DOC2...DOC20.

Repito, que la Script que aparece funciona perfectamente, pero quisiera saber como puedo simplificarla, creo que con un ARRAY.

Gracias.