profab con codigo unico

se implementa funcion
verificar_codigo_existente(ByVal codigo As Integer)
para asegurarse que el codigo ingresado no genere conflicto con alguno
ya existente.