Clipper/FiveWin - pregunta de combos

HOLA AMIGOS DEL FORO PRIMERO QUE NADA GRACIAS A GABRIEL PASCUAL POR HABERME ENVIADO EL CODIGO A TRAVES DEL FORO YA LO USE PERO ME MARCA UN ERROR HABER SI ME PUEDEN AYUDAR LO CUAL AGRADECERE MUCHO.

ESTE ES EL CODIGO.
function combos
local oCombo1,oCombo2,lAceptar:=.f.
aCombo1 := {"Ventas","Compras","Cuentas por Pagar","Cuentas por Cobrar"}
declare aCombo2[4]
aCombo2[1] := {"Nacionales", "Internacionales","Gubernamentales","Otras"}
aCombo2[2] := {"Nacionales","Internacionales"}
aCombo2[3] := {"Por compras","Por consignación"}
aCombo2[4] := {"15 dias","30 dias", "45 dias","Incobrables"}
nCombo1 := 1
nCombo2 := 1
define Dialog oDlg of oVent resource "combos" title "Acceso a Combos"
REDEFINE COMBOBOX oCombo1 VAR nCombo1 ITEMS aCombo1 ID 102 OF oDlg;
ON CHANGE (nCombo2:=1,oCombo2:SetArray(aCombo2nCombo1]),oCombo2:Refresh()) UPDATE
REDEFINE COMBOBOX oCombo2 VAR nCombo2 ITEMS aCombo2[nCombo1] ID 104 OF oDlg UPDATE
redefine Button id 105 of oDlg Action(lAceptar:=.t.,oDlg:End())
redefine Button id 106 of oDlg Action(oDlg:End())
activate dialog oDlg center

return


ESTE ES EL ERROR.

Application
===========
Path and name: C:\sistema.exe (32 bits)
Size: 1,248,800 bytes
Time from start: 0 hours 0 mins 13 secs
Error occurred at: 2007/05/01, 12:53:29
Error description: Error BASE/1004 Message not found: TCOMBOBOX:SETARRAY

__________________________________________________

Perdon, perdon.

Se me han ido las cabras al monte, estaba pensando en Xailer en vez de hacerlo en FiveWin, no es SetArray()

Cambia el oComboBox:SetArray() por :SetItems(<array>) y eso es todo.