... bien, no tengo problemas oServer:Query( "UPDATE catalogo SET auxi = 'N' WHERE SubString(codicont,1,4) = '1101' ORDER BY codicont" ) Perooo, necesito automatizar. Algo asi: aCuentas:={"1101","1102","1103"} aList := HB_ATokens( Alltrim(cCuentas), "/" ...