Código Delphi [-] vDataModulle.cdsSeleccion.Locate('CODIGO',VarArrayOf([vDataModulle.cdsColoresCODIGO.AsString]),[])
vDataModulle.cdsSeleccion.Locate('CODIGO',VarArrayOf([vDataModulle.cdsColoresCODIGO.AsString]),[])