Load::Method .oRS0 = createobject('ADODB.RecordSet') SET ClassLib TO Clientes, Layers .oCliente = CreateObject('Ficha_Clientes', 'DataClass') Button::Click llOK=.oCliente.lst_vendas_cliente(.oRS0, lcParam, "usr_sp_Clientes") Ficha_Clientes::lst_vendas_cliente lparameters toRS, tcPar, tcStoredProc LOCAL lOK llOK = .oData.GetStoredProcRecordSet(toRS, tcPar, tcStoredProc) oData.GetStoredProcRecordSet::Method Lparameters toRS, tcParam, tcStoredProc .SetCommandProperties(tcStoredProc) WITH .oCommand .Parameters("@Param1").Value=tcParam toRs=.Execute ENDWITHJoão Batista