select ped1 SCAN STORE ALLTRIM (PED1.CIDADE) TO codMunicipio STORE remSpecChars(codMunicipio) TO codMunicipio select municipios LOCATE FOR municipios.cep1_n <= cepMunicipio DO case case NOT FOUND() SELECT nao_encontrado APPEND BLANK replace nao_encontrado.retorno with municipios.c OTHERWISE SELECT nao_encontrado APPEND BLANK replace nao_encontrado.retorno with STR(cepMunicipio) endcase ENDSCAN